root/trunk/jps2ps/pps/ABpoint.pps
| Revision 4, 194 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : alpha A B ABpoint -> le point A' tel que AA' = alpha AB |
| 2 | /ABpoint { |
| 3 | 5 copy |
| 4 | vecteur |
| 5 | 3 -1 roll |
| 6 | mulv |
| 7 | 4 -1 roll |
| 8 | 4 -1 roll |
| 9 | pop pop |
| 10 | 5 -1 roll |
| 11 | pop |
| 12 | addv |
| 13 | } def |
Note: See TracBrowser for help on using the browser.
