Mercurial > hg > octave-lyh

comparison scripts/plot/surf.m @ 7110:0e63f1126f01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-06 22:36:22 by jwe]
author jwe
date Tue, 06 Nov 2007 22:36:22 +0000
parents 5436efbf35e3
children c7e5e638a8d0
comparison
equal deleted inserted replaced
7109:5436efbf35e3 7110:0e63f1126f01
1 1 ## Copyright (C) 2007 Kai Habel
2 ## Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2004,
3 ## 2005, 2006, 2007 John W. Eaton
4 ## 2 ##
5 ## This file is part of Octave. 3 ## This file is part of Octave.
6 ## 4 ##
7 ## Octave is free software; you can redistribute it and/or modify it 5 ## Octave is free software; you can redistribute it and/or modify it
8 ## under the terms of the GNU General Public License as published by 6 ## under the terms of the GNU General Public License as published by
27 ## correspond to different @var{x} values and rows of @var{z} correspond 25 ## correspond to different @var{x} values and rows of @var{z} correspond
28 ## to different @var{y} values. 26 ## to different @var{y} values.
29 ## @seealso{mesh, surface} 27 ## @seealso{mesh, surface}
30 ## @end deftypefn 28 ## @end deftypefn
31 29
32 ## Author: jwe 30 ## Author: Kai Habel <kai.habel@gmx.de>
33 31
34 function h = surf (varargin) 32 function h = surf (varargin)
35 33
36 newplot (); 34 newplot ();
37 35
38 tmp = surface (varargin{:}); 36 tmp = surface (varargin{:});
39 ax = get(tmp, "parent"); 37
40 set (tmp, "FaceColor", "flat"); 38 ax = get (tmp, "parent");
39
40 set (tmp, "facecolor", "flat");
41
41 set (ax, "view", [-37.5, 30]); 42 set (ax, "view", [-37.5, 30]);
43
42 if (nargout > 0) 44 if (nargout > 0)
43 h = tmp; 45 h = tmp;
44 endif 46 endif
45 47
46 endfunction 48 endfunction