root/trunk/jps2ps/pps/angle3d.pps
| Revision 4, 248 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : vect1 vect2 angle3d |
| 2 | /angle3d { |
| 3 | 4 dict begin |
| 4 | normalize3d /vect2 defpoint3d |
| 5 | normalize3d /vect1 defpoint3d |
| 6 | /cosalpha vect1 vect2 scalprod3d def |
| 7 | /sinalpha vect1 vect2 vectprod3d norme3d def |
| 8 | sinalpha cosalpha atan |
| 9 | end |
| 10 | } def |
| 11 |
Note: See TracBrowser for help on using the browser.
