Evaluated proc koolthing {{s 25} {w 500} {h 500}} { mcanvas c $w $h; for {set i 0} {$i < $w} {incr i $s} { set r [rcolour]; magic:line c 0 $i $i $h strokeantialias 1 strokecolor $r fillcolor $r }; save c }