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