Mercurial > hg > octave-nkf

comparison scripts/plot/daspect.m @ 11120:a44f979a35ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes for some .m files
author John W. Eaton <jwe@octave.org>
date Wed, 20 Oct 2010 20:49:17 -0400
parents a8ac114ec9ab
children 2e32236eaa90
comparison
equal deleted inserted replaced
11119:d3eaaa7c6762 11120:a44f979a35ce
48 endif 48 endif
49 if (numel (varargin) > 0) 49 if (numel (varargin) > 0)
50 if (numel (varargin) == 1) 50 if (numel (varargin) == 1)
51 if (ischar (varargin{1}) 51 if (ischar (varargin{1})
52 && any (strcmpi (varargin{1}, {"mode", "manual", "auto"}))) 52 && any (strcmpi (varargin{1}, {"mode", "manual", "auto"})))
53 switch varargin{1} 53 switch (varargin{1})
54 case {"mode"} 54 case "mode"
55 if (nargout < 2) 55 if (nargout < 2)
56 varargout{1} = get (hax, "dataaspectratiomode"); 56 varargout{1} = get (hax, "dataaspectratiomode");
57 return 57 return
58 else 58 else
59 error ("daspect: only one output is allowed.") 59 error ("daspect: only one output is allowed.")
60 endif 60 endif
61 case {"manual"} 61 case "manual"
62 set (hax, "dataaspectratiomode", "manual"); 62 set (hax, "dataaspectratiomode", "manual");
63 case {"auto"} 63 case "auto"
64 set (hax, "dataaspectratiomode", "auto"); 64 set (hax, "dataaspectratiomode", "auto");
65 endswitch 65 endswitch
66 elseif (isreal (varargin{1}) 66 elseif (isreal (varargin{1})
67 && any (numel (varargin{1}) == [2 3])) 67 && any (numel (varargin{1}) == [2, 3]))
68 set (hax, "dataaspectratio", varargin{1}) 68 set (hax, "dataaspectratio", varargin{1})
69 else 69 else
70 error ("daspect: invalid input.") 70 error ("daspect: invalid input.")
71 endif 71 endif
72 elseif (numel (varargin) > 1) 72 elseif (numel (varargin) > 1)