1 13f7391e 2004-05-15 devnull %
 2 13f7391e 2004-05-15 devnull % Color and reverse video support for dpost. A call made to setcolor with two
 3 13f7391e 2004-05-15 devnull % arguments implies reverse video printing.
 4 13f7391e 2004-05-15 devnull %
 5 13f7391e 2004-05-15 devnull 
 6 13f7391e 2004-05-15 devnull /rgb {setrgbcolor} bind def
 7 13f7391e 2004-05-15 devnull /hsb {sethsbcolor} bind def
 8 13f7391e 2004-05-15 devnull 
 9 13f7391e 2004-05-15 devnull /colordict 50 dict dup begin
10 13f7391e 2004-05-15 devnull 	/red			{ 1 0 0 } def
11 13f7391e 2004-05-15 devnull 	/green			{ 0 1 0 } def
12 13f7391e 2004-05-15 devnull 	/blue			{ 0 0 1 } def
13 13f7391e 2004-05-15 devnull 	/cyan			{ 0 1 1 } def
14 13f7391e 2004-05-15 devnull 	/magenta		{ 1 0 1 } def
15 13f7391e 2004-05-15 devnull 	/yellow			{ 1 1 0 } def
16 13f7391e 2004-05-15 devnull 	/white			{ 1 1 1 } def
17 13f7391e 2004-05-15 devnull 	/black			{ 0 0 0 } def
18 13f7391e 2004-05-15 devnull end def
19 13f7391e 2004-05-15 devnull 
20 13f7391e 2004-05-15 devnull /setcolor {
21 13f7391e 2004-05-15 devnull 	counttomark 1 eq {
22 13f7391e 2004-05-15 devnull 		dup colordict exch known not {pop /black} if
23 13f7391e 2004-05-15 devnull 		colordict exch get exec setrgbcolor
24 13f7391e 2004-05-15 devnull 	} if
25 13f7391e 2004-05-15 devnull 	counttomark 2 eq {
26 13f7391e 2004-05-15 devnull 		/backcolor exch def
27 13f7391e 2004-05-15 devnull 		/textcolor exch def
28 13f7391e 2004-05-15 devnull 		colordict backcolor known not colordict textcolor known not or {
29 13f7391e 2004-05-15 devnull 			/backcolor colordict /black get def
30 13f7391e 2004-05-15 devnull 			/textcolor colordict /white get def
31 13f7391e 2004-05-15 devnull 		} if
32 13f7391e 2004-05-15 devnull 		/backcolor colordict backcolor get def
33 13f7391e 2004-05-15 devnull 		/textcolor colordict textcolor get def
34 13f7391e 2004-05-15 devnull 		/dY1 0 def
35 13f7391e 2004-05-15 devnull 		/dY2 0 def
36 13f7391e 2004-05-15 devnull 		textcolor exec setrgbcolor
37 13f7391e 2004-05-15 devnull 	} if
38 13f7391e 2004-05-15 devnull } bind def
39 13f7391e 2004-05-15 devnull 
40 13f7391e 2004-05-15 devnull /drawrvbox {
41 13f7391e 2004-05-15 devnull 	/x2 exch def
42 13f7391e 2004-05-15 devnull 	/x1 exch def
43 13f7391e 2004-05-15 devnull 
44 13f7391e 2004-05-15 devnull 	currentpoint dup
45 13f7391e 2004-05-15 devnull 	/y1 exch def
46 13f7391e 2004-05-15 devnull 	/y2 exch def pop
47 13f7391e 2004-05-15 devnull 
48 13f7391e 2004-05-15 devnull 	dY1 0 eq dY2 0 eq and {
49 13f7391e 2004-05-15 devnull 		currentfont /FontBBox get aload pop
50 13f7391e 2004-05-15 devnull 		currentfont /FontMatrix get dtransform /dY2 exch def pop
51 13f7391e 2004-05-15 devnull 		currentfont /FontMatrix get dtransform /dY1 exch def pop
52 13f7391e 2004-05-15 devnull 	} if
53 13f7391e 2004-05-15 devnull 
54 13f7391e 2004-05-15 devnull 	/y1 y1 dY1 add def
55 13f7391e 2004-05-15 devnull 	/y2 y2 dY2 add def
56 13f7391e 2004-05-15 devnull 
57 13f7391e 2004-05-15 devnull 	backcolor exec setrgbcolor
58 13f7391e 2004-05-15 devnull 	newpath
59 13f7391e 2004-05-15 devnull 	x1 y1 moveto
60 13f7391e 2004-05-15 devnull 	x2 y1 lineto
61 13f7391e 2004-05-15 devnull 	x2 y2 lineto
62 13f7391e 2004-05-15 devnull 	x1 y2 lineto
63 13f7391e 2004-05-15 devnull 	closepath fill
64 13f7391e 2004-05-15 devnull 	textcolor exec setrgbcolor
65 13f7391e 2004-05-15 devnull } bind def