summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/prosper/contrib/img/barre-rico.ps
blob: 5717efd8e9b4f6015416c30692af17bdf8e9c8b5 (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
%!PS-Adobe-2.0 EPSF-2.0
%%Title: /ufs/goualard/TEMP/barre_hor.ps
%%Creator: XV Version 3.10a  Rev: 12/29/94 (PNG patch 1.2)  -  by John Bradley
%%BoundingBox: -168 371 782 421
%%Pages: 1
%%DocumentFonts:
%%EndComments
%%EndProlog

%%Page: 1 1

% remember original state
/origstate save def

% build a temporary dictionary
20 dict begin

% define space for color conversions
/grays 950 string def  % space for gray scale line
/npixls 0 def
/rgbindx 0 def

% lower left corner
-168 371 translate

% size of image (on paper, in 1/72inch coords)
949.96800 49.96800 scale

% define 'colorimage' if it isn't defined
%   ('colortogray' and 'mergeprocs' come from xwd2ps
%     via xgrab)
/colorimage where   % do we know about 'colorimage'?
  { pop }           % yes: pop off the 'dict' returned
  {                 % no:  define one
    /colortogray {  % define an RGB->I function
      /rgbdata exch store    % call input 'rgbdata'
      rgbdata length 3 idiv
      /npixls exch store
      /rgbindx 0 store
      0 1 npixls 1 sub {
        grays exch
        rgbdata rgbindx       get 20 mul    % Red
        rgbdata rgbindx 1 add get 32 mul    % Green
        rgbdata rgbindx 2 add get 12 mul    % Blue
        add add 64 idiv      % I = .5G + .31R + .18B
        put
        /rgbindx rgbindx 3 add store
      } for
      grays 0 npixls getinterval
    } bind def

    % Utility procedure for colorimage operator.
    % This procedure takes two procedures off the
    % stack and merges them into a single procedure.

    /mergeprocs { % def
      dup length
      3 -1 roll
      dup
      length
      dup
      5 1 roll
      3 -1 roll
      add
      array cvx
      dup
      3 -1 roll
      0 exch
      putinterval
      dup
      4 2 roll
      putinterval
    } bind def

    /colorimage { % def
      pop pop     % remove 'false 3' operands
      {colortogray} mergeprocs
      image
    } bind def
  } ifelse          % end of 'false' case



% define the colormap
/cmap 117 string def


% load up the colormap
currentfile cmap readhexstring
bcfe04 dcfe84 ccfe44 ecfec4 c4fe24 d4fe64 f4fee4 e4fea4 bcfe14 ccfe54 
f4fed4 c4fe34 d4fe74 fcfef4 ecfeb4 e4fe94 f4fecc fcfee4 ecfeac c4fe1c 
d4fe54 ccfe3c dcfe74 bcfe0c dcfe8c ccfe4c ecfecc c4fe2c d4fe6c e4feac 
bcfe1c f4fedc c4fe3c fcfefc ecfebc e4fe9c fcfeec d4fe5c dcfe7c 
pop pop   % lose return values from readhexstring


% rlecmapimage expects to have 'w h bits matrix' on stack
/rlecmapimage {
  /buffer 1 string def
  /rgbval 3 string def
  /block  384 string def

  % proc to read a block from file, and return RGB data
  { currentfile buffer readhexstring pop
    /bcount exch 0 get store
    bcount 128 ge
    {  % it's a non-run block
      0 1 bcount 128 sub
      { currentfile buffer readhexstring pop pop

        % look up value in color map
        /rgbval cmap buffer 0 get 3 mul 3 getinterval store

        % and put it in position i*3 in block
        block exch 3 mul rgbval putinterval
      } for
      block  0  bcount 127 sub 3 mul  getinterval
    }

    { % else it's a run block
      currentfile buffer readhexstring pop pop

      % look up value in colormap
      /rgbval cmap buffer 0 get 3 mul 3 getinterval store

      0 1 bcount { block exch 3 mul rgbval putinterval } for

      block 0 bcount 1 add 3 mul getinterval
    } ifelse
  } % end of proc
  false 3 colorimage
} bind def


950 50 8			% dimensions of data
[950 0 0 -50 0 50]		% mapping matrix
rlecmapimage

7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f210221870d1f220e220311212a21
7f217f217f217f217f217f2175218211030e820e220e820e220e860e220e23050b048404
090e24212a21
7f217f217f217f217f217f2171218e110312260b041e131e131e131e131e871e17001702
1d24212c21
7f217f217f217f217f217f216921830d1f220e870e221226200408000b00841702070d21
0521842403100d212321
7f217f217f217f217f217f2121218524220f231f213a218f0d0a220e220e23051b041e13
1e0817000c008408190706210421851103221f0d212521
7f217f217f217f217f217f211e2189240e1c1b17000825242136218a0d1026021b041e13
081700110085172001030d210421840316030d212821
7f217f217f217f217f21342186111a120f070a215721860d1110220e220e860e12182504
17000300821b1f212521851f0e2326230e080e841d010908001100820820090209840c1d
1a06210521841026230d212a21
7f217f217f217f21792186241f10220e220e820e220e820e220e820e220e820e220e820e
220e830e070f01010182070a2117218b0610231c1508001708090a2151218e0d1f101d01
14201b1e131e131e08000700820c0d211021840d100311210921881103220e07050b0800
8400171e081e821e081e851e081e0817001000851e2009181a210b21850d22261d24212c
21
7f217f217f217f21472184241f10220e820e220e820e220e820e220e820e220e820e220e
820e220e810e2283221f0d210e219a241f10070f1c09151e041e131e131e131e131e131e
131e131e131e821e080002008b17081410210d1110220e220e820e220e820e220e010e81
2301880126012616191b08000500820422212f2182240d211921890d0a0e072625150417
00100082201a210921890d1110220e23011620048304051f210421891103231c15131e08
1700190082171e090309820c1a210e21841f0e0a0d212e21
7f217f217f217f213f2190241f100e070f011c1920041e131e081e0882081e0882081e08
82081e0882081e0803088304250a2107218b241f030e12181619151e08001d00811e268c
2614201b041e131e131e131e088108178117000f0082091f211521840d0610220e0f0e88
120f012625020c11211321890d0a22121809040817001300831e050a2105218a0d1f101d
0114201b1e170004008408260e220e860e230c020417001800821e2009020982181a2114
21810d213321
7f211221842422121f217f217f217f211221850d0a220e220e820e220e820e220e820e22
0e010e881d0f1605090b041e178117001a008f1e22210d1110221d0f0116190b041e1781
1700220001171f00820b2221102189111022120f0125151b1e011e81081e821e081e821e
081e821e081e821e081e821e1700030082171c0e110e861d01251b1e170015008220181d
021d81220e020e86070119150417000b0086081e131e08170019008308091d210c21830d
1f24214121
7f210721830d0a220e040e83230504088308052421492185240a22230f01130182070a21
7f2106218c240a03220e220e220e220e1d0f840f01231f217f210a2199240a221d0f0116
191b1e131e131e131e131e131e131e131e17002300810b16871609200413081700490087
171e051d1f10220e0a0e8712232625201b1e178117001b000108011e81081e821e081e82
1e081e821e081e821e081e831e0817000c0085171e201e08000300831720090c840c090b
1b1e871e081e081e0817001f0083081e201e821e20090809820c03210b21860d0a222307
0d210521010d3a21
7f21042188112218141b13081e088108178117000300821b1f2140218b241f100e070f1c
25021b1317811700140083081410217f218c241f10070f05021b04131e131e011e810817
811700010093170207220e220e220e220e220e220e22120f18018301231f216e218c0d0a
22120f0116191b130817004c000117811e208120090509822008002c008308200c188518
0c09021b1e821e081e821e081e821e081e811e08810817811700400081171e871e09181a
061c08000300851e200b1e1700250083171e200983091806211721820d110a010a841d26
1918214421
6c219a1103220e220e220e220e220e220e220e220e220e22120f050b08000d0093091d22
0e220e220e220e220e220e220e2203112127218c241f100e070f0105021b1e08001e0082
0422216a2189241f10220e230f1826018201260182012601890126160509150408170011
0085131e131e131e821e131e831e131e0882081700020083082524215e2183240a220e82
0e220e8b0e22120f011605190b1308178117004d008817081e2009181d06210821810900
22000408071e0117510085080b09181a21022182060900040082081700120082171e000f
00011e83091806210d21821a031d8e1d221d221d0e22030a110d240d240d810d21012182
2406214521
68219711030f252004131e131e131e131e131e131e131e131e131e821e08001100011e83
131e131e821e131e821e131e821e131e811e1383131c1f211e218d0d1110221d0f260519
0b041e17002500821b0c0103018426161c05250b258405160f1d0e210e82070f26012681
0126822601268426010f1f2117218a241f100e070f1609150408820817003900821b1f21
56218a0a0f0c2514190215041e0801088217081701173400011781001781170016000117
011e85200c181d06210e218105000d0083171e08000c00011781081e041e020802171e00
82081e208120090d0982201e001b00850820090c1a210721821817000b008b081e200920
1920192009200986090c1d1a060900030083171e20090209010c83181a0621082187060a
0e1d071d0e1d821d0f1802180107841d220a24215221
1d21830d1f220e820e220e820e220e820e220e860e220e221024212321840d10230f010a
01852616091b08003b00820812210421830d1f102281220e820e220e820e220e820e220e
820e220e820e220e890e1d0f011609201b1317811700470081081e821e081e821e081e82
1e081e821e081e821e081e821e081e821e081e821e081e821e081e821e081e841e081e08
000a0083170b260182012601820126018201260182012601820126018a01260126160525
19151b088108004200820c0d21032196240a03220e220e220e220e220e220e220e220e22
0e1d0f810f01150182231f210921840d0610220e0e0e8418140417002100821720090409
822017002c008317081e208520090c1d1a211621821a201e811e20832009200982092009
86092009181a0c003400011e8520090c181a211221831a0c200982092009820920091109
830c1a06210a2182062000080087082009181a0621060206812106810621052183061d0c
0984090c181d1a011a02060e21820d062482240d216021
1c21970d0702041e131e131e131e131e131e131e0420050f100d211f21840d231b17004d
00a008182212230f011609151b131e131e131e131e131e131e131e131e131e130817001b
0083170017007f0041008c201a241f10070f1c021b04131e821e131e821e131e821e131e
821e131e011e810817811700160001178205112101218a111022120f181614151b1e821e
081e821e081e821e081e821e081e821e0817811700250082090621032182060900260088
17081e20090c1d1a212e2183062017001f008317081e208120090a09830c181a21442183
240917008300081e2001208409181a0621142183061a1d1a841a062106217721
1b21830d071b000f008517080b05230e8f0e220e220e220e220e220e220e220e22842210
110d210821830d231e004f00841e041e08178117007f0065008117000e000108011e8720
0c16090b1e08003000880401181614201b1e178117003a00822006210421820620001f00
81171e861e20090c1d1a213521820609001700011788081e20090c181a0621492184060a
101a1086101a10110d210d880d061a180c09181a0601067f211b21
1b21820a1900140081081e821e131e821e131e821e131e821e131e8d1e131e13040b1925
1812221f0d210321820a20007f007f0033000108160081081e031e820817003600811700
40008308091a2106218203091e031e8120091609830c1d1a213d21821f01091409840c18
1a06214e21010d0124010685240624060d210321850a26012206217f211f21
1b21831020170029008c1708040b021925051626051e007f002f000d1782081e20812009
1e0982201e00370081171e811e208120090c0982181d0683061808007900011781081e07
1e8120090e09820c1d217f216721820611217f212221
1b21830d0e0c090c0982201e004d00820817002a000217011e8120090c09811e00380082
17081e851e090c181a068306210621822106218221062182210621822106212521821a0c
09010982201e002700011781081e811e2085200c181d06211321821a200022000117011e
82091e0035008317081e20812009090982201e0002008608091a062106217f215521810d
217f215321
2d21851a0c201e17004300850820090c1a068206200022008317081e208620090c181d1a
210f21821d08002e000117021e0120840c181a06214221821d0c09250983181d06211c21
821a20001c008817081e2009181d062101218109002d0081171e871e20090c181a06210e
21851d09200c1a217f215a2182110d215321810d217d21
30218306180c090f0983201e08002500811e09820920090109830c1a062104218203201e
081e01201309810c1d821d1a21182182062000260081171e011e8620090c181a06217f21
1521830d1d0c091909840c181d06210721821a191e091e83200920098209200982092009
8209200982092009820920098209200982092009820920098209200985090c181a06217f
217621810d215121860d1026142510217c21
462185061d0c2017002000820906214e21820618098209200981092082201e178217081e
011e01201309840c181a06217f217f217f217f214421810d2401248306240d217d21
4a21841d201e0800150081081e041e820906217f217f217f217f217f217f214521
4e2185061a18201e000b0085171e091d06217f217f217f217f217f217f214e21
5221821a0c090909830c1d06217f217f217f217f217f217f215121
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521
7f217f217f217f217f217f217f213521

%
% Compression made this file 2.88% of the uncompressed size.
%


showpage

% stop using temporary dictionary
end

% restore original state
origstate restore

%%Trailer