utils/dialoged/docs/text.eps

   1 %!PS-Adobe-2.0 EPSF-2.0
   2 %%Title: text.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 820003018101001200810102810200
 139 8200030182010001100182000102810200
 140 82000301820100010e01840001000102810200
 141 8200030182010001060101000501840001000102810200
 142 8200030182010001060101000501840001000102810200
 143 8200030182010001060101000501840001000102810200
 144 82000301820100018101000200010104000201840001000102810200
 145 820003018301000100810001810100820001008100018101008100018501000100010281
 146 0200
 147 82000301820100010101030081010081000181010081000185010001000102810200
 148 820003018201000181010082000100820001008100018101008100018501000100010281
 149 0200
 150 820003018301000100810001810100820001008100018101008100018501000100010281
 151 0200
 152 820003018301000100810001810100820001008100018101008100018501000100010281
 153 0200
 154 8200030182010001810100030081010003000201840001000102810200
 155 82000301820100010e01840001000102810200
 156 8200030182010001100182000102810200
 157 820003018101001200810102810200
 158 82000301150101020000
 159 82000301150101020000
 160 82000301150101020000
 161 8200030217020000
 162 81000218020000
 163 81020018000002
 164
 165 %
 166 % Compression made this file 22.15% of the uncompressed size.
 167 %
 168
 169
 170 showpage
 171
 172 % stop using temporary dictionary
 173 end
 174
 175 % restore original state
 176 origstate restore
 177
 178 %%Trailer