2 % Version 3.3.2 prologue for GIF pixmap files.
17 /pagebbox [0 0 612 792] def
19 /inch {72 mul} bind def
20 /min {2 copy gt {exch} if pop} bind def
23 counttomark 2 idiv {def} repeat pop
25 landscape {/orientation 90 orientation add def} if
28 xcenter ycenter translate
29 orientation rotation mul rotate
30 xoffset inch yoffset inch translate
31 magnification dup aspectratio mul scale
33 /height height margin sub def
34 /width width margin sub def
39 /pagebbox [clippath pathbbox newpath] def
42 4 -1 roll exch 4 1 roll 4 copy
43 landscape {4 2 roll} if
46 add 2 div /xcenter exch def
47 add 2 div /ycenter exch def
48 userdict /gotpagebbox true put
51 /pagesetup {/page exch def} bind def
53 /done {/lastpage where {pop lastpage} if} def
57 /gifscreen { % scrwidth scrheight $
61 100 dup dtransform exch 100 exch div abs exch 100 exch div abs
63 /height exch height exch div def
64 /width exch width exch div def
67 height exch div exch width exch div
68 2 copy lt { pop } { exch pop } ifelse
74 neg 2 div exch neg 2 div exch translate
77 /gifimage { % gray imagewidth imageheight xorigin yorigin $
83 imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight]
85 { currentfile codestr readhexstring pop } image
89 /picstr imagewidth 3 mul string def
90 { currentfile codestr readhexstring pop pop
91 0 1 imagewidth 1 sub {
92 picstr exch dup 3 mul exch colortbl exch codestr exch get
93 3 mul 3 getinterval putinterval
97 { currentfile codestr readhexstring pop pop
98 0 1 imagewidth 1 sub {
99 codestr exch dup graytbl exch codestr exch get get put