now outputs errors to stderr

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

%!PS-Adobe-2.0 EPSF-2.0
%%Title: slider.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
82000301150101020000
82000301150101020000
82000301150101020000
83000301008100010b0101008101000100810102810200
82000301820100010c018600010001000102810200
82000301820100010c018600010001000102810200
830003010001000b010500810102810200
82000301150101020000
83000301001300810102810200
840003010001020101020c0181000201020000
840003010001020101000c0181000201020000
840003010001020101000c0181000201020000
840003010001020101020c0181000201020000
8300030100130002020000
8200030181010215020000
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
8200030217020000
81000218020000
81020018000002

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


showpage

% stop using temporary dictionary
end

% restore original state
origstate restore

%%Trailer