FazBrowse GitHub Viewer
|
Trending
|
URL:
|
Home
Tools:
[Download Repo ZIP]
[View Raw Code]
[Original HTTPS Page]
gnuplot-old/term/PostScript/prologue.ps at gnuplot-4-4-alpha · gnuplot/gnuplot-old · GitHub
gnuplot
gnuplot-old
Repository navigation
Code
Pull requests
Actions
Projects
Security and quality
Insights
Expand file tree
Breadcrumbs
gnuplot-old
/
term
/
PostScript
/
prologue.ps
Copy path
More file actions
More file actions
Latest commit
History
History
History
369 lines (369 loc) · 13.6 KB
Breadcrumbs
gnuplot-old
/
term
/
PostScript
/
prologue.ps
Copy path
File metadata and controls
369 lines (369 loc) · 13.6 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
%
%
Gnuplot Prolog Version 4.2 (November 2007)
%
/M
{
moveto
}
bind
def
/L
{
lineto
}
bind
def
/R
{
rmoveto
}
bind
def
/V
{
rlineto
}
bind
def
/N
{
newpath
moveto
}
bind
def
/Z
{
closepath
}
bind
def
/C
{
setrgbcolor
}
bind
def
/f
{
rlineto
fill
}
bind
def
/Gshow
{
show
}
def
%
May be redefined later in the file to support UTF-8
/vpt2
vpt
2
mul
def
/hpt2
hpt
2
mul
def
/Lshow
{
currentpoint
stroke
M
0
vshift
R
Blacktext
{
gsave
0
setgray
show
grestore
} {
show
}
ifelse
}
def
/Rshow
{
currentpoint
stroke
M
dup
stringwidth
pop
neg
vshift
R
Blacktext
{
gsave
0
setgray
show
grestore
} {
show
}
ifelse
}
def
/Cshow
{
currentpoint
stroke
M
dup
stringwidth
pop
-2
div
vshift
R
Blacktext
{
gsave
0
setgray
show
grestore
} {
show
}
ifelse
}
def
/UP
{
dup
vpt_
mul
/vpt
exch
def
hpt_
mul
/hpt
exch
def
/hpt2
hpt
2
mul
def
/vpt2
vpt
2
mul
def
}
def
/DL
{
Color
{
setrgbcolor
Solid
{
pop
[]}
if
0
setdash
}
{
pop
pop
pop
0
setgray
Solid
{
pop
[]}
if
0
setdash
}
ifelse
}
def
/BL
{
stroke
userlinewidth
2
mul
setlinewidth
Rounded
{
1
setlinejoin
1
setlinecap
}
if
}
def
/AL
{
stroke
userlinewidth
2
div
setlinewidth
Rounded
{
1
setlinejoin
1
setlinecap
}
if
}
def
/UL
{
dup
gnulinewidth
mul
/userlinewidth
exch
def
dup
1
lt
{
pop
1
}
if
10
mul
/udl
exch
def
}
def
/PL
{
stroke
userlinewidth
setlinewidth
Rounded
{
1
setlinejoin
1
setlinecap
}
if
}
def
%
Default Line colors
/LCw
{
1
1
1
}
def
/LCb
{
0
0
0
}
def
/LCa
{
0
0
0
}
def
/LC0
{
1
0
0
}
def
/LC1
{
0
1
0
}
def
/LC2
{
0
0
1
}
def
/LC3
{
1
0
1
}
def
/LC4
{
0
1
1
}
def
/LC5
{
1
1
0
}
def
/LC6
{
0
0
0
}
def
/LC7
{
1
0.3
0
}
def
/LC8
{
0.5
0.5
0.5
}
def
%
Default Line Types
/LTw
{
PL
[]
1
setgray
}
def
/LTb
{
BL
[]
LCb
DL
}
def
/LTa
{
AL
[
1
udl
mul
2
udl
mul
]
0
setdash
LCa
setrgbcolor
}
def
/LT0
{
PL
[]
LC0
DL
}
def
/LT1
{
PL
[
4
dl1
2
dl2
]
LC1
DL
}
def
/LT2
{
PL
[
2
dl1
3
dl2
]
LC2
DL
}
def
/LT3
{
PL
[
1
dl1
1.5
dl2
]
LC3
DL
}
def
/LT4
{
PL
[
6
dl1
2
dl2
1
dl1
2
dl2
]
LC4
DL
}
def
/LT5
{
PL
[
3
dl1
3
dl2
1
dl1
3
dl2
]
LC5
DL
}
def
/LT6
{
PL
[
2
dl1
2
dl2
2
dl1
6
dl2
]
LC6
DL
}
def
/LT7
{
PL
[
1
dl1
2
dl2
6
dl1
2
dl2
1
dl1
2
dl2
]
LC7
DL
}
def
/LT8
{
PL
[
2
dl1
2
dl2
2
dl1
2
dl2
2
dl1
2
dl2
2
dl1
4
dl2
]
LC8
DL
}
def
/Pnt
{
stroke
[]
0
setdash
gsave
1
setlinecap
M
0
0
V
stroke
grestore
}
def
/Dia
{
stroke
[]
0
setdash
2
copy
vpt
add
M
hpt
neg
vpt
neg
V
hpt
vpt
neg
V
hpt
vpt
V
hpt
neg
vpt
V
closepath
stroke
Pnt
}
def
/Pls
{
stroke
[]
0
setdash
vpt
sub
M
0
vpt2
V
currentpoint
stroke
M
hpt
neg
vpt
neg
R
hpt2
0
V
stroke
}
def
/Box
{
stroke
[]
0
setdash
2
copy
exch
hpt
sub
exch
vpt
add
M
0
vpt2
neg
V
hpt2
0
V
0
vpt2
V
hpt2
neg
0
V
closepath
stroke
Pnt
}
def
/Crs
{
stroke
[]
0
setdash
exch
hpt
sub
exch
vpt
add
M
hpt2
vpt2
neg
V
currentpoint
stroke
M
hpt2
neg
0
R
hpt2
vpt2
V
stroke
}
def
/TriU
{
stroke
[]
0
setdash
2
copy
vpt
1.12
mul
add
M
hpt
neg
vpt
-1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
1.62
mul
V
closepath
stroke
Pnt
}
def
/Star
{
2
copy
Pls
Crs
}
def
/BoxF
{
stroke
[]
0
setdash
exch
hpt
sub
exch
vpt
add
M
0
vpt2
neg
V
hpt2
0
V
0
vpt2
V
hpt2
neg
0
V
closepath
fill
}
def
/TriUF
{
stroke
[]
0
setdash
vpt
1.12
mul
add
M
hpt
neg
vpt
-1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
1.62
mul
V
closepath
fill
}
def
/TriD
{
stroke
[]
0
setdash
2
copy
vpt
1.12
mul
sub
M
hpt
neg
vpt
1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
-1.62
mul
V
closepath
stroke
Pnt
}
def
/TriDF
{
stroke
[]
0
setdash
vpt
1.12
mul
sub
M
hpt
neg
vpt
1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
-1.62
mul
V
closepath
fill
}
def
/DiaF
{
stroke
[]
0
setdash
vpt
add
M
hpt
neg
vpt
neg
V
hpt
vpt
neg
V
hpt
vpt
V
hpt
neg
vpt
V
closepath
fill
}
def
/Pent
{
stroke
[]
0
setdash
2
copy
gsave
translate
0
hpt
M
4
{
72
rotate
0
hpt
L
}
repeat
closepath
stroke
grestore
Pnt
}
def
/PentF
{
stroke
[]
0
setdash
gsave
translate
0
hpt
M
4
{
72
rotate
0
hpt
L
}
repeat
closepath
fill
grestore
}
def
/Circle
{
stroke
[]
0
setdash
2
copy
hpt
0
360
arc
stroke
Pnt
}
def
/CircleF
{
stroke
[]
0
setdash
hpt
0
360
arc
fill
}
def
/C0
{
BL
[]
0
setdash
2
copy
moveto
vpt
90
450
arc
}
bind
def
/C1
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
90
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C2
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
90
180
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C3
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
180
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C4
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
180
270
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C5
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
90
arc
2
copy
moveto
2
copy
vpt
180
270
arc
closepath
fill
vpt
0
360
arc
}
bind
def
/C6
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
90
270
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C7
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
270
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C8
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
270
360
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C9
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
270
450
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C10
{
BL
[]
0
setdash
2
copy
2
copy
moveto
vpt
270
360
arc
closepath
fill
2
copy
moveto
2
copy
vpt
90
180
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C11
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
180
arc
closepath
fill
2
copy
moveto
2
copy
vpt
270
360
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C12
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
180
360
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C13
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
0
90
arc
closepath
fill
2
copy
moveto
2
copy
vpt
180
360
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/C14
{
BL
[]
0
setdash
2
copy
moveto
2
copy
vpt
90
360
arc
closepath
fill
vpt
0
360
arc
}
bind
def
/C15
{
BL
[]
0
setdash
2
copy
vpt
0
360
arc
closepath
fill
vpt
0
360
arc
closepath
}
bind
def
/Rec
{
newpath
4
2
roll
moveto
1
index
0
rlineto
0
exch
rlineto
neg
0
rlineto
closepath
}
bind
def
/Square
{
dup
Rec
}
bind
def
/Bsquare
{
vpt
sub
exch
vpt
sub
exch
vpt2
Square
}
bind
def
/S0
{
BL
[]
0
setdash
2
copy
moveto
0
vpt
rlineto
BL
Bsquare
}
bind
def
/S1
{
BL
[]
0
setdash
2
copy
vpt
Square
fill
Bsquare
}
bind
def
/S2
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
Square
fill
Bsquare
}
bind
def
/S3
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt2
vpt
Rec
fill
Bsquare
}
bind
def
/S4
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt
Square
fill
Bsquare
}
bind
def
/S5
{
BL
[]
0
setdash
2
copy
2
copy
vpt
Square
fill
exch
vpt
sub
exch
vpt
sub
vpt
Square
fill
Bsquare
}
bind
def
/S6
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt
vpt2
Rec
fill
Bsquare
}
bind
def
/S7
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt
vpt2
Rec
fill
2
copy
vpt
Square
fill
Bsquare
}
bind
def
/S8
{
BL
[]
0
setdash
2
copy
vpt
sub
vpt
Square
fill
Bsquare
}
bind
def
/S9
{
BL
[]
0
setdash
2
copy
vpt
sub
vpt
vpt2
Rec
fill
Bsquare
}
bind
def
/S10
{
BL
[]
0
setdash
2
copy
vpt
sub
vpt
Square
fill
2
copy
exch
vpt
sub
exch
vpt
Square
fill
Bsquare
}
bind
def
/S11
{
BL
[]
0
setdash
2
copy
vpt
sub
vpt
Square
fill
2
copy
exch
vpt
sub
exch
vpt2
vpt
Rec
fill
Bsquare
}
bind
def
/S12
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt2
vpt
Rec
fill
Bsquare
}
bind
def
/S13
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt2
vpt
Rec
fill
2
copy
vpt
Square
fill
Bsquare
}
bind
def
/S14
{
BL
[]
0
setdash
2
copy
exch
vpt
sub
exch
vpt
sub
vpt2
vpt
Rec
fill
2
copy
exch
vpt
sub
exch
vpt
Square
fill
Bsquare
}
bind
def
/S15
{
BL
[]
0
setdash
2
copy
Bsquare
fill
Bsquare
}
bind
def
/D0
{
gsave
translate
45
rotate
0
0
S0
stroke
grestore
}
bind
def
/D1
{
gsave
translate
45
rotate
0
0
S1
stroke
grestore
}
bind
def
/D2
{
gsave
translate
45
rotate
0
0
S2
stroke
grestore
}
bind
def
/D3
{
gsave
translate
45
rotate
0
0
S3
stroke
grestore
}
bind
def
/D4
{
gsave
translate
45
rotate
0
0
S4
stroke
grestore
}
bind
def
/D5
{
gsave
translate
45
rotate
0
0
S5
stroke
grestore
}
bind
def
/D6
{
gsave
translate
45
rotate
0
0
S6
stroke
grestore
}
bind
def
/D7
{
gsave
translate
45
rotate
0
0
S7
stroke
grestore
}
bind
def
/D8
{
gsave
translate
45
rotate
0
0
S8
stroke
grestore
}
bind
def
/D9
{
gsave
translate
45
rotate
0
0
S9
stroke
grestore
}
bind
def
/D10
{
gsave
translate
45
rotate
0
0
S10
stroke
grestore
}
bind
def
/D11
{
gsave
translate
45
rotate
0
0
S11
stroke
grestore
}
bind
def
/D12
{
gsave
translate
45
rotate
0
0
S12
stroke
grestore
}
bind
def
/D13
{
gsave
translate
45
rotate
0
0
S13
stroke
grestore
}
bind
def
/D14
{
gsave
translate
45
rotate
0
0
S14
stroke
grestore
}
bind
def
/D15
{
gsave
translate
45
rotate
0
0
S15
stroke
grestore
}
bind
def
/DiaE
{
stroke
[]
0
setdash
vpt
add
M
hpt
neg
vpt
neg
V
hpt
vpt
neg
V
hpt
vpt
V
hpt
neg
vpt
V
closepath
stroke
}
def
/BoxE
{
stroke
[]
0
setdash
exch
hpt
sub
exch
vpt
add
M
0
vpt2
neg
V
hpt2
0
V
0
vpt2
V
hpt2
neg
0
V
closepath
stroke
}
def
/TriUE
{
stroke
[]
0
setdash
vpt
1.12
mul
add
M
hpt
neg
vpt
-1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
1.62
mul
V
closepath
stroke
}
def
/TriDE
{
stroke
[]
0
setdash
vpt
1.12
mul
sub
M
hpt
neg
vpt
1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
-1.62
mul
V
closepath
stroke
}
def
/PentE
{
stroke
[]
0
setdash
gsave
translate
0
hpt
M
4
{
72
rotate
0
hpt
L
}
repeat
closepath
stroke
grestore
}
def
/CircE
{
stroke
[]
0
setdash
hpt
0
360
arc
stroke
}
def
/Opaque
{
gsave
closepath
1
setgray
fill
grestore
0
setgray
closepath
}
def
/DiaW
{
stroke
[]
0
setdash
vpt
add
M
hpt
neg
vpt
neg
V
hpt
vpt
neg
V
hpt
vpt
V
hpt
neg
vpt
V
Opaque
stroke
}
def
/BoxW
{
stroke
[]
0
setdash
exch
hpt
sub
exch
vpt
add
M
0
vpt2
neg
V
hpt2
0
V
0
vpt2
V
hpt2
neg
0
V
Opaque
stroke
}
def
/TriUW
{
stroke
[]
0
setdash
vpt
1.12
mul
add
M
hpt
neg
vpt
-1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
1.62
mul
V
Opaque
stroke
}
def
/TriDW
{
stroke
[]
0
setdash
vpt
1.12
mul
sub
M
hpt
neg
vpt
1.62
mul
V
hpt
2
mul
0
V
hpt
neg
vpt
-1.62
mul
V
Opaque
stroke
}
def
/PentW
{
stroke
[]
0
setdash
gsave
translate
0
hpt
M
4
{
72
rotate
0
hpt
L
}
repeat
Opaque
stroke
grestore
}
def
/CircW
{
stroke
[]
0
setdash
hpt
0
360
arc
Opaque
stroke
}
def
/BoxFill
{
gsave
Rec
1
setgray
fill
grestore
}
def
/Density
{
/Fillden
exch
def
currentrgbcolor
/ColB
exch
def
/ColG
exch
def
/ColR
exch
def
/ColR
ColR
Fillden
mul
Fillden
sub
1
add
def
/ColG
ColG
Fillden
mul
Fillden
sub
1
add
def
/ColB
ColB
Fillden
mul
Fillden
sub
1
add
def
ColR
ColG
ColB
setrgbcolor
}
def
/BoxColFill
{
gsave
Rec
PolyFill
}
def
/PolyFill
{
gsave
Density
fill
grestore
grestore
}
def
/h
{
rlineto
rlineto
rlineto
gsave
closepath
fill
grestore
}
bind
def
%
%
PostScript Level 1 Pattern Fill routine for rectangles
%
Usage: x y w h s a XX PatternFill
%
x,y = lower left corner of box to be filled
%
w,h = width and height of box
%
a = angle in degrees between lines and x-axis
%
XX = 0/1 for no/yes cross-hatch
%
/PatternFill
{
gsave
/PFa
[
9
2
roll
]
def
PFa
0
get
PFa
2
get
2
div
add
PFa
1
get
PFa
3
get
2
div
add
translate
PFa
2
get
-2
div
PFa
3
get
-2
div
PFa
2
get
PFa
3
get
Rec
gsave
1
setgray
fill
grestore
clip
currentlinewidth
0.5
mul
setlinewidth
/PFs
PFa
2
get
dup
mul
PFa
3
get
dup
mul
add
sqrt
def
0
0
M
PFa
5
get
rotate
PFs
-2
div
dup
translate
0
1
PFs
PFa
4
get
div
1
add
floor
cvi
{
PFa
4
get
mul
0
M
0
PFs
V
}
for
0
PFa
6
get
ne
{
0
1
PFs
PFa
4
get
div
1
add
floor
cvi
{
PFa
4
get
mul
0
2
1
roll
M
PFs
0
V
}
for
}
if
stroke
grestore
}
def
%
/languagelevel
where
{
pop
languagelevel
} {
1
}
ifelse
2
lt
{
/InterpretLevel1
true
def
}
{
/InterpretLevel1
Level1
def
}
ifelse
%
%
PostScript level 2 pattern fill definitions
%
/Level2PatternFill
{
/Tile8x8
{
/PaintType
2
/PatternType
1
/TilingType
1
/BBox
[
0
0
8
8
]
/XStep
8
/YStep
8
}
bind
def
/KeepColor
{
currentrgbcolor
[
/Pattern
/DeviceRGB
]
setcolorspace
}
bind
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
0
0
M
8
8
L
0
8
M
8
0
L
stroke
}
>>
matrix
makepattern
/Pat1
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
0
0
M
8
8
L
0
8
M
8
0
L
stroke
0
4
M
4
8
L
8
4
L
4
0
L
0
4
L
stroke
}
>>
matrix
makepattern
/Pat2
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
0
0
M
0
8
L
8
8
L
8
0
L
0
0
L
fill
}
>>
matrix
makepattern
/Pat3
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
-4
8
M
8
-4
L
0
12
M
12
0
L
stroke
}
>>
matrix
makepattern
/Pat4
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
-4
0
M
8
12
L
0
-4
M
12
8
L
stroke
}
>>
matrix
makepattern
/Pat5
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
-2
8
M
4
-4
L
0
12
M
8
-4
L
4
12
M
10
0
L
stroke
}
>>
matrix
makepattern
/Pat6
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
-2
0
M
4
12
L
0
-4
M
8
12
L
4
-4
M
10
8
L
stroke
}
>>
matrix
makepattern
/Pat7
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
8
-2
M
-4
4
L
12
0
M
-4
8
L
12
4
M
0
10
L
stroke
}
>>
matrix
makepattern
/Pat8
exch
def
<<
Tile8x8
/PaintProc
{
0.5
setlinewidth
pop
0
-2
M
12
4
L
-4
0
M
12
8
L
-4
4
M
8
10
L
stroke
}
>>
matrix
makepattern
/Pat9
exch
def
/Pattern1
{
PatternBgnd
KeepColor
Pat1
setpattern
}
bind
def
/Pattern2
{
PatternBgnd
KeepColor
Pat2
setpattern
}
bind
def
/Pattern3
{
PatternBgnd
KeepColor
Pat3
setpattern
}
bind
def
/Pattern4
{
PatternBgnd
KeepColor
Landscape
{
Pat5
} {
Pat4
}
ifelse
setpattern
}
bind
def
/Pattern5
{
PatternBgnd
KeepColor
Landscape
{
Pat4
} {
Pat5
}
ifelse
setpattern
}
bind
def
/Pattern6
{
PatternBgnd
KeepColor
Landscape
{
Pat9
} {
Pat6
}
ifelse
setpattern
}
bind
def
/Pattern7
{
PatternBgnd
KeepColor
Landscape
{
Pat8
} {
Pat7
}
ifelse
setpattern
}
bind
def
}
def
%
%
%
End of PostScript Level 2 code
%
/PatternBgnd
{
TransparentPatterns
{} {
gsave
1
setgray
fill
grestore
}
ifelse
}
def
%
%
Substitute for Level 2 pattern fill codes with
%
grayscale if Level 2 support is not selected.
%
/Level1PatternFill
{
/Pattern1
{
0.250
Density
}
bind
def
/Pattern2
{
0.500
Density
}
bind
def
/Pattern3
{
0.750
Density
}
bind
def
/Pattern4
{
0.125
Density
}
bind
def
/Pattern5
{
0.375
Density
}
bind
def
/Pattern6
{
0.625
Density
}
bind
def
/Pattern7
{
0.875
Density
}
bind
def
}
def
%
%
Now test for support of Level 2 code
%
Level1
{
Level1PatternFill
} {
Level2PatternFill
}
ifelse
%
/Symbol-Oblique
/Symbol
findfont
[
1
0
.167
1
0
0
]
makefont
dup
length
dict
begin
{
1
index
/FID
eq
{
pop
pop
} {
def
}
ifelse
}
forall
currentdict
end
definefont
pop
Back
|
FazBrowse Home
|
New Git URL