root/trunk/jps2ps/pps/angle.pps
| Revision 4, 370 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : A B angle |
| 2 | %% --> num, l'angle defini par le vecteur AB dans le repere orthonorme jps |
| 3 | /angle { |
| 4 | vecteur exch atan |
| 5 | dup 180 gt |
| 6 | {360 sub} |
| 7 | if |
| 8 | } def |
| 9 | |
| 10 | %% syntaxe : A B pangle |
| 11 | %% --> num, l'angle defini par le vecteur AB dans le repere postscript |
| 12 | /pangle { |
| 13 | jtoppoint exchp jtoppoint exchp vecteur exch atan |
| 14 | dup 180 gt |
| 15 | {360 sub} |
| 16 | if |
| 17 | } def |
Note: See TracBrowser for help on using the browser.
