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; magic:line c 500 500 0 $i }; save c }