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