root/trunk/jps2ps/pps/ABpoint3d.pps
| Revision 4, 199 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : A B k ABpoint3d --> M |
| 2 | %% M tel que vect(AM) = k vect (AB) |
| 3 | /ABpoint3d { |
| 4 | 3 dict begin |
| 5 | /k exch def |
| 6 | /B defpoint3d |
| 7 | /A defpoint3d |
| 8 | A B vecteur3d |
| 9 | k mulv3d |
| 10 | A addv3d |
| 11 | end |
| 12 | } def |
| 13 |
Note: See TracBrowser for help on using the browser.
