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
8vt::init
9vt::clear
10vt::wr \n
11vt::wr {    }
12vt::sda_bgcyan
13vt::wr {[ Boxes ]}
14vt::sda_reset
15vt::wr \n\n
16
17
18
19set symbols {f g y z { | } ~ }
20
21set     lines {}
22lappend lines {o p q r s}
23lappend lines {l q w q k}
24lappend lines {         }
25lappend lines {x   x   x}
26lappend lines {         }
27lappend lines {t q n q u}
28lappend lines {         }
29lappend lines {x   x   x}
30lappend lines {         }
31lappend lines {m q v q j}
32
33
34
35set foo {}
36foreach line $lines {
37    lappend foo "    \016$line\017  $line"
38}
39lappend foo {}
40lappend foo "    $symbols"
41lappend foo "    \016$symbols\017"
42
43
44
45vt::wr	[join $foo \n]\n\n
46exit
47