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