Mercurial > octave-nkf
view scripts/plot/zlabel.m @ 13136:79b9a7669bb8
Tests added for scripts/plot
(plot/ishghandle.m, plot/text.m, plot/title.m, plot/xlabel.m, plot/ylabel.m,
plot/zlabel.m): Tests added for plot functions.
plot/whitebg.m: Fix typo. Change colors only for figure under test
author | Kai Habel <kai.habel@gmx.de> |
---|---|
date | Wed, 14 Sep 2011 21:03:39 +0200 |
parents | 62b7ea59a6ff |
children | e81ddf9cacd5 |
line wrap: on
line source
## Copyright (C) 1995-2011 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 3 of the License, 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, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {} zlabel (@var{string}) ## @deftypefnx {Function File} {} zlabel (@var{h}, @var{string}) ## @deftypefnx {Function File} {@var{h} =} zlabel (@dots{}) ## @seealso{xlabel} ## @end deftypefn ## Author: jwe function retval = zlabel (varargin) [h, varargin, nargin] = __plt_get_axis_arg__ ("zlabel", varargin{:}); if (rem (nargin, 2) != 1) print_usage (); endif oldh = gca (); unwind_protect axes (h); tmp = __axis_label__ ("zlabel", varargin{:}, "color", get (h, "zcolor")); unwind_protect_cleanup axes (oldh); end_unwind_protect if (nargout > 0) retval = tmp; endif endfunction %!test %! hf = figure ("visible", "off"); %! unwind_protect %! z = zlabel ("zlabel_string"); %! assert (get(gca, "zlabel"), z); %! assert (get(z, "type"), "text"); %! assert (get(z, "visible"), "off"); %! assert (get(z, "string"), "zlabel_string"); %! unwind_protect_cleanup %! close (hf); %! end_unwind_protect %!test %! hf = figure ("visible", "off"); %! plot3 (0, 0, 0); %! unwind_protect %! z = zlabel ("zlabel_string"); %! assert (get(gca, "zlabel"), z); %! assert (get(z, "type"), "text"); %! assert (get(z, "visible"), "off"); %! assert (get(z, "string"), "zlabel_string"); %! unwind_protect_cleanup %! close (hf); %! end_unwind_protect