2 % Color and reverse video support for dpost. A call made to setcolor with two
3 % arguments implies reverse video printing.
6 /rgb {setrgbcolor} bind def
7 /hsb {sethsbcolor} bind def
9 /colordict 50 dict dup begin
14 /magenta { 1 0 1 } def
22 dup colordict exch known not {pop /black} if
23 colordict exch get exec setrgbcolor
28 colordict backcolor known not colordict textcolor known not or {
29 /backcolor colordict /black get def
30 /textcolor colordict /white get def
32 /backcolor colordict backcolor get def
33 /textcolor colordict textcolor get def
36 textcolor exec setrgbcolor
48 dY1 0 eq dY2 0 eq and {
49 currentfont /FontBBox get aload pop
50 currentfont /FontMatrix get dtransform /dY2 exch def pop
51 currentfont /FontMatrix get dtransform /dY1 exch def pop
57 backcolor exec setrgbcolor
64 textcolor exec setrgbcolor