Evaluated proc magic:line {wand x0 y0 x1 y1 args} { set d [magic:new draw]; if { $args != "" } { magic:apply $d $args }; @$d line $x0 $y0 $x1 $y1; @$wand draw $d }