]> git.saurik.com Git - wxWidgets.git/blame_incremental - utils/dialoged/docs/alignr.eps
Changes to allow Cygwin to compile in non-PCH mode
[wxWidgets.git] / utils / dialoged / docs / alignr.eps
... / ...
CommitLineData
1%!PS-Adobe-2.0 EPSF-2.0
2%%Title: alignr.eps
3%%Creator: XV Version 2.20 Rev: 4/24/92 - by John Bradley
4%%BoundingBox: 254 389 270 404
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
1620 dict begin
17
18% lower left corner
19254 389 translate
20
21% size of image (on paper, in 1/72inch coords)
2216 15 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 9 string def
82
83
84% load up the colormap
85currentfile cmap readhexstring
86000000 c0c0c0 ffff00
87pop 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
12816 15 8 % dimensions of data
129[16 0 0 -15 0 15] % mapping matrix
130rlecmapimage
131
1320f01
133070105000101
134070181000202028100010001
135070181000202028100010001
136070181000202028100010001
137070105000101
1380f01
1390f01
14002010a000101
141020181000207028100010001
142020181000207028100010001
143020181000207028100010001
144020181000207028100010001
14502010a000101
1460f01
147
148%
149% Compression made this file 16.11% of the uncompressed size.
150%
151
152
153showpage
154
155% stop using temporary dictionary
156end
157
158% restore original state
159origstate restore
160
161%%Trailer