Mercurial > hg > octave-lyh

comparison scripts/plot/__bar__.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 9a6f4713f765
children e07e93c04080
comparison
equal deleted inserted replaced
8189:8e8afefe9466 8190:73d6b71788c0
65 endif 65 endif
66 66
67 newargs = {}; 67 newargs = {};
68 have_line_spec = false; 68 have_line_spec = false;
69 while (idx <= nargin - 2) 69 while (idx <= nargin - 2)
70 if (ischar (varargin{idx}) && strcmp (varargin{idx}, "grouped")) 70 if (ischar (varargin{idx}) && strcmpi (varargin{idx}, "grouped"))
71 group = true; 71 group = true;
72 idx++; 72 idx++;
73 elseif (ischar (varargin{idx}) && strcmp (varargin{idx}, "stacked")) 73 elseif (ischar (varargin{idx}) && strcmpi (varargin{idx}, "stacked"))
74 group = false; 74 group = false;
75 idx++; 75 idx++;
76 else 76 else
77 if ((ischar (varargin{idx}) || iscell (varargin{idx})) 77 if ((ischar (varargin{idx}) || iscell (varargin{idx}))
78 && ! have_line_spec) 78 && ! have_line_spec)
86 endif 86 endif
87 if (isscalar(varargin{idx})) 87 if (isscalar(varargin{idx}))
88 width = varargin{idx++}; 88 width = varargin{idx++};
89 elseif (idx == nargin - 2) 89 elseif (idx == nargin - 2)
90 newargs = [newargs,varargin(idx++)]; 90 newargs = [newargs,varargin(idx++)];
91 elseif (ischar (varargin{idx}) && strcmp (tolower (varargin{idx}), "basevalue") && 91 elseif (ischar (varargin{idx})
92 isscalar (varargin{idx+1})) 92 && strcmpi (varargin{idx}, "basevalue")
93 && isscalar (varargin{idx+1}))
93 bv = varargin{idx+1}; 94 bv = varargin{idx+1};
94 idx += 2; 95 idx += 2;
95 else 96 else
96 newargs = [newargs,varargin(idx:idx+1)]; 97 newargs = [newargs,varargin(idx:idx+1)];
97 idx += 2; 98 idx += 2;