Mercurial > hg > octave-lyh
diff scripts/plot/surf.m @ 7110:0e63f1126f01
[project @ 2007-11-06 22:36:22 by jwe]
author | jwe |
---|---|
date | Tue, 06 Nov 2007 22:36:22 +0000 |
parents | 5436efbf35e3 |
children | c7e5e638a8d0 |
line wrap: on
line diff
--- a/scripts/plot/surf.m +++ b/scripts/plot/surf.m @@ -1,6 +1,4 @@ - -## Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2004, -## 2005, 2006, 2007 John W. Eaton +## Copyright (C) 2007 Kai Habel ## ## This file is part of Octave. ## @@ -29,16 +27,20 @@ ## @seealso{mesh, surface} ## @end deftypefn -## Author: jwe +## Author: Kai Habel <kai.habel@gmx.de> function h = surf (varargin) newplot (); tmp = surface (varargin{:}); - ax = get(tmp, "parent"); - set (tmp, "FaceColor", "flat"); + + ax = get (tmp, "parent"); + + set (tmp, "facecolor", "flat"); + set (ax, "view", [-37.5, 30]); + if (nargout > 0) h = tmp; endif