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 0; if {$i > 0} {incr x}; set cvs [embed $cvs [gbc $l] [+ [expr $i*6] 1] 1]};. $cvs }