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