Mercurial > hg > octave-max
changeset 7147:fdb3840cec66
[project @ 2007-11-09 17:56:34 by jwe]
author | jwe |
---|---|
date | Fri, 09 Nov 2007 17:56:34 +0000 |
parents | c7e5e638a8d0 |
children | 735086cfd405 |
files | scripts/plot/__area__.m scripts/plot/area.m |
diffstat | 2 files changed, 19 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/plot/__area__.m +++ b/scripts/plot/__area__.m @@ -19,15 +19,21 @@ ## Undocumented internal function. function retval = __area__ (ax, x, y, bv, varargin) + colors = [1, 0, 0; 0, 1, 0; 0, 0, 1; 1, 1, 0; 1, 0, 1; 0, 1, 1]; - x = [x(1,:) ; x ; x(end,:)]; - y = cumsum ([[bv, ones(1, size (y, 2) - 1)] ; y ; ... + + x = [x(1,:); x; x(end,:)]; + + y = cumsum ([[bv, ones(1, size (y, 2) - 1)]; y; [bv, ones(1, size (y, 2) - 1)]], 2); - retval = patch (ax, x(:, 1), y (:, 1), colors (1,:), varargin{:}); - for i = 2 : size(y, 2) - retval = [retval; patch(ax, [x(:,i); flipud(x(:,i))], ... - [y(:, i) ; flipud(y(:, i-1))], colors(i,:), - varargin{:})]; + retval = patch (ax, x(:,1), y(:,1), colors(1,:), varargin{:}); + + for i = 2:size(y,2) + tmp = patch (ax, [x(:,i); flipud(x(:,i))], + [y(:,i) ; flipud(y(:, i-1))], colors(i,:), varargin{:}); + + retval = [retval; tmp]; endfor + endfunction
--- a/scripts/plot/area.m +++ b/scripts/plot/area.m @@ -38,7 +38,7 @@ ## @seealso{plot, patch} ## @end deftypefn -function [ h ] = area (varargin) +function h = area (varargin) if (nargin > 0) idx = 1; @@ -46,13 +46,13 @@ x = y = []; bv = 0; args = {}; - # check for axes parent - if (ishandle (varargin{idx}) && - strcmp (get (varargin{idx}, "type"), "axes")) + ## Check for axes parent. + if (ishandle (varargin{idx}) + && strcmp (get (varargin{idx}, "type"), "axes")) ax = varargin{idx}; idx++; endif - # check for (X) or (X,Y) arguments and possible base value + ## Check for (X) or (X,Y) arguments and possible base value. if (nargin >= idx && ismatrix (varargin{idx})) y = varargin{idx}; idx++; @@ -73,7 +73,7 @@ else print_usage (); endif - # check for additional args + ## Check for additional args. if (nargin >= idx) args = {varargin{idx:end}}; endif