Evaluated proc magic:text {canvas x y text {font Helvetica} {color black} {fontsize 32} {strokewidth 1} {rotate 0} {opacity 1}} {set pixel [magic:new pixel]; set draw [magic:new draw]; @$pixel color $color; @$draw push graph; @$draw strokewidth $strokewidth; @$draw font $font; @$draw fillopacity $opacity; @$draw fillcolor $pixel; @$draw fontsize $fontsize; @$draw rotate $rotate; @$draw annotation $x $y $text; @$draw pop graph; @@$canvas draw $draw  }