Evaluated proc gaytest {url {x_ 100} {y_ 100} {inc 10}} {set w [magic:loadurl $url]; set x_ [@$w width]; set y_ [@$y height]; for {set y 0} {$y < $y_} {incr y $inc} { for {set x 0} {$x < $x_} {incr x $inc} { mtext $w $x $y [next_in_list {G A Y}] Helvetica-Bold [next_in_list {red orange yellow green blue purple}] } }; imgsave $w }