Source PostScript (colineaires.pps)

%% syntaxe : u v colineaire --> true si les vecteurs u et v sont
%% colineaires, false sinon
/colineaires? {
4 dict begin
   /y2 exch def
   /x2 exch def
   /y1 exch def
   /x1 exch def
   x1 y2 mul x2 y1 mul sub 0 eq
end
} def

%% syntaxe : u v colineaire --> true si les vecteurs u et v sont
%% colineaires, false sinon
/colineaires? {
4 dict begin
   /y2 exch def
   /x2 exch def
   /y1 exch def
   /x1 exch def
   x1 y2 mul x2 y1 mul sub abs 
   %% a cause des erreurs d'arrondi, on convient que (x < 2e-5) => (x = 0)
   2e-05 lt
end
} def