Mercurial > hg > octave-nkf

comparison scripts/plot/patch.m @ 7215:dd88d61d443f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 16:44:45 by jwe]
author jwe
date Thu, 29 Nov 2007 16:46:40 +0000
parents a730e47fda4d
children 5389a52df87b
comparison
equal deleted inserted replaced
7214:86d0b16f2bb2 7215:dd88d61d443f
34 34
35 ## Author: jwe 35 ## Author: jwe
36 36
37 function h = patch (varargin) 37 function h = patch (varargin)
38 38
39 if (isscalar (varargin{1}) && ishandle (varargin{1})) 39 [h, varargin] = __plt_get_axis_arg__ ("patch", varargin{:});
40 h = varargin{1}; 40 oldh = gca ();
41 if (! strcmp (get (h, "type"), "axes") && ! strcmp (get (h, "type"), "hggroup")) 41 if (isnan(h))
42 error ("patch: expecting first argument to be an axes or hggroup object"); 42 h = oldh;
43 endif
44 oldh = gca ();
45 unwind_protect
46 axes (ancestor (h, "axes"));
47 [tmp, fail] = __patch__ (h, varargin{2:end});
48 unwind_protect_cleanup
49 axes (oldh);
50 end_unwind_protect
51 else
52 [tmp, fail] = __patch__ (gca (), varargin{:});
53 endif 43 endif
44 unwind_protect
45 axes (h);
46 [tmp, fail] = __patch__ (h, varargin{:});
47 unwind_protect_cleanup
48 axes (oldh);
49 end_unwind_protect
54 50
55 if (fail) 51 if (fail)
56 print_usage (); 52 print_usage ();
57 endif 53 endif
58 54