utils/dialoged/docs/radio.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: radio.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 8200030107010400080101020000
 139 820003010501010004010100060101020000
 140 8200030104018100010701810001040101020000
 141 8200030103018100010901810001030101020000
 142 820003010301810001020102000301810001030101020000
 143 820003010201810001020104000301810001020101020000
 144 820003010201810001010106000201810001020101020000
 145 820003010201810001010106000201810001020101020000
 146 820003010201810001010106000201810001020101020000
 147 820003010201810001020104000301810001020101020000
 148 820003010301810001020102000301810001030101020000
 149 8200030103018100010901810001030101020000
 150 8200030104018100010701810001040101020000
 151 820003010501010004010100060101020000
 152 8200030107010400080101020000
 153 82000301150101020000
 154 82000301150101020000
 155 82000301150101020000
 156 82000301150101020000
 157 8200030217020000
 158 81000218020000
 159 81020018000002
 160
 161 %
 162 % Compression made this file 18.24% of the uncompressed size.
 163 %
 164
 165
 166 showpage
 167
 168 % stop using temporary dictionary
 169 end
 170
 171 % restore original state
 172 origstate restore
 173
 174 %%Trailer