diff options
Diffstat (limited to 'Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro')
-rw-r--r-- | Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro | 100 |
1 files changed, 100 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro b/Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro new file mode 100644 index 00000000000..d06480d1120 --- /dev/null +++ b/Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro @@ -0,0 +1,100 @@ +%! +% Psfig/TeX Release 1.2 +% arbortext (dvips) version +% +% All software, documentation, and related files in this distribution of +% psfig/tex are Copyright 1987, 1988 Trevor J. Darrell +% +% Permission is granted for use and non-profit distribution of psfig/tex +% providing that this notice be clearly maintained, but the right to +% distribute any portion of psfig/tex for profit or as part of any commercial +% product is specifically reserved for the author. +% +% +% $Header: figtex.pro,v 1.5 87/07/24 20:14:50 trevor Exp $ +% $Source: $ +% +%/TeXscale { 65536 div } def +%/psfts { S 65781.76 div N } N +/TeXscale { 65781.76 div } def + +%/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap +%currentlinejoin currentdash currentgray currentmiterlimit ] cvx def +% +% Since dvi2ps has an initgraphics at the beginning of texpre.ps, we can +% assume: +gsave initgraphics +/DocumentInitState [ matrix currentmatrix currentlinewidth currentlinecap +currentlinejoin currentdash currentgray currentmiterlimit ] cvx def +grestore + +/startTexFig { +% usage : x y bb-llx bb-lly bb-urx bb-ury startFig + /SavedState save def + userdict maxlength dict begin + currentpoint transform + + DocumentInitState setmiterlimit setgray setdash setlinejoin setlinecap + setlinewidth setmatrix + + itransform moveto + + /ury exch TeXscale def + /urx exch TeXscale def + /lly exch TeXscale def + /llx exch TeXscale def + /y exch TeXscale def + /x exch TeXscale def + + currentpoint /cy exch def /cx exch def + + /sx x urx llx sub div def % scaling for x + /sy y ury lly sub div def % scaling for y + + sx sy scale % scale by (sx,sy) + + cx sx div llx sub + cy sy div ury sub translate + + /DefFigCTM matrix currentmatrix def + + /initmatrix { + DefFigCTM setmatrix + } def + /defaultmatrix { + DefFigCTM exch copy + } def + + /initgraphics { + DocumentInitState setmiterlimit setgray setdash + setlinejoin setlinecap setlinewidth setmatrix + DefFigCTM setmatrix + } def + + /showpage { + initgraphics + } def +% /erasepage and /copypage added for MatLab support (tli) + /erasepage { + initgraphics + } def + /copypage {} def + +} def +% Args are llx lly urx ury (in figure coordinates) +/clipFig { + currentpoint 6 2 roll + newpath 4 copy + 4 2 roll moveto + 6 -1 roll exch lineto + exch lineto + exch lineto + closepath clip + newpath + moveto +} def +% doclip, if called, will always be just after a `startfig' +/doclip { llx lly urx ury clipFig } def +/endTexFig { + end SavedState restore +} def |