Mercurial > hg > octave-lyh

diff scripts/plot/contour.m @ 2520:a034dcdbc282

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-11-15 04:57:21 by jwe]
author jwe
date Fri, 15 Nov 1996 04:59:08 +0000
parents b5568c31ee2c
children 1d2a83e8a9a3
line wrap: on
line diff
--- a/scripts/plot/contour.m
+++ b/scripts/plot/contour.m
@@ -33,13 +33,13 @@
 
   if (nargin == 1 || nargin == 2)
     if (is_matrix (z))
-      set nosurface;
-      set contour;
-      set cntrparam bspline;
-      command = sprintf ("set cntrparam levels %d", n);
+      gset nosurface;
+      gset contour;
+      gset cntrparam bspline;
+      command = sprintf ("gset cntrparam levels %d", n);
       eval (command);
-      set noparametric;
-      set view 0, 0, 1.9, 1;
+      gset noparametric;
+      gset view 0, 0, 1.9, 1;
       gsplot z w l 1;
     else
       error ("mesh: argument must be a matrix");
@@ -61,13 +61,13 @@
           zz(:,i+2) = z(:,k);
           k++;
         endfor
-        set nosurface;
-        set contour;
-        set cntrparam bspline;
+        gset nosurface;
+        gset contour;
+        gset cntrparam bspline;
         command = sprintf ("set cntrparam levels %d", n);
         eval (command);
-	set parametric;
-        set view 0, 0, 1.9, 1;
+	gset parametric;
+        gset view 0, 0, 1.9, 1;
 	gsplot zz w l 1;
       else
         msg = "mesh: rows (z) must be the same as length (x) and";