Evaluated proc magic:texturl {url x y text {size 32} {color black}} { set w [magic:loadurl $url]; mtext $w $x $y $text Helvetica $color $size; imgsave $w }