untested changes...

[wxWidgets.git] / utils / dialoged / docs / picture.eps

%!PS-Adobe-2.0 EPSF-2.0
%%Title: picture.eps
%%Creator: XV Version 2.20  Rev: 4/24/92  -  by John Bradley
%%BoundingBox: 254 375 282 403
%%Pages: 1
%%DocumentFonts:
%%EndComments
%%EndProlog

%%Page: 1 1

% remember original state
/origstate save def

% build a temporary dictionary
20 dict begin

% lower left corner
254 375 translate

% size of image (on paper, in 1/72inch coords)
28 28 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
      /grays npixls string store  % str to hold the result
      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
    } 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 12 string def


% load up the colormap
currentfile cmap readhexstring
000000 c0c0c0 808080 ffffff 
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


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

81020018000002
8100031703810200
82000301150101020000
82000301150101020000
82000301150101020000
820003018101001100010101020000
82000301820100010f01810001810102810200
82000301820100010201810001040102000201810001810102810200
8200030182010001010183000100010201810001010181000182010001810102810200
820003018201000181010083000100010201810001010181000182010001810102810200

82000301880100010001000100010201810001010181000182010001810102810200
82000301870100010001000100810001020102000201810001810102810200
820003018a01000100010001000100010701810001810102810200
8200030182010001820100018401000100010701810001810102810200
8200030181010002000101820001000900010101020000
82000301820100010101810001820100010801810001810102810200
820003018201000101018300010001810100810001810100810001010181000181010281
0200
8200030182010001010185000100010001820100010401810001810102810200
8200030182010001810100020081010003000101010082010001810102810200
82000301830100010001000c01810001810102810200
820003018101001100010101020000
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
8200030217020000
81000218020000
81020018000002

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


showpage

% stop using temporary dictionary
end

% restore original state
origstate restore

%%Trailer