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 II ]}
14vt::sda_reset
15vt::wr \n\n
16
17
18
19set symbols {fgyz{|}~}
20
21set     lines {}
22lappend lines {opqrs}
23lappend lines {}
24lappend lines {lqwqk}
25lappend lines {x x x}
26lappend lines {tqnqu}
27lappend lines {x x x}
28lappend lines {mqvqj}
29
30
31
32set foo {}
33foreach line $lines {
34    lappend foo "    \016$line\017  $line"
35}
36lappend foo {}
37lappend foo "   \016lqqqqqqqqk\017"
38lappend foo "   \016x\017$symbols\016x\017"
39lappend foo "   \016x${symbols}x\017"
40lappend foo "   \016mqqqqqqqqj\017"
41
42
43
44vt::wr	[join $foo \n]\n\n
45exit
46