Mercurial > hg > octave-lyh

diff scripts/plot/fill.m @ 8190:73d6b71788c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use case-insensitive comparison for graphics properties; misc style fixes
author John W. Eaton <jwe@octave.org>
date Mon, 06 Oct 2008 21:06:05 -0400
parents eb7bdde776f2
children ec4d9d657b17
line wrap: on
line diff
--- a/scripts/plot/fill.m
+++ b/scripts/plot/fill.m
@@ -64,8 +64,9 @@
   i = 1;
   while (i < nargin)
     iargs (end + 1) = i;
-    if (ischar (varargin{i}) && (strcmp (tolower (varargin{i}), "faces") || 
-				  strcmp (tolower (varargin{i}), "vertices")))
+    if (ischar (varargin{i})
+	&& (strcmpi (varargin{i}, "faces")
+	    || strcmpi (varargin{i}, "vertices")))
       i += 4;
     elseif (isnumeric (varargin{i}))
       i += 2;
@@ -74,8 +75,8 @@
     if (i <= nargin)
       while (true);
 	if (ischar (varargin{i}) && 
-	    (strcmp (tolower (varargin{i}), "faces") || 
-	     strcmp (tolower (varargin{i}), "vertices")))
+	    (strcmpi (varargin{i}, "faces")
+	     || strcmpi (varargin{i}, "vertices")))
 	  break;
 	elseif (isnumeric (varargin{i}))
 	  ## Assume its the colorspec
@@ -85,16 +86,16 @@
 	  colspec = tolower (varargin{i});
 	  collen = length (colspec);
 
-	  if (strncmp (colspec, "blue", collen) ||
-	      strncmp (colspec, "black", collen) ||
-	      strncmp (colspec, "k", collen) ||
-	      strncmp (colspec, "black", collen) ||
-	      strncmp (colspec, "red", collen) ||
-	      strncmp (colspec, "green", collen) ||
-	      strncmp (colspec, "yellow", collen) ||
-	      strncmp (colspec, "magenta", collen) ||
-	      strncmp (colspec, "cyan", collen) ||
-	      strncmp (colspec, "white", collen))
+	  if (strncmp (colspec, "blue", collen)
+	      || strncmp (colspec, "black", collen)
+	      || strncmp (colspec, "k", collen)
+	      || strncmp (colspec, "black", collen)
+	      || strncmp (colspec, "red", collen)
+	      || strncmp (colspec, "green", collen)
+	      || strncmp (colspec, "yellow", collen)
+	      || strncmp (colspec, "magenta", collen)
+	      || strncmp (colspec, "cyan", collen)
+	      || strncmp (colspec, "white", collen))
 	    i++;
 	    break;
 	  endif