1 %
2 % Version 3.3.2 prologue for GIF pixmap files.
3 %
4 
5 /#copies 1 store
6 /aspectratio 1 def
7 /formsperpage 1 def
8 /landscape false def
9 /magnification 1 def
10 /margin 0 def
11 /orientation 0 def
12 /rotation 1 def
13 /xoffset 0 def
14 /yoffset 0 def
15 
16 /useclippath true def
17 /pagebbox [0 0 612 792] def
18 
19 /inch {72 mul} bind def
20 /min {2 copy gt {exch} if pop} bind def
21 
22 /setup {
23 	counttomark 2 idiv {def} repeat pop
24 
25 	landscape {/orientation 90 orientation add def} if
26 
27 	pagedimensions
28 	xcenter ycenter translate
29 	orientation rotation mul rotate
30 	xoffset inch yoffset inch translate
31 	magnification dup aspectratio mul scale
32 
33 	/height height margin sub def
34 	/width width margin sub def
35 } def
36 
37 /pagedimensions {
38 	useclippath {
39 		/pagebbox [clippath pathbbox newpath] def
40 	} if
41 	pagebbox aload pop
42 	4 -1 roll exch 4 1 roll 4 copy
43 	landscape {4 2 roll} if
44 	sub /width exch def
45 	sub /height exch def
46 	add 2 div /xcenter exch def
47 	add 2 div /ycenter exch def
48 	userdict /gotpagebbox true put
49 } def
50 
51 /pagesetup {/page exch def} bind def
52 
53 /done {/lastpage where {pop lastpage} if} def
54 
55 /alignment false def
56 
57 /gifscreen { % scrwidth scrheight $
58     2 copy
59 
60     alignment {
61     	100 dup dtransform exch 100 exch div abs exch 100 exch div abs
62 	2 copy scale
63 	/height exch height exch div def
64 	/width exch width exch div def
65     } if
66 
67     height exch div exch width exch div
68     2 copy lt { pop } { exch pop } ifelse
69 
70     alignment { cvi } if
71 
72     dup scale
73 
74     neg 2 div exch neg 2 div exch translate
75 } def
76 
77 /gifimage { % gray imagewidth imageheight xorigin yorigin $
78     translate
79     2 copy scale
80     /imageheight exch def
81     /imagewidth exch def
82     /gray exch def
83     imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight]
84     gray {
85 	{ currentfile codestr readhexstring pop } image
86     } {
87 	/colorimage where {
88 	    pop
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
94 	    	} for picstr
95 	    } false 3 colorimage
96 	} {
97 	    { currentfile codestr readhexstring pop pop
98 	    	0 1 imagewidth 1 sub {
99 		    codestr exch dup graytbl exch codestr exch get get put
100 	    	} for codestr
101 	    } image
102 	} ifelse
103     } ifelse
104 } def