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