Evaluated proc koolthing {{s 25} {w 500} {h 500}} { 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 }