Mercurial > octave-nkf

comparison scripts/plot/area.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 1aeb39118764
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
118 addlistener (hg, "xdata", @update_data); 118 addlistener (hg, "xdata", @update_data);
119 addlistener (hg, "ydata", @update_data); 119 addlistener (hg, "ydata", @update_data);
120 120
121 if (i == 1) 121 if (i == 1)
122 h = patch (ax, [x1(1), x1, fliplr(x1)], [bv, y1, bv*ones(1, length(y1))], 122 h = patch (ax, [x1(1), x1, fliplr(x1)], [bv, y1, bv*ones(1, length(y1))],
123 __next_line_color__ (), "parent", hg); 123 __next_line_color__ (), "parent", hg);
124 else 124 else
125 y1 = y0 + y1; 125 y1 = y0 + y1;
126 h = patch (ax, [x1(1), x1, fliplr(x1)], [y0(1), y1, fliplr(y0)], 126 h = patch (ax, [x1(1), x1, fliplr(x1)], [y0(1), y1, fliplr(y0)],
127 __next_line_color__ (), "parent", hg); 127 __next_line_color__ (), "parent", hg);
128 endif 128 endif
129 129
130 y0 = y1; 130 y0 = y1;
131 131
132 addproperty ("basevalue", hg, "data", bv); 132 addproperty ("basevalue", hg, "data", bv);
169 recursion = true; 169 recursion = true;
170 hlist = get (h, "areagroup"); 170 hlist = get (h, "areagroup");
171 b0 = get (h, "basevalue"); 171 b0 = get (h, "basevalue");
172 172
173 for hh = hlist(:)' 173 for hh = hlist(:)'
174 if (hh != h) 174 if (hh != h)
175 b1 = get (hh, "basevalue"); 175 b1 = get (hh, "basevalue");
176 if (b1 != b0) 176 if (b1 != b0)
177 set (hh, "basevalue", b0); 177 set (hh, "basevalue", b0);
178 endif 178 endif
179 endif 179 endif
180 endfor 180 endfor
181 update_data (h, d); 181 update_data (h, d);
182 unwind_protect_cleanup 182 unwind_protect_cleanup
183 recursion = false; 183 recursion = false;
184 end_unwind_protect 184 end_unwind_protect