Evaluated proc gayborder wand { set color [magic:new pixel]; map $::rainbow {x {@$color color $x; @$wand border $color 10 10}}; save $wand }