Mercurial > hg > octave-nkf
diff scripts/plot/private/__clabel__.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | b0084095098e |
line wrap: on
line diff
--- a/scripts/plot/private/__clabel__.m +++ b/scripts/plot/private/__clabel__.m @@ -41,7 +41,7 @@ while (i1 < length (c)) clev = c(1,i1); clen = c(2,i1); - p = c(:, i1+1:i1+clen) + p = c(:, i1+1:i1+clen) xmin = min (c(1,:)); xmax = max (c(1,:)); @@ -83,7 +83,7 @@ tlabel = sprintf ("%g", clev); for i = 1 : ntag tagpos = pos(i); - + while (j1 < clen && cumd(j1) < tagpos) j1++; endwhile @@ -95,11 +95,11 @@ diff (c(1,i1+j1-1:i1+j1))); if (ischar (z)) - ht = text (tpos(1), tpos(2), clev, tlabel, "rotation", trot, + ht = text (tpos(1), tpos(2), clev, tlabel, "rotation", trot, "parent", hparent, "horizontalalignment", "center", "userdata", clev, varargin{:}); elseif (!isempty (z)) - ht = text (tpos(1), tpos(2), z, tlabel, "rotation", trot, + ht = text (tpos(1), tpos(2), z, tlabel, "rotation", trot, "parent", hparent, "horizontalalignment", "center", "userdata", clev, varargin{:}); else @@ -112,4 +112,4 @@ endfor i1 += clen+1; endwhile -endfunction \ No newline at end of file +endfunction \ No newline at end of file