Mercurial > octave-nkf
diff scripts/plot/subplot.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | f0c3d3fc4903 |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/plot/subplot.m Fri Apr 23 11:13:48 2010 -0700 +++ b/scripts/plot/subplot.m Fri Apr 23 11:28:50 2010 -0700 @@ -120,29 +120,29 @@ if (strcmp (get (child, "type"), "axes")) ## Skip legend and colorbar objects. if (strcmp (get (child, "tag"), "legend") || - strcmp (get (child, "tag"), "colorbar")) + strcmp (get (child, "tag"), "colorbar")) continue; endif objpos = get (child, "position"); if (all (objpos == pos)) - ## If the new axes are in exactly the same position as an - ## existing axes object, use the existing axes. - found = true; - tmp = child; + ## If the new axes are in exactly the same position as an + ## existing axes object, use the existing axes. + found = true; + tmp = child; else - ## If the new axes overlap an old axes object, delete the old - ## axes. - x0 = pos(1); - x1 = x0 + pos(3); - y0 = pos(2); - y1 = y0 + pos(4); - objx0 = objpos(1); - objx1 = objx0 + objpos(3); - objy0 = objpos(2); - objy1 = objy0 + objpos(4); - if (! (x0 >= objx1 || x1 <= objx0 || y0 >= objy1 || y1 <= objy0)) - delete (child); - endif + ## If the new axes overlap an old axes object, delete the old + ## axes. + x0 = pos(1); + x1 = x0 + pos(3); + y0 = pos(2); + y1 = y0 + pos(4); + objx0 = objpos(1); + objx1 = objx0 + objpos(3); + objy0 = objpos(2); + objy1 = objy0 + objpos(4); + if (! (x0 >= objx1 || x1 <= objx0 || y0 >= objy1 || y1 <= objy0)) + delete (child); + endif endif endif endfor