if Orin > 0.0 then Result := +1 (* Orientaion is to the right-hand side *)else if Orin < 0.0 then Result := -1 (* Orientaion is to the left-hand side *)elseResult := 0; (* Orientaion is neutral if result is 0 *)end;(* End Of Orientation *)