Evaluated proc magic:resize {wand {x {}} {y {}}} { if {$y != "" && $x != ""} { @@$wand resize $x $y } elseif { $x == "" && $y != "" } { magic:scalex $wand $x; save $w } elseif {$x != "" && $y == ""} { magic:scaley $wand $y; save $wand } else { error {you must suppy at least one argument} } }