root/trunk/jps2ps/pps/Arc.pps
| Revision 4, 249 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : A B da Arc |
| 2 | %% trace en B l'arc de cercle d'angle 2*da centre en A |
| 3 | /Arc { |
| 4 | 5 dict begin |
| 5 | /da exch def |
| 6 | /B defpoint |
| 7 | /A defpoint |
| 8 | /alpha A B angle def |
| 9 | /r A B distance def |
| 10 | alpha da sub |
| 11 | alpha da add |
| 12 | A r Cercle |
| 13 | end |
| 14 | } def |
| 15 |
Note: See TracBrowser for help on using the browser.
