/tgifdict 132 dict def
tgifdict begin
/tgif_min_radius
{
} bind def
/tgifellipsedict 6 dict def
tgifellipsedict /mtrx matrix put
/tgifellipse
{ tgifellipsedict begin
/yrad exch def
/xrad exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y translate
xrad yrad scale
0 0 1 0 360 arc
savematrix setmatrix
end
} def
/tgifarrowtipdict 8 dict def
tgifarrowtipdict /mtrx matrix put
/tgifarrowtip
{ tgifarrowtipdict begin
/dy exch def
/dx exch def
/h exch def
/w exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y translate
dy dx atan rotate
0 0 moveto
w neg h lineto
w neg h neg lineto
savematrix setmatrix
end
} def
/tgifarcdict 8 dict def
tgifarcdict /mtrx matrix put
/tgifarcn
{ tgifarcdict begin
/endangle exch def
/startangle exch def
/yrad exch def
/xrad exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y translate
xrad yrad scale
0 0 1 startangle endangle arc
savematrix setmatrix
end
} def
/tgifarc
{ tgifarcdict begin
/endangle exch def
/startangle exch def
/yrad exch def
/xrad exch def
/y exch def
/x exch def
/savematrix mtrx currentmatrix def
x y translate
xrad yrad scale
0 0 1 startangle endangle arcn
savematrix setmatrix
end
} def
/tgifsetuserscreendict 22 dict def
tgifsetuserscreendict begin
/tempctm matrix def
/temprot matrix def
/tempscale matrix def
/concatprocs
{ /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
} def
/resmatrix matrix def
/findresolution
{ 72 0 resmatrix defaultmatrix dtransform
/yres exch def /xres exch def
xres dup mul yres dup mul add sqrt
} def
end
/tgifsetuserscreen
{ tgifsetuserscreendict begin
/spotfunction exch def
/screenangle exch def
/cellsize exch def
/m tempctm currentmatrix def
/rm screenangle temprot rotate def
/sm cellsize dup tempscale scale def
sm rm m m concatmatrix m concatmatrix pop
1 0 m dtransform /y1 exch def /x1 exch def
/veclength x1 dup mul y1 dup mul add sqrt def
/frequency findresolution veclength div def
/newscreenangle y1 x1 atan def
m 2 get m 1 get mul m 0 get m 3 get mul sub 0 gt
{{neg} /spotfunction load concatprocs
/spotfunction exch def
} if
frequency newscreenangle /spotfunction load setscreen
end
} def
/tgifsetpatterndict 18 dict def
tgifsetpatterndict begin
/bitison
{ /ybit exch def /xbit exch def
/bytevalue bstring ybit bwidth mul xbit 8 idiv add get def
/mask 1 7 xbit 8 mod sub bitshift def
bytevalue mask and 0 ne
} def
end
/tgifbitpatternspotfunction
{ tgifsetpatterndict begin
/y exch def /x exch def
/xindex x 1 add 2 div bpside mul cvi def
/yindex y 1 add 2 div bpside mul cvi def
xindex yindex bitison
{ /onbits onbits 1 add def 1 }
{ /offbits offbits 1 add def 0 }
ifelse
end
} def
/tgifsetpattern
{ tgifsetpatterndict begin
/cellsz exch def
/angle exch def
/bwidth exch def
/bpside exch def
/bstring exch def
/onbits 0 def /offbits 0 def
cellsz angle /tgifbitpatternspotfunction load tgifsetuserscreen
{} settransfer
offbits offbits onbits add div setgray
end
} def
/tgifxpmdict 4 dict def
/tgifbwpicstr 1 string def
/tgifcolorpicstr 3 string def
/tgifsetpixels { tgifxpmdict begin /pixels exch def end } def
/tgifsetpix { tgifxpmdict begin pixels 3 1 roll putinterval end } def
/tgifbwspot
{ tgifxpmdict begin
/index exch def
tgifbwpicstr 0
pixels index 3 mul 3 getinterval aload pop
255 mul .114 mul exch 255 mul .587 mul add exch 255 mul .299 mul add
cvi put
tgifbwpicstr
end
} def
/tgifcolorspot
{ tgifxpmdict begin
/index exch def
pixels index 3 mul 3 getinterval aload pop
255 mul cvi tgifcolorpicstr 2 3 -1 roll put
255 mul cvi tgifcolorpicstr 1 3 -1 roll put
255 mul cvi tgifcolorpicstr 0 3 -1 roll put
tgifcolorpicstr
end
} def
/tgifnewcolorspot
{ tgifxpmdict begin
/index exch def
pixels index 3 mul 3 getinterval aload pop setrgbcolor
end
} def
/tgifcolordict 4 dict def
/colorimage where
{ pop }
{ /colorimage
{ tgifcolordict begin
pop pop pop pop pop
/ih exch def
/iw exch def
/x 0 def
/y 0 def
1 1 ih
{ pop 1 1 iw
{ pop currentfile
tgifbwpicstr readhexstring pop 0 get tgifnewcolorspot
x y moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto
closepath fill
/x x 1 add def
} for
/y y 1 add def
/x 0 def
} for
end
} def
} ifelse
/tgifpatdict 10 dict def
/tgifpatbyte
{ currentdict /retstr get exch
pat i cellsz mod get put
} def
/tgifpatproc
{ 0 1 widthlim {tgifpatbyte} for retstr
/i i 1 add def
} def
/tgifpatfill
{ tgifpatdict begin
/h exch def
/w exch def
/lty exch def
/ltx exch def
/cellsz exch def
/pat exch def
/widthlim w cellsz div cvi 1 sub def
/retstr widthlim 1 add string def
/i 0 def
ltx lty translate
w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
ltx neg lty neg translate
end
} def
/pat1 <ffffffffffffffff> def
/pat2 <0000000000000000> def
/pat3 <8000000008000000> def
/pat4 <8800000022000000> def
/pat5 <8800220088002200> def
/pat6 <8822882288228822> def
/pat7 <aa55aa55aa55aa55> def
/pat8 <77dd77dd77dd77dd> def
/pat9 <77ffddff77ffddff> def
/pat10 <77ffffff77ffffff> def
/pat11 <7fffffff7fffffff> def
/pat12 <8040200002040800> def
/pat13 <40a00000040a0000> def
/pat14 <ff888888ff888888> def
/pat15 <ff808080ff080808> def
/pat16 <f87422478f172271> def
/pat17 <038448300c020101> def
/pat18 <081c22c180010204> def
/pat19 <8080413e080814e3> def
/pat20 <8040201008040201> def
/pat21 <8844221188442211> def
/pat22 <77bbddee77bbddee> def
/pat23 <c1e070381c0e0783> def
/pat24 <7fbfdfeff7fbfdfe> def
/pat25 <3e1f8fc7e3f1f87c> def
/pat26 <0102040810204080> def
/pat27 <1122448811224488> def
/pat28 <eeddbb77eeddbb77> def
/pat29 <83070e1c3870e0c1> def
/pat30 <fefdfbf7efdfbf7f> def
/pat31 <7cf8f1e3c78f1f3e> def
/tgifcentertext { dup stringwidth pop 2 div neg 0 rmoveto } def
/tgifrighttext { dup stringwidth pop neg 0 rmoveto } def
/tgifreencsmalldict 12 dict def
/tgifReEncodeSmall
{ tgifreencsmalldict begin
/newcodesandnames exch def
/newfontname exch def
/basefontname exch def
/basefontdict basefontname findfont def
/newfont basefontdict maxlength dict def
basefontdict
{ exch dup /FID ne
{ dup /Encoding eq
{ exch dup length array copy newfont 3 1 roll put }
{ exch newfont 3 1 roll put }
ifelse
}
{ pop pop }
ifelse
}
forall
newfont /FontName newfontname put
newcodesandnames aload pop
newcodesandnames length 2 idiv
{ newfont /Encoding get 3 1 roll put}
repeat
newfontname newfont definefont pop
end
} def
/tgifgray { 8 1 0 72 300 32 div div tgifsetpattern } bind def
/tgifboxdict 6 dict def
/tgifboxstroke
{ tgifboxdict begin
/pat def /w def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
1.415 setmiterlimit
w 1 eq { w setlinewidth } if
pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
pat pat2 eq { 1 setgray stroke 0 setgray } { stroke } ifelse
pat pat1 ne pat pat2 ne and { grestore } if
w 1 eq { 1 setlinewidth } if
1 setmiterlimit
end
} def
/tgifboxfill
{ tgifboxdict begin
/pat def /y2 exch def /x2 exch def /y1 exch def /x1 exch def
pat pat1 ne pat pat2 ne and { gsave pat tgifgray } if
newpath x1 y1 moveto x2 y1 lineto x2 y2 lineto x1 y2 lineto closepath
pat pat2 eq { 1 setgray fill 0 setgray } { fill } ifelse
pat pat1 ne pat pat2 ne and { grestore } if
end
} def
end
tgifdict begin
/tgifsavedpage save def
1 setmiterlimit
1 setlinewidth
0 setgray
72 0 mul 72 11.00 mul translate
72 128 div 100 mul 100 div dup neg scale
gsave
gsave
1.415 setmiterlimit
newpath
128 102 moveto 192 102 lineto 192 134 lineto 128 134 lineto
closepath stroke
1 setmiterlimit
grestore
gsave
newpath
160 102 moveto
160 134 lineto
stroke
grestore
gsave
newpath
176 124 moveto
0 80 atan dup cos 8 mul 256 exch sub
exch sin 8 mul 124 exch sub lineto
stroke
grestore
gsave
newpath
256 124 8 3 80 0 tgifarrowtip
closepath fill
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
208 172 moveto (rose) show
grestore
gsave
newpath
144 118 moveto
144 167 lineto
0 48 atan dup cos 8 mul 192 exch sub
exch sin 8 mul 167 exch sub lineto
stroke
grestore
gsave
newpath
192 167 8 3 48 0 tgifarrowtip
closepath fill
grestore
gsave
1.415 setmiterlimit
newpath
261 102 moveto 325 102 lineto 325 134 lineto 261 134 lineto
closepath stroke
1 setmiterlimit
grestore
gsave
newpath
293 102 moveto
293 134 lineto
stroke
grestore
gsave
newpath
309 118 moveto
0 93 atan dup cos 8 mul 402 exch sub
exch sin 8 mul 118 exch sub lineto
stroke
grestore
gsave
newpath
402 118 8 3 93 0 tgifarrowtip
closepath fill
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
341 172 moveto (violet) show
grestore
gsave
newpath
277 118 moveto
277 167 lineto
0 48 atan dup cos 8 mul 325 exch sub
exch sin 8 mul 167 exch sub lineto
stroke
grestore
gsave
newpath
325 167 8 3 48 0 tgifarrowtip
closepath fill
grestore
gsave
1.415 setmiterlimit
newpath
404 100 moveto 468 100 lineto 468 132 lineto 404 132 lineto
closepath stroke
1 setmiterlimit
grestore
gsave
newpath
435 100 moveto
435 132 lineto
stroke
grestore
gsave
newpath
451 117 moveto
0 48 atan dup cos 8 mul 499 exch sub
exch sin 8 mul 117 exch sub lineto
stroke
grestore
gsave
newpath
499 117 8 3 48 0 tgifarrowtip
closepath fill
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
483 171 moveto (buttercup) show
grestore
gsave
newpath
419 117 moveto
419 166 lineto
0 48 atan dup cos 8 mul 467 exch sub
exch sin 8 mul 166 exch sub lineto
stroke
grestore
gsave
newpath
467 166 8 3 48 0 tgifarrowtip
closepath fill
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
511 123 moveto (nil) show
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
131 80 moveto (flowers) show
grestore
gsave
newpath
210 75 moveto
237 75 lineto
237 113 lineto
0 18 atan dup cos 8 mul 255 exch sub
exch sin 8 mul 113 exch sub lineto
stroke
grestore
gsave
newpath
255 113 8 3 18 0 tgifarrowtip
closepath fill
grestore
0 setgray
/Courier findfont [17 0 0 -17 0 0] makefont setfont
gsave
2 80 moveto (bouquet) show
grestore
gsave
newpath
81 77 moveto
108 77 lineto
108 115 lineto
0 18 atan dup cos 8 mul 126 exch sub
exch sin 8 mul 115 exch sub lineto
stroke
grestore
gsave
newpath
126 115 8 3 18 0 tgifarrowtip
closepath fill
grestore
grestore
tgifsavedpage restore
end