Graphic Delphi

Title: Signed Area in 2D
Function Signed(x1,y1,x2,y2,Px,Py:Double):Double;
Begin
Result := (x2 - x1)*(py - y1)-(px - x1)*(y2 - y1);
End;
(* End Of Signed *)