Evaluated proc magic:text {canvas x y text {f Helvetica} {c black} {fs 32} {sw 0} {sc black} {r 0} {o 1}} {set p [magic:new pixel]; set d [magic:new draw]; set s [magic:new pixel]; @$p color $c; @$s color $sc; @$d push graph; @$d strokewidth $sw; @$d strokecolor $s; @$d font $f; @$d fillopacity $o; @$d fillcolor $p; @$d fontsize $fs; @$d rotate $r; @$d annotation $x $y $text; @$d pop graph; @@$canvas draw $d  }