Vorallem das =0 zusammen mit Double ist witzig ... wo wir doch alle Wissen, daß man da doch nicht so genau prüfen soll
eventuell ja so?
Delphi-Quellcode:
function Collinear(L1x, L1y, L2x, L2y, Px, Py, B: Integer): Boolean;
begin
Result := Abs((L2x - L1x) * (Py - L1y) - (Px - L1x) * (L2y - L1y)) <= B*B*B;
end;