tcolor.ps - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tcolor.ps (1376B)
---
1 %
2 % Color and reverse video support for dpost. A call made to setcolor with two
3 % arguments implies reverse video printing.
4 %
5
6 /rgb {setrgbcolor} bind def
7 /hsb {sethsbcolor} bind def
8
9 /colordict 50 dict dup begin
10 /red { 1 0 0 } def
11 /green { 0 1 0 } def
12 /blue { 0 0 1 } def
13 /cyan { 0 1 1 } def
14 /magenta { 1 0 1 } def
15 /yellow { 1 1 0 } def
16 /white { 1 1 1 } def
17 /black { 0 0 0 } def
18 end def
19
20 /setcolor {
21 counttomark 1 eq {
22 dup colordict exch known not {pop /black} if
23 colordict exch get exec setrgbcolor
24 } if
25 counttomark 2 eq {
26 /backcolor exch def
27 /textcolor exch def
28 colordict backcolor known not colordict textcolor known not or {
29 /backcolor colordict /black get def
30 /textcolor colordict /white get def
31 } if
32 /backcolor colordict backcolor get def
33 /textcolor colordict textcolor get def
34 /dY1 0 def
35 /dY2 0 def
36 textcolor exec setrgbcolor
37 } if
38 } bind def
39
40 /drawrvbox {
41 /x2 exch def
42 /x1 exch def
43
44 currentpoint dup
45 /y1 exch def
46 /y2 exch def pop
47
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
52 } if
53
54 /y1 y1 dY1 add def
55 /y2 y2 dY2 add def
56
57 backcolor exec setrgbcolor
58 newpath
59 x1 y1 moveto
60 x2 y1 lineto
61 x2 y2 lineto
62 x1 y2 lineto
63 closepath fill
64 textcolor exec setrgbcolor
65 } bind def