1 %
2 % Version 3.3.2 prologue for DMD bitmap 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 /screenres 100 def
14 /xoffset 0 def
15 /yoffset 0 def
16 
17 /useclippath true def
18 /pagebbox [0 0 612 792] def
19 
20 /inch {72 mul} bind def
21 /min {2 copy gt {exch} if pop} bind def
22 
23 /setup {
24 	counttomark 2 idiv {def} repeat pop
25 
26 	landscape {/orientation 90 orientation add def} if
27 
28 	pagedimensions
29 	xcenter ycenter translate
30 	orientation rotation mul rotate
31 	xoffset inch yoffset inch translate
32 	magnification dup aspectratio mul scale
33 
34 	/height height margin sub def
35 	/width width margin sub def
36 } def
37 
38 /pagedimensions {
39 	useclippath {
40 		/pagebbox [clippath pathbbox newpath] def
41 	} if
42 	pagebbox aload pop
43 	4 -1 roll exch 4 1 roll 4 copy
44 	landscape {4 2 roll} if
45 	sub /width exch def
46 	sub /height exch def
47 	add 2 div /xcenter exch def
48 	add 2 div /ycenter exch def
49 	userdict /gotpagebbox true put
50 } def
51 
52 /pagesetup {/page exch def} bind def
53 
54 /bitmap {
55 	/scanlines exch def
56 	/scanlength exch def
57 	/flip exch def
58 	/v8format exch def
59 
60 	/bytelength scanlength 8 idiv def
61 	/picstr bytelength string def
62 	/lpicstr bytelength string def
63 	/bytelength bytelength 1 sub def
64 
65 	gsave
66 
67 % First the overall scaling.
68 
69 	height scanlines div width scanlength div min
70 	72 screenres div min
71 	dup scale
72 
73 % Followed by the one for the unit square.
74 
75 	scanlength neg 2 div scanlines neg 2 div translate
76 	scanlength scanlines scale
77 	v8format {getv8bitmap} {getbitmap} ifelse
78 	grestore
79 } bind def
80 
81 /getbitmap {
82 	scanlength scanlines flip [scanlength 0 0 scanlines neg 0 scanlines] {
83 		0 {
84 			currentfile token pop dup
85 			0 eq {pop pop exit} if
86 			/charcount exch def
87 			picstr 1 index charcount getinterval
88 			/repl exch def
89 			currentfile repl readhexstring pop pop
90 			charcount add
91 			currentfile token pop {
92 				picstr 1 index repl putinterval
93 				charcount add
94 			} repeat
95 		} loop
96 		picstr
97 	} imagemask
98 } bind def
99 
100 /getv8bitmap {
101 	scanlength scanlines flip not [scanlength 0 0 scanlines neg 0 scanlines] {
102 		0 {
103 			currentfile token pop dup
104 			0 eq {pop pop exit} if
105 			/charcount exch def
106 			picstr 1 index charcount getinterval
107 			/repl exch def
108 			currentfile repl readhexstring pop pop
109 			charcount add
110 			currentfile token pop {
111 				picstr 1 index repl putinterval
112 				charcount add
113 			} repeat
114 		} loop
115 		0 0 picstr {
116 			exch lpicstr exch get xor
117 			lpicstr exch 2 index exch put
118 			1 add dup
119 		} forall
120 		pop pop lpicstr
121 	} imagemask
122 } bind def
123 
124 /done {/lastpage where {pop lastpage} if} def