Mercurial > hg > octave-nkf

comparison scripts/plot/contour.m @ 7216:5389a52df87b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 19:07:29 by jwe]
author jwe
date Thu, 29 Nov 2007 19:07:29 +0000
parents dd88d61d443f
children d65670971cbc
comparison
equal deleted inserted replaced
7215:dd88d61d443f 7216:5389a52df87b
47 47
48 ## Author: shaia 48 ## Author: shaia
49 49
50 function [c, h] = contour (varargin) 50 function [c, h] = contour (varargin)
51 51
52 [h, varargin] = __plt_get_axis_arg__ ("contour", varargin{:}); 52 [xh, varargin] = __plt_get_axis_arg__ ("contour", varargin{:});
53
53 oldh = gca (); 54 oldh = gca ();
54 unwind_protect 55 unwind_protect
55 axes (h); 56 axes (xh);
56 newplot (); 57 newplot ();
57 [ctmp, htmp] = __contour__ (h, NaN, varargin{:}); 58 [ctmp, htmp] = __contour__ (xh, NaN, varargin{:});
58 unwind_protect_cleanup 59 unwind_protect_cleanup
59 axes (oldh); 60 axes (oldh);
60 end_unwind_protect 61 end_unwind_protect
61 62
62 if (nargout > 0) 63 if (nargout > 0)