Mercurial > octave-nkf

comparison scripts/plot/gtext.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents c2923c27c877
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
30 function gtext (s, varargin) 30 function gtext (s, varargin)
31 31
32 if (nargin > 0) 32 if (nargin > 0)
33 if (iscellstr (s)) 33 if (iscellstr (s))
34 if (isempty (s)) 34 if (isempty (s))
35 s = ""; 35 s = "";
36 else 36 else
37 s = sprintf ("%s\n", s{:}); 37 s = sprintf ("%s\n", s{:});
38 endif 38 endif
39 endif 39 endif
40 if (ischar (s)) 40 if (ischar (s))
41 if (! isempty (s)) 41 if (! isempty (s))
42 [x, y] = ginput (1); 42 [x, y] = ginput (1);
43 text (x, y, s, varargin{:}); 43 text (x, y, s, varargin{:});
44 endif 44 endif
45 else 45 else
46 error ("gtext: expecting a string or cell array of strings"); 46 error ("gtext: expecting a string or cell array of strings");
47 endif 47 endif
48 else 48 else