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

%!PS-Adobe-2.0 EPSF-2.0
%%Title: scroll.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
83000301001300810102810200
8400030100010701810001070182000102810200
8400030100010701810001070182000102810200
840003010001020181000102018100010201810001020182000102810200
8400030100010101030001018100018101000200020182000102810200
840003010001810100030001018100018101000300010182000102810200
8400030100010101030001018100018101000200020182000102810200
840003010001020181000102018100010201810001020182000102810200
8400030100010701810001070182000102810200
8400030100010701810001070182000102810200
83000301001300810102810200
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
82000301150101020000
8200030217020000
81000218020000
81020018000002

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


showpage

% stop using temporary dictionary
end

% restore original state
origstate restore

%%Trailer
Commit	Line	Data
a660d684 KB	1	%!PS-Adobe-2.0 EPSF-2.0
	2	%%Title: scroll.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	82000301150101020000
139	82000301150101020000
140	83000301001300810102810200
141	8400030100010701810001070182000102810200
142	8400030100010701810001070182000102810200
143	840003010001020181000102018100010201810001020182000102810200
144	8400030100010101030001018100018101000200020182000102810200
145	840003010001810100030001018100018101000300010182000102810200
146	8400030100010101030001018100018101000200020182000102810200
147	840003010001020181000102018100010201810001020182000102810200
148	8400030100010701810001070182000102810200
149	8400030100010701810001070182000102810200
150	83000301001300810102810200
151	82000301150101020000
152	82000301150101020000
153	82000301150101020000
154	82000301150101020000
155	82000301150101020000
156	82000301150101020000
157	8200030217020000
158	81000218020000
159	81020018000002
160
161	%
162	% Compression made this file 17.47% 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