| % |
| % Version 3.3.2 prologue for GIF pixmap files. |
| % |
| |
| /#copies 1 store |
| /aspectratio 1 def |
| /formsperpage 1 def |
| /landscape false def |
| /magnification 1 def |
| /margin 0 def |
| /orientation 0 def |
| /rotation 1 def |
| /xoffset 0 def |
| /yoffset 0 def |
| |
| /useclippath true def |
| /pagebbox [0 0 612 792] def |
| |
| /inch {72 mul} bind def |
| /min {2 copy gt {exch} if pop} bind def |
| |
| /setup { |
| counttomark 2 idiv {def} repeat pop |
| |
| landscape {/orientation 90 orientation add def} if |
| |
| pagedimensions |
| xcenter ycenter translate |
| orientation rotation mul rotate |
| xoffset inch yoffset inch translate |
| magnification dup aspectratio mul scale |
| |
| /height height margin sub def |
| /width width margin sub def |
| } def |
| |
| /pagedimensions { |
| useclippath { |
| /pagebbox [clippath pathbbox newpath] def |
| } if |
| pagebbox aload pop |
| 4 -1 roll exch 4 1 roll 4 copy |
| landscape {4 2 roll} if |
| sub /width exch def |
| sub /height exch def |
| add 2 div /xcenter exch def |
| add 2 div /ycenter exch def |
| userdict /gotpagebbox true put |
| } def |
| |
| /pagesetup {/page exch def} bind def |
| |
| /done {/lastpage where {pop lastpage} if} def |
| |
| /alignment false def |
| |
| /gifscreen { % scrwidth scrheight $ |
| 2 copy |
| |
| alignment { |
| 100 dup dtransform exch 100 exch div abs exch 100 exch div abs |
| 2 copy scale |
| /height exch height exch div def |
| /width exch width exch div def |
| } if |
| |
| height exch div exch width exch div |
| 2 copy lt { pop } { exch pop } ifelse |
| |
| alignment { cvi } if |
| |
| dup scale |
| |
| neg 2 div exch neg 2 div exch translate |
| } def |
| |
| /gifimage { % gray imagewidth imageheight xorigin yorigin $ |
| translate |
| 2 copy scale |
| /imageheight exch def |
| /imagewidth exch def |
| /gray exch def |
| imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight] |
| gray { |
| { currentfile codestr readhexstring pop } image |
| } { |
| /colorimage where { |
| pop |
| /picstr imagewidth 3 mul string def |
| { currentfile codestr readhexstring pop pop |
| 0 1 imagewidth 1 sub { |
| picstr exch dup 3 mul exch colortbl exch codestr exch get |
| 3 mul 3 getinterval putinterval |
| } for picstr |
| } false 3 colorimage |
| } { |
| { currentfile codestr readhexstring pop pop |
| 0 1 imagewidth 1 sub { |
| codestr exch dup graytbl exch codestr exch get get put |
| } for codestr |
| } image |
| } ifelse |
| } ifelse |
| } def |