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