Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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 
 
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 
 
99 
		    codestr exch dup graytbl exch codestr exch get get put
100 
	    	} for codestr
101 
	    } image
102 
	} ifelse
103 
    } ifelse
104 
} def