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