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