Evaluated proc magic:graph nlist { set w 500; set h 500; set lx 0; set ly 0; mcanvas c $w $h; for {set i 0} {$i < [* [llength $nlist] 10]} {incr i 10} { set c [next_in_list $nlist]; lappend ::log $c; set ny [- [/r $h 2] $c]; magic:line c $lx $ly $i $ny; set lx $i; set ly $ny }; save c }