diff scripts/plot/contour.m @ 3426:f8dde1807dee

[project @ 2000-01-13 08:40:00 by jwe]
author jwe
date Thu, 13 Jan 2000 08:40:53 +0000
parents ae7adbb591e8
children b736f8b8f0a1
line wrap: on
line diff
--- a/scripts/plot/contour.m
+++ b/scripts/plot/contour.m
@@ -44,13 +44,13 @@
       gset contour;
       gset cntrparam bspline;
       if (is_scalar (n))
-	command = sprintf ("gset cntrparam levels %d", n);
+        command = sprintf ("gset cntrparam levels %d", n);
       elseif (is_vector (n))
-	tmp = sprintf ("%f", n(1));
-	for i = 2:length (n)
-	  tmp = sprintf ("%s, %f", tmp, n(i));
-	endfor
-	command = sprintf ("gset cntrparam levels discrete %s", tmp);
+        tmp = sprintf ("%f", n(1));
+        for i = 2:length (n)
+          tmp = sprintf ("%s, %f", tmp, n(i));
+        endfor
+        command = sprintf ("gset cntrparam levels discrete %s", tmp);
       endif
       eval (command);
       gset noparametric;
@@ -79,19 +79,19 @@
         gset nosurface;
         gset contour;
         gset cntrparam bspline;
-	if (is_scalar (n))
+        if (is_scalar (n))
           command = sprintf ("gset cntrparam levels %d", n);
-	elseif (is_vector (n))
-	  tmp = sprintf ("%f", n(1));
-	  for i = 2:length (n)
-	    tmp = sprintf ("%s, %f", tmp, n(i));
-	  endfor
-	  command = sprintf ("gset cntrparam levels discrete %s", tmp);
-	endif
+        elseif (is_vector (n))
+          tmp = sprintf ("%f", n(1));
+          for i = 2:length (n)
+            tmp = sprintf ("%s, %f", tmp, n(i));
+          endfor
+          command = sprintf ("gset cntrparam levels discrete %s", tmp);
+        endif
         eval (command);
-	gset parametric;
+        gset parametric;
         gset view 0, 0, 1, 1;
-	gsplot zz w l 1;
+        gsplot zz w l 1;
       else
         msg = "contour: rows (z) must be the same as length (x) and";
         msg = sprintf ("%s\ncolumns (z) must be the same as length (y)", msg);