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