blob: d06480d1120c12fae2764b325c6fe729a502758d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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
|
