utils/dialoged/docs/picture.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: picture.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 820003018101001100010101020000
 138 82000301820100010f01810001810102810200
 139 82000301820100010201810001040102000201810001810102810200
 140 8200030182010001010183000100010201810001010181000182010001810102810200
 141 820003018201000181010083000100010201810001010181000182010001810102810200
 142
 143 82000301880100010001000100010201810001010181000182010001810102810200
 144 82000301870100010001000100810001020102000201810001810102810200
 145 820003018a01000100010001000100010701810001810102810200
 146 8200030182010001820100018401000100010701810001810102810200
 147 8200030181010002000101820001000900010101020000
 148 82000301820100010101810001820100010801810001810102810200
 149 820003018201000101018300010001810100810001810100810001010181000181010281
 150 0200
 151 8200030182010001010185000100010001820100010401810001810102810200
 152 8200030182010001810100020081010003000101010082010001810102810200
 153 82000301830100010001000c01810001810102810200
 154 820003018101001100010101020000
 155 82000301150101020000
 156 82000301150101020000
 157 82000301150101020000
 158 82000301150101020000
 159 8200030217020000
 160 81000218020000
 161 81020018000002
 162
 163 %
 164 % Compression made this file 23.43% of the uncompressed size.
 165 %
 166
 167
 168 showpage
 169
 170 % stop using temporary dictionary
 171 end
 172
 173 % restore original state
 174 origstate restore
 175
 176 %%Trailer