root/trunk/jps2ps/pps/baseplannormal.pps
| Revision 11, 293 bytes (checked in by jpv, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : x y z baseplannormal -> x1 y1 z1 x2 y2 z2 |
| 2 | /baseplannormal { |
| 3 | 5 dict begin |
| 4 | /K defpoint3d |
| 5 | 1 0 0 K vectprod3d normalize3d /U defpoint3d |
| 6 | U norme3d 0 eq { |
| 7 | 0 1 0 K vectprod3d normalize3d /U defpoint3d |
| 8 | } if |
| 9 | K U vectprod3d normalize3d /V defpoint3d |
| 10 | U V |
| 11 | end |
| 12 | } def |
| 13 | |
| 14 |
Note: See TracBrowser for help on using the browser.
