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