root/trunk/jps2ps/pps/alignes.pps

Revision 4, 209 bytes (checked in by jms, 8 months ago)

Chargement de jps2ps dans le SVN.

Line 
1 %% syntaxe : A B C alignes --> booleen, true si A, B, C alignes; false sinon
2 /alignes {
3 3 dic begin
4    /C defpoint
5    /B defpoint
6    /A defpoint
7    A B vecteur
8    A C vecteur
9    determinant
10    0 eq
11 end
12 } def
Note: See TracBrowser for help on using the browser.