Evaluated proc magic:scaley {wand y} { set r [imgratio $wand]; @$wand scale [/r $y $r] $y }