root/trunk/jps2ps/pps/axesympoint.pps
| Revision 4, 249 bytes (checked in by jms, 8 months ago) |
|---|
| Line | |
|---|---|
| 1 | %% syntaxe : A D axesympoint --> point B, le symetrique de A par rapport |
| 2 | %% a la droite D |
| 3 | /axesympoint { |
| 4 | 2 dict begin |
| 5 | 6 copy |
| 6 | pop pop pop pop |
| 7 | /yA exch def |
| 8 | /xA exch def |
| 9 | orthoproj |
| 10 | xA yA vecteur |
| 11 | -2 mulv |
| 12 | xA yA addv |
| 13 | end |
| 14 | } def |
Note: See TracBrowser for help on using the browser.
