Source PostScript (alignes.pps)

Retour Texte non formaté 

%% syntaxe : A B C alignes --> booleen, true si A, B, C alignes; false sinon
/alignes {
3 dic begin
   /C defpoint
   /B defpoint
   /A defpoint
   A B vecteur
   A C vecteur
   determinant 
   0 eq
end
} def