git.saurik.com Git - wxWidgets.git/blame_incremental

... / ...

Commit	Line	Data
	1	%!PS-Adobe-2.0 EPSF-2.0
	2	%%Title: mtext.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	820003018201000105018100010601010382000102810200
	140	82000301820100010101010001018100010601010382000102810200
	141	8200030182010001020181000181010002000401010282000102810200
	142	820003018201000181010001000101810001820100010301010282000102810200
	143	820003018201000184010001000182010001820100010301010282000102810200
	144	8200030182010001810100010081010003000401010282000102810200
	145	82000301820100010e01010282000102810200
	146	820003018201000108018100010301010282000102810200
	147	820003018201000108018100010301010282000102810200
	148	82000301820100018101000100010103000401010282000102810200
	149	8200030182010001820100010201810001820100010301010282000102810200
	150	8200030182010001820100010201810001820100010301010282000102810200
	151	82000301820100018101000100010104000301010382000102810200
	152	82000301820100010e01010382000102810200
	153	820003018101001200810102810200
	154	82000301150101020000
	155	82000301150101020000
	156	82000301150101020000
	157	8200030217020000
	158	81000218020000
	159	81020018000002
	160
	161	%
	162	% Compression made this file 22.07% 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