Mercurial > hg > octave-nkf
diff scripts/plot/__contour__.m @ 7189:e8d953d03f6a
[project @ 2007-11-26 20:42:09 by dbateman]
author | dbateman |
---|---|
date | Mon, 26 Nov 2007 20:42:11 +0000 |
parents | 5ff4da7bd2e7 |
children | b48a21816f2e |
line wrap: on
line diff
--- a/scripts/plot/__contour__.m +++ b/scripts/plot/__contour__.m @@ -38,15 +38,11 @@ endif endif - clim = get (ax, "clim"); - [c, lev] = contourc (varargin{3:end}); ## Decode contourc output format. i1 = 1; h = []; - maxlev = max (lev); - minlev = min (lev); while (i1 < length (c)) clev = c(1,i1); clen = c(2,i1); @@ -57,17 +53,15 @@ p = [c(:, i1+1:i1+clen), NaN(2, 1)]; endif - lev = (clev - minlev) * (clim(2) - clim(1)) / (maxlev - minlev) + clim(1); - if (isnan (z)) h = [h; patch(ax, p(1,:), p(2,:), "facecolor", "none", - "edgecolor", "flat", "cdata", lev)]; + "edgecolor", "flat", "cdata", clev)]; elseif (!ischar(z)) h = [h; patch(ax, p(1,:), p(2,:), z * ones (1, columns (p)), "facecolor", - "none", "edgecolor", "flat", "cdata", lev)]; + "none", "edgecolor", "flat", "cdata", clev)]; else h = [h; patch(ax, p(1,:), p(2,:), clev * ones (1, columns (p)), - "facecolor", "none", "edgecolor", "flat", "cdata", lev)]; + "facecolor", "none", "edgecolor", "flat", "cdata", clev)]; endif i1 += clen+1; endwhile