Mercurial > octave

changeset 18336:15487cae60a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fill.m: Replicate X or Y vector input to match size of X or Y matrix input. * fill.m: Replicate X or Y vector input to match size of X or Y matrix input.
author Rik <rik@octave.org>
date Wed, 22 Jan 2014 18:59:56 -0800
parents d7c88126ac03
children 313ebc905e38
files scripts/plot/draw/fill.m
diffstat 1 files changed, 14 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/plot/draw/fill.m	Wed Jan 22 18:03:44 2014 -0800
+++ b/scripts/plot/draw/fill.m	Wed Jan 22 18:59:56 2014 -0800
@@ -92,17 +92,28 @@
       set (hax, "nextplot", "add");
 
       for i = 1 : length (iargs)
+        x = varargin{iargs(i)};
+        y = varargin{iargs(i) + 1};
         cdata = varargin{iargs(i) + 2};
+
+        if (! size_equal (x,y))
+          if (iscolumn (y) && rows (y) == rows (x))
+            y = repmat (y, [1, columns(x)]);
+          elseif (iscolumn (x) && rows (x) == rows (y))
+            x = repmat (x, [1, columns(y)]);
+          else
+            error ("fill: X annd Y must have same number of rows");
+          endif
+        endif
         ## For Matlab compatibility, replicate cdata to match size of data
         if (iscolumn (cdata) && ! ischar (cdata))
-          sz = size (varargin{iargs(i)});
+          sz = size (x);
           if (all (sz > 1))
             cdata = repmat (cdata, [1, sz(2)]);
           endif
         endif
 
-        [htmp, fail] = __patch__ (hax, varargin{iargs(i)+(0:1)}, cdata,
-                                       opts{:});
+        [htmp, fail] = __patch__ (hax, x, y, cdata, opts{:});
         if (fail)
           print_usage ();
         endif