tcolor.sr - 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.sr (2055B)
       ---
            1 .ds Dc black
            2 .ds Cc \*(Dc
            3 .de CL        \" Color selection macro
            4 .        \"
            5 .        \"        $1=color (e.g. .CL red) or
            6 .        \"        $1=textcolor on backgroundcolor (e.g. .CL "red on blue")
            7 .        \"        $1=red green blue rgb (e.g. .CL ".2 .3 .4 rgb") or
            8 .        \"        $1=hue saturation brightness hsb (e.g. .CL ".5 .6 .7 hsb")
            9 .        \"        $2=text
           10 .        \"
           11 .        \" If no arguments are given the default color (usually black) will be
           12 .        \" restored. If $2 is omitted the color selected by $1 remains in effect
           13 .        \" until another color is selected. If two arguments are given $2 will be
           14 .        \" printed in color $1 and then the default color will be restored.
           15 .        \"
           16 .        \" The color of the text and the background can be selected by setting $1
           17 .        \" to "textcolor on backgroundcolor" where textcolor and backgroundcolor
           18 .        \" can be any of the known colors. For example use .CL "white on black"
           19 .        \" for reverse video printing. Changing color in a word can be accomplished
           20 .        \" by preceeding the characters with a \X'SetColor:val' command, where val
           21 .        \" is the color you wish to use. Named colors are case independent.
           22 .        \"
           23 .        \" Implementation details are device dependent and are handled in the
           24 .        \" appropriate post-processor. Requesting a color that's not available
           25 .        \" (eg. not defined in /usr/lib/postscript/color.ps) results in the use
           26 .        \" of default colors - black or white on black for reverse video mode.
           27 .        \"
           28 .        \" All colors may not be supported on every output device, and the direct
           29 .        \" specification of a color via an explicit rgb or hsb argument may also
           30 .        \" be device dependent. In any case, to be safe on PostScript devices, all
           31 .        \" numeric paramenters in the direct rgb or hsb specifications should lie
           32 .        \" between 0 and 1 (inclusive). The names of the currently available colors
           33 .        \" on PostScript printers are listed in file /usr/lib/postscript/color.ps.
           34 .        \"
           35 .mk Ov
           36 .if \\n(.$=0 .ds Cc \\*(Dc
           37 .if \\n(.$=1 .ds Cc \\$1
           38 .if \\n(.$<2 \\X'SetColor:\\*(Cc'
           39 .if \\n(.$=2 \\X'SetColor:\\$1'\\c
           40 .if \\n(.$=2 'sp |\\n(Ovu
           41 .if \\n(.$=2 \\$2
           42 .if \\n(.$=2 .mk Ov
           43 .if \\n(.$=2 \\X'SetColor:\\*(Cc'\\c
           44 'sp |\\n(Ovu
           45 ..