Evaluated proc gbt args {set str [. $args]; set cvs [canvas [expr 6*[string length $str]] 5]; for {set i 0} {$i < [string length $str]} {incr i} {set l [string index $str $i]; set x 6; if {$i > 0} {incr x}; set cvs [embed $cvs [gbc $l] [expr $i*$x] 1]};. $cvs }