root/trunk/jps2ps/pps/addv.pps
| Revision 4, 176 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : u v addv --> u+v |
| 2 | /addv { %% xA yA xB yB |
| 3 | 3 1 roll %% xA yB yA xB |
| 4 | 4 1 roll %% xB xA yB yA |
| 5 | add 3 1 roll %% yB+yA xB xA |
| 6 | add exch |
| 7 | } def |
| 8 |
Note: See TracBrowser for help on using the browser.
