Mercurial > octave-nkf
view scripts/plot/__plt__.m @ 6263:d60127449a29
[project @ 2007-02-01 04:07:53 by jwe]
author | jwe |
---|---|
date | Thu, 01 Feb 2007 04:07:53 +0000 |
parents | 44c91c5dfe1d |
children | cc2bee854d23 |
line wrap: on
line source
## Copyright (C) 1996, 1997 John W. Eaton ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2, or (at your option) ## any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, write to the Free ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ## 02110-1301, USA. ## -*- texinfo -*- ## @deftypefn {Function File} {} __plt__ (@code{caller}, @dots{}) ## @end deftypefn ## Author: jwe function __plt__ (caller, h, varargin) nargs = nargin - 2; if (nargs > 0) k = 1; x_set = false; y_set = false; ## Gather arguments, decode format, gather plot strings, and plot lines. while (nargs > 0 || x_set) if (nargs == 0) ## Force the last plot when input variables run out. next_arg = {""}; else next_arg = varargin{k++}; endif nargs--; if (ischar (next_arg) || iscellstr (next_arg)) if (x_set) [fmt, key] = __pltopt__ (caller, next_arg); if (y_set) __plt2__ (h, x, y, fmt, key); else __plt1__ (h, x, fmt, key); endif x_set = false; y_set = false; else error ("plot: no data to plot"); endif elseif (x_set) if (y_set) [fmt, key] = __pltopt__ (caller, {""}); __plt2__ (h, x, y, fmt, key); x = next_arg; y_set = false; else y = next_arg; y_set = true; endif else x = next_arg; x_set = true; endif endwhile else msg = sprintf ("%s (y)\n", caller); msg = sprintf ("%s %s (x, y, ...)\n", msg, caller); msg = sprintf ("%s %s (x, y, fmt, ...)", msg, caller); usage (msg); endif endfunction