Evaluated proc magic:line {wand x0 y0 x1 y1} { set d [magic:new draw]; @$d line $x0 $y0 $x1 $y1; @$wand draw $d }