diff scripts/plot/plotmatrix.m @ 10549:95c3e38098bf

Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 16f53d29049f
children be55736a0783
line wrap: on
line diff
--- a/scripts/plot/plotmatrix.m	Fri Apr 23 11:13:48 2010 -0700
+++ b/scripts/plot/plotmatrix.m	Fri Apr 23 11:28:50 2010 -0700
@@ -74,20 +74,20 @@
       newplot ();
       [h2, ax2, p2, pax2, need_usage] = __plotmatrix__ (bigax2, varargin{:});
       if (need_usage)
-	print_usage ();
+        print_usage ();
       endif
       if (nargout > 0)
-	h = h2;
-	ax = ax2;
-	bigax = bigax2;
-	p = p2;
-	pax = pax2;
+        h = h2;
+        ax = ax2;
+        bigax = bigax2;
+        p = p2;
+        pax = pax2;
       endif
       axes (bigax2);
       ctext = text (0, 0, "", "visible", "off", 
-		    "handlevisibility", "off", "xliminclude", "off",  
-		    "yliminclude", "off", "zliminclude", "off",
-		    "deletefcn", {@plotmatrixdelete, [ax2; pax2]});
+                    "handlevisibility", "off", "xliminclude", "off",  
+                    "yliminclude", "off", "zliminclude", "off",
+                    "deletefcn", {@plotmatrixdelete, [ax2; pax2]});
       set (bigax2, "visible", "off");
     unwind_protect_cleanup
       axes (oldh);
@@ -102,11 +102,11 @@
   for i = 1 : numel (ax)
     hc = ax(i);
     if (ishandle (hc) && strcmp (get (hc, "type"), "axes") && 
-	strcmpi (get (hc, "beingdeleted"), "off"))
+        strcmpi (get (hc, "beingdeleted"), "off"))
       parent = get (hc, "parent");
       ## If the parent is invalid or being deleted, then do nothing
       if (ishandle (parent) && strcmpi (get (parent, "beingdeleted"), "off"))
-	delete (hc);
+        delete (hc);
       endif
     endif
   endfor
@@ -122,14 +122,14 @@
     if (ischar (arg) || iscell (arg))
       [linespec, valid] = __pltopt__ ("plotmatrix", varargin{i}, false);
       if (valid)
-	have_line_spec = true;      
-	linespec = varargin(i);
-	varargin(i) = [];
-	nargin = nargin - 1;
-	break;
+        have_line_spec = true;      
+        linespec = varargin(i);
+        varargin(i) = [];
+        nargin = nargin - 1;
+        break;
       else
-	need_usage = true;
-	returm;
+        need_usage = true;
+        returm;
       endif
     endif
   endfor
@@ -169,20 +169,20 @@
     for j = 1 : m
       pos = [xsize * (j - 1) + xoff, ysize * (n - i) + yoff, xsize, ysize];
       tmp = axes ("outerposition", pos, "position", pos + border,
-		  "parent", parent);
+                  "parent", parent);
       if (i == j && have_hist)
-	pax = [pax ; tmp];
-	[nn, xx] = hist (X(:, i));
-	tmp = bar (xx, nn, 1.0);
-	p = [p; tmp];
+        pax = [pax ; tmp];
+        [nn, xx] = hist (X(:, i));
+        tmp = bar (xx, nn, 1.0);
+        p = [p; tmp];
       else
-	ax = [ax ; tmp];
-	if (have_line_spec)
-	  tmp = plot (X (:, i), Y (:, j), linespec);
-	else
-	  tmp = plot (X (:, i), Y (:, j), ".");
-	endif
-	h = [h ; tmp];
+        ax = [ax ; tmp];
+        if (have_line_spec)
+          tmp = plot (X (:, i), Y (:, j), linespec);
+        else
+          tmp = plot (X (:, i), Y (:, j), ".");
+        endif
+        h = [h ; tmp];
       endif
     endfor
   endfor