root/trunk/jps2ps/pps/alignes.pps
| Revision 4, 209 bytes (checked in by jms, 8 months ago) |
|---|
| 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.
