Mercurial > hg > octave-nkf

comparison scripts/plot/subplot.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 f0c3d3fc4903
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
118 continue; 118 continue;
119 endif 119 endif
120 if (strcmp (get (child, "type"), "axes")) 120 if (strcmp (get (child, "type"), "axes"))
121 ## Skip legend and colorbar objects. 121 ## Skip legend and colorbar objects.
122 if (strcmp (get (child, "tag"), "legend") || 122 if (strcmp (get (child, "tag"), "legend") ||
123 strcmp (get (child, "tag"), "colorbar")) 123 strcmp (get (child, "tag"), "colorbar"))
124 continue; 124 continue;
125 endif 125 endif
126 objpos = get (child, "position"); 126 objpos = get (child, "position");
127 if (all (objpos == pos)) 127 if (all (objpos == pos))
128 ## If the new axes are in exactly the same position as an 128 ## If the new axes are in exactly the same position as an
129 ## existing axes object, use the existing axes. 129 ## existing axes object, use the existing axes.
130 found = true; 130 found = true;
131 tmp = child; 131 tmp = child;
132 else 132 else
133 ## If the new axes overlap an old axes object, delete the old 133 ## If the new axes overlap an old axes object, delete the old
134 ## axes. 134 ## axes.
135 x0 = pos(1); 135 x0 = pos(1);
136 x1 = x0 + pos(3); 136 x1 = x0 + pos(3);
137 y0 = pos(2); 137 y0 = pos(2);
138 y1 = y0 + pos(4); 138 y1 = y0 + pos(4);
139 objx0 = objpos(1); 139 objx0 = objpos(1);
140 objx1 = objx0 + objpos(3); 140 objx1 = objx0 + objpos(3);
141 objy0 = objpos(2); 141 objy0 = objpos(2);
142 objy1 = objy0 + objpos(4); 142 objy1 = objy0 + objpos(4);
143 if (! (x0 >= objx1 || x1 <= objx0 || y0 >= objy1 || y1 <= objy0)) 143 if (! (x0 >= objx1 || x1 <= objx0 || y0 >= objy1 || y1 <= objy0))
144 delete (child); 144 delete (child);
145 endif 145 endif
146 endif 146 endif
147 endif 147 endif
148 endfor 148 endfor
149 149
150 if (found) 150 if (found)