Evaluated proc mcanvas {wandname x y} { set wand [magic:new wand $wandname]; @$wand size $x $y; magick readcolor $wand none; return $wand }