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