Evaluated proc magic:centre {canvas image} { if {[@$image width] >= [@$canvas width]} { magic:scalex $image [*r [@$canvas width] 0.75] }; set c [magic:centrecoords $canvas $image]; @@$canvas composite $image over [first $c] [second $c] }