Mega Code Archive

 

Categories / Delphi / Graphic

 

Signed Area in 2D

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 *)