summaryrefslogtreecommitdiff
path: root/uno
blob: f778b4468dad5885f37d86f26f8bf564f3e44296 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
%!PS-Adobe-3.0
%%Creator: (ImageMagick)
%%Title: (uno)
%%CreationDate: (Sun Aug 10 19:46:10 2008)
%%BoundingBox: 595 209 611 236
%%HiResBoundingBox: 595 209 611 236
%%DocumentData: Clean7Bit
%%LanguageLevel: 1
%%Orientation: Portrait
%%PageOrder: Ascend
%%Pages: 1
%%EndComments

%%BeginDefaults
%%EndDefaults

%%BeginProlog
%
% Display a color image.  The image is displayed in color on
% Postscript viewers or printers that support color, otherwise
% it is displayed as grayscale.
%
/DirectClassPacket
{
  %
  % Get a DirectClass packet.
  %
  % Parameters:
  %   red.
  %   green.
  %   blue.
  %   length: number of pixels minus one of this color (optional).
  %
  currentfile color_packet readhexstring pop pop
  compression 0 eq
  {
    /number_pixels 3 def
  }
  {
    currentfile byte readhexstring pop 0 get
    /number_pixels exch 1 add 3 mul def
  } ifelse
  0 3 number_pixels 1 sub
  {
    pixels exch color_packet putinterval
  } for
  pixels 0 number_pixels getinterval
} bind def

/DirectClassImage
{
  %
  % Display a DirectClass image.
  %
  systemdict /colorimage known
  {
    columns rows 8
    [
      columns 0 0
      rows neg 0 rows
    ]
    { DirectClassPacket } false 3 colorimage
  }
  {
    %
    % No colorimage operator;  convert to grayscale.
    %
    columns rows 8
    [
      columns 0 0
      rows neg 0 rows
    ]
    { GrayDirectClassPacket } image
  } ifelse
} bind def

/GrayDirectClassPacket
{
  %
  % Get a DirectClass packet;  convert to grayscale.
  %
  % Parameters:
  %   red
  %   green
  %   blue
  %   length: number of pixels minus one of this color (optional).
  %
  currentfile color_packet readhexstring pop pop
  color_packet 0 get 0.299 mul
  color_packet 1 get 0.587 mul add
  color_packet 2 get 0.114 mul add
  cvi
  /gray_packet exch def
  compression 0 eq
  {
    /number_pixels 1 def
  }
  {
    currentfile byte readhexstring pop 0 get
    /number_pixels exch 1 add def
  } ifelse
  0 1 number_pixels 1 sub
  {
    pixels exch gray_packet put
  } for
  pixels 0 number_pixels getinterval
} bind def

/GrayPseudoClassPacket
{
  %
  % Get a PseudoClass packet;  convert to grayscale.
  %
  % Parameters:
  %   index: index into the colormap.
  %   length: number of pixels minus one of this color (optional).
  %
  currentfile byte readhexstring pop 0 get
  /offset exch 3 mul def
  /color_packet colormap offset 3 getinterval def
  color_packet 0 get 0.299 mul
  color_packet 1 get 0.587 mul add
  color_packet 2 get 0.114 mul add
  cvi
  /gray_packet exch def
  compression 0 eq
  {
    /number_pixels 1 def
  }
  {
    currentfile byte readhexstring pop 0 get
    /number_pixels exch 1 add def
  } ifelse
  0 1 number_pixels 1 sub
  {
    pixels exch gray_packet put
  } for
  pixels 0 number_pixels getinterval
} bind def

/PseudoClassPacket
{
  %
  % Get a PseudoClass packet.
  %
  % Parameters:
  %   index: index into the colormap.
  %   length: number of pixels minus one of this color (optional).
  %
  currentfile byte readhexstring pop 0 get
  /offset exch 3 mul def
  /color_packet colormap offset 3 getinterval def
  compression 0 eq
  {
    /number_pixels 3 def
  }
  {
    currentfile byte readhexstring pop 0 get
    /number_pixels exch 1 add 3 mul def
  } ifelse
  0 3 number_pixels 1 sub
  {
    pixels exch color_packet putinterval
  } for
  pixels 0 number_pixels getinterval
} bind def

/PseudoClassImage
{
  %
  % Display a PseudoClass image.
  %
  % Parameters:
  %   class: 0-PseudoClass or 1-Grayscale.
  %
  currentfile buffer readline pop
  token pop /class exch def pop
  class 0 gt
  {
    currentfile buffer readline pop
    token pop /depth exch def pop
    /grays columns 8 add depth sub depth mul 8 idiv string def
    columns rows depth
    [
      columns 0 0
      rows neg 0 rows
    ]
    { currentfile grays readhexstring pop } image
  }
  {
    %
    % Parameters:
    %   colors: number of colors in the colormap.
    %   colormap: red, green, blue color packets.
    %
    currentfile buffer readline pop
    token pop /colors exch def pop
    /colors colors 3 mul def
    /colormap colors string def
    currentfile colormap readhexstring pop pop
    systemdict /colorimage known
    {
      columns rows 8
      [
        columns 0 0
        rows neg 0 rows
      ]
      { PseudoClassPacket } false 3 colorimage
    }
    {
      %
      % No colorimage operator;  convert to grayscale.
      %
      columns rows 8
      [
        columns 0 0
        rows neg 0 rows
      ]
      { GrayPseudoClassPacket } image
    } ifelse
  } ifelse
} bind def

/DisplayImage
{
  %
  % Display a DirectClass or PseudoClass image.
  %
  % Parameters:
  %   x & y translation.
  %   x & y scale.
  %   label pointsize.
  %   image label.
  %   image columns & rows.
  %   class: 0-DirectClass or 1-PseudoClass.
  %   compression: 0-none or 1-RunlengthEncoded.
  %   hex color packets.
  %
  gsave
  /buffer 512 string def
  /byte 1 string def
  /color_packet 3 string def
  /pixels 768 string def

  currentfile buffer readline pop
  token pop /x exch def
  token pop /y exch def pop
  x y translate
  currentfile buffer readline pop
  token pop /x exch def
  token pop /y exch def pop
  currentfile buffer readline pop
  token pop /pointsize exch def pop
  /Times-Roman findfont pointsize scalefont setfont
  x y scale
  currentfile buffer readline pop
  token pop /columns exch def
  token pop /rows exch def pop
  currentfile buffer readline pop
  token pop /class exch def pop
  currentfile buffer readline pop
  token pop /compression exch def pop
  class 0 gt { PseudoClassImage } { DirectClassImage } ifelse
  grestore
  showpage
} bind def
%%EndProlog
%%Page:  1 1
%%PageBoundingBox: 595 209 611 236
DisplayImage
595 209
16 27
12.000000
16 27
0
0
1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A
1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391E20391E20391E2039
1E20391E20391E20391F213A1F213A1F213A1F213A1F213A1E20391E20391E20391E2039
1E20391E20391E20391E20391E20391E20391E20391F213A1F213A1F213A1F213A1F213A
1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A
1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391E20391E20391E2039
1E20391E20391E20391F213A1F213A1F213A1F213A1F213A1E20391E20391E20391E2039
1E20391E20391E20391E20391E20391E20391E20391F213A1F213A1F213A1F213A1F213A
1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A
1F213A1F213A1F213A1F213A1E20391E20391E20391E20391E20391D1F381E20391E2039
1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391E2039
1E20391E20391E20391E20391E20391E20391E20391E20391E20391E20391F213A1F213A
1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B
1F203C1F203C1F203C1F203C1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B
1E1F3B1E1F3B1E1F3B1F203C1F203C1F203C1F203C1F203C1F203C1F203C1F203C1F203C
1F203C1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1E1F3B1F203C1F203C1F203C1F203C1F203C
1F203D1F203D1F203D1F203D1F203D1E1F3C1E1F3C1E1F3C1E1F3C1F203D1F203D1F203D
1F203D1F203D1F203D1F203D1F203E1F203E1F203E1F203E1F203E1E1F3D1E1F3D1E1F3D
1E1F3D1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E
1F203E1E1F3D1E1F3D1E1F3D1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E
1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E1F203E
1F203E1F203E1F203E20213F1F203E1F203E1F203E1F203E1F203E2425432122401D1E3C
1E1F3D20213F2122401F203E1F203E1E1F3D21224021224020213F20213F20213F20213F
20213F1A1B391B1C3A1B1C3A20213F22234123244220213F21224021224022234120213F
1F21401F21401F21401F21401F214022234223244223244223244322234120213F1B1C3B
1E1F3E2021402324422122401E21401E21401E21401E21401E2140202140202140202140
2122412021401F203F1C1D3C1E1F3E2021402324432021401D203F1D203F1D203F1D203F
1D203F1E1F3E1D1E3D1B1C3B1D1E3D1F203F2122412122412223422223422223421F203F
1E21411E21411E21411E21411E21412E2F4E2728482021411D1D3D202040222242232443
2223422122412122412122412023442023442023442023442023444646683A3A5C2E2E50
2020422020421F1F411D1D3F1C1C3E1B1B3D1F1F41222244212143212143212143212143
2121432727492222441D1D3F1B1B3D1E1E402121432020421F1F411D1D3F1E1E401E1E40
1F1F411F1F411F1F411F1F411F1F412222442020421E1E402020422121432222441F1F41
1F1F411F1F412222442121432020422020422020422020422020422020442020441F1F43
202044212144212144202043202043202043212144212144212143202042202042202042
202042212145212145212145212145212145212145212145212145212145212145212145

%%PageTrailer
%%Trailer
%%EOF