Mercurial > octave-nkf

comparison scripts/plot/__bars__.m @ 8070:3b53b25e2550

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add data sources and line series
author David Bateman <dbateman@free.fr>
date Thu, 28 Aug 2008 12:23:54 -0400
parents 9a6f4713f765
children a028a5960e18
comparison
equal deleted inserted replaced
8069:c64c9581e9bf 8070:3b53b25e2550
27 tmp = []; 27 tmp = [];
28 28
29 for i = 1:ycols 29 for i = 1:ycols
30 hg = hggroup (); 30 hg = hggroup ();
31 tmp = [tmp; hg]; 31 tmp = [tmp; hg];
32 32 args = __add_datasource__ ("bar", hg, {"x", "y"}, varargin{:});
33
33 if (vertical) 34 if (vertical)
34 if (! have_color_spec) 35 if (! have_color_spec)
35 if (ycols == 1) 36 if (ycols == 1)
36 lev = clim(1); 37 lev = clim(1);
37 else 38 else
38 lev = (i - 1) * (clim(2) - clim(1)) / (ycols - 1) - clim(1); 39 lev = (i - 1) * (clim(2) - clim(1)) / (ycols - 1) - clim(1);
39 endif 40 endif
40 h = patch(xb(:,:,i), yb(:,:,i), "FaceColor", "flat", 41 h = patch(xb(:,:,i), yb(:,:,i), "FaceColor", "flat",
41 "cdata", lev, "parent", hg, varargin{:}); 42 "cdata", lev, "parent", hg, args{:});
42 else 43 else
43 h = patch(xb(:,:,i), yb(:,:,i), "parent", hg, varargin{:}); 44 h = patch(xb(:,:,i), yb(:,:,i), "parent", hg, args{:});
44 endif 45 endif
45 else 46 else
46 if (! have_color_spec) 47 if (! have_color_spec)
47 if (ycols == 1) 48 if (ycols == 1)
48 lev = clim(1) 49 lev = clim(1)
49 else 50 else
50 lev = (i - 1) * (clim(2) - clim(1)) / (ycols - 1) - clim(1); 51 lev = (i - 1) * (clim(2) - clim(1)) / (ycols - 1) - clim(1);
51 endif 52 endif
52 h = patch(yb(:,:,i), xb(:,:,i), "FaceColor", "flat", 53 h = patch(yb(:,:,i), xb(:,:,i), "FaceColor", "flat",
53 "cdata", lev, "parent", hg, varargin{:}); 54 "cdata", lev, "parent", hg, args{:});
54 else 55 else
55 h = patch(yb(:,:,i), xb(:,:,i), "parent", hg, varargin{:}); 56 h = patch(yb(:,:,i), xb(:,:,i), "parent", hg, args{:});
56 endif 57 endif
57 endif 58 endif
58 59
59 if (i == 1) 60 if (i == 1)
60 x_axis_range = get (ax, "xlim"); 61 x_axis_range = get (ax, "xlim");