Mega Code Archive

 

Categories / Delphi / Graphic

 

Orientation of a Point in 2D to two other 2D Points

Title: Orientation of a Point in 2D to two other 2D Points Function Orientation(x1,y1,x2,y2,Px,Py:Double):Integer; Var Orin : Double; Begin (* Linear determinant of the 3 points *) Orin:=(x2-x1)*(py-y1)-(px-x1)*(y2-y1); If Orin 0.0 Then Result := +1 (* Orientaion is to the right-hand side *) Else If Orin Else Result := 0; (* Orientaion is neutral if result is 0 *) End; (* End Of Orientation *)