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