function Collinear(x1, y1, x2, y2, x3, y3: Double): Boolean;
begin
Result := (((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) = 0);
end;
(* End Of Collinear *)
// vérifier si 3 points appartiennent à une même droite bidimensionnelle
// c.a.d s'ils sont alignés.