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