Mercurial > octave-nkf

comparison scripts/plot/__contour__.m @ 7317:11c5f1ee553e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-14 17:42:55 by jwe]
author jwe
date Fri, 14 Dec 2007 17:43:34 +0000
parents a730e47fda4d
children dfcaf7ed48e3
comparison
equal deleted inserted replaced
7316:fac781a4078d 7317:11c5f1ee553e
21 function [c, h] = __contour__ (varargin) 21 function [c, h] = __contour__ (varargin)
22 22
23 ax = varargin{1}; 23 ax = varargin{1};
24 z = varargin{2}; 24 z = varargin{2};
25 25
26 linespec.linestyle = "-";
27 linespec.color = "flat";
28 for i = 3 : nargin
29 arg = varargin {i};
30 if ((ischar (arg) || iscell (arg)))
31 [linespec, valid] = __pltopt__ ("quiver", arg, false);
32 if (isempty (linespec.color))
33 linespec.color = "flat";
34 endif
35 if (valid)
36 have_line_spec = true;
37 varargin(i) = [];
38 break;
39 endif
40 endif
41 endfor
42
26 if (ischar (z)) 43 if (ischar (z))
27 if (strcmp (z, "none")) 44 if (strcmp (z, "none"))
28 z = NaN; 45 z = NaN;
29 elseif (strcmp (z, "base")) 46 elseif (strcmp (z, "base"))
30 if (nargin == 1) 47 if (nargin < 3)
31 z = varargin{1}; 48 z = varargin{1};
32 else 49 else
33 z = varargin{3}; 50 z = varargin{3};
34 endif 51 endif
35 z = 2 * (min (z(:)) - max (z(:))); 52 z = 2 * (min (z(:)) - max (z(:)));
53 p = [c(:, i1+1:i1+clen), NaN(2, 1)]; 70 p = [c(:, i1+1:i1+clen), NaN(2, 1)];
54 endif 71 endif
55 72
56 if (isnan (z)) 73 if (isnan (z))
57 h = [h; patch(ax, p(1,:), p(2,:), "facecolor", "none", 74 h = [h; patch(ax, p(1,:), p(2,:), "facecolor", "none",
58 "edgecolor", "flat", "cdata", clev)]; 75 "edgecolor", linespec.color, "linestyle",
76 linespec.linestyle, "cdata", clev)];
59 elseif (!ischar(z)) 77 elseif (!ischar(z))
60 h = [h; patch(ax, p(1,:), p(2,:), z * ones (1, columns (p)), "facecolor", 78 h = [h; patch(ax, p(1,:), p(2,:), z * ones (1, columns (p)), "facecolor",
61 "none", "edgecolor", "flat", "cdata", clev)]; 79 "none", "edgecolor", linespec.color,
80 "linestyle", linespec.linestyle, "cdata", clev)];
62 else 81 else
63 h = [h; patch(ax, p(1,:), p(2,:), clev * ones (1, columns (p)), 82 h = [h; patch(ax, p(1,:), p(2,:), clev * ones (1, columns (p)),
64 "facecolor", "none", "edgecolor", "flat", "cdata", clev)]; 83 "facecolor", "none", "edgecolor", linespec.color,
84 "linestyle", linespec.linestyle, "cdata", clev)];
65 endif 85 endif
66 i1 += clen+1; 86 i1 += clen+1;
67 endwhile 87 endwhile
68 88
69 endfunction 89 endfunction