wxTreeCtrl now works (sort of) for wxPython-GTK. This is the new

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

%!PS-Adobe-2.0 EPSF-2.0
%%Title: gauge.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 15 string def


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

81030018000003
8100041704810300
82000402150201030000
82000402150201030000
8200040204020a00050201030000
8200040204028100020702810002040201030000
8200040204028100020702810002040201030000
8200040204028100020702810002040201030000
8200040204028100020702810002040201030000
8200040204028100020702810002040201030000
8200040204028100020702810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204028100010701810002040201030000
8200040204020a00050201030000
82000402150201030000
82000402150201030000
8200040317030000
81000318030000
81030018000003

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


showpage

% stop using temporary dictionary
end

% restore original state
origstate restore

%%Trailer