Evaluated proc mtext {canvas x y text {font Times-Roman} {fontsize 32} {strokewidth 1}} { set draw [magic:new draw]; @$draw push graph; @$draw strokewidth $strokewidth; @$draw font $font; @$draw fillcolor huh; @$draw fontsize $fontsize; @$draw annotation $x $y $text; @$draw pop graph; @@$canvas draw $draw  }