root/trunk/jps2ps/pps/addv3d.pps
| Revision 4, 216 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% addition de deux vecteurs 3d |
| 2 | /addv3d { %% x1 y1 z1 x2 y2 z2 |
| 3 | 6 dict begin |
| 4 | /zp exch def |
| 5 | /yp exch def |
| 6 | /xp exch def |
| 7 | /z exch def |
| 8 | /y exch def |
| 9 | /x exch def |
| 10 | x xp add |
| 11 | y yp add |
| 12 | z zp add |
| 13 | end |
| 14 | } def |
| 15 |
Note: See TracBrowser for help on using the browser.
