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