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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
% make definition operators
/BD {bind def} bind def
/XD {exch def} BD
% make increment and decrement operators
/IN {1 add} BD
/DE {1 sub} BD
% exch sub operator
/XS {exch sub} BD
% newpath operator
/NP {newpath} BD
% newpath moveto operator
/NM {newpath moveto} BD
% moveto operator
/M {moveto} BD
% closepath operator
/CP {closepath} BD
% closepath fill operator
/CF {closepath fill} BD
% lineto operator
/LN {lineto} BD
% divide by 2
/D2 {2 div} BD
% draw a line segment
% assumes x2 y2 x1 y1 on top of stack
/L {moveto LN stroke} BD
/ML {moveto LN } BD
% adds a relative vector to the path
% assumes x2 y2 on top of stack
/V {rlineto} BD
% construct rectangular box path
% assumes l b r t on top of stack
/B {4 1 roll 2 copy 5 index 5 index 8 1 roll
NM LN LN LN closepath} BD
% set line width
% assumes line width is on top of stack
/W {setlinewidth} BD
% stringwidth operator
/SW {stringwidth} BD
% translate operator
/TR {translate} BD
% set current color
% assumes R G B values (0.0 to 1.0) on top of stack
/C {setrgbcolor} BD
% set color to black, line width to 1
/BW {0 0 0 C 1 W} BD
% moveto and show
% assumes text x y on top of stack
/MS {moveto show} BD
% fill interior of current path with current color
/F {gsave fill grestore} BD
% draw current path
/D {stroke} BD
% set font name
% assumes font name is on top of stack
/FN {/fn exch cvn def} BD
% ISO-Latin1 fonts
/isofonts 100 dict def
% set font
% assumes size is on top of stack
/SF {isofonts fn known {} {
fn dup length string cvs
dup length 4 add string 1 index 1 index copy pop
exch length 1 index exch (-ISO) putinterval cvn
fn findfont dup length dict copy
dup /FID undef
dup /FontName 3 index put
dup /Encoding ISOLatin1Encoding put
1 index exch definefont pop
isofonts fn 3 -1 roll put
} ifelse
isofonts fn get findfont exch scalefont setfont} BD
% initialize font to Helvetica, size = 10
(Helvetica) FN 10 SF
% initialize the text box path
/ZB {0 0 NM gsave} BD
% get the path of the text box
/PB {dup false charpath flattenpath pathbbox
/bt exch mg add def
/br exch mg add def
/bb exch mg sub def
/bl exch mg sub def} BD
% set the text box path
/TB {bl bb br bt B} BD
% text in box
/TIB {0 0 MS grestore} BD
% procs for text box path
/LTX {mg add} BD
/RTX {mg add br bl sub sub} BD
/CTX {mg add br bl sub D2 sub} BD
/UTY {mg add bt bb sub sub} BD
/LTY {mg add} BD
/CTY {mg add bt bb sub D2 sub} BD
% proc used for highlight color
/HC {0 0 NM dup false charpath stroke} BD
% proc used before included EPS file
/BeginEPSF {
/inc_state save def
/dict_count countdictstack def
/op_count count 1 sub def
userdict begin
/showpage { } def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [ ] 0 setdash newpath
/language level where
{pop languagelevel
1 ne
{false setstrokeadjust false setoverprint
} if
} if
} bind def
% proc used to restore PS state after included EPS file
/EndEPSF {
count op_count sub {pop} repeat
countdictstack dict_count sub {end} repeat
inc_state restore
} bind def
|
