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