blob: 634410d90143872e837f78595d2efff8c487ba6d (
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
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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
|
%!PS-Adobe-2.0
%%DocumentFonts: Times-Roman
%%Creator: Axiom
%%CreationDate: today
%%Pages: 1
%%processing (hard) limit: 250 pts or 500 values for the operand stack.
%%EndComments
%------------------------------- prologue -------------------------------%
%-------------------------- support procedures --------------------------%
%--------- first create user dictionary with 100 entries max ------------%
% (number can be changed to accomodate definitions) %
100 dict begin %% using 100 entries in top level dictionary
/FontHeight 12 def
/inch
{ 72 mul }
def
% yVal and hVal are necessary because the Xwindow display origin
% is at the upper left corner, while the postscript display
% origin is at the lower left hand corner.
/yVal %% get Y value -- make upper left corner origin
{ maxY sub abs } %% maxY is viewWindow height
def
/hVal %% get H value -- used for displaying title text
{ maxH sub abs } %% maxH is viewWindow height+titleWindow height
def
% loads in the font
/loadFont
{ /Times-Roman findfont FontHeight scalefont setfont }
def
% draws a rectangle with input operand:
% height
% width
% notice that this function does not "draw" or ink the rectangle.
/drawRect
{ 1 index 1 add 0 rlineto %% draw first side
0 exch 1 add neg rlineto %% draw second side
1 add neg 0 rlineto %% draw third side
closepath } %% draw fourth side
def
% create a rectangle with input operand in the view window:
% y
% x
% height
% width
% notice that this function does not "draw" or ink the rectangle.
/rectangle
{ yVal moveto %% set currentpoint for line
drawRect } %% draws the rectangle
def
% These are global variables that every draw procedure uses
% THe operand should be as follows:
% viewWindow width
% viewWindow height
% title height
/setDim
{ /maxX exch def %% width of display
/maxY exch def %% height of display
/titleH exch def %% height of title
/maxH maxY titleH add def %% height of display + title
} def
%-------------------------- major procedures --------------------------%
/title %% draws a rectangle around the title of picture
{ gsave
newpath
moveto %% lower left of title
titleH 1 add 0 exch rlineto %% draw first side
1 add 0 rlineto %% draw second side
1 add neg 0 exch rlineto
begin installGC stroke end %% draw third side
grestore }
def
/drawFrame %% draw display frame
{ gsave
newpath
maxX maxY 0 0 rectangle
begin installGC stroke end
grestore }
def
% updates the foreground color of existing graphics-context dictionary:
% foreground color
% dictionary name
/setForeground
{ /FGcolor exch put }
def
% updates the background color of existing graphics-context dictionary:
% background color
% dictionary name
/setBackground
{ /BGcolor exch put }
def
% updates the line width, line style, cap style, join style of
% existing graphics-context dictionary:
% dictionary name
% join style
% cap style
% line width
/setLineAttributes
{ begin
/JoinStyle exch def
/CapStyle exch def
/LineWidth exch def
end }
def
% creates a graphics context dictionary with the following information:
% /dictionary name
% foreground color
% background color
% line width
% cap style
% join style
% this creates different graphical contexts for different drawing functions.
/makeDict
{ 5 dict 2 copy def begin pop %% with dict name on top of stack
/FGcolor exch def %% define drawing attributes
/BGcolor exch def %% not heavily used
/LineWidth exch def
/CapStyle exch def
/JoinStyle exch def
end }
def
% makes the current dictionary attributes effective
% this function takes the values in the current dictionary to set the context
% these are the values currently being used: foreground, cap, join, and width
/installGC
{
FGcolor currentgray ne
{FGcolor setgray} if %% foreground color
CapStyle currentlinecap ne
{CapStyle setlinecap} if %% cap style
JoinStyle currentlinejoin ne
{JoinStyle setlinejoin} if %% join style
LineWidth currentlinewidth ne
{LineWidth setlinewidth} if } %% line width
def
% operand stack configuration in order to use psDrawLine:
% psDrawLine
% y0
% x0
% y1
% x1
% graphics-context dictionary
% this draws a line from (x0, y0) to (x1, y1).
/psDrawLine
{ gsave
newpath
yVal moveto
yVal lineto
begin installGC stroke end
grestore }
def
% operand stack configuration in order to use psDrawStr:
% psDrawStr
% y
% x
% string
% graphics-context dictionary
% this function draws a text string at (x,y).
/psDrawStr
{ gsave
newpath
loadFont
yVal moveto
exch begin installGC show end
grestore }
def
%-------------------------- script --------------------------%
% 1 inch 1 inch translate
mark %% mark bottom of our stack
0 0 1
1072693248 0 /globalGC1 makeDict
0 0 1
1072693248 0 /globalGC2 makeDict
0 0 1
1072693248 0 /trashGC makeDict
0 0 1
1072693248 0 /componentGC makeDict
0 0 1
1072693248 0 /opaqueGC makeDict
0 0 1
1072693248 0 /renderGC makeDict
0 0 1
1072693248 0 /globGC makeDict
0 0 1
1072693248 0 /anotherGC makeDict
1 0 1
1072693248 0 /renderGC makeDict
gsave % save graphics state for clipping path
1.000000 1.000000 scale
24 303 300 setDim
maxX maxY 0 0 rectangle clip % set clip path
globalGC1 0.000000 setForeground
globGC 0.000000 setForeground
globalGC1 18 256 253 90 psDrawLine
globGC (X) 13 261 psDrawStr
globalGC1 107.000000 setForeground
globGC 107.000000 setForeground
globalGC1 0.000000 setForeground
globGC 0.000000 setForeground
globalGC1 281 256 46 90 psDrawLine
globGC (Y) 286 261 psDrawStr
globalGC1 107.000000 setForeground
globGC 107.000000 setForeground
globalGC1 0.000000 setForeground
globGC 0.000000 setForeground
globalGC1 150 25 150 263 psDrawLine
globGC (Z) 155 20 psDrawStr
globalGC1 107.000000 setForeground
globGC 107.000000 setForeground
0 0 0 componentGC setLineAttributes
componentGC 0.000000 setForeground
componentGC 0.000000 setForeground
componentGC 151 292 138 292 psDrawLine
componentGC 0.000000 setForeground
componentGC 165 288 151 292 psDrawLine
componentGC 0.000000 setForeground
componentGC 177 282 165 288 psDrawLine
componentGC 0.000000 setForeground
componentGC 187 274 177 282 psDrawLine
componentGC 0.000000 setForeground
componentGC 195 264 187 274 psDrawLine
componentGC 0.000000 setForeground
componentGC 200 253 195 264 psDrawLine
componentGC 0.000000 setForeground
componentGC 202 241 200 253 psDrawLine
componentGC 0.000000 setForeground
componentGC 200 229 202 241 psDrawLine
componentGC 0.000000 setForeground
componentGC 195 218 200 229 psDrawLine
componentGC 0.000000 setForeground
componentGC 188 208 195 218 psDrawLine
componentGC 0.000000 setForeground
componentGC 178 200 188 208 psDrawLine
componentGC 0.000000 setForeground
componentGC 167 194 178 200 psDrawLine
componentGC 0.000000 setForeground
componentGC 155 190 167 194 psDrawLine
componentGC 0.000000 setForeground
componentGC 143 189 155 190 psDrawLine
componentGC 0.000000 setForeground
componentGC 130 190 143 189 psDrawLine
componentGC 0.000000 setForeground
componentGC 119 192 130 190 psDrawLine
componentGC 0.000000 setForeground
componentGC 109 197 119 192 psDrawLine
componentGC 0.000000 setForeground
componentGC 102 204 109 197 psDrawLine
componentGC 0.000000 setForeground
componentGC 97 211 102 204 psDrawLine
componentGC 0.000000 setForeground
componentGC 95 220 97 211 psDrawLine
componentGC 0.000000 setForeground
componentGC 97 228 95 220 psDrawLine
componentGC 0.000000 setForeground
componentGC 102 236 97 228 psDrawLine
componentGC 0.000000 setForeground
componentGC 111 243 102 236 psDrawLine
componentGC 0.000000 setForeground
componentGC 122 248 111 243 psDrawLine
componentGC 0.000000 setForeground
componentGC 135 250 122 248 psDrawLine
componentGC 0.000000 setForeground
componentGC 149 250 135 250 psDrawLine
componentGC 0.000000 setForeground
componentGC 164 247 149 250 psDrawLine
componentGC 0.000000 setForeground
componentGC 177 241 164 247 psDrawLine
componentGC 0.000000 setForeground
componentGC 189 232 177 241 psDrawLine
componentGC 0.000000 setForeground
componentGC 198 222 189 232 psDrawLine
componentGC 0.000000 setForeground
componentGC 203 210 198 222 psDrawLine
componentGC 0.000000 setForeground
componentGC 205 198 203 210 psDrawLine
componentGC 0.000000 setForeground
componentGC 204 186 205 198 psDrawLine
componentGC 0.000000 setForeground
componentGC 199 175 204 186 psDrawLine
componentGC 0.000000 setForeground
componentGC 192 164 199 175 psDrawLine
componentGC 0.000000 setForeground
componentGC 182 156 192 164 psDrawLine
componentGC 0.000000 setForeground
componentGC 170 149 182 156 psDrawLine
componentGC 0.000000 setForeground
componentGC 157 145 170 149 psDrawLine
componentGC 0.000000 setForeground
componentGC 144 143 157 145 psDrawLine
componentGC 0.000000 setForeground
componentGC 131 143 144 143 psDrawLine
componentGC 0.000000 setForeground
componentGC 118 145 131 143 psDrawLine
componentGC 0.000000 setForeground
componentGC 108 150 118 145 psDrawLine
componentGC 0.000000 setForeground
componentGC 99 156 108 150 psDrawLine
componentGC 0.000000 setForeground
componentGC 94 163 99 156 psDrawLine
componentGC 0.000000 setForeground
componentGC 92 171 94 163 psDrawLine
componentGC 0.000000 setForeground
componentGC 93 180 92 171 psDrawLine
componentGC 0.000000 setForeground
componentGC 98 187 93 180 psDrawLine
componentGC 0.000000 setForeground
componentGC 106 194 98 187 psDrawLine
componentGC 0.000000 setForeground
componentGC 118 199 106 194 psDrawLine
componentGC 0.000000 setForeground
componentGC 132 201 118 199 psDrawLine
componentGC 0.000000 setForeground
componentGC 147 201 132 201 psDrawLine
componentGC 0.000000 setForeground
componentGC 163 198 147 201 psDrawLine
componentGC 0.000000 setForeground
componentGC 178 192 163 198 psDrawLine
componentGC 0.000000 setForeground
componentGC 190 184 178 192 psDrawLine
componentGC 0.000000 setForeground
componentGC 200 173 190 184 psDrawLine
componentGC 0.000000 setForeground
componentGC 207 161 200 173 psDrawLine
componentGC 0.000000 setForeground
componentGC 210 149 207 161 psDrawLine
componentGC 0.000000 setForeground
componentGC 209 136 210 149 psDrawLine
componentGC 0.000000 setForeground
componentGC 204 125 209 136 psDrawLine
componentGC 0.000000 setForeground
componentGC 196 114 204 125 psDrawLine
componentGC 0.000000 setForeground
componentGC 186 105 196 114 psDrawLine
componentGC 0.000000 setForeground
componentGC 173 98 186 105 psDrawLine
componentGC 0.000000 setForeground
componentGC 160 93 173 98 psDrawLine
componentGC 0.000000 setForeground
componentGC 145 90 160 93 psDrawLine
componentGC 0.000000 setForeground
componentGC 131 90 145 90 psDrawLine
componentGC 0.000000 setForeground
componentGC 118 91 131 90 psDrawLine
componentGC 0.000000 setForeground
componentGC 106 95 118 91 psDrawLine
componentGC 0.000000 setForeground
componentGC 97 101 106 95 psDrawLine
componentGC 0.000000 setForeground
componentGC 90 107 97 101 psDrawLine
componentGC 0.000000 setForeground
componentGC 87 115 90 107 psDrawLine
componentGC 0.000000 setForeground
componentGC 88 123 87 115 psDrawLine
componentGC 0.000000 setForeground
componentGC 93 131 88 123 psDrawLine
componentGC 0.000000 setForeground
componentGC 101 137 93 131 psDrawLine
componentGC 0.000000 setForeground
componentGC 114 142 101 137 psDrawLine
componentGC 0.000000 setForeground
componentGC 128 144 114 142 psDrawLine
componentGC 0.000000 setForeground
componentGC 145 144 128 144 psDrawLine
componentGC 0.000000 setForeground
componentGC 162 141 145 144 psDrawLine
componentGC 0.000000 setForeground
componentGC 178 135 162 141 psDrawLine
componentGC 0.000000 setForeground
componentGC 192 127 178 135 psDrawLine
componentGC 0.000000 setForeground
componentGC 203 116 192 127 psDrawLine
componentGC 0.000000 setForeground
componentGC 211 104 203 116 psDrawLine
componentGC 0.000000 setForeground
componentGC 214 91 211 104 psDrawLine
componentGC 0.000000 setForeground
componentGC 214 79 214 91 psDrawLine
componentGC 0.000000 setForeground
componentGC 209 66 214 79 psDrawLine
componentGC 0.000000 setForeground
componentGC 201 55 209 66 psDrawLine
componentGC 0.000000 setForeground
componentGC 190 46 201 55 psDrawLine
componentGC 0.000000 setForeground
componentGC 177 38 190 46 psDrawLine
componentGC 0.000000 setForeground
componentGC 163 33 177 38 psDrawLine
componentGC 0.000000 setForeground
componentGC 147 29 163 33 psDrawLine
componentGC 0.000000 setForeground
componentGC 132 28 147 29 psDrawLine
componentGC 0.000000 setForeground
componentGC 117 29 132 28 psDrawLine
componentGC 0.000000 setForeground
componentGC 104 32 117 29 psDrawLine
componentGC 0.000000 setForeground
componentGC 93 37 104 32 psDrawLine
componentGC 0.000000 setForeground
componentGC 86 43 93 37 psDrawLine
componentGC 0.000000 setForeground
componentGC 82 50 86 43 psDrawLine
componentGC 0.000000 setForeground
componentGC 82 57 82 50 psDrawLine
grestore % restore graphics state
cleartomark %% clearing operand stack
end %% pops mainDict from dictionary stack
showpage
%-------------------------- end --------------------------%
|
