Evaluated proc gaytest {url {x_ 100} {y_ 100} {inc 10} {letters {G A Y}}} {set w [magic:loadurl $url]; 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 $letters] Helvetica-Bold [next_in_list {red orange yellow green blue purple}] } }; save $w }