Evaluated proc magic:graph nlist { set lx 0; set ly 0; mcanvas c 500 500; for {set i 0} {$i < [* [llength $nlist] 10]} {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 }