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