Mercurial > octave

comparison scripts/plot/legend.m @ 11926:f7d4376f36d5 release-3-0-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix legend order for both horizontal and vertical string cell.
author Daniel J Sebald <daniel.sebald@ieee.org>
date Fri, 16 Jan 2009 08:33:15 +0100
parents 03dab4d76975
children 0d7e145c1ca4
comparison
equal deleted inserted replaced
11925:e09ae0f2c767 11926:f7d4376f36d5
146 else 146 else
147 varargin = cellstr (arg); 147 varargin = cellstr (arg);
148 nargs = numel (varargin); 148 nargs = numel (varargin);
149 endif 149 endif
150 elseif (iscellstr (arg)) 150 elseif (iscellstr (arg))
151 varargin = fliplr (arg); 151 varargin = arg;
152 nargs = numel (varargin); 152 nargs = numel (varargin);
153 else 153 else
154 error ("legend: expecting argument to be a character string"); 154 error ("legend: expecting argument to be a character string");
155 endif 155 endif
156 else
157 varargin(1:nargs) = fliplr (varargin(1:nargs));
158 endif 156 endif
159 157
160 if (nargs > 0) 158 if (nargs > 0)
161 have_data = false; 159 have_data = false;
162 for i = 1:nkids 160 for i = 1:nkids
171 warning ("legend: plot data is empty; setting key labels has no effect"); 169 warning ("legend: plot data is empty; setting key labels has no effect");
172 endif 170 endif
173 endif 171 endif
174 172
175 warned = false; 173 warned = false;
176 for i = 1:nargs 174 for i = nargs:-1:1
177 arg = varargin{i}; 175 arg = varargin{i};
178 if (ischar (arg)) 176 if (ischar (arg))
179 while (k <= nkids 177 while (k <= nkids
180 && ! (strcmp (get (kids(k), "type"), "line") 178 && ! (strcmp (get (kids(k), "type"), "line")
181 || strcmp (get (kids(k), "type"), "surface") 179 || strcmp (get (kids(k), "type"), "surface")