Evaluated proc magic:centre {canvas image} { if {} {}; set c [magic:centrecoords $canvas $image]; @@$canvas composite $image over [first $c] [second $c] }