octave-nkf: scripts/plot/gnuplot

comparison scripts/plot/gnuplot_drawnow.m @ 10549:95c3e38098bf

Untabify .m scripts

author	Rik <code@nomad.inbox5.com>
date	Fri, 23 Apr 2010 11:28:50 -0700
parents	1ca904d74f78
children	d1978e7364ad

comparison

equal deleted inserted replaced

-:479536c5bb10
+:95c3e38098bf
 if (! isempty (plot_stream))
 pclose (plot_stream(1));
 if (numel (plot_stream) > 1)
 pclose (plot_stream(2));
 endif
-	if (numel (plot_stream) > 2)
+if (numel (plot_stream) > 2)
-	  waitpid (plot_stream(3));
+waitpid (plot_stream(3));
-	endif
+endif
 endif
 if (! isempty (fid))
 fclose (fid);
 endif
 end_unwind_protect
 ## reprint the plot on screen
 [a, count] = fscanf (fid, '%c', Inf);
 fclose (fid);
 if (count>0)
 if (a(1)==12)
-	  ## avoid ^L at the beginning
+## avoid ^L at the beginning
-	  a = a(2:end);
+a = a(2:end);
 end
 puts (a);
 end
 unlink (dumb_tmp_file);
 endif
 endif
 else
 title_str = "";
 endif
 if (! (any (strfind (opts_str, " size ") > 0)
-	  || any (strfind (opts_str, "size ") == 1)))
+|| any (strfind (opts_str, "size ") == 1)))
 ## Convert position to units used by gnuplot.
 if (output_to_screen (term))
 ## Get figure size in pixels.  Rely on listener
-	  ## to handle coversion of position property.
+## to handle coversion of position property.
-	  units = get (h, "units");
+units = get (h, "units");
-	  unwind_protect
+unwind_protect
-	    set (h, "units", "pixels");
+set (h, "units", "pixels");
-	    position_in_pixesl = get (h, "position");
+position_in_pixesl = get (h, "position");
-	  unwind_protect_cleanup
+unwind_protect_cleanup
-	    set (h, "units", units);
+set (h, "units", units);
-	  end_unwind_protect
+end_unwind_protect
-	  gnuplot_pos = position_in_pixesl(1:2);
+gnuplot_pos = position_in_pixesl(1:2);
-	  gnuplot_size = position_in_pixesl(3:4);
+gnuplot_size = position_in_pixesl(3:4);
 else
 ## Get size of the printed plot in inches. Rely on listener
-	  ## to handle coversion of papersize property.
+## to handle coversion of papersize property.
-	  paperunits = get (h, "paperunits");
+paperunits = get (h, "paperunits");
-	  unwind_protect
+unwind_protect
-	    set (h, "paperunits", "inches");
+set (h, "paperunits", "inches");
 gnuplot_size = get (h, "papersize");
-	  unwind_protect_cleanup
+unwind_protect_cleanup
-	    set (h, "paperunits", paperunits);
+set (h, "paperunits", paperunits);
-	  end_unwind_protect
+end_unwind_protect
 if (term_units_are_pixels (term))
-	    ## Convert to inches using the property set by print().
+## Convert to inches using the property set by print().
-	    gnuplot_size = gnuplot_size * get (h, "__pixels_per_inch__");
+gnuplot_size = gnuplot_size * get (h, "__pixels_per_inch__");
-	  else
+else
-	    ## Implicit margins are in units of "inches"
+## Implicit margins are in units of "inches"
-	    gnuplot_size = gnuplot_size - implicit_margin;
+gnuplot_size = gnuplot_size - implicit_margin;
 endif
 endif
-	[begin_match, end_match, te, match] = regexp (opts_str, "(\\s-r\\d+)|(^-r\\d+)");
+[begin_match, end_match, te, match] = regexp (opts_str, "(\\s-r\\d+)|(^-r\\d+)");
-	if (! isempty (begin_match))
+if (! isempty (begin_match))
-	  error ("gnuplot_drawnow.m: specifying resultion, '%s', not supported for terminal '%s'",
+error ("gnuplot_drawnow.m: specifying resultion, '%s', not supported for terminal '%s'",
-	         strtrim (match{1}), term)
+strtrim (match{1}), term)
-	endif
+endif
 if (all (gnuplot_size > 0))
 ## Set terminal size.
 terminals_with_size = {"emf", "gif", "jpeg", "latex", "pbm", ...
 "pdf", "png", "postscript", "svg", ...
 "epslatex", "pstex", "pslatex", "tikz"};
 endif
 if (__gnuplot_has_feature__ ("wxt_figure_size"))
 terminals_with_size{end+1} = "wxt";
 endif
 if (any (strncmpi (term, terminals_with_size, 3)))
-	    if (term_units_are_pixels (term))
+if (term_units_are_pixels (term))
 size_str = sprintf ("size %d,%d", gnuplot_size);
-	    elseif (strcmp (term, "tikz"))
+elseif (strcmp (term, "tikz"))
 size_str = sprintf ("size %.15gin,%.15gin", gnuplot_size);
-	    else
+else
 size_str = sprintf ("size %.15g,%.15g", gnuplot_size);
-	    endif
+endif
 if (strncmpi (term, "X11", 3) && __gnuplot_has_feature__ ("x11_figure_position"))
-	      ## X11 allows the window to be positioned as well.
+## X11 allows the window to be positioned as well.
-	      units = get (0, "units");
+units = get (0, "units");
-	      unwind_protect
+unwind_protect
-	        set (0, "units", "pixels");
+set (0, "units", "pixels");
-	        screen_size = get (0, "screensize")(3:4);
+screen_size = get (0, "screensize")(3:4);
-	      unwind_protect_cleanup
+unwind_protect_cleanup
-	        set (0, "units", units);
+set (0, "units", units);
-	      end_unwind_protect
+end_unwind_protect
 if (all (screen_size > 0))
 ## For X11, set the figure positon as well as the size
 ## gnuplot position is UL, Octave's is LL (same for screen/window)
 gnuplot_pos(2) = screen_size(2) - gnuplot_pos(2) - gnuplot_size(2);
 gnuplot_pos = max (gnuplot_pos, 1);
 ## Let dumb use full text screen size (minus prompt lines).
 n = sprintf ("%i", -2 - length (find (sprintf ("%s", PS1) == "\n")));
 ## n = the number of times \n appears in PS1
 size_str = ["size ", getenv("COLUMNS"), ",", getenv("LINES"), n];
 else
-	      ## Use the gnuplot default.
+## Use the gnuplot default.
 size_str = "";
 end
 elseif (strncmpi (term, "fig", 3))
 ## Fig also has size, but the format is different.
 size_str = sprintf ("size %.15g %.15g", gnuplot_size);
 else
 size_str = "";
 endif
 else
 size_str = "";
-	  warning ("gnuplot_set_term: size is zero")
+warning ("gnuplot_set_term: size is zero")
 endif
 else
 ## A specified size take priority over the figure properies.
 size_str = "";
 endif

Mercurial > octave-nkf

comparison scripts/plot/gnuplot_drawnow.m @ 10549:95c3e38098bf