Evaluated proc hjoin {a b} { set x [+ [lline $a] [lline $b]]; set y [bigger [nlines $a] [nlines $b]]; embed [canvas [+ $x 2] $y] }