putstr.m (331B)
1 % putstr.m -- []=putstr(blah); 2 % 3 % Uses mergtex(ntex(blah)) to place string. 4 5 function []=putstr(blah,color,fontname); 6 if exist('color')~=1; color='k'; end; 7 disp(['Place the string: ' blah]); 8 %mergtex(ntex(blah)); 9 if exist('fontname')~=1; 10 gtext(blah,'Color',color); 11 else; 12 gtext(blah,'FontName',fontname,'Color',color); 13 end;