Evaluated proc magic:centre {wand1 wand2} { return [list [expr abs([@$wand1 width]-[@$wand2 width])/2] [expr abs([@$wand1 height]-[@$wand2 height])/2] }