Mercurial > octave-nkf

comparison scripts/plot/axis.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 568c7c041fac
children e86651d2fde5
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
141 else 141 else
142 xlim = get (ca, "xlim"); 142 xlim = get (ca, "xlim");
143 ylim = get (ca, "ylim"); 143 ylim = get (ca, "ylim");
144 view = get (ca, "view"); 144 view = get (ca, "view");
145 if (view(2) == 90) 145 if (view(2) == 90)
146 curr_axis = [xlim, ylim]; 146 curr_axis = [xlim, ylim];
147 else 147 else
148 zlim = get (ca, "zlim"); 148 zlim = get (ca, "zlim");
149 curr_axis = [xlim, ylim, zlim]; 149 curr_axis = [xlim, ylim, zlim];
150 endif 150 endif
151 endif 151 endif
152 152
153 elseif (ischar (ax)) 153 elseif (ischar (ax))
154 len = length (ax); 154 len = length (ax);
173 set (ca, "plotboxaspectratiomode", "auto"); 173 set (ca, "plotboxaspectratiomode", "auto");
174 174
175 ## axis limits 175 ## axis limits
176 elseif (len >= 4 && strcmpi (ax(1:4), "auto")) 176 elseif (len >= 4 && strcmpi (ax(1:4), "auto"))
177 if (len > 4) 177 if (len > 4)
178 if (any (ax == "x")) 178 if (any (ax == "x"))
179 set (ca, "xlimmode", "auto"); 179 set (ca, "xlimmode", "auto");
180 endif 180 endif
181 if (any (ax == "y")) 181 if (any (ax == "y"))
182 set (ca, "ylimmode", "auto"); 182 set (ca, "ylimmode", "auto");
183 endif 183 endif
184 if (any (ax == "z")) 184 if (any (ax == "z"))
185 set (ca, "zlimmode", "auto"); 185 set (ca, "zlimmode", "auto");
186 endif 186 endif
187 else 187 else
188 set (ca, "xlimmode", "auto", "ylimmode", "auto", "zlimmode", "auto"); 188 set (ca, "xlimmode", "auto", "ylimmode", "auto", "zlimmode", "auto");
189 endif 189 endif
190 elseif (strcmpi (ax, "manual")) 190 elseif (strcmpi (ax, "manual"))
191 ## fixes the axis limits, like axis(axis) should; 191 ## fixes the axis limits, like axis(axis) should;
192 set (ca, "xlimmode", "manual", "ylimmode", "manual", "zlimmode", "manual"); 192 set (ca, "xlimmode", "manual", "ylimmode", "manual", "zlimmode", "manual");
193 elseif (strcmpi (ax, "tight")) 193 elseif (strcmpi (ax, "tight"))
196 ## tic marks 196 ## tic marks
197 elseif (strcmpi (ax, "on") || strcmpi (ax, "tic")) 197 elseif (strcmpi (ax, "on") || strcmpi (ax, "tic"))
198 set (ca, "xtickmode", "auto", "ytickmode", "auto", "ztickmode", "auto"); 198 set (ca, "xtickmode", "auto", "ytickmode", "auto", "ztickmode", "auto");
199 if (strcmpi (ax, "on")) 199 if (strcmpi (ax, "on"))
200 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto", 200 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto",
201 "zticklabelmode", "auto"); 201 "zticklabelmode", "auto");
202 endif 202 endif
203 set (ca, "visible", "on"); 203 set (ca, "visible", "on");
204 elseif (strcmpi (ax, "off")) 204 elseif (strcmpi (ax, "off"))
205 set (ca, "xtick", [], "ytick", [], "ztick", []); 205 set (ca, "xtick", [], "ytick", [], "ztick", []);
206 set (ca, "visible", "off"); 206 set (ca, "visible", "off");
207 elseif (len > 3 && strcmpi (ax(1:3), "tic")) 207 elseif (len > 3 && strcmpi (ax(1:3), "tic"))
208 if (any (ax == "x")) 208 if (any (ax == "x"))
209 set (ca, "xtickmode", "auto"); 209 set (ca, "xtickmode", "auto");
210 else 210 else
211 set (ca, "xtick", []); 211 set (ca, "xtick", []);
212 endif 212 endif
213 if (any (ax == "y")) 213 if (any (ax == "y"))
214 set (ca, "ytickmode", "auto"); 214 set (ca, "ytickmode", "auto");
215 else 215 else
216 set (ca, "ytick", []); 216 set (ca, "ytick", []);
217 endif 217 endif
218 if (any (ax == "z")) 218 if (any (ax == "z"))
219 set (ca, "ztickmode", "auto"); 219 set (ca, "ztickmode", "auto");
220 else 220 else
221 set (ca, "ztick", []); 221 set (ca, "ztick", []);
222 endif 222 endif
223 elseif (strcmpi (ax, "label")) 223 elseif (strcmpi (ax, "label"))
224 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto", 224 set (ca, "xticklabelmode", "auto", "yticklabelmode", "auto",
225 "zticklabelmode", "auto"); 225 "zticklabelmode", "auto");
226 elseif (strcmpi (ax, "nolabel")) 226 elseif (strcmpi (ax, "nolabel"))
227 set (ca, "xticklabel", "", "yticklabel", "", "zticklabel", ""); 227 set (ca, "xticklabel", "", "yticklabel", "", "zticklabel", "");
228 elseif (len > 5 && strcmpi (ax(1:5), "label")) 228 elseif (len > 5 && strcmpi (ax(1:5), "label"))
229 if (any (ax == "x")) 229 if (any (ax == "x"))
230 set (ca, "xticklabelmode", "auto"); 230 set (ca, "xticklabelmode", "auto");
231 else 231 else
232 set (ca, "xticklabel", ""); 232 set (ca, "xticklabel", "");
233 endif 233 endif
234 if (any (ax == "y")) 234 if (any (ax == "y"))
235 set (ca, "yticklabelmode", "auto"); 235 set (ca, "yticklabelmode", "auto");
236 else 236 else
237 set (ca, "yticklabel", ""); 237 set (ca, "yticklabel", "");
238 endif 238 endif
239 if (any (ax == "z")) 239 if (any (ax == "z"))
240 set (ca, "zticklabelmode", "auto"); 240 set (ca, "zticklabelmode", "auto");
241 else 241 else
242 set (ca, "zticklabel", ""); 242 set (ca, "zticklabel", "");
243 endif 243 endif
244 244
245 else 245 else
246 warning ("unknown axis option '%s'", ax); 246 warning ("unknown axis option '%s'", ax);
247 endif 247 endif
254 error ("axis: expecting vector with 2, 4, or 6 elements"); 254 error ("axis: expecting vector with 2, 4, or 6 elements");
255 endif 255 endif
256 256
257 for i = 1:2:len 257 for i = 1:2:len
258 if (ax(i) == ax(i+1)) 258 if (ax(i) == ax(i+1))
259 error ("axis: limits(%d) cannot equal limits(%d)", i, i+1); 259 error ("axis: limits(%d) cannot equal limits(%d)", i, i+1);
260 endif 260 endif
261 endfor 261 endfor
262 262
263 if (len > 1) 263 if (len > 1)
264 set (ca, "xlim", [ax(1), ax(2)]); 264 set (ca, "xlim", [ax(1), ax(2)]);