Evaluated proc magic:graph nlist { set lx 0; set ly 0; mcanvas c 500 500; for {set i 0} {$i < 500} {incr i 10} { set c [next_in_list $nlist]; lappend ::log $c; set ny [+ 250 $c]; magic:line c $lx $ly $i $ny; set lx $i; set ly $ny }; save c }