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