]> git.saurik.com Git - wxWidgets.git/blob - utils/dialoged/docs/text.eps
no message
[wxWidgets.git] / utils / dialoged / docs / text.eps
1 %!PS-Adobe-2.0 EPSF-2.0
2 %%Title: text.eps
3 %%Creator: XV Version 2.20 Rev: 4/24/92 - by John Bradley
4 %%BoundingBox: 254 375 282 403
5 %%Pages: 1
6 %%DocumentFonts:
7 %%EndComments
8 %%EndProlog
9
10 %%Page: 1 1
11
12 % remember original state
13 /origstate save def
14
15 % build a temporary dictionary
16 20 dict begin
17
18 % lower left corner
19 254 375 translate
20
21 % size of image (on paper, in 1/72inch coords)
22 28 28 scale
23
24 % define 'colorimage' if it isn't defined
25 % ('colortogray' and 'mergeprocs' come from xwd2ps
26 % via xgrab)
27 /colorimage where % do we know about 'colorimage'?
28 { pop } % yes: pop off the 'dict' returned
29 { % no: define one
30 /colortogray { % define an RGB->I function
31 /rgbdata exch store % call input 'rgbdata'
32 rgbdata length 3 idiv
33 /npixls exch store
34 /rgbindx 0 store
35 /grays npixls string store % str to hold the result
36 0 1 npixls 1 sub {
37 grays exch
38 rgbdata rgbindx get 20 mul % Red
39 rgbdata rgbindx 1 add get 32 mul % Green
40 rgbdata rgbindx 2 add get 12 mul % Blue
41 add add 64 idiv % I = .5G + .31R + .18B
42 put
43 /rgbindx rgbindx 3 add store
44 } for
45 grays
46 } bind def
47
48 % Utility procedure for colorimage operator.
49 % This procedure takes two procedures off the
50 % stack and merges them into a single procedure.
51
52 /mergeprocs { % def
53 dup length
54 3 -1 roll
55 dup
56 length
57 dup
58 5 1 roll
59 3 -1 roll
60 add
61 array cvx
62 dup
63 3 -1 roll
64 0 exch
65 putinterval
66 dup
67 4 2 roll
68 putinterval
69 } bind def
70
71 /colorimage { % def
72 pop pop % remove 'false 3' operands
73 {colortogray} mergeprocs
74 image
75 } bind def
76 } ifelse % end of 'false' case
77
78
79
80 % define the colormap
81 /cmap 12 string def
82
83
84 % load up the colormap
85 currentfile cmap readhexstring
86 000000 c0c0c0 808080 ffffff
87 pop pop % lose return values from readhexstring
88
89
90 % rlecmapimage expects to have 'w h bits matrix' on stack
91 /rlecmapimage {
92 /buffer 1 string def
93 /rgbval 3 string def
94 /block 384 string def
95
96 % proc to read a block from file, and return RGB data
97 { currentfile buffer readhexstring pop
98 /bcount exch 0 get store
99 bcount 128 ge
100 { % it's a non-run block
101 0 1 bcount 128 sub
102 { currentfile buffer readhexstring pop pop
103
104 % look up value in color map
105 /rgbval cmap buffer 0 get 3 mul 3 getinterval store
106
107 % and put it in position i*3 in block
108 block exch 3 mul rgbval putinterval
109 } for
110 block 0 bcount 127 sub 3 mul getinterval
111 }
112
113 { % else it's a run block
114 currentfile buffer readhexstring pop pop
115
116 % look up value in colormap
117 /rgbval cmap buffer 0 get 3 mul 3 getinterval store
118
119 0 1 bcount { block exch 3 mul rgbval putinterval } for
120
121 block 0 bcount 1 add 3 mul getinterval
122 } ifelse
123 } % end of proc
124 false 3 colorimage
125 } bind def
126
127
128 28 28 8 % dimensions of data
129 [28 0 0 -28 0 28] % mapping matrix
130 rlecmapimage
131
132 81020018000002
133 8100031703810200
134 82000301150101020000
135 82000301150101020000
136 82000301150101020000
137 82000301150101020000
138 820003018101001200810102810200
139 8200030182010001100182000102810200
140 82000301820100010e01840001000102810200
141 8200030182010001060101000501840001000102810200
142 8200030182010001060101000501840001000102810200
143 8200030182010001060101000501840001000102810200
144 82000301820100018101000200010104000201840001000102810200
145 820003018301000100810001810100820001008100018101008100018501000100010281
146 0200
147 82000301820100010101030081010081000181010081000185010001000102810200
148 820003018201000181010082000100820001008100018101008100018501000100010281
149 0200
150 820003018301000100810001810100820001008100018101008100018501000100010281
151 0200
152 820003018301000100810001810100820001008100018101008100018501000100010281
153 0200
154 8200030182010001810100030081010003000201840001000102810200
155 82000301820100010e01840001000102810200
156 8200030182010001100182000102810200
157 820003018101001200810102810200
158 82000301150101020000
159 82000301150101020000
160 82000301150101020000
161 8200030217020000
162 81000218020000
163 81020018000002
164
165 %
166 % Compression made this file 22.15% of the uncompressed size.
167 %
168
169
170 showpage
171
172 % stop using temporary dictionary
173 end
174
175 % restore original state
176 origstate restore
177
178 %%Trailer