Mercurial > forge

changeset 891:1a4d5fe2ff63 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
pretty surfaces, without the legend lines
author pkienzle
date Fri, 11 Apr 2003 04:49:02 +0000
parents 9149e6b1cf93
children 0e20218654fa
files main/plot/meshc.m main/plot/surfc.m
diffstat 2 files changed, 12 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/main/plot/meshc.m	Fri Apr 11 04:34:44 2003 +0000
+++ b/main/plot/meshc.m	Fri Apr 11 04:49:02 2003 +0000
@@ -42,6 +42,7 @@
   if (nargin == 1)
     z = x;
     if (is_matrix (z))
+      gset nokey;
       gset hidden3d;
       gset data style lines;
       gset surface;
@@ -69,6 +70,7 @@
           zz(:,i+2) = z(:,k);
           k++;
         endfor
+	gset nokey;
         gset hidden3d;
         gset data style lines;
         gset surface;
@@ -96,6 +98,7 @@
           zz(:,i+2) = z(:,k);
           k++;
         endfor
+	gset nokey;
         gset hidden3d;
         gset data style lines;
         gset surface;
--- a/main/plot/surfc.m	Fri Apr 11 04:34:44 2003 +0000
+++ b/main/plot/surfc.m	Fri Apr 11 04:49:02 2003 +0000
@@ -14,6 +14,13 @@
 ## along with this program; if not, write to the Free Software
 ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-## Surface + contour plot.  Only mesh surfaces for now.
+## Surface + contour plot.  This needs gnuplot 3.8i to work properly.
 function surfc(varargin)
-  meshc(varargin{:});
+   try
+      gset pm3d at s ftriangles hidden3d 100;
+      gset line style 100 lt 5 lw 0.5;
+      gset nohidden3d;
+      gset nosurf;
+   catch
+   end
+   meshc(varargin{:});