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