Mercurial > octave-nkf

comparison scripts/plot/isonormals.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents 95c3e38098bf
children 693e22af08ae
comparison
equal deleted inserted replaced
10634:60542efcfa2c 10635:d1978e7364ad
96 if (ischar (varargin{nargin})) 96 if (ischar (varargin{nargin}))
97 na = nargin-1; 97 na = nargin-1;
98 if (strcmp (lower (varargin{nargin}), "negate")) 98 if (strcmp (lower (varargin{nargin}), "negate"))
99 negate = true; 99 negate = true;
100 else 100 else
101 error ("Unknown option '%s'", varargin{nargin}); 101 error ("isonormals: Unknown option '%s'", varargin{nargin});
102 endif 102 endif
103 endif 103 endif
104 switch na 104 switch na
105 case 2 105 case 2
106 c = varargin{1}; 106 c = varargin{1};
122 v = vp; 122 v = vp;
123 elseif (ishandle (vp)) 123 elseif (ishandle (vp))
124 pa = vp; 124 pa = vp;
125 v = get (pa, "Vertices"); 125 v = get (pa, "Vertices");
126 else 126 else
127 error ("Last argument is no vertex list and no patch handle"); 127 error ("isonormals: Last argument is not a vertex list or a patch handle");
128 endif 128 endif
129 if (negate) 129 if (negate)
130 normals = -__interp_cube__ (x, y, z, c, v, "normals"); 130 normals = -__interp_cube__ (x, y, z, c, v, "normals");
131 else 131 else
132 normals = __interp_cube__ (x, y, z, c, v, "normals"); 132 normals = __interp_cube__ (x, y, z, c, v, "normals");