1#!/bin/sh
2# -*- tcl -*- \
3exec tclsh "$0" ${1+"$@"}
4lappend auto_path [file join [file dirname [file dirname [file dirname [info script]]]] modules]
5package require term::ansi::send
6term::ansi::send::import vt
7
8array set cs {
9    {}      {Default}
10    red     {Red    }
11    green   {Green  }
12    yellow  {Yellow }
13    blue    {Blue   }
14    magenta {Magenta}
15    cyan    {Cyan   }
16    white   {White  }
17}
18
19vt::init
20vt::clear
21vt::wr \n
22vt::wr {    }
23vt::sda_bgcyan
24vt::wr {[ Colorization ]}
25vt::sda_reset
26vt::wr \n\n
27
28vt::wr "   \016lqqqqqqqqqk  lqqqqqqqqqk\017\n"
29
30foreach c {{} red green yellow blue magenta cyan white} {
31
32    vt::sda_fgdefault
33    vt::wr {   }
34    vt::wr "\016x\017"
35    if {$c != {}} vt::sda_bg$c
36    vt::wr " $cs($c) "
37    vt::sda_reset
38    vt::wr "\016x\017"
39
40    vt::wr {  }
41
42    vt::wr "\016x\017"
43    vt::sda_bold
44    if {$c != {}} vt::sda_fg$c
45    vt::wr " $cs($c) "
46    vt::sda_reset
47    vt::wr "\016x\017\n"
48}
49
50vt::wr "   \016mqqqqqqqqqj  mqqqqqqqqqj\017\n\n"
51
52exit
53