summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro')
-rw-r--r--Master/texmf-dist/source/generic/psfig/unsupported/arbortext.pro100
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