Evaluated proc magic:scalex {wand x} { set r [imgratio $wand]; @$wand scale $x [*r $x $r] }