Evaluated proc magic:new {what {name {}}} { if {$name != ""} {magick create $what $name} {magick create $what} }