home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Altsys Virtuoso 2
/
Virtuoso1_german.img
/
psstr.s
< prev
Wrap
Text File
|
1992-12-02
|
76KB
|
3,181 lines
q
#
Q
#
[^0] ^1 d
#
^2 M
#
^3 w
#
^4 j
#
^5 J
#
true setoverprint
#
false setoverprint
#
^6 O
#
^7 R
#
vms
#
vmrs
#
vmr
#
^8 i
#
^9 concat
#
true eomode
#
false eomode
#
true
#
false
#
vc
#
K
#
k
#
X
#
x
#
m
#
L
#
C
#
h
#
n
#
W
#
^0 ^1 translate
#
F
#
f
#
S
#
s
#
fas
#
sas
#
^1 <^0> pF
#
^1 <^0> pf
#
^1 <^0> pS
#
^1 <^0> ps
#
^0 ^1 ^2 ^3 ^4 ^5 rfs
#
^0 ^1 ^2 ^6 ^7 rfp
#
^4 ^5 ^6 ^0 ^1 ^2 ^3 lfs
#
^7 ^8 ^0 ^1 ^2 ^3 lfp
#
/normtaper load
#
/logtaper load
#
^R
^S
^T
setscreen
#
showpage
#
^0 ^1 ^2 ^3 ^4 (^5) `
%%BeginDocument: ^5
#
%%EndDocument
end -save0- restore
#
%%ChangeFont: ^0
#
%%IncludeFont: ^0
#
f^1 ^2 makesetfont
#
^3 dict dup begin
#
end
#
/f^1 /^0 FF def
#
^3 32 ^4 (^5) ts
#
{
#
}
#
sts
#
dup
#
%. unused
#
/stsh{
/ts{
curtextheight .06 mul dup neg rmoveto awidthshow
curtextheight .06 mul neg dup neg rmoveto
}def
gsave
[0 0 0 .5] vc
1 index exec
grestore
/ts{awidthshow}def
vc exec
}bdf
#
%. unused -- used to be fill -n- stroke text effect
#
/extrude
{
/chg xdf /deltay xdf /deltax xdf
/tc1 xdf storerect /tc2 xdf
/factor .95 def
newpath
tc1 length 2 eq
{/tc1 tc1 spottoprocess def} if
tc2 length 2 eq
{/tc2 tc2 spottoprocess def} if
/cnt todraw def
/ts
{gsave currentpoint pop /xstart xdf blockxoff wordxoff add yoff
rmoveto scalef dup scale right left sub 2 div xstart left sub sub
neg curtextheight 2 div neg rmoveto awidthshow grestore}def
1 1 todraw div neg 0
{
dup .02 le{pop 0}if /frac xdf
gsave
0 1 3
{
bc4 exch
tc1 1 index get
tc2 2 index get
1 index sub
frac mul add put
}for
bc4 vc
dup exec
cnt 1 ne{grestore}if
/cnt cnt 1 sub def
} for
/ts{gsave awidthshow grestore}def
tc1 vc dup exec tc2 vc
curtextheight .005 mul setlinewidth
/ts {{false charpath stroke}ta} def exec
grestore
}bdf
/blockxoff
{right left sub 2 div currentpoint pop left sub sub}def
/yoff
{curtextheight 2 div deltay todraw div cnt mul add}def
/wordxoff
{deltax todraw div cnt mul}def
/todraw
{ deltax dup mul deltay dup mul add sqrt factor mul
100 chg sub abs factor mul add
dup 0 le{pop 1}{round}ifelse} def
/scalef
{100 chg sub abs 100 div todraw div cnt mul
chg 100 ge{1 add}{1 exch sub}ifelse}def
/spottoprocess
{aload pop spots exch get aload pop pop pop
0 1 3{pop 4 index mul 4 -1 roll}for
4 array astore exch pop}bdf
#
/inlin
{ /miter_lim xdf /iterations xdf /fgstroke xdf /bgstroke xdf
/tc2 xdf /tc1 xdf /textblock xdf
1.0 miter_lim 2 div sin div M
{
/textblock load tc1 fgstroke bgstroke add iterations mul stol
/textblock load tc2 fgstroke bgstroke add iterations mul fgstroke sub stol
/iterations iterations 1 sub def iterations 0 eq {exit} if
} loop
/textblock load false tc1 sts
} bdf
#
/fhpatdict 10 dict def
fhpatdict begin
/PatternType 1 def
/PaintType 2 def
/TilingType 1 def
/BBox [0 0 8 8] def
/XStep 8 def
/YStep 8 def
/PatMtx [1 0 0 -1 0 8] def
/PaintProc
{begin 8 8 true PatMtx {PatData} imagemask end} bdf
end
/pF{
gsave 1 setgray filler grestore
fhpatdict /PatData 3 -1 roll put
save exch
matrix defaultmatrix setmatrix
fhpatdict matrix PATmp PATsp
/clipper load /eoclip load eq PATfill
restore
}bdf
/pf{closepath pF}bdf
/pS{
gsave 1 setgray stroke grestore
fhpatdict /PatData 3 -1 roll put
save exch
PATprestroke
matrix defaultmatrix setmatrix
fhpatdict matrix PATmp PATsp
PATstroke
restore
}bdf
/ps{closepath pS}bdf
#
/textopf false def
/curtextmtx{}def
/otw .25 def
/msf{dup/curtextmtx xdf makefont setfont}bdf
/makesetfont/msf load def
/curtextheight{.707104 .707104 curtextmtx dtransform
dup mul exch dup mul add sqrt}bdf
/ta{1 index
{tempstr 0 2 index put tempstr 2 index
gsave exec grestore
tempstr stringwidth rmoveto
5 index eq{6 index 6 index rmoveto}if
3 index 3 index rmoveto
}forall 7{pop}repeat}bdf
/sts{/textopf currentoverprint def vc setoverprint
/ts{awidthshow}def exec textopf setoverprint}bdf
/stol{/xt currentlinewidth def
setlinewidth vc newpath
/ts{{false charpath stroke}ta}def exec
xt setlinewidth}bdf
/strk{/textopf currentoverprint def vc setoverprint
/ts{{false charpath stroke}ta}def exec
textopf setoverprint
}bdf
#
%!PS-Adobe-2.0 EPSF-1.2
%%Title: ^0
%%Creator: ^3
%%CreationDate: ^1
%%BoundingBox: ^2
#
%%FHPathName: ^4
%ALDOriginalFile: ^4
%%DocumentProcSets: Altsys_header 4 0
%%DocumentSuppliedProcSets: Altsys_header 4 0
#
%%ColorUsage: Color
#
%%DocumentProcessColors: Cyan Magenta Yellow Black
#
%%DocumentCustomColors: (^1)
#
%%+ (^1)
#
%%CMYKCustomColor: ^0 (^1)
#
%%CMYKProcessColor: ^0 (^1)
#
%%+ ^0 (^1)
#
%%DocumentFonts: ^0
#
%%DocumentNeededFonts: ^0
#
%%+^0
#
%%EndComments
#
AltsysDict begin
#
end %. AltsysDict
#
%%BeginProcSet: Altsys_header 4 0
/AltsysDict 233 dict def
AltsysDict begin
/bdf{bind def}bind def
/xdf{exch def}bdf
/defed{where{pop true}{false}ifelse}bdf
/ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
/d{setdash}bdf
/h{closepath}bdf
/H{}bdf
/J{setlinecap}bdf
/j{setlinejoin}bdf
/M{setmiterlimit}bdf
/n{newpath}bdf
/N{newpath}bdf
/q{gsave}bdf
/Q{grestore}bdf
/w{setlinewidth}bdf
/sepdef{
dup where not
{
AltsysSepDict
}
if
3 1 roll exch put
}bdf
/st{settransfer}bdf
/colorimage defed /_rci xdf
/md defed{
md type /dicttype eq {
/colorimage where {
md eq {
/_rci false def
}if
}if
/settransfer where {
md eq {
/st systemdict /settransfer get def
}if
}if
}if
}if
/setstrokeadjust defed
{
true setstrokeadjust
/C{curveto}bdf
/L{lineto}bdf
/m{moveto}bdf
}
{
/dr{transform .25 sub round .25 add
exch .25 sub round .25 add exch itransform}bdf
/C{dr curveto}bdf
/L{dr lineto}bdf
/m{dr moveto}bdf
/setstrokeadjust{pop}bdf
}ifelse
/rectstroke defed /xt xdf
xt {/yt save def} if
/privrectpath {
4 -2 roll m
dtransform round exch round exch idtransform
2 copy 0 lt exch 0 lt xor
{dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
{exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
ifelse
closepath
}bdf
/rectclip{newpath privrectpath clip newpath}def
/rectfill{gsave newpath privrectpath fill grestore}def
/rectstroke{gsave newpath privrectpath stroke grestore}def
xt {yt restore} if
/packedarray{array astore readonly}ndf
/`
{ false setoverprint
/-save0- save def
pop pop pop pop pop
concat
userdict begin
/showpage {} def
0 setgray 0 setlinecap 1 setlinewidth
0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
false setstrokeadjust
} bdf
/currentpacking defed{true setpacking}if
/min{2 copy gt{exch}if pop}bdf
/max{2 copy lt{exch}if pop}bdf
/xformfont { currentfont exch makefont setfont } bdf
/fhnumcolors 1
statusdict begin
/processcolors defed
{
pop processcolors
}
{
/deviceinfo defed {
deviceinfo /Colors known {
pop deviceinfo /Colors get
} if
} if
} ifelse
end
def
/printerRes
gsave
matrix defaultmatrix setmatrix
72 72 dtransform
abs exch abs
max
grestore
def
/graycalcs
[
{Angle Frequency}
{GrayAngle GrayFrequency}
{0 Width Height matrix defaultmatrix idtransform
dup mul exch dup mul add sqrt 72 exch div}
{0 GrayWidth GrayHeight matrix defaultmatrix idtransform
dup mul exch dup mul add sqrt 72 exch div}
] def
/calcgraysteps {
/currenthalftone defed
{currenthalftone /dicttype eq}{false}ifelse
{
currenthalftone begin
HalftoneType 4 le
{graycalcs HalftoneType 1 sub get exec}
{
HalftoneType 5 eq
{
Default begin
{graycalcs HalftoneType 1 sub get exec}
end
}
{0 60}
ifelse
}
ifelse
end
}
{
currentscreen pop exch
}
ifelse
printerRes 300 max exch div exch
2 copy
sin mul round dup mul
3 1 roll
cos mul round dup mul
add 1 add
dup maxsteps gt {pop maxsteps} if
} bdf
/nextrelease defed {
/languagelevel defed not {
/framebuffer defed {
0 40 string framebuffer 9 1 roll 8 {pop} repeat
dup 516 eq exch 520 eq or
{
/fhnumcolors 3 def
/currentscreen {60 0 {pop pop 1}}bdf
/calcgraysteps {maxsteps} bdf
}if
}if
}if
}if
/goodsep {
spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
}bdf
/bottom -0 def
/delta -0 def
/frac -0 def
/height -0 def
/left -0 def
/numsteps -0 def
/numsteps1 -0 def
/radius -0 def
/right -0 def
/top -0 def
/width -0 def
/xt -0 def
/yt -0 def
/df currentflat def
/tempstr 1 string def
/clipflatness currentflat def
/inverted?
0 currenttransfer exec .5 ge def
/tc1 [0 0 0 1] def
/tc2 [0 0 0 1] def
/storerect{/top xdf /right xdf /bottom xdf /left xdf
/width right left sub def /height top bottom sub def}bdf
/concatprocs{
systemdict /packedarray known
{dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
{
/proc2 exch cvlit def /proc1 exch cvlit def
proc1 aload pop proc2 aload pop
proc1 length proc2 length add packedarray cvx
}
{
/proc2 exch cvlit def /proc1 exch cvlit def
/newproc proc1 length proc2 length add array def
newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
newproc cvx
}ifelse
}bdf
/i{dup 0 eq
{pop df dup}
{dup} ifelse
/clipflatness xdf setflat
}bdf
version cvr 38.0 le
{/setrgbcolor{
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
currenttransfer exec 3 1 roll
setrgbcolor}bdf}if
/vms {/vmsv save def} bdf
/vmr {vmsv restore} bdf
/vmrs{vmsv restore /vmsv save def}bdf
/eomode{
{/filler /eofill load def /clipper /eoclip load def}
{/filler /fill load def /clipper /clip load def}
ifelse
}bdf
/normtaper{}bdf
/logtaper{9 mul 1 add log}bdf
/lfxform {
/yt xdf /xt xdf
xt yt translate
rotate
storerect
left xt sub bottom yt sub translate
right left sub 0.00001 max top bottom sub 0.00001 max scale
}bdf
/CD{/NF exch def{exch dup/FID ne 1 index/UniqueID ne and{exch NF 3 1 roll put}
{pop pop}ifelse}forall NF}bdf
/MN{1 index length/Len exch def
dup length Len add string dup
Len 4 -1 roll putinterval dup 0 4 -1 roll putinterval}bdf
/RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
{1 index MN cvn/NewN exch def cvn
findfont dup maxlength dict CD dup/FontName NewN put dup
/Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
/RF{dup FontDirectory exch known{pop 3 -1 roll pop}{RC}ifelse}bdf
/FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
{exch pop findfont 3 -1 roll pop}
{pop dup findfont dup maxlength dict CD dup dup
/Encoding exch /Encoding get 256 array copy 7 -1 roll
{3 -1 roll dup 4 -2 roll put}forall put definefont}
ifelse}bdf
/fps{
currentflat
exch
dup 0 le{pop 1}if
{
dup setflat 3 index stopped
{1.3 mul dup 3 index gt{pop setflat pop pop stop}if}
{exit}
ifelse
}loop
pop setflat pop pop
}bdf
/fp{100 currentflat fps}bdf
/clipper{clip}bdf
/W{/clipper load 100 clipflatness fps}bdf
#
%. Error handling code - don't do this if printing to hi res imagesetter
printerRes 1000 lt
{
errordict
dup /shownerr false put
/handleerror
{
$error begin
/prt{dup type /stringtype ne{=string cvs}if show}def
newerror
{
/newerror false store
grestoreall initgraphics
errordict /shownerr get not
{
errordict /shownerr true put
30 110 moveto
/Helvetica findfont 14 scalefont setfont
(POSTSCRIPT ERROR: ) prt errorname prt ( ) prt
(OFFENDING COMMAND: ) prt /command load prt
} if
}if
end
}
put
}if
%.
/overlapmark{
-4 xs div 0 rlineto
4 xs div 2 div -7 ys div 2 div rmoveto
0 7 ys div rlineto
4 xs div 0 rlineto
0 -7 ys div rlineto
-4 xs div 0 rlineto
.2 xs div setlinewidth
0 setseparationgray stroke
}bdf
/amsub{gsave setlinewidth 4 2 roll rmoveto rlineto stroke grestore}bdf
/am{
newpath
moveto
0 setseparationgray
gsave
currentpoint 5 xs div 0 360 arc
.3 xs div setlinewidth
stroke
grestore
gsave
currentpoint 3 xs div 0 360 arc
fill
grestore
3 xs div 0 5 xs div 0 .3 ys div amsub
-3 xs div 0 -5 xs div 0 .3 ys div amsub
0 3 ys div 0 5 ys div .3 xs div amsub
0 -3 ys div 0 -5 ys div .3 xs div amsub
1 setseparationgray
-3 xs div 0 6 xs div 0 .3 ys div amsub
0 -3 ys div 0 6 ys div .3 xs div amsub
}bdf
/fhcbox {
xt yt moveto
13.5 xs div 0 rlineto
0 13.5 ys div rlineto
-13.5 xs div 0 rlineto
0 -13.5 ys div rlineto
gsave fill grestore
0 setseparationgray stroke
dup length 0 ne {
0 setseparationgray
dup stringwidth pop neg 13.5 xs div add 2 div xt add yt 5 ys div add moveto show
}
{pop} ifelse
xs div xt add /xt xdf
}bdf
/fhcb {
0.25 xs div 0.25 ys div add 2 div setlinewidth
2 copy
6.75 ys div sub /yt xdf
25.5 xs div sub /xt xdf
0 1 10 {
10 div setseparationgray
-13.5 () fhcbox
}for
6.75 ys div sub /yt xdf
12 xs div add /xt xdf
/Helvetica findfont 5 ys div scalefont setfont
1 0 0 0 setcmykcolor 13.5 (C) fhcbox
0 1 0 0 setcmykcolor 13.5 (M) fhcbox
0 0 1 0 setcmykcolor 13.5 (Y) fhcbox
1 1 0 0 setcmykcolor 13.5 (CM) fhcbox
0 1 1 0 setcmykcolor 13.5 (MY) fhcbox
1 0 1 0 setcmykcolor 13.5 (CY) fhcbox
1 1 1 0 setcmykcolor 13.5 (CMY) fhcbox
0 0 0 1 setcmykcolor 13.5 (K) fhcbox
}def
/mybleed{bleed 0 eq{wdist 10 sub xs div}{bleed}ifelse}bdf
/cm{mybleed neg 0 rmoveto -9 xs div 0 rlineto
9 xs div mybleed add mybleed neg rmoveto 0 -9 ys div rlineto
.3 xs div setlinewidth 0 setseparationgray stroke}bdf
#
userdict begin /BDFontDict 20 dict def end
BDFontDict begin
/bu{}def
/bn{}def
/setTxMode{av 70 ge{pop}if pop}def
/gm{m}def
/show{pop}def
/gr{pop}def
/fnt{pop pop pop}def
/fs{pop}def
/fz{pop}def
/lin{pop pop}def
end
/MacVec 256 array def
MacVec 0 /Helvetica findfont
/Encoding get 0 128 getinterval putinterval
MacVec 127 /DEL put MacVec 16#27 /quotesingle put MacVec 16#60 /grave put
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
MacVec 0 32 getinterval astore pop
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
/guillemotright/ellipsis/nbspace/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase
/perthousand/Acircumflex/Ecircumflex/Aacute
/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex
/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde
/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
MacVec 128 128 getinterval astore pop
#
end %. AltsysDict
%%EndProcSet
#
%%EndProlog
#
%%BeginSetup
#
%%EndSetup
#
%%BeginSeparation: ^Q
%%PlateColor: ^Q
userdict begin /AltsysSepDict 75 dict def end
AltsysSepDict begin
/sepname (^Q) def
AltsysDict begin
AltsysSepDict begin
/_image/image load def
/colorimage defed {/_colorimage /colorimage load def} if
/_imagemask/imagemask load def
/__setgray /setgray load def
/_setgray {dup /_currentgray sepdef __setgray}bdf
/_currentgray currentgray sepdef
/currentgray{_currentgray}bdf
#
/setgray{pop 1 _setgray}bdf
/setcmykcolor{
overprintcmyk
pop pop pop 1 exch sub _setgray
}bdf
/colorimage{
pop pop
[
5 -1 roll
/exec cvx
6 -1 roll
/exec cvx
7 -1 roll
/exec cvx
8 -1 roll
/exec cvx
/pop cvx
/pop cvx
/pop cvx
]
cvx
{1.0 exch sub} bind currenttransfer concatprocs st
_image
}bdf
/image{
3 1 getprocessoverprint
{gsave nulldevice _image grestore}
{inverted?{{pop 0}}{{pop 1}}ifelse st _image}
ifelse
}bdf
/setcolortransfer{pop pop pop st}bdf
/lfp{
gsave
W n
lfxform
12 {pop} repeat
/lfbuf1 xdf
pop
{1.0 exch sub} bind currenttransfer concatprocs st
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
_image
grestore
}bdf
#
/setgray{pop 1 _setgray}bdf
/setcmykcolor{
overprintcmyk
pop pop 1 exch sub _setgray pop
}bdf
/colorimage{
pop pop
[
5 -1 roll
/exec cvx
6 -1 roll
/exec cvx
7 -1 roll
/exec cvx
8 -1 roll
/exec cvx
/pop cvx
/pop cvx
/exch cvx
/pop cvx
]
cvx
{1.0 exch sub} bind currenttransfer concatprocs st
_image
}bdf
/image{
3 1 getprocessoverprint
{gsave nulldevice _image grestore}
{inverted?{{pop 0}}{{pop 1}}ifelse st _image}
ifelse
}bdf
/setcolortransfer{pop pop exch pop st}bdf
/lfp{
gsave
W n
lfxform
11 {pop} repeat
/lfbuf1 xdf
pop pop
{1.0 exch sub} bind currenttransfer concatprocs st
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
_image
grestore
}bdf
#
/setgray{pop 1 _setgray}bdf
/setcmykcolor{
overprintcmyk
pop 1 exch sub _setgray pop pop
}bdf
/colorimage{
pop pop
[
5 -1 roll
/exec cvx
6 -1 roll
/exec cvx
7 -1 roll
/exec cvx
8 -1 roll
/exec cvx
/pop cvx
/exch cvx
/pop cvx
/exch cvx
/pop cvx
]
cvx
{1.0 exch sub} bind currenttransfer concatprocs st
_image
}bdf
/image{
3 1 getprocessoverprint
{gsave nulldevice _image grestore}
{inverted?{{pop 0}}{{pop 1}}ifelse st _image}
ifelse
}bdf
/setcolortransfer{pop 3 1 roll pop pop st}bdf
/lfp{
gsave
W n
lfxform
10 {pop} repeat
/lfbuf1 xdf
pop pop pop
{1.0 exch sub} bind currenttransfer concatprocs st
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
_image
grestore
}bdf
#
/setgray{_setgray}bdf
/setcmykcolor{
overprintcmyk
1 exch sub _setgray pop pop pop
}bdf
/colorimage{
pop pop
[
5 -1 roll
/exec cvx
6 -1 roll
/exec cvx
7 -1 roll
/exec cvx
8 -1 roll
/exec cvx
/exch cvx
/pop cvx
/exch cvx
/pop cvx
/exch cvx
/pop cvx
]
cvx
{1.0 exch sub} bind currenttransfer concatprocs st
_image
}bdf
/image{_image}bdf
/setcolortransfer{4 1 roll pop pop pop st}bdf
/lfp{
gsave
W n
lfxform
9 {pop} repeat
/lfbuf1 xdf
4 {pop} repeat
{1.0 exch sub} bind currenttransfer concatprocs st
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
_image
grestore
}bdf
#
%. unused
#
/setgray{pop 1 _setgray}bdf
/setcmykcolor{
overprintcmyk
pop pop pop pop 1 _setgray
}bdf
/colorimage{
pop pop
[
5 -1 roll
/exec cvx
6 -1 roll
/exec cvx
7 -1 roll
/exec cvx
8 -1 roll
/exec cvx
/pop cvx
/pop cvx
/pop cvx
]
cvx
inverted?{{pop 0}}{{pop 1}}ifelse st _image
}bdf
/image{
3 1 getprocessoverprint
{gsave nulldevice _image grestore}
{inverted?{{pop 0}}{{pop 1}}ifelse st _image}
ifelse
}bdf
/setcolortransfer{4 1 roll pop pop pop st}bdf
/lfp{
gsave 1 setseparationgray {filler} fp grestore
21 {pop} repeat
}bdf
/rfp{
gsave 1 setseparationgray {filler} fp grestore
11 {pop} repeat
}bdf
#
/ucrk .5 def
/ucrm .31 def
/ucry .48 def
/boostk 1.25 def
/cvt1{1 exch sub 3 1 roll}bdf
/cvt2{0 max 3 1 roll}bdf
/setrgbcolor{
cvt1 cvt1 cvt1
3 copy min min
ucrk sub 0 max
4 1 roll
3 {3 index sub 3 1 roll} repeat
1 index ucry mul sub cvt2
1 index ucrm mul sub cvt2
3 1 roll
4 -1 roll boostk mul
setcmykcolor
}bdf
/_sethsbcolor/sethsbcolor load def
/sethsbcolor{_sethsbcolor currentrgbcolor setrgbcolor}bdf
/setcmybcolor{setcmykcolor}bdf
/setspotcolor{
spots exch get
dup 5 get setinkoverprint
4 get dup sepname eq exch (_vc_Registration) eq or
{1 exch sub _setgray}
{pop 1 _setgray}
ifelse
}bdf
/setcmykcoloroverprint{pop pop pop pop}bdf
/findcmykcustomcolor{5 packedarray}bdf
/setcustomcolor{
exch 4 get sepname eq
{1 exch sub _setgray}
{pop 1 _setgray}
ifelse
}bdf
/setseparationgray{_setgray}bdf
/inkoverprint false def
/currentoverprint false def
/setoverprint{inkoverprint{pop}{/currentoverprint sepdef}ifelse}bdf
/setinkoverprint{dup /inkoverprint sepdef /currentoverprint sepdef}bdf
/onlyk{4 copy 0 ne exch 0 eq and exch 0 eq and exch 0 eq and}bdf
/onlyc{5 copy pop 0 eq exch 0 eq and exch 0 eq and exch 0 ne and}bdf
/onlym{6 copy pop pop 0 eq exch 0 eq and exch 0 ne and exch 0 eq and}bdf
/onlyy{7 copy pop pop pop 0 eq exch 0 ne and exch 0 eq and exch 0 eq and}bdf
/getprocessoverprint
{0 ne{spots exch get 5 get}{pop false}ifelse}bdf
/getcustomoverprint{
4 get
false
spots
{
dup 4 get 3 index eq
{5 get exch pop}
{pop}
ifelse
} forall
exch pop
}bdf
/overprintcmyk{
onlyk onlyc onlym onlyy or or or
{4 copy 3 -1 0{exch getprocessoverprint 4 1 roll}for or or or}
{false}
ifelse
setinkoverprint
}bdf
/separationimage{_image}bdf
/paintok{currentoverprint not currentgray 1 ne or}bdf
/_stroke /stroke load def
/_fill /fill load def
/_eofill /eofill load def
/_rectstroke /rectstroke load def
/_rectfill /rectfill load def
/_show /show load def
/_ashow /ashow load def
/_widthshow /widthshow load def
/_awidthshow /awidthshow load def
/_kshow /kshow load def
/nullexec{matrix currentmatrix gsave nulldevice setmatrix exec currentpoint grestore moveto}bdf
/execok{paintok{exec}{nullexec}ifelse}bdf
/stroke{paintok{_stroke}{newpath}ifelse}bdf
/fill{paintok{_fill}{newpath}ifelse}bdf
/eofill{paintok{_eofill}{newpath}ifelse}bdf
/rectstroke{paintok{_rectstroke}{pop pop pop pop}ifelse}bdf
/rectfill{paintok{_rectfill}{pop pop pop pop}ifelse}bdf
/show{{_show} execok}bdf
/ashow{{_ashow} execok}bdf
/widthshow{{_widthshow} execok}bdf
/awidthshow{{_awidthshow} execok}bdf
/kshow{{_kshow} execok}bdf
/imagemask{paintok
{currentgray 1 ne
{_imagemask}
{inverted?{{pop 0}}{{pop 1}}ifelse st _imagemask}
ifelse}
{gsave nulldevice _imagemask grestore}
ifelse}bdf
/customcolorimage{
dup 4 get dup sepname eq exch (_vc_Registration) eq or
{pop _image}
{
getcustomoverprint
{gsave nulldevice _image grestore}
{inverted?{{pop 0}}{{pop 1}}ifelse st _image}
ifelse
}
ifelse
}bdf
/lfs{
10 index goodsep
{
gsave
W n
lfxform
pop pop pop
/xt xdf
/lfbuf1 xdf
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
_image
grestore
}
{
10 index 1 getprocessoverprint
not {gsave 1 setseparationgray {filler} fp grestore} if
12 {pop} repeat
}
ifelse
}bdf
/rfs{
2 index goodsep
{_rfs}
{
2 index 1 getprocessoverprint
not {gsave 1 setseparationgray {filler} fp grestore} if
6 {pop} repeat
}
ifelse
}bdf
/fas{
currentoverprint not
{
gsave
fhspreadsize setlinewidth [] 0 setdash
currentoverprint
true setoverprint stroke setoverprint
grestore
}
if
}bdf
/sas{
currentoverprint not
{
gsave
currentlinewidth fhspreadsize add setlinewidth
currentoverprint
true setoverprint stroke setoverprint
grestore
}
if
}bdf
/fhsetspreadsize{/fhspreadsize sepdef}ndf
end %.AltsysSepDict
#
AltsysDict begin
#
/onlyk{false}ndf
/ccmyk{dup 5 -1 roll sub 0 max exch}ndf
/cmyk2gray{
4 -1 roll 0.3 mul 4 -1 roll 0.59 mul 4 -1 roll 0.11 mul
add add add 1 min neg 1 add
}bdf
/setcmykcolor{1 exch sub ccmyk ccmyk ccmyk pop setrgbcolor}ndf
/setcmykcoloroverprint{4{dup -1 eq{pop 0}if 4 1 roll}repeat setcmykcolor}ndf
/findcmykcustomcolor{5 packedarray}ndf
/setcustomcolor{exch aload pop pop 4{4 index mul 4 1 roll}repeat setcmykcolor pop}ndf
/setseparationgray{setgray}ndf
/setoverprint{pop}ndf
/currentoverprint false ndf
/cmykbufs2gray{
0 1 2 index length 1 sub
{
4 index 1 index get 0.3 mul
4 index 2 index get 0.59 mul
4 index 3 index get 0.11 mul
4 index 4 index get
add add add cvi 255 min
255 exch sub
2 index 3 1 roll put
}for
4 1 roll pop pop pop
}bdf
/colorimage{
pop pop
[
5 -1 roll/exec cvx
6 -1 roll/exec cvx
7 -1 roll/exec cvx
8 -1 roll/exec cvx
/cmykbufs2gray cvx
]cvx
image
}
%. version 47.1 on Linotronic of Postscript defines colorimage incorrectly (rgb model only)
version cvr 47.1 le
statusdict /product get (Lino) anchorsearch{pop pop true}{pop false}ifelse
and{userdict begin bdf end}{ndf}ifelse
fhnumcolors 1 ne {/yt save def} if
/customcolorimage{
aload pop
(_vc_Registration) eq
{
pop pop pop pop separationimage
}
{
/ik xdf /iy xdf /im xdf /ic xdf
ic im iy ik cmyk2gray /xt xdf
currenttransfer
{dup 1.0 exch sub xt mul add}concatprocs
st
image
}
ifelse
}ndf
fhnumcolors 1 ne {yt restore} if
fhnumcolors 3 ne {/yt save def} if
/customcolorimage{
aload pop
(_vc_Registration) eq
{
pop pop pop pop separationimage
}
{
/ik xdf /iy xdf /im xdf /ic xdf
1.0 dup ic ik add min sub
1.0 dup im ik add min sub
1.0 dup iy ik add min sub
/ic xdf /iy xdf /im xdf
currentcolortransfer
4 1 roll
{dup 1.0 exch sub ic mul add}concatprocs 4 1 roll
{dup 1.0 exch sub iy mul add}concatprocs 4 1 roll
{dup 1.0 exch sub im mul add}concatprocs 4 1 roll
setcolortransfer
{/dummy xdf dummy}concatprocs{dummy}{dummy}true 3 colorimage
}
ifelse
}ndf
fhnumcolors 3 ne {yt restore} if
fhnumcolors 4 ne {/yt save def} if
/customcolorimage{
aload pop
(_vc_Registration) eq
{
pop pop pop pop separationimage
}
{
/ik xdf /iy xdf /im xdf /ic xdf
currentcolortransfer
{1.0 exch sub ik mul ik sub 1 add}concatprocs 4 1 roll
{1.0 exch sub iy mul iy sub 1 add}concatprocs 4 1 roll
{1.0 exch sub im mul im sub 1 add}concatprocs 4 1 roll
{1.0 exch sub ic mul ic sub 1 add}concatprocs 4 1 roll
setcolortransfer
{/dummy xdf dummy}concatprocs{dummy}{dummy}{dummy}
true 4 colorimage
}
ifelse
}ndf
fhnumcolors 4 ne {yt restore} if
/separationimage{image}ndf
/newcmykcustomcolor{6 packedarray}ndf
/inkoverprint false ndf
/setinkoverprint{pop}ndf
/setspotcolor {
spots exch get
dup 4 get (_vc_Registration) eq
{pop 1 exch sub setseparationgray}
{0 5 getinterval exch setcustomcolor}
ifelse
}ndf
/currentcolortransfer{currenttransfer dup dup dup}ndf
/setcolortransfer{st pop pop pop}ndf
/fas{}ndf
/sas{}ndf
/fhsetspreadsize{pop}ndf
/filler{fill}bdf
/F{gsave {filler}fp grestore}bdf
/f{closepath F}bdf
/S{gsave {stroke}fp grestore}bdf
/s{closepath S}bdf
/lfs{
gsave
W n
lfxform
pop pop pop
/xt xdf
/lfbuf1 xdf
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
[spots xt get aload pop pop]
customcolorimage
grestore
}ndf
/lfp{
gsave
W n
lfxform
9 {pop} repeat
_rci
{
/lfbuf4 xdf
/lfbuf3 xdf
/lfbuf2 xdf
/lfbuf1 xdf
pop
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}{lfbuf2}{lfbuf3}{lfbuf4}
true 4 colorimage
}
{
4 {pop} repeat
/lfbuf1 xdf
1 256 8 [1 0 0 -256 0 256]
{lfbuf1}
image
}
ifelse
grestore
}ndf
/bcs [0 0] def
/_rfs {
/tint2 xdf
/tint1 xdf
bcs exch 1 exch put
/radius xdf
/yt xdf
/xt xdf
tint1 tint2 sub abs
calcgraysteps mul abs round
dup 2 lt {pop 2} if
1 sub /numsteps1 xdf
currentflat mark
currentflat clipflatness
{
{
dup setflat
W
0 1 numsteps1
{
numsteps1 div /frac xdf
bcs 0
tint2 tint1 sub frac mul tint1 add
put bcs vc
1 index setflat
{
newpath mark xt yt radius 1 frac sub mul 0 360
{arc fill}stopped
{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
{cleartomark exit}ifelse
}loop
}for
}
gsave stopped grestore
{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
{exit}ifelse
}loop
cleartomark setflat
}bdf
/bc4 [0 0 0 0] def
/_rfp {
/k2 xdf /y2 xdf /m2 xdf /c2 xdf
/k1 xdf /y1 xdf /m1 xdf /c1 xdf
/radius xdf
/yt xdf
/xt xdf
c1 c2 sub abs
m1 m2 sub abs
y1 y2 sub abs
k1 k2 sub abs
max max max
calcgraysteps mul abs round
dup 2 lt {pop 2} if
1 sub /numsteps1 xdf
currentflat mark
currentflat clipflatness
{
{
dup setflat
W
0 1 numsteps1
{
numsteps1 div /frac xdf
bc4 0 c2 c1 sub frac mul c1 add put
bc4 1 m2 m1 sub frac mul m1 add put
bc4 2 y2 y1 sub frac mul y1 add put
bc4 3 k2 k1 sub frac mul k1 add put
bc4 vc
1 index setflat
{
newpath mark xt yt radius 1 frac sub mul 0 360
{arc fill}stopped
{cleartomark exch 1.3 mul dup setflat exch 2 copy gt{stop}if}
{cleartomark exit}ifelse
}loop
}for
}
gsave stopped grestore
{exch pop 2 index exch 1.3 mul dup 100 gt{cleartomark setflat stop}if}
{exit}ifelse
}loop
cleartomark setflat
}bdf
/rfs{_rfs}ndf
/rfp{_rfp}ndf
/cvc [0 0 0 1] def
/vc{
AltsysDict /cvc 2 index put
aload length 4 eq
{setcmykcolor}
{setspotcolor}
ifelse
}bdf
/origmtx matrix currentmatrix def
/ImMatrix matrix currentmatrix def
#
%%EndSeparation: ^Q
#
%%Trailer
#
AltsysDict begin /SeparationSave save def end
#
SeparationSave restore
#
end
#
/currentpacking defed{false setpacking}if
/spots[
#
^0 (^2) true newcmykcustomcolor
#
^0 (^2) false newcmykcustomcolor
#
]def
#
^Z storerect left bottom width height rectclip
#
%%Page: ^Z ^Z
#
%%BeginPageSetup
%%PaperSize: ^Y
#
0 setseparationgray
/imgr {^0} def
/bleed ^1 def
/clpr {^2} def
/xs ^3 def
/ys ^3 def
/botx ^4 def
/overlap ^5 def
/wdist ^6 def
^7 2 mul fhsetspreadsize
^8 0 ne {/df ^8 def /clipflatness ^8 def} if
/maxsteps ^U def
#
statusdict /setpageparams known
{
statusdict begin ^0 ^1 ^2{exch}if 0 ^2{0}{1}ifelse setpageparams end
}
{
^2 {-90 rotate ^4 neg 0 translate} if
}ifelse
#
^C ^A sub 0 translate
-1 1 scale
#
^E ^F translate
#
^3 ^3 scale
#
^I ^J translate %. translate for this tile
^K xs div ^L ys div translate %. center on paper
#
^M xs div ^N ys div translate %. extra translation for margin marks
#
%%EndPageSetup
#
save
clpr storerect
left top wdist 1 add ys div add moveto
/Helvetica findfont 8 ys div scalefont setfont
0 setseparationgray (^a ^b) show
restore
#
save
clpr storerect
left top wdist 1 add ys div add moveto
/Helvetica findfont 8 ys div scalefont setfont
0 setseparationgray (^a ^b Row ^c of ^d Column ^e of ^f) show
restore
#
save
clpr storerect
left botx xs div add bottom wdist 1.5 mul 1 sub ys div sub moveto
/Helvetica findfont 8 ys div scalefont setfont
0 setseparationgray (^Q) show
restore
#
%. cut marks
save
imgr storerect
clpr /cliptop xdf /clipright xdf /clipbottom xdf /clipleft xdf
left bleed sub clipleft sub abs xs mul 1 le
bottom bleed sub clipbottom sub abs ys mul 1 le and
{gsave left bottom moveto cm grestore} if
left bleed sub clipleft sub abs xs mul 1 le
top bleed add cliptop sub abs ys mul 1 le and
{gsave left top moveto 1 -1 scale cm grestore} if
right bleed add clipright sub abs xs mul 1 le
top bleed add cliptop sub abs ys mul 1 le and
{gsave right top moveto -1 -1 scale cm grestore} if
right bleed add clipright sub abs xs mul 1 le
bottom bleed sub clipbottom sub abs ys mul 1 le and
{gsave right bottom moveto -1 1 scale cm grestore} if
restore
#
%. alignment marks
save
imgr storerect
clpr /cliptop xdf /clipright xdf /clipbottom xdf /clipleft xdf
top bleed add cliptop sub abs ys mul 1 le
{left right add 2 div top bleed add 9 ys div add am} if
bottom bleed sub clipbottom sub abs ys mul 1 le
{left right add 2 div bottom bleed sub 9 ys div sub am} if
left bleed sub clipleft sub abs xs mul 1 le
{left bleed sub 9 xs div sub top bottom add 2 div am} if
right bleed add clipright sub abs xs mul 1 le
{right bleed add 9 xs div add top bottom add 2 div am} if
right bleed add clipright sub abs xs mul 1 le
{right bleed add 9 xs div add 20 ys div bottom add am} if
%. color bars
top bleed add cliptop sub abs ys mul 1 le
{left right add 2 div top bleed add 9 ys div add fhcb} if
restore
#
%. overlap top alignment markers
save
clpr storerect
gsave
left wdist 2 div xs div sub top overlap 2 div ys div sub moveto 180 rotate overlapmark
grestore
gsave
right wdist 2 div xs div add top overlap 2 div ys div sub moveto 180 rotate overlapmark
grestore
restore
#
%. overlap bottom alignment markers
save
clpr storerect
gsave
left wdist 2 div xs div sub bottom overlap 2 div ys div add moveto overlapmark
grestore
gsave
right wdist 2 div xs div add bottom overlap 2 div ys div add moveto overlapmark
grestore
restore
#
%. overlap right alignment markers
save
clpr storerect
gsave
right overlap 2 div xs div sub top wdist 2 div ys div add moveto 270 rotate overlapmark
grestore
gsave
right overlap 2 div xs div sub bottom wdist 2 div ys div sub moveto 270 rotate overlapmark
grestore
restore
#
%. overlap left alignment markers
save
clpr storerect
gsave
left overlap 2 div xs div add bottom wdist 2 div ys div sub moveto 90 rotate overlapmark
grestore
gsave
left overlap 2 div xs div add top wdist 2 div ys div add moveto 90 rotate overlapmark
grestore
restore
#
clpr storerect left bottom width height rectclip
#
%%PageTrailer
#
currenttransfer concatprocs st
#
%. erase page after inverting so that background is
%. inverted by default.
1 setgray -32000 -32000 64000 64000 rectfill
/inverted? true store
#
{}
#
{dup .5 le{.25 le{0}{.33}ifelse}
{.75 le{.67}{1}ifelse}ifelse}bind
#
{1 exch sub} bind
#
{dup .5 le{.25 le{1}{.67}ifelse}
{.75 le{.33}{0}ifelse}ifelse}bind
#
currentscreen exch pop exch pop
#
{dup mul exch dup mul add 1 exch sub}
#
{exch pop abs 1 exch sub}
#
{dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub}
#
currentscreen pop pop
#
currentscreen pop exch pop
#
/supdict 65 dict def
supdict begin
/str1 512 string def
/dx 500 def
/dy 700 def
/cnt 0 def
/newinside {
{flattenpath}fp clipper
pathbbox
1 index 4 index sub round cvi /dx xdf
0 index 3 index sub round cvi /dy xdf
pop pop translate
222 srand
newpath
} bind def
/randint {
rand exch mod } def
/rand8 { rand -16 bitshift 255 and} def
/rand2
{ rand -16 bitshift 3 and } def
/brandxy {
dx randint dy randint } def
/x1
{ angle cos abs dx mul } def
/x2
{ 90 angle sub cos abs dy mul } def
/y1
{ angle sin abs dx mul } def
/y2
{ 90 angle sub sin abs dy mul } def
/backgnd
{ xstart ystart m
xstart ystart abs L
xstart abs ystart abs L
xstart abs ystart L
closepath fill } def
/incrcnt
{ /cnt cnt 1 add def } def
/colorchoice
{
/found false def
gray?
{/CCblack [0 0 0 0] def
color 1 exch sub
CCblack 3 3 -1 roll put
CCblack vc}
{color length 2 eq
{color 1 get type (text) type eq
{0 1 spots length 1 sub
{/cnt xdf
spots cnt get 4 get color 1 get eq
{/found true def exit} if
} for
found {color 1 cnt put} {color 1 3 put} ifelse
} if
color vc
} if
color length 4 eq {color vc} if
} ifelse
} def
/gray?
{ color type 0 type eq color type .0 type eq or } def
end
#
/ropedict 85 dict def
ropedict begin
/blocksetup
{ q translate rotate scale n } def
/blockend
{ closepath fill } def
/blockfinish
{ closepath fill Q } def
/movetoproc {
dup /sby xdf
/spy xdf
dup /sbx xdf
/spx xdf
sbx sby m
} def
/1stlinetoproc
{ /esy xdf /esx xdf
blockdata
/totdist totdist dist add def
/sbx esx def /sby esy def
deltax 0 ne deltay 0 ne and
{ /prevtotdeltax deltax def /prevtotdeltay deltay def } if
} def
/2ndlinetoproc
{ /esy xdf /esx xdf
bdflag false eq
{blockdata esx spx eq esy spy eq and{lastsegdist}if}if
offset ldelta add dist le
{
deltax 0 eq deltay 0 eq and
{/ang 0 def}{/ang deltay deltax atan def}ifelse
offset 0 lt
{/prevang prevdeltax 0 eq prevdeltay 0 eq and
{0}{prevdeltay neg prevdeltax neg atan}ifelse def
ang prevang sub abs dup 120 le exch 240 ge or
{/offset 0 def bdflag true eq
{
lastsegdist
}if
}if
}if
offset ldelta dist
{/curdelta xdf
/ldeltax ang cos curdelta ldelta 2 div add mul def
/ldeltay ang sin curdelta ldelta 2 div add mul def
bll2 blw ang sbx ldeltax add sby ldeltay add drawblock
/offset curdelta ldelta add dist sub def
ldelta offset abs .001 add gt {exit} if
}for
/prevdeltax deltax def /prevdeltay deltay def
/deltax 0 def /deltay 0 def
/sbx esx def /sby esy def
}if
}def
/1stcloseproc
{ spx spy 1stlinetoproc
}def
/2ndcloseproc
{sbx spx ne sby spy ne or{
/esx spx def /esy spy def blockdata /bdflag true def lastsegdist
spx spy 2ndlinetoproc}if
}def
/blockdata
{ /deltay esy sby sub def
/deltax esx sbx sub def
/dist deltay dup mul deltax dup mul add sqrt def
}def
/lastsegdist
{/dist dist offset sub ldelta div round ldelta mul offset add def
}def
end
/newrope
{
supdict begin
ropedict begin
/color xdf
colorchoice
/spacing xdf
/blw xdf
/bll xdf
/drawblock xdf
q {flattenpath}fp
/totdist 0 def /totdeltax 0 def /totdeltay 0 def
{movetoproc} {1stlinetoproc} {} {1stcloseproc} pathforall
/nm totdist bll spacing add div def
/nm2 nm floor def
nm2 0 ne
{
/fr nm nm2 sub def
/nm2 fr 0.5 ge {nm2 1 add} {nm2} ifelse def
/bll2 fr 0.5 ge {fr 1.0 sub} {fr} ifelse
bll spacing add mul nm2 div bll add spacing add def
/ldelta bll2 def
/bll2 bll2 bll bll spacing add div mul def
/offset 0 def /totdeltax 0 def /totdeltay 0 def /cnt 0 def
/prevtotdeltax 0 def /prevtotdeltay 0 def /bdflag false def
{movetoproc} {2ndlinetoproc} {} {2ndcloseproc} pathforall
} if
Q n end end
} def
#
/texturedict 50 dict def
texturedict begin
/scalefactor .24 def
/angarray [0 90 180 270] def
/imagesize 72 def
/scaledsize
{
imagesize scalefactor mul
} def
/angget
{
angarray aryindex get
} def
/xtransget
{
xtrans aryindex get
} def
/ytransget
{
ytrans aryindex get
} def
/imageloop
{
0 scaledsize dy
{
/ycur exch def
0 scaledsize dx
{
/xcur exch def
gsave
xcur ycur translate
/aryindex rand2 def
angget rotate
xtransget ytransget translate
imagesize imagesize scale
0 0 moveto
(a) show
grestore
} for
} for
} def
end
/invbuf{
0 1
2 index length 1 sub
{
dup
2 index exch
get
255 xor
2 index
3 1 roll put
}
for
}bdf
/settexturepattern
{
texturedict fhtexturepattern get
invflag
{
dup length /str2 exch string def str2 copy invbuf
} if
/fhtexturepattern xdf
} bdf
/texture {
gsave
[0 0 0 0] vc
filler
grestore
supdict begin
/txsave save def
newinside
vc
texturedict begin
/fhtexturepattern xdf
/invflag false def
fhtexturepattern (burlap) eq
{/imagesize 144 def}{/imagesize 72 def} ifelse
fhtexturepattern (light-mezzo) eq {/invflag true def} if
fhtexturepattern (light-mezzo) eq fhtexturepattern (heavy-mezzo) eq or
{/fhtexturepattern (mezzo) def} if
9 dict begin
/FontType 3 def
/FontMatrix [1 imagesize div 0 0 1 imagesize div 0 0] def
/FontBBox [0 0 imagesize imagesize] def
/PaintType 3 def
/Encoding 256 array def
0 1 255 {Encoding exch /.notdef put} bind for
Encoding 97 /thetile put
/CharProcs 2 dict def
CharProcs begin
/.notdef {} def
/thetile {
imagesize imagesize true
[imagesize 0 0 imagesize 0 0]
{fhtexturepattern} systemdict begin imagemask end
} def
end
/BuildChar {
imagesize 0
0 0 imagesize imagesize
setcachedevice
exch begin
Encoding exch get
CharProcs exch get
end
exec
} bdf
currentdict
end
/TextureFont exch definefont pop
/xtrans [0 0 scaledsize neg scaledsize neg] def
/ytrans [0 scaledsize neg scaledsize neg 0] def
/TextureFont findfont scaledsize scalefont setfont
fhtexturepattern (burlap) eq fhtexturepattern (denim) eq or
{
fhtexturepattern (burlap) eq
{settexturepattern burlapimageloop}
{settexturepattern denimimageloop}
ifelse
}
{settexturepattern imageloop} ifelse
txsave restore
end
end
} def
#
supdict begin
/getwidth
{ xsize ysize ge
{ xsize } { ysize } ifelse .05 mul } def
/brickloop
{ ystart ysize ystart abs
{ /ycur xdf
xstart ycur m
xstart abs ycur L stroke
xstart xsize xstart abs
{ cnt 1 and 0 eq
{ /xcur xdf }
{ /xcur exch xsize .5 mul add def } ifelse
xcur ycur m
xcur ycur ysize add L stroke
} for
incrcnt
} for } def
end
/bricks
{
supdict begin
q newinside
/color xdf
colorchoice
/color xdf
/angle xdf
/ysize xdf
/xsize xdf
/xstart x1 x2 add 2 div neg def
/ystart y1 y2 add 2 div neg def
dx 2 div dy 2 div translate
angle rotate
backgnd
colorchoice
getwidth w
brickloop
Q end
} def
#
supdict begin
/teethsize
{ dy teeth div } def
/drawtooth
{ dx teethsize 2 div rlineto
dx neg teethsize 2 div rlineto } def
/teethloop
{ teeth { drawtooth } repeat } def
/sfx
{ x1 x2 add dx div } def
/sfy
{ y1 y2 add dy div } def
end
/tigerteeth
{
supdict begin
q newinside
/color xdf
colorchoice
/color xdf
/angle xdf
/teeth xdf
dx 2 div dy 2 div translate
angle rotate
sfx sfy scale
/xstart dx 2 div neg def
/ystart dy 2 div neg def
backgnd
colorchoice
xstart ystart m teethloop fill
Q end
} def
#
supdict begin
/circloop
{ ystart spacing ystart abs
{ /ycur xdf
xstart spacing xstart abs
{
ycur size 0 360 arc stroke
} for
} for } def
end
/circles
{
supdict begin
q newinside
/color xdf
colorchoice
w
/angle xdf
/spacing xdf
/size xdf
/xstart x1 x2 add 2 div neg spacing sub def
/ystart y1 y2 add 2 div neg spacing sub def
dx 2 div dy 2 div translate
angle rotate circloop
Q end
} def
#
supdict begin
/squareloop
{ ystart spacing ystart abs
{ /ycur xdf
xstart spacing xstart abs
{
ycur m
size 2 div neg size 2 div neg rmoveto
0 size rlineto
size 0 rlineto
0 size neg rlineto
closepath stroke
} for
} for } def
end
/squares
{
supdict begin
q newinside
/color xdf
colorchoice
w
/angle xdf
/spacing xdf
/size xdf
/xstart x1 x2 add 2 div neg spacing sub def
/ystart y1 y2 add 2 div neg spacing sub def
dx 2 div dy 2 div translate
angle rotate squareloop
Q end
} def
#
supdict begin
/dashpat [12 3] def
/lineloop
{ ystart spacing ystart abs
{ /ycur xdf
dashes?
{
cnt 1 and 0 eq { dashpat 0 setdash }
{ dashpat dashpat 0 get dashpat 1 get add 2 div setdash }
ifelse } if
xstart ycur m
xstart abs ycur L
stroke incrcnt
} for } def
end
/newhatch
{
supdict begin
q newinside
/dashes? xdf
/color xdf
colorchoice
w
/spacing xdf
/ang2 xdf
/angle xdf
/xstart {x1 x2 add 2 div neg} bdf
/ystart {y1 y2 add 2 div neg} bdf
dx 2 div dy 2 div translate
q angle rotate
lineloop Q
ang2 angle sub abs 180 ne
{
ang2 rotate
/angle ang2 def
lineloop
} if
Q end
} def
#
supdict begin
/leaf {
brandxy translate
360 randint rotate
/wid 10 randint 15 add def
0 0 m
0 wid 0 wid wid wid C
wid 0 wid 0 0 0 C } def
end
/randomleaves
{supdict begin
newinside
{q leaf
[0 0 0 0] vc q fill Q
[0 0 0 1] vc 1 w stroke Q
} repeat end
} def
#
supdict begin
/blade {
brandxy translate
/wid 5 randint 5 add def
0 0 m
0 3 3 10 wid 10 C } def
end
/randomgrass
{supdict begin
newinside q
[0 0 0 1] vc
{q blade
1 w stroke Q
} repeat end
Q
} def
#
/newnoise
{ supdict begin
q newinside
[0 0 0 1] vc
/mx exch 255 mul cvi def
/mn exch 255 mul cvi def
/dff mx mn sub def
dx dy scale
dx dy 8 [ dx 0 0 dy 0 0 ]
{ 0 1 511{ str1 exch rand -16 bitshift 255 and dff mod mn add put } for str1}
image Q end } def
#
/bwnoise
{supdict begin
q newinside
[0 0 0 1] vc
dx 1.5 mul dy 1.5 mul scale
dx dy 1 [ dx 0 0 dy 0 0 ]
{0 1 511 {str1 exch rand8 rand8 or put} for str1}
image Q end
} def
#
/topnoise
{ supdict begin
q newinside
dx 1.5 mul dy 1.5 mul scale
dx dy true [ dx 0 0 dy 0 0 ]
{ 0 1 511{ str1 exch rand8 rand8 and put } for str1}
imagemask Q end } def
#
/neon
{ supdict begin
/wd xdf
q wd w 0.5 setgray stroke Q
q wd 2 div w 0 setgray stroke Q
q 1 w 1 setgray stroke Q n end } def
#
texturedict begin
/burlapimageloop
{ 0 scaledsize dy
{ /ycur xdf
0 scaledsize dx
{ /xcur xdf
gsave
xcur ycur translate
/aryindex rand2 def
aryindex 1 and 0 eq
{ angget rotate
xtransget ytransget translate } if
imagesize imagesize scale
0 0 moveto
(a) show
grestore
} for
} for } def
/burlap
<
FC 00 00 00 07 E0 00 00 00 FC 00 00 00 7E 00 00 00 3F
E1 FE 0E 00 23 FC 00 00 3F FC 03 FF FF BF FF FF F0 0F
C0 7F 1F 80 21 F8 00 3E 3F EC 03 FF FE 31 FF FF 38 07
C0 7F FF C0 71 F8 01 FF FF CC 07 FF FE 01 BF FF 08 07
E9 FF FF C1 F9 FF F3 FF FF C6 07 FF FC 00 1F FF 08 07
E3 FF FF C0 79 FF FF FF FF 86 07 FF 88 00 4F FF 88 07
F3 FF FF 60 39 FE 01 FF FF 82 03 FF CE DC 0F FF D0 3F
F0 FF FF 20 79 FE 21 FF FF 98 03 FF FF 84 0F FF E0 7F
D0 7F FF 00 79 FF F8 1F FF 9D 03 FF FF 00 07 FF E0 FF
90 7F FF 00 7F FF E0 07 FF 8E 03 FF FF 00 07 FF E0 7F
10 FF FF 01 FF FF C0 07 FF 98 03 FF FC 00 07 FF E0 7E
30 FF FF 87 FF FF C0 07 FF F1 87 FF FC 00 0F FF F0 FA
70 3F FF E1 FF FF 80 03 FF 80 C7 FF FE 00 1F FF FF F0
78 3F FF F1 FF FF C0 03 FF 80 FF FF FC 00 2F FF FF F0
78 3F FF F3 FF FD 80 13 FF C7 FF FF FC 10 0F F9 FF FC
78 7F FF FF FF F8 80 1F FF FF FF FF FC 10 0F F8 81 3E
78 FF 8F FF FF F8 00 1F FE C7 FF FF FC 00 07 F0 00 0E
78 F6 00 3F FF FE 00 1F 00 80 7F FF FE 00 70 E0 00 06
38 E0 00 0C FF FE 00 3E 00 00 01 FF FC 00 FF 80 00 00
10 E0 00 10 00 FE 00 1E 02 00 00 3F FC 61 FF C0 00 00
00 60 00 20 00 3E 00 1E 06 00 00 3F FF C3 FF C0 00 00
00 20 00 00 00 1C 00 FE 00 00 00 78 FF 8F DF C0 00 60
00 00 00 00 00 0F 8F FC 00 00 00 60 7F 1F 1F C0 00 60
0C 00 40 00 00 1F F4 1C 00 00 00 00 FF 3E 13 C0 01 F8
1C 00 40 00 00 4F E0 00 00 00 00 00 FF FE 11 C3 E7 FC
7F 00 40 00 00 EF 60 00 04 00 00 21 FB FE 01 FF FF FE
7E 00 40 00 00 7F 00 00 3C 00 00 63 F0 3E 01 FF FF FE
7C 0C C0 00 00 FF 00 01 FE 00 02 FF E0 0C 01 FF F8 FE
40 0F E0 00 01 FF 80 07 FF 39 E3 FF E0 00 01 FF F8 06
18 0F FF FF 9F FF C0 0F FF FF FF FF EF 00 01 FF 80 00
98 1F FF F9 FF FF C0 1F FF FF FF FF FF F0 01 FF C0 03
98 1F FF FB FF FF C0 7F FF FF F8 FF C9 FF B3 FF C0 0F
F8 1F FF FA 0F FF 80 7F FF FF F0 7F F8 7F FF FF 60 0F
F8 3F FF F0 0F FF 83 FF FF FF E0 3F FF FF FF FE 30 07
F8 3F FF F0 1F FF 83 FF FF FF E0 1F FF FF FF FC 30 03
F8 7F FF E0 3F F8 03 FF FF F9 F0 1C 7F FF FF F8 10 03
F0 3F FF C0 1F C0 00 FF FF F8 70 38 70 01 FF F8 10 C3
FE 1F FF C0 1F 00 00 0F FF FF 30 30 00 00 18 00 18 F7
FF 3F FF C0 0E 00 00 01 FF FF 94 30 00 00 03 80 0C F7
F8 0F FC C6 06 00 00 03 FF 90 0C 30 00 00 01 C6 00 7F
F8 03 FC 00 06 00 00 00 FF 90 1C 20 00 00 01 E1 88 7F
F0 00 FC 01 C2 00 00 00 FF F0 18 02 00 00 03 F0 7C 3F
80 00 1D 80 E2 00 00 00 EF F8 18 07 80 00 03 F8 10 1F
80 00 1F C0 62 00 00 01 8F F1 18 1F 80 00 43 FF 10 1F
00 00 1F E0 03 00 00 03 9F F0 3C 1F E0 03 8F FF 88 0E
00 00 1F FC 03 C7 FF FF DF F0 1C 1F FF FF FF FF C8 00
1F E0 3F FC 03 CF F7 77 FF FE 06 3F FF BC 1F FF F8 20
1F 8C FF FC 03 FF 81 21 FF FF 07 7F FF F0 1F FF 90 38
3C 04 7F FC 03 FF 80 00 FF FF 07 FF FF E0 0F FF 80 1C
78 00 7F F8 03 FF F0 00 FF F8 20 FF FF E0 07 FF E0 1E
78 00 FF F8 03 FF E0 00 7F F8 03 FF FF F0 07 FF F8 7E
30 00 7F F8 07 FF E0 00 3F FC 0F FF FF E0 07 FF FC 7E
70 00 3F F8 0F FF E0 00 3F FE 0F 7F FF E0 0F FF E0 7E
70 00 3F F9 FF FF F0 00 FF FF 1C 7F FF E0 1F FF F4 3E
60 00 3F FF BF FF F0 01 FF FF F8 7F FF C0 03 FF FE 2E
78 00 7F FE 3F FF F0 00 FF FF B0 3F FF 80 03 F0 00 0E
70 04 7F FE 7F FF F0 00 FF FE F0 1F FF 80 03 E0 00 3E
70 07 FE 43 FF FF 00 00 FF B8 0E 0F F0 80 07 E0 01 FE
70 07 C0 03 FF FF C0 03 FC 00 03 CF F0 00 1F C0 07 FC
70 07 C0 04 BF FF C0 03 D0 00 00 FF FE 40 3F 80 00 18
70 07 80 18 9F FF C0 1F C0 00 00 7F FF 80 FF 00 00 0C
70 07 80 7C 00 3F C0 1F 80 00 00 6F FF 01 FF 80 03 80
70 07 80 E4 00 7F C0 1E 00 00 00 CF FF 00 79 80 00 00
71 03 83 C0 00 FF C0 1E 00 00 C1 1F FF C0 11 80 00 02
71 00 87 C0 01 9F CE 1C 00 01 E0 3F FF E0 00 00 00 06
FF 00 8F C0 01 99 FF 00 22 1F E0 3F FF C0 00 01 FE 03
FD 00 DF C0 03 9B FF 00 FF 1F 80 1F FF E0 00 7F FF EF
FC 01 FF C0 07 FF FF 00 FF FF 80 3F FF F0 01 FF FF E7
FC 01 FF FF FF FF FF 00 FF C6 03 FF FF F8 01 FF FE 0F
F8 03 FF FF FF FF FF 00 FF FF FF FF FF F8 01 FF FC 07
F8 03 FF FF FF FF FC 00 FF FF FF BF FF F8 01 FF FC 07
FC 03 FF FF C7 FF 20 03 FF FF FF 3F FF F8 01 FF FC 0F
FC 07 FF F3 03 FF 10 0F FF FF FE 39 FF F0 03 FF FE 0F
F8 0F FF C0 00 FF B0 FF FF FF F8 13 FF F0 03 FF FE 1F
F8 3F FF C0 01 FF F1 F9 FF FF F8 87 FF E0 47 FF FE 1F
F0 3F FF F0 03 FF F9 C1 FF FF F8 07 FF F0 07 FF FE 1F
F8 3F FF F8 03 FF FF 83 FF FF 7C 07 FF F8 07 FF FE 1F
F8 3F FF F8 03 FF FF 1F FF FF 78 03 FF F0 2F FF FE 0F
BC 7F FF E0 03 FF FF FF FF FF F0 03 DF F1 FF FF FF 0F
1F FF FF E0 03 FF FF FF FF FF 90 03 8F F3 FF FF FF 0A
1F FF FF C0 07 FF FF FF FF FF C0 07 0F FF FF FF FF 02
1F FF FF C0 0F E3 F7 FF FF FF C0 0F 1F FF 3F FF FC 02
0E 7F FF C0 0F C2 01 FF FF FF 80 BF 3E 00 1F FF FC 00
00 7F FF 80 07 F8 03 F8 67 BF 80 EF FC 00 00 07 F8 30
00 07 FF 00 67 E0 07 C0 00 07 00 FF FC 00 00 00 18 78
00 00 7E 00 73 80 0C 00 00 01 00 FF BE 00 00 00 00 F8
00 00 1C 01 F3 00 10 00 00 01 80 FD DF 00 00 00 01 F8
00 00 18 01 F0 00 00 00 00 01 00 7C FF C0 00 06 0F F0
0F 80 18 1F E0 00 00 00 00 0E 04 7F FF C0 00 1E 0F E0
0F 00 11 98 60 00 00 00 00 1C 04 7C CF E0 00 7E 3F 00
1F 01 11 80 00 E0 01 84 00 1C 20 3C 07 F0 60 7F FC 00
3F 03 B1 80 07 FF FF FF 40 1D F0 0C 41 FF BC FF F8 00
3E 7F FB F0 0F FF FF C1 8F FF FC 00 61 FF 81 FF F8 0C
3F FF FF C0 0F FF FF C1 FF FF FC 01 E7 FF E0 FF FE 1E
38 3F FF C0 1F FF FF C1 FF FF FC 07 FF FF E0 FF FE 1E
30 3F FF E0 7F FF FE 00 FF FF F8 07 FF FF F0 FF FE 1E
38 3F FF E0 7F FF F8 00 7F FF F0 03 FF 3C 00 7F FE 3C
38 1F FF E0 7F FF FC 00 3F FF F0 01 FF 3C 00 7F FE 30
00 1F FF F0 FF FF FC 00 1F FF F0 01 FF FC 01 7F FC 00
00 1F FE 01 FF FF FC 01 FF FF F0 01 FF FE 01 3F FC 00
80 1F FF 00 7F FF FC 01 FF FF F0 01 FF FE 00 9F FC 00
FE 0F FF 00 7F FF FE 04 FF FF F0 03 FF FE 00 5F FE 01
FC 0F FF DE 7F FF FB 06 7F FF FE 7F FF FE 00 7F FF C3
F8 0F FF FF FF FF F8 80 3F FF FF FF FF FF 00 7F FF 8F
F8 07 FF FF FF FF FC 00 1F FF F3 FF FF FE 00 7F FF DF
FC 03 FF FF FF FF FE 00 1F FF 81 FF FF FE 00 FF FF FF
FE 0F BF BD FF FF FC 00 7F FE 01 FF FF FC 00 FF FF FF
FE 1C 3E 10 FF FF F0 00 FF FC 00 FF FF F8 00 FF 81 FF
FE 1E 7C 00 7F F3 F0 03 FA 38 00 FF FF C0 00 FE 00 3F
FE 0F 8C 00 7F F3 E0 01 F8 00 00 9C FF C0 00 F0 00 3F
FE 1F 00 00 03 FF 00 00 7E 00 00 00 FF C0 00 60 00 07
FC 1F 20 00 01 FF A0 00 7F 00 00 01 FF C0 00 E0 00 0F
F9 9F F0 00 00 9F F8 01 7F 00 00 00 7F C0 44 F0 00 8F
F9 8F F0 00 00 1F FC 03 3F 00 78 00 7F E0 0C 70 00 1F
39 C0 78 00 00 3F FC 00 1F 88 7C 00 FF E1 3E 00 07 FF
21 80 20 00 00 3F FC 04 1F 80 0C 03 FF B3 3C 00 07 FC
20 80 00 00 00 7F FC 20 1C 00 04 00 7F FF 38 00 07 F8
18 03 00 00 00 8F FC 70 1C 00 02 00 1F FF B8 00 00 18
4F 00 00 00 00 0F F8 70 38 00 01 00 1F FF 80 00 00 18
7E 00 00 00 00 3F FF F0 30 00 01 00 7F FF 80 00 00 00
7E 00 00 00 00 FF FF D0 30 00 01 80 7F FF 80 10 00 00
3C 00 00 00 00 FF FE C0 30 00 00 00 3F E7 00 10 00 0C
38 0C 00 00 07 FF FE 00 70 07 F0 00 3F EF 00 10 01 FC
10 1F 00 00 1F FF FE 00 7F 9F F0 00 7F F8 00 1E 07 FC
10 1F 00 00 3F FF FE 00 7F FF C0 0F FF F0 00 1F FF F0
00 3F DF C0 0F FF FE 00 FF FF C3 9F FF F0 00 1F FF FC
00 7F FF 80 1F FF FF C1 FF FF FF C3 FF F0 00 9F FF FC
00 7F F7 98 7F FF E0 00 FF FF FE 01 FF F3 00 BF FF 00
3F FF FF FC 03 FC 00 00 FF FF F0 01 FF FF 87 FF F8 00
7F FF FF FE 01 F0 1F 80 3F FF F0 01 FF E0 07 FF F0 00
7F FF FF F8 01 FF C3 C0 1F FF C0 03 7F FC 1F FF F0 00
18 FF FF F0 01 FF 80 00 0F FF C0 02 7F FE 0F FF F8 38
08 3F FF F0 03 FF C0 00 07 FF C0 00 7F FF EF FF F8 3C
00 3F FF F0 03 C1 C3 80 03 FF F0 00 7F FF FF FF F0 74
80 7F FF E0 03 C3 E7 FF 00 FF F8 00 77 F7 FF FF E0 61
87 FF FF 80 0F 80 01 1F C0 7F F0 00 E0 01 FF FF C0 C3
8F FF FF 80 0F 00 00 00 7F FF 60 00 E0 1F C3 FF C0 87
E7 FF FF 80 1F 00 00 00 1F FE 00 00 00 09 07 FF E1 87
F0 1D FC 80 3B 00 00 00 1F FE 00 00 00 00 07 FF E0 0F
F0 00 FC 00 71 00 00 00 04 FC 00 0C 30 00 3F FF E0 3F
F0 00 DC 01 FE 00 03 0C 1C 3F C0 19 E0 30 0E 03 C0 7F
F8 00 00 01 FC 00 0F 80 03 FB C0 10 80 F0 28 03 80 7F
F8 00 00 01 FC 00 1F C0 03 FB E0 20 00 F0 30 02 00 1F
FC 00 00 00 3F 00 00 00 0F C0 00 00 01 F8 00 00 00 3F
> def
end
#
texturedict begin
/outerloopcnt -1 def
/denimimageloop
{ 0 scaledsize dy
{ /ycur xdf
/outerloopcnt outerloopcnt 1 add def
outerloopcnt 1 and 1 eq
{ /cnt 0 def } { /cnt -1 def } ifelse
0 scaledsize dx
{ /xcur xdf
gsave
xcur ycur translate
incrcnt
cnt 1 and 1 eq
{ 180 rotate
scaledsize neg scaledsize neg translate } if
imagesize imagesize scale
0 0 moveto
(a) show
grestore
} for
} for } def
/denim
<
E6 66 66 66 66 66 66 66 67 F7 E7 E6 3F E6 66 66 24 66
B2 66 66 77 62 22 32 2C 62 F3 27 E6 77 63 33 13 2C F2
F3 F7 67 7F F3 FB 3F 0C F2 93 27 27 77 73 BB BF 9C F6
99 27 26 23 33 33 9B 88 F6 FB E7 67 77 33 3B 9B 8C FE
DB 27 67 77 33 3B 9B 0D F6 99 02 62 32 21 11 91 00 90
FB 23 67 33 33 39 93 08 92 FB E7 E7 7F 73 3B FB 1D F2
B3 27 67 32 33 31 B3 08 80 93 27 23 32 33 11 13 00 00
BB E7 77 3F 33 BB 9B 08 D2 BB 26 23 33 33 B3 B3 09 F2
11 02 22 02 21 11 12 00 00 FB E7 73 3B 33 11 93 09 90
FB E7 77 3F 73 BB BB 1D F6 9B A3 22 33 33 31 93 19 F2
9B 03 22 33 31 11 93 09 92 FB F3 33 3F 33 33 B3 99 F7
B9 A3 33 33 33 11 92 09 F2 19 23 32 13 21 01 00 00 80
B9 E3 33 33 33 11 99 08 B3 BB F3 37 33 33 B9 F9 19 F3
99 A3 33 33 31 11 99 09 F3 9B B3 B7 3B 31 19 99 08 F3
9B F3 B7 3F 3B B9 DB 1D FF 99 B3 33 33 31 19 99 08 F3
BB F3 B3 3B 39 99 99 08 F3 FF F3 FF 3F BB B9 FF 9C F3
9B F3 B7 3F BB B9 DF 9D FB 99 83 93 13 31 99 DB 8C F1
9B F3 B3 3B B1 BD DB 8C F3 DF FF F3 3F B9 FD FF 9C FB
99 F3 B1 19 19 98 D9 8C F3 9D F3 91 19 19 9C D9 8C 79
FF FB FB 9F 99 DC FD 8C FB FF FB FB 9F 99 DD FD CE FB
DD FB BB 9F 99 DC FD CE FB DD FF FB 9F 99 DC FF CE FF
DD FB BB 9F 99 CC FF CE FF DC FB 99 9D 99 CC FD CE F9
FF FF F9 DF DD DC FD CE F9 FF FB F9 DF DD DF FD CE FD
CD F9 D9 DF 9D CD FD CE F9 CD D9 F9 DF 9D CC DD CE FD
DD FD F9 DF DD EC FD CE FF 8C D8 99 8D 9C CC CD C6 FD
0C C8 98 8D 9C CE FC C6 7C CF FD F9 CF DC EE FD CE 7F
CF FD DD CF DC EE FD CE 7F CF FC 89 CC CC 4E 6C C6 3C
EF FD CD CE CE E6 6D C6 3C FF FD FD CF CE E6 7F C6 7F
6F FC CC CC CC E6 7D C6 3C 6F FC CC CE CC 66 6C C6 3C
FF FC FD CF CE E6 7C CE 7C EE FC CD CF CC E6 7C CE 7F
44 6C C8 C6 CC E6 64 C6 3C EE FC ED CF CE E6 74 C6 3C
EF FE FD CF CF E6 7C C7 3F EE FE CC CE CC C6 7C C6 3E
EE FE EC CE CC E6 7C C6 3E EE FC EC EF CC EE 7C CF 7F
CC EC CC E6 CC E6 6C C6 3F 4E EC EC E6 CC E6 64 C6 3C
E7 FC 6C EE CC E6 6C C6 77 46 EE 44 E6 CC E6 7C 46 37
66 6E 4C 66 44 66 6E 46 36 E6 66 66 66 66 66 66 66 67
> def
end
#
texturedict begin
/sand
<
00 18 00 00 00 40 06 00 18 C0 00 00 60 00 00 00 00 00
C0 00 00 20 00 00 00 00 00 00 00 00 00 06 00 60 00 00
00 00 00 00 00 00 60 40 00 00 40 0C 02 00 00 00 60 00
00 40 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 C0 00 00 00 00 00 18 00 00 00
00 00 80 00 00 18 00 00 00 04 00 C0 00 00 00 04 00 00
06 00 00 38 0C 00 06 00 00 00 00 00 38 0C 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 00
00 00 00 00 00 01 00 03 00 00 00 00 00 00 00 00 00 06
00 00 06 00 00 00 00 00 07 10 0C 04 00 00 00 00 C0 00
10 08 00 01 80 00 00 80 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 C0 00 00 00 00 00 00 00 00 C0 00 00 00
00 00 00 00 00 00 60 00 C0 00 00 60 30 00 00 00 00 C0
00 C0 00 30 00 00 00 00 00 C0 00 00 00 10 00 00 C0 00
80 00 00 00 10 00 00 C0 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 06 00 00 01 00 00 00 00 00 00 00 00 01
00 00 60 20 00 00 00 03 81 00 60 60 30 00 00 00 03 80
40 20 00 00 1C 00 00 00 00 60 00 00 00 18 00 07 00 00
00 00 00 00 00 00 02 00 00 00 00 00 00 00 06 00 00 00
00 00 00 00 00 02 00 00 00 00 00 60 30 00 00 00 00 00
00 C0 60 10 00 00 00 00 60 00 C0 00 00 0C 00 00 00 70
00 00 00 00 0C 00 01 80 00 00 00 00 00 00 00 01 80 00
00 00 00 00 00 00 00 00 00 00 00 0C 00 00 06 00 00 00
20 00 1C 08 00 00 00 00 04 30 00 18 0C 00 00 00 00 06
00 30 00 00 00 00 00 10 00 00 20 00 00 06 00 00 10 00
00 00 00 00 00 00 10 00 00 60 00 00 00 00 00 10 00 00
00 00 00 00 00 00 00 00 00 00 00 01 80 00 00 00 00 00
00 01 01 80 00 30 00 00 80 00 03 80 03 00 00 00 00 C0
00 00 00 00 00 00 00 00 00 03 00 00 00 00 00 01 80 00
03 00 00 00 0C 00 00 00 00 00 00 00 00 0C 00 00 00 00
00 00 00 00 00 00 00 00 00 80 00 06 00 00 03 00 00 0C
00 00 06 00 00 03 00 08 0C 00 04 00 00 00 00 00 0C 00
00 06 00 06 00 00 00 00 00 00 00 00 00 00 00 08 00 00
00 00 00 00 04 00 0C 00 00 01 80 00 00 06 00 00 00 00
00 00 00 00 00 06 00 00 40 00 00 01 00 00 07 00 00 20
00 00 03 80 00 00 00 60 00 00 03 00 00 00 00 00 20 00
> def
end
#
texturedict begin
/coarse-gravel
<
00 00 00 00 60 00 70 00 00 00 00 3F 00 20 00 70 00 00
80 00 FF F0 00 00 20 00 0C C0 03 F1 FC 01 80 00 06 04
00 07 80 3F 03 C0 00 06 00 0E 0F 00 0F C0 00 00 03 00
04 0F 00 03 C0 00 00 00 00 04 0E 00 01 E0 00 00 00 03
00 1E 00 01 E0 00 0F 00 01 00 3E 00 01 E0 00 3F E0 00
00 7C 00 FF E0 C0 7F F0 00 00 F8 01 FF C0 80 F0 F8 00
00 F0 07 FF 80 00 E0 3C 00 01 C0 0F C0 00 01 E0 1E 00
01 E0 3F 00 00 01 C0 0E 08 00 F0 7C 00 00 01 C0 0E 18
00 7F F8 00 00 01 C0 0E 08 00 3F E0 00 00 00 C0 07 18
00 0F C0 00 00 00 E0 07 00 1C 00 00 1C 00 40 78 03 00
0C 00 00 1C 00 60 3E 03 00 00 00 00 1C 00 F0 1F 87 80
00 00 00 0C 00 20 07 CF 80 00 00 00 00 00 00 07 FF 80
00 20 00 00 00 00 01 FF 00 00 30 00 07 E0 00 00 FC 00
00 00 00 1F F0 00 00 00 00 00 00 00 3F F8 00 00 00 00
E0 00 00 FC 3C 00 00 00 03 60 00 01 F0 1C 00 08 00 03
00 00 03 E0 1C 00 18 00 00 00 00 0F C0 1E 00 38 01 80
00 00 1F 00 1E 00 00 03 80 00 00 3E 00 1E 00 00 00 00
08 00 3C 00 1E 00 00 00 00 1C 00 78 00 1C 00 00 00 00
10 00 78 00 3C 00 00 00 00 00 00 F0 00 3C 00 00 00 00
00 00 F0 00 38 02 00 00 00 00 01 E0 00 38 06 00 F0 00
00 01 E0 00 38 04 03 FC 08 00 01 E0 00 38 00 0F 9E 18
00 C0 E0 00 38 00 1E 06 00 00 E0 E0 00 38 00 38 06 00
00 C0 F0 00 3C 00 78 0E 00 00 00 F0 00 3C 00 E0 1C 00
20 00 78 00 1F 01 C0 38 00 60 00 78 00 0F 01 80 70 00
40 00 3C 00 07 01 C0 E0 00 00 00 3C 00 07 00 C0 C0 04
00 00 0F 00 07 00 E0 C0 0E 00 00 07 80 07 00 70 C0 04
00 00 03 FE 07 00 70 C0 00 00 00 01 FF 87 00 30 C0 00
03 80 00 7F FF 00 70 E0 00 07 C0 00 00 FF 00 60 70 00
0E F0 00 00 1F 00 E0 38 00 1C 7C 00 00 0E 00 C0 18 00
18 3F 00 00 00 00 70 1C 00 30 0F 80 10 00 00 78 1C 00
38 07 E0 18 00 00 3C 38 00 38 01 F0 38 00 00 1F F0 00
1C 00 70 10 00 00 0F E0 00 1E 00 30 00 00 00 00 01 00
0F 00 70 00 00 00 00 00 00 07 81 E0 00 00 20 00 00 60
01 E7 C0 00 00 60 00 01 E0 00 FF 00 01 80 70 06 00 60
60 3C 00 03 00 30 04 00 00 20 00 00 03 80 00 00 04 00
00 00 18 00 00 00 00 06 00 00 00 30 00 00 00 00 04 00
> def
end
#
texturedict begin
/fine-gravel
<
00 00 00 00 00 00 00 00 80 00 00 00 00 20 00 00 00 00
00 00 0C 00 00 10 00 20 00 08 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80
08 00 00 00 00 00 40 00 00 08 00 00 00 00 00 00 00 00
00 00 60 04 00 00 00 08 00 00 00 00 00 00 00 00 00 02
00 00 00 00 00 00 00 00 03 00 00 00 00 20 00 00 00 00
00 00 00 00 00 00 00 00 00 80 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 F0 00 02 00 40 00 00 00 00 00 00 03 80 00 40 00
00 00 00 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 04 00
00 00 00 08 00 00 00 0F 00 00 00 00 00 00 00 00 86 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 20 00 1E 00 00 00 00 00 00 00
00 0E 00 00 20 00 00 00 00 00 00 00 00 00 00 04 00 00
00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 30 00 20 00 00 1C 00 00 00 00 00 00 00 40 3C
00 10 00 00 00 00 00 00 3C 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
30 00 40 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00
00 00 00 00 00 02 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 E0 00 00 00 00 00
00 00 80 E0 80 00 10 00 00 00 00 00 E0 00 40 00 08 00
00 00 00 00 00 00 00 00 00 10 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 03 00 00 10 00 00 00 00 00 00
> def
end
#
texturedict begin
/light-mezzo
<> def
/heavy-mezzo
<> def
/mezzo
<
FF 00 FF 00 FF 00 FF 00 FF 9E 7E 1F A8 FF E1 FD F1 C7
DC FC 3F F8 FF F8 FD FB 83 FC 78 7F F0 F0 F8 FC FF FF
FF F0 7F F0 F0 78 7D 9F FF BF FC F1 F1 E0 7F 3F DF 87
8F FF E1 F1 E7 FF 3F CF 07 E3 FF EF 73 C7 FF 1F 80 1F
60 1F E7 03 C3 FE 1F 00 FE 70 07 E7 83 81 F8 1F 01 FC
70 03 CF 83 C1 F0 7F 3F F8 7F 83 FF E7 C1 E3 FE 7F FC
3F C7 FF FF E0 E7 FE 7F DE 1F FF C3 FF F0 EF FE 7F 0E
3F FF 87 FF F8 FE 7E 7E 06 79 FF EE 7E 7C FC 3F FC 06
F0 FC CC 3C 1E FE 3F FC 07 E0 61 CE 08 0E 7F 1F FC FF
E0 01 DF 81 E4 7F 1F FF FF E7 83 FF C3 F0 7E 1F FF FF
E7 E3 FF C7 F0 7C 3F 8F FF E7 FF FF FF FF FC 7F 8F FF
E7 FF E3 FF FF F9 FF 8F F9 F7 FF C1 FE FF E3 FF 8F C1
3F 9F C1 FC FE 07 E3 1F C0 3E 0F C1 F9 FC 1F E0 3F E0
7E 07 F1 F1 F0 1F E0 FF F8 7C 0F F9 F1 E0 1F F1 FF FE
7C CF FF F0 F0 3F FF F3 7E 7C EF FF F0 F8 78 FF F0 3E
3F E0 3F E0 7F F8 7F FC 3E 3F F0 1F 80 7F F0 7F FE 3C
9F F8 7F 8F FF F0 7C FF 79 8F FF FF 9F FF F0 78 7F F9
87 FF F3 FF C1 F0 F8 7F F1 9F FF E1 FF E1 FB FC 7F F9
FF 83 E0 FF F7 FF FF FF FF FF 01 E0 FF FF FF FF FF FF
F7 39 E0 F8 FF FF 8F F7 FF E3 79 E0 F8 FE 1F 07 F3 DF
63 3B E1 F8 7C 1E 37 FB C6 43 BF F1 FC 78 0F F7 FF 80
43 FF F0 FC 78 1F F3 FF 80 63 FF FD FE 78 7F F8 7F 80
60 FF BF FE 78 FF F8 7F 80 20 3F 0F FF F8 FF F8 7F F0
00 3E 07 FF F8 FC 3C FF FE 03 FE 07 FF FD FC 1F FB FE
FF FC 07 FE 5F FE 1F F0 7F FF FC 0F CE 0F FF 9F E0 3F
FF FE 1F 8F 1F FF FF E0 7F FF 7F 3F 87 1F E3 FF F0 7F
FF 1F FF 8F 9F C1 E1 F3 F9 CF 8F FF 0F 9F 03 F0 7F F9
87 87 FF 0F FC 07 F8 7F F9 87 CF FF 0F F8 1F F8 7F F9
07 CF 9F FF F8 7F FC 7F FC 0F FF 8F FF F8 FF FF FE 3E
7F FE C3 FF FC F8 FF FC 1C 7F 78 E1 FF FF F8 7F FC 0C
7F 20 E0 FF FF FC 7F FE 0E 1F 00 F9 F8 FF FC 7F FF 0E
1F 81 FF F8 06 FC 20 3F FE 1F FF FF F8 00 FE 00 3F FC
FF FF FF F0 73 FF 80 3F FD FF FF 7F E0 FF FF FC 3B F9
FF FC 77 C1 FF CF FE 30 F9 F3 F8 F3 C7 C3 CF FF F8 79
D3 C3 F9 FF 87 E0 7F FE 3D 83 CF F9 FE 07 E0 C7 FE 1F
C3 9F FD F0 7F E7 E3 FC 3F FF 00 FF 00 FF 00 FF 00 FF
> def
end
#
texturedict begin
/med-mezzo
<
00 3F 00 3F 00 FC 00 FC 00 13 0D C7 E2 01 E0 18 64 66
33 80 01 E0 30 43 18 00 F2 70 00 00 E0 78 03 88 11 F0
30 03 80 C3 FC 03 8F 1F 80 10 01 E1 C7 CE C1 83 1F 02
01 E0 E3 87 07 F1 83 8E 06 07 F0 73 07 00 31 87 06 06
7F F0 73 0E 00 13 0E 00 C2 47 00 F1 84 30 0F 00 00 E0
86 01 F1 80 70 07 80 C0 F1 86 01 E1 C1 F1 87 03 83 E1
E3 C1 C3 C7 E3 80 07 07 C1 F3 E3 87 87 C3 80 07 0F 87
B0 E3 07 08 07 00 4E 0F 07 80 63 03 98 0E 20 7C 07 07
00 60 00 F8 0C 30 70 40 04 01 E0 18 1F C4 3E 01 E0 02
47 C0 F8 03 C6 3F 03 E0 E2 47 EF EC 01 C7 0F 87 C3 E2
46 30 84 40 C7 80 87 C3 C2 06 00 07 F0 0F 80 C3 81 C6
07 00 07 E0 0F 00 E0 00 C2 07 87 C0 00 00 18 E0 10 E0
01 C7 F0 06 00 18 E0 10 60 60 47 D8 3F 00 38 02 10 00
F0 60 0C 7F 01 F8 0F 00 07 B8 60 0C 7F 39 E0 0F 01 07
8E 30 0C E3 F8 E0 0F 1F 87 83 38 0C 60 78 E1 80 3F EF
C1 18 CC 70 00 E3 C0 3E 79 C1 80 FC 30 00 43 C2 3C 01
43 80 78 30 00 03 C7 08 00 07 00 30 F0 8C 01 C7 00 00
0C 18 01 E0 78 01 C0 00 00 1C 3C 00 00 20 60 00 7F 18
1C 1C 70 06 00 F0 00 73 FC 1E 0C F0 0F 01 F8 38 71 FC
1F 8C E0 8F 81 FE 7C 78 5C 1F EC 43 DF E1 8F 9C 78 1C
8F 78 43 7C 01 8C 0E 38 1D 80 70 44 10 01 80 1C 08 51
E0 70 EE 00 03 80 F8 01 81 E0 70 FC 03 87 80 F0 01 87
E0 38 E0 07 C7 18 F0 03 87 86 30 00 C6 60 38 C0 C3 87
0E 00 00 F6 20 3C 00 E1 82 1E 02 18 FC 30 FC 01 E1 80
1E 07 F8 38 30 F8 11 FF 1C 0F 07 F8 00 30 00 39 FF 04
07 C0 18 00 20 00 38 03 06 03 E0 00 E0 30 06 18 01 00
31 F0 00 FE 3C 7E 18 01 18 30 F1 80 70 3E 7F 98 0F 38
1C F1 C0 00 0E 0F F0 0F 3C 18 C0 C6 00 0E 01 E0 07 FC
88 00 C7 0F 0E 00 47 03 C5 80 00 0F 0F 8E 38 0F 80 01
84 00 0F 83 8C 3C 0F 98 01 9C 38 0F C3 80 38 0D FC 1D
BE 38 1F E1 80 38 88 1C 67 FE 38 FF 80 00 39 C0 0C C3
6E 38 F0 00 3F F3 80 0D C0 40 78 C0 0C 3F C3 07 0D 00
00 78 C0 1E 1C 03 9F C6 1C 00 00 61 0F 00 01 FC C6 1C
30 00 30 07 00 60 F0 E2 06 38 80 38 00 00 78 01 E2 82
79 E0 38 10 00 3C 01 C3 C6 71 E3 F1 FC 3C 1F C3 8B E6
11 87 B1 CE 3E 18 E0 1B E0 00 3F 00 3F 00 FC 00 FC 00
> def
end
#
texturedict begin
/coquille
<
00 00 00 00 01 E0 00 00 00 00 03 80 00 00 70 00 00 00
00 07 E0 00 00 3E 00 00 00 00 1F F8 00 00 1F 80 00 00
00 7E 3E 00 00 07 80 00 00 01 FC 04 00 00 03 C0 00 00
03 E0 00 00 00 01 E0 00 00 0E 00 00 00 00 00 40 00 00
38 00 00 00 00 00 00 00 00 F0 00 00 00 00 00 00 00 00
F0 00 00 1F 80 00 00 00 0E F0 00 01 FF 80 00 03 00 06
F8 00 00 63 C0 00 03 80 00 F0 00 00 00 60 00 03 80 00
00 00 00 00 30 00 01 80 00 00 00 00 00 0C 00 01 80 00
00 00 00 00 03 E0 01 80 00 00 00 00 00 01 F0 00 80 00
00 00 00 00 00 F0 00 C0 00 00 00 00 00 00 F0 00 70 00
00 00 00 00 00 F0 00 38 00 03 E0 00 00 00 E0 00 1C 00
01 F0 00 00 00 00 00 0C 00 00 E0 1C 00 00 00 00 1F 00
00 C0 1F 00 00 00 00 1F F0 00 00 0F 80 00 00 00 30 7C
00 00 07 80 00 00 00 60 1C 00 00 00 00 00 00 00 C0 0C
00 00 00 00 00 00 00 80 04 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 1A 00 00 00 00 00 00 00 00 3E 00 00 00 00
00 00 00 00 3C 00 00 00 00 00 00 00 00 7C 00 00 00 00
00 00 00 00 7C 00 00 00 00 00 00 C0 00 FE 00 00 00 00
3F FB C0 01 FF 80 00 00 00 01 FF E0 00 0F F0 00 00 00
00 3F F0 00 00 0F F0 00 00 00 07 FF 00 00 03 F0 00 00
00 01 FC 00 00 01 F0 1F C0 00 00 78 00 00 00 F0 1F E0
00 00 70 00 00 00 E0 03 E0 00 00 78 00 00 00 E0 01 E0
00 00 78 00 00 00 C0 01 E0 00 00 38 00 00 00 C0 00 E0
00 00 0C 00 00 00 00 00 00 00 00 02 00 00 00 00 00 00
00 00 01 00 00 00 00 00 00 00 00 00 40 00 00 00 00 00
00 00 00 77 00 00 00 00 00 80 00 00 3F C0 00 00 00 00
F0 00 00 01 F8 00 00 00 00 3F 00 00 00 1C 00 00 00 00
0F 80 00 00 00 00 00 00 00 07 80 00 00 00 00 00 00 00
03 80 00 00 00 00 00 1C 00 01 80 00 00 00 00 00 3E 00
00 80 00 00 00 00 00 78 00 00 80 00 00 00 00 07 F0 00
00 C0 00 1E 00 00 3F F0 00 00 F0 00 3F E0 00 7F F0 00
00 FF 00 FF F0 00 7F 30 00 00 FF FF C0 00 00 70 00 00
00 01 78 00 00 00 C0 00 00 00 00 00 00 00 01 80 00 00
00 00 00 00 00 03 80 00 00 00 00 00 00 00 3F 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
> def
end
#
ropedict begin
/arrow
{ cnt 0 eq
{ q blw w stroke Q [0 0 0 0] vc } if incrcnt
blocksetup -.4 0 m .15 .4 L 0 0 L
.15 -.4 L blockend .2 0 m .2 .2 .25 .4 .35 .4 C
.45 .4 .5 .2 .5 0 C .5 -.2 .45 -.4 .35 -.4 C
.25 -.4 .2 -.2 .2 0 C blockend .1 0 m .2 .1 L
.2 -.1 L blockfinish} def
end
#
ropedict begin
/braid
{ cnt 0 eq
{ q blw w stroke Q [0 0 0 0] vc } if incrcnt
blocksetup .5 .1 m .47 .24 L .4 .36 L
.3 .44 L .2 .4 L .1 .34 L 0 .2 L
-.16 -.08 L -.25 -.2 L -.35 -.24 L
-.43 -.2 L -.5 -.1 L -.47 -.24 L -.4 -.36 L
-.3 -.44 L -.2 -.4 L -.1 -.34 L 0 -.2 L
.16 .08 L .25 .2 L .35 .24 L .43 .2 L
blockfinish } def
end
#
ropedict begin
/crepe
{ blocksetup -.5 .01 m -.35 .03 L -.2 .12 L
.03 .33 L .15 .37 L .22 .32 L .38 .08 L
.44 .04 L .5 .01 L .5 -.01 m .35 -.03 L
.2 -.12 L -.03 -.33 L -.15 -.37 L -.22 -.32 L
-.38 -.08 L -.44 -.04 L -.5 -.01 L blockfinish } def
end
#
ropedict begin
/snowflake
{ blocksetup -.45 .5 m -.35 .3 L -.4 .25 L
blockend -.35 .5 m -.15 .5 L -.25 .4 L
blockend .15 .5 m .35 .5 L .25 .4 L blockend
.45 .5 m .45 .25 L .35 .3 L blockend
.45 -.25 m .45 -.5 L .35 -.3 L blockend
.35 -.5 m .15 -.5 L .25 -.4 L blockend
-.15 -.5 m -.35 -.5 L -.25 -.4 L blockend
-.45 -.5 m -.45 -.25 L -.35 -.3 L blockend
0 .45 m .1 .35 L 0 .25 L -.1 .35 L blockend
0 .08 m .15 .25 L .28 .08 L .25 .05 L
-.25 .05 L -.28 .08 L -.15 .25 L blockend
0 -.08 m -.15 -.25 L -.28 -.08 L -.25 -.05 L
.25 -.05 L .28 -.08 L .15 -.25 L blockend
0 -.25 m .1 -.35 L 0 -.45 L -.1 -.35 L
blockfinish } def
end
#
ropedict begin
/teeth
{ blocksetup -.5 -.28 m .5 -.28 L .5 -.3 L
-.5 -.3 L blockend -.5 0 m -.35 .08 L
-.27 .17 L -.25 .25 L -.25 .5 L .25 .5 L
.25 .25 L .27 .17 L .35 .08 L .5 0 L
blockfinish } def
end
#
ropedict begin
/twowaves
{ blocksetup
-.5 .33 m 0 .13 L .5 .33 L
.5 .3 L 0 .1 L -.5 .3 L blockend
-.5 -.1 m 0 -.3 L .5 -.1 L
.5 -.13 L 0 -.33 L -.5 -.13 L closepath fill
Q } def
end
#
ropedict begin
/threewaves
{ blocksetup -.5 .38 m 0 .23 L .5 .38 L
.5 .35 L 0 .2 L -.5 .35 L blockend
-.5 .08 m 0 -.07 L .5 .08 L .5 .05 L
0 -.1 L -.5 .05 L blockend -.5 -.25 m
0 -.4 L .5 -.25 L .5 -.28 L 0 -.43 L
-.5 -.28 L blockfinish } def
end
#
ropedict begin
/wedge
{ blocksetup
.5 .5 m 0 -1 rlineto -1 .5 rlineto blockfinish } def
end
#
ropedict begin
/star
{ blocksetup 0 .5 m .3 -.4 L -.47 .15 L
.47 .15 L -.3 -.4 L blockfinish } def
end
#
ropedict begin
/cartographer
{ blocksetup -.5 .4 m -.5 .5 L .5 .5 L .5 0 L
0 0 L 0 -.4 L .5 -.4 L .5 -.5 L -.5 -.5 L
-.5 0 L 0 0 L 0 .4 L blockfinish } def
end
#
ropedict begin
/checker
{ blocksetup -.5 0 m -.5 .5 L 0 .5 L 0 0 L
.5 0 L .5 -.5 L 0 -.5 L 0 0 L blockfinish } def
end
#
ropedict begin
/dot
{ blocksetup 0 0 .5 0 360 arc fill Q } def
end
#
ropedict begin
/diamond
{ blocksetup -.5 0 m .5 .5 rlineto .5 -.5 rlineto
-.5 -.5 rlineto blockfinish } def
end
#
ropedict begin
/right-diagonal
{ blocksetup -.5 -.5 m -.25 .5 L .5 .5 L
.25 -.5 L blockfinish } def
end
#
ropedict begin
/left-diagonal
{ blocksetup -.25 -.5 m -.5 .5 L .25 .5 L
.5 -.5 L blockfinish } def
end
#
ropedict begin
/rect
{ blocksetup .5 .5 m 0 -1 rlineto -1 0 rlineto
0 1 rlineto blockfinish } def
end
#
ropedict begin
/ball
{ q .05 w n translate rotate
scale 0 0 0.5 0 360 arc -.5 0 m
-.4 .4 .4 .4 .5 0 C .4 -.4 -.4 -.4 -.5 0
C .5 0 L stroke n Q } def
end
#
ropedict begin
/squiggle
{ q .05 w n translate rotate
scale -.5 0 m .25 0 .75 .5 0 .5 C
-.75 0.5 .75 -.5 0 -.5 C -.75 -.5 -.25 0 .5 0.0
C stroke n Q } def
end
#
ropedict begin
/swirl
{ blocksetup -.5 0 m .25 0 .75 .5 0 .5 C
-.75 .5 .75 -.5 0 -.5 C -.75 -.5 -.25 0 .5 0 C
-.25 0 -.75 .5 0 0.5 C .75 .5 -.75 -.5 0 -.5 C
.75 -.5 .25 0 0 0 C fill Q } def
end
#
ropedict begin
/zigzag
{ q .05 w n translate rotate
scale -.5 0 m 0 .5 L 0 -.5 L .5 0 L
stroke Q } def
end
#
ropedict begin
/roman
{ q .05 w n translate rotate
scale -.5 0 m -.5 .4 L .3 .4 L
.3 -.25 L -.1 -.25 L -.1 0 L .1 0 L
.1 .25 L -.3 .25 L -.3 -.4 L .5 -.4 L
.5 0 L stroke Q } def
end
#
ropedict begin
/heart
{ blocksetup 0 -.5 m -.42 -0.1 L
-.52 0 -.52 .2 -.42 .3 C -.3 .4 -.1 .4 0 .2 C
.1 .4 .3 .4 .42 .3 C .52 .2 .52 0 .42 -.1 C
blockfinish } def
end
#
{currentfile fhimbuf1 readhexstring pop}
#
{currentfile fhimbuf1 readstring pop}
#
{currentfile fhimbuf1 readhexstring pop}
{currentfile fhimbuf2 readhexstring pop}
{currentfile fhimbuf3 readhexstring pop}
#
{currentfile fhimbuf1 readstring pop}
{currentfile fhimbuf2 readstring pop}
{currentfile fhimbuf3 readstring pop}
#
{currentfile fhimbuf1 readhexstring pop}
{currentfile fhimbuf2 readhexstring pop}
{currentfile fhimbuf3 readhexstring pop}
{currentfile fhimbuf4 readhexstring pop}
#
{currentfile fhimbuf1 readstring pop}
{currentfile fhimbuf2 readstring pop}
{currentfile fhimbuf3 readstring pop}
{currentfile fhimbuf4 readstring pop}
#
/fhimbuf1 ^0 string def
^1 ^2 ^3 ^4 ^5
#
separationimage
#
/fhimbuf1 ^0 string def
^1 ^2 ^3 ^4 ^5
#
image
#
^A vc
/fhimbuf1 ^0 string def
^1 ^2 ^C ^4 ^5
#
imagemask
#
/fhimbuf1 ^0 string def
/fhimbuf2 ^0 string def
/fhimbuf3 ^0 string def
/fhimbuf4 ^0 string def
^1 ^2 ^3 ^4 ^5 ^B ^6
#
colorimage
#
/fhimbuf1 ^0 string def
^1 ^2 ^3 ^4 ^5 [^8 (^9)]
#
customcolorimage
#
%%BeginBinary: ^7
#
%%EndBinary
#
ImMatrix currentmatrix pop
origmtx setmatrix
%ALDImageFileName: ^Z
%ALDImageDimensions: ^1 ^2
%ALDImageCropRect: ^3 ^4 ^5 ^6
%ALDImagePosition: ^7
%ALDImageResolution: ^A ^B
%ALDImageColor: ^C (^D)
%ALDImageType: ^E ^F
%ALDImageTransparency: ^G
%%BeginObject: image
ImMatrix setmatrix
#
%%EndObject
#
[0 0 0 0] vc ^0 ^1 ^2 ^3 rectfill
#
AltsysDict begin
^0 eomode
^2 vc
{^1}stopped pop
end
#
AltsysDict begin
{^1 <^0> pS}stopped pop
end
#
AltsysDict begin
^2 eomode
{^1 <^0> pF}stopped pop
end
#
/fhtiledict ^0 dict def
#
fhtiledict begin
10 dict
begin
/PatternType 1 def
/PaintType 1 def
/Multi 1 def
/TilingType 1 def
/BBox [0 0 ^1 ^2] def
/XStep ^1 def
/YStep ^2 def
/PaintProc {
pop
AltsysDict begin
save
^3 neg ^4 neg translate
#
(
#
) cvx exec
#
restore
end
}bdf
currentdict
end
/tile^0 xdf
end
#
fhtiledict /tile^0 get
^5 PATmp PATsp
/clipper load /eoclip load eq PATfill
#
setcolorscreen
#
initmatrix newpath initclip
1 setlinewidth 0 setlinecap 0 setlinejoin
[] 0 setdash 0 setgray 10 setmiterlimit
#
MacVec 256 array copy
#
dup ^0 /^1 put
#
^0 /^1 def
#
md begin BDFontDict begin userdict begin
#
end end end
#
/f^1 /|______^0 dup RF findfont def
#
%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 72 72
/BogusEPSDict 1 dict def
BogusEPSDict /EPSError false put
/_VrtSaveObj1 save def
/CheckerDict 50 dict def
CheckerDict begin
/_VrtDictCount countdictstack def
/_VrtOperandCount count 1 sub def
/_VrtsaveCnt 0 def
/_VrtgsaveCnt 0 def
/_VrtdidRestore 0 def
/_VrtbadSaveCnt 0 def
/_VrtbadGSAVECnt 0 def
/save
{CheckerDict /_VrtsaveCnt _VrtsaveCnt 1 add put save} bind def
/restore
{_VrtsaveCnt 1 ge
{
BogusEPSDict /EPSError get exch
restore
BogusEPSDict /EPSError 3 -1 roll put
CheckerDict /_VrtsaveCnt _VrtsaveCnt 1 sub put /_VrtdidRestore 1 def}
{CheckerDict /_VrtbadSaveCnt 1 put pop (in PS from user) errordict /invalidrestore get exec}
ifelse
} bind def
/gsave
{CheckerDict /_VrtgsaveCnt _VrtgsaveCnt 1 add put gsave} bind def
/grestore
{_VrtgsaveCnt 1 ge
{grestore CheckerDict /_VrtgsaveCnt _VrtgsaveCnt 1 sub put}
{CheckerDict /_VrtbadGSAVECnt 1 put}
ifelse
} bind def
/makeSyntaxError {errordict /syntaxerror get exec} def
/initgraphics {(initgraphics operator should not be called in User PS)
makeSyntaxError} def
/banddevice {(banddevice operator should not be called in User PS)
makeSyntaxError} def
/clear {(clear operator should not be called in User PS)
makeSyntaxError} def
/cleardictstack {(cleardictstack operator should not be called in User PS)
makeSyntaxError} def
/copypage {(copypage operator should not be called in User PS)
makeSyntaxError} def
/erasepage {(erasepage operator should not be called in User PS)
makeSyntaxError} def
/exitserver {(exitserver operator should not be called in User PS)
makeSyntaxError} def
/framedevice {(framedevice operator should not be called in User PS)
makeSyntaxError} def
/grestoreall {(grestoreall operator should not be called in User PS)
makeSyntaxError} def
/initclip {(initclip operator should not be called in User PS)
makeSyntaxError} def
/initmatrix {(initmatrix operator should not be called in User PS)
makeSyntaxError} def
/quit {(quit operator should not be called in User PS)
makeSyntaxError} def
/renderbands {(renderbands operator should not be called in User PS)
makeSyntaxError} def
/setglobal {pop (setglobal operator should not be called in User PS)
makeSyntaxError} def
/setpagedevice {pop (setpagedevice operator should not be called in User PS)
makeSyntaxError} def
/setpagedevice {pop (setpagedevice operator should not be called in User PS)
makeSyntaxError} def
/startjob {pop pop (startjob operator should not be called in User PS)
makeSyntaxError} def
#
count _VrtOperandCount ne {
count _VrtOperandCount sub {pop} repeat
(operand stack was not returned to original state in User PS)
makeSyntaxError
} if
_VrtDictCount countdictstack ne {
countdictstack _VrtDictCount sub {end} repeat
(dictionary stack were not returned to original state in User PS)
makeSyntaxError
} if
_VrtbadSaveCnt 0 gt
{(too many restore calls in User PS) makeSyntaxError} if
_VrtbadGSAVECnt 0 gt
{(too many grestore calls in User PS) makeSyntaxError} if
_VrtdidRestore 0 eq {
_VrtsaveCnt 0 gt
{(missing restore call(s) in User PS) makeSyntaxError} if
_VrtgsaveCnt 0 gt
{(missing grestore call(s) in User PS) makeSyntaxError} if
} if
BogusEPSDict /EPSError get
_VrtSaveObj2 systemdict /restore get exec
BogusEPSDict /EPSError 3 -1 roll put
end
BogusEPSDict /EPSError get
_VrtSaveObj1 restore
BogusEPSDict /EPSError 3 -1 roll put
#
/image{_image}bind def
/_colorimage defed { /colorimage { _colorimage } bind def } if
#
-90 rotate ^4 neg 0 translate
#
/makepattern defed /xt xdf
xt not {/yt save def} if
/PATmp{
exch dup length 3 add dict copy
begin
currentdict /Multi known not {/Multi 1 def} if
Multi 1 ne {
/UserProc /PaintProc load def
/PaintProc {
begin
0 1 Multi 1 sub {
PaintColors 1 index get PATsc
PaintData exch get
gsave currentdict UserProc grestore
}for
end
} bdf
} if
currentdict
end
exch makepattern
}bdf
/PATsp{
dup /PaintType get 2 eq
{
exch aload length 4 eq
{5 -1 roll}
{spots exch get 0 4 getinterval aload pop
4 {4 index mul 4 1 roll} repeat 6 -2 roll pop}ifelse
[/Pattern /DeviceCMYK] setcolorspace
}if
setpattern
}bdf
/PATfill{{{eofill}fp}{{fill}fp}ifelse}bdf
/PATprestroke{}bdf
/PATstroke{stroke}bdf
xt not {yt restore} if
xt {/yt save def} if
/PATtcalc{
gsave
exch concat
matrix currentmatrix exch
2 ne {
dup 4 get exch dup 5 get exch
XStep 0 dtransform round exch round exch
XStep div exch XStep div exch
0 YStep dtransform round exch round exch
YStep div exch YStep div exch
7 -3 roll astore
} if
grestore
}bdf
/PATmp{
exch
dup
length 8 add
dict copy
begin
TilingType PATtcalc
/PATcurrentMtx xdf
currentdict /Multi known not {/Multi 1 def} if
/FontType 3 def
/Encoding 256 array def
3 string 0 1 255
{Encoding exch dup 3 index cvs cvn put} for pop
/FontMatrix matrix def
/FontBBox BBox def
/BuildChar {
mark 3 1 roll
exch begin
Multi 1 ne {PaintData exch get}{pop}ifelse
PaintType 2 eq Multi 1 ne or
{XStep 0 FontBBox aload pop setcachedevice}
{XStep 0 setcharwidth}ifelse
currentdict
/PaintProc load
end
gsave exec grestore
cleartomark
}bdf
currentdict
end
/foo exch
definefont
}bdf
/PATsp{
/PATcurrent xdf
PATcurrent /PaintType get 2 eq
{/PATcolor xdf}if
}bdf
/PATpcalc{
PATcurrent begin
gsave
PATcurrentMtx setmatrix
BBox aload pop pop pop translate
pathbbox
grestore
YStep div ceiling 4 1 roll
XStep div ceiling 4 1 roll
YStep div floor 4 1 roll
XStep div floor 4 1 roll
2 index sub cvi abs
exch 3 index sub cvi abs exch
4 2 roll
YStep mul exch XStep mul exch
end
}bdf
/PATfill{
{{eoclip}fp}{{clip}fp}ifelse
PATpcalc
newpath
PATcurrent dup begin
setfont
PATcurrentMtx setmatrix
PaintType 2 eq {PATcolor vc} if
3 index string
0 1 Multi 1 sub {
3 index 3 index moveto
Multi 1 ne {dup PaintColors exch get vc} if
0 1 7 index 1 sub {
2 index
exch
2 index put
} for
pop
3 index
{
currentpoint
2 index show
YStep add moveto
}repeat
}for
5 {pop} repeat
end
}bdf
/PATprestroke{strokepath}bdf
/PATstroke{false PATfill}bdf
xt {yt restore} if
#
/showpage {(showpage operator should not be called in User PS)
makeSyntaxError} def
#
/_VrtSaveObj2 save def
/_VrtsaveCnt 0 def
#
exch pop setpageparams
#