diff scripts/plot/subplot.m @ 2303:5cffc4b8de57

[project @ 1996-06-24 09:15:24 by jwe]
author jwe
date Mon, 24 Jun 1996 09:15:24 +0000
parents 5f6c19054139
children 2b5788792cad
line wrap: on
line diff
--- a/scripts/plot/subplot.m
+++ b/scripts/plot/subplot.m
@@ -1,75 +1,75 @@
-# Copyright (C) 1996 John W. Eaton
-# 
-# This file is part of Octave.
-# 
-# Octave is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License as published by the
-# Free Software Foundation; either version 2, or (at your option) any
-# later version.
-# 
-# Octave is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-# FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-# for more details.
-# 
-# You should have received a copy of the GNU General Public License
-# along with Octave; see the file COPYING.  If not, write to the Free
-# Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-# 02111-1307, USA. 
+### Copyright (C) 1996 John W. Eaton
+###
+### This file is part of Octave.
+###
+### Octave is free software; you can redistribute it and/or modify it
+### under the terms of the GNU General Public License as published by
+### the Free Software Foundation; either version 2, or (at your option)
+### any later version.
+###
+### Octave is distributed in the hope that it will be useful, but
+### WITHOUT ANY WARRANTY; without even the implied warranty of
+### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+### General Public License for more details.
+###
+### You should have received a copy of the GNU General Public License
+### along with Octave; see the file COPYING.  If not, write to the Free
+### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+### 02111-1307, USA.
 
 function subplot (rows, columns, index)
 
-# usage: subplot (rows, columns, index)
-#        subplot (rcn)
-#
-# NOTE: this will work only with gnuplot installed with
-#       multiplot patch (or version 3.6 beta)
-#
-# Sets gnuplot in multiplot mode and plots in location
-# given by index (there are columns X rows subwindows)
-#
-# Input:
-#
-#   rows   : number of rows in subplot grid
-#   columns: number of columns in subplot grid
-#   index  : index of subplot where to make the next plot
-#
-# If only one arg, then it (crn) has to be three digit value
-# specifying the location in digit 1 (rows) and 2 (columns) and digit
-# 3 is the plot index
-#
-# The plot index runs row-wise,i.e., first all the columns in a row
-# are filled and then the next row is filled
-#
-# For example, plot with 4 X 2 grid, will have plot indices running as
-# follows:
-#
-#   -----------------------------------
-#   |        |       |       |        |
-#   |    1   |    2  |    3  |    4   |
-#   |        |       |       |        |
-#   -----------------------------------
-#   |        |       |       |        |
-#   |    5   |    6  |    7  |    8   |
-#   |        |       |       |        |
-#   -----------------------------------
-#
+  ## usage: subplot (rows, columns, index)
+  ##        subplot (rcn)
+  ##
+  ## NOTE: this will work only with gnuplot installed with
+  ##       multiplot patch (or version 3.6 beta)
+  ##
+  ## Sets gnuplot in multiplot mode and plots in location
+  ## given by index (there are columns X rows subwindows)
+  ##
+  ## Input:
+  ##
+  ##   rows   : number of rows in subplot grid
+  ##   columns: number of columns in subplot grid
+  ##   index  : index of subplot where to make the next plot
+  ##
+  ## If only one arg, then it (crn) has to be three digit value
+  ## specifying the location in digit 1 (rows) and 2 (columns) and digit
+  ## 3 is the plot index
+  ##
+  ## The plot index runs row-wise,i.e., first all the columns in a row
+  ## are filled and then the next row is filled
+  ##
+  ## For example, plot with 4 X 2 grid, will have plot indices running as
+  ## follows:
+  ##
+  ##   -----------------------------------
+  ##   |        |       |       |        |
+  ##   |    1   |    2  |    3  |    4   |
+  ##   |        |       |       |        |
+  ##   -----------------------------------
+  ##   |        |       |       |        |
+  ##   |    5   |    6  |    7  |    8   |
+  ##   |        |       |       |        |
+  ##   -----------------------------------
+  ##
 
-# Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU
+  ## Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU
 
   if (! gnuplot_has_multiplot)
     error ("subplot: gnuplot does not appear to support this feature");
   endif
 
-  # global variables to keep track of multiplot options
+  ## global variables to keep track of multiplot options
 
   global multiplot_mode 
   global multiplot_xsize multiplot_ysize 
   global multiplot_xn multiplot_yn
   global multiplot_xi multiplot_yi
 
-  # This is a real kludge.  We gnuplot should be made so that replot can
-  # be executed while doing multiple plots...
+  ## This is a real kludge.  We gnuplot should be made so that replot can
+  ## be executed while doing multiple plots...
 
   global multiplot_save_auto_replot = automatic_replot
 
@@ -115,7 +115,7 @@
 
   if (columns*rows == 1)
 
-    # switching to single plot ?
+    ## switching to single plot ?
 
     set nomultiplot;
     set size 1, 1;
@@ -125,7 +125,7 @@
     multiplot_yn = 1;
     multiplot_mode = 0;
 
-    # Someone may have reset it betweeen calls...
+    ## Someone may have reset it betweeen calls...
 
     if (! isstr (automatic_replot) && ! automatic_replot)
       automatic_replot = multiplot_save_auto_replot;
@@ -133,7 +133,7 @@
 
   else
 
-    # doing multiplot plots
+    ## doing multiplot plots
 
     doagain = 0;
 
@@ -158,14 +158,14 @@
 
     endif
 
-    # get the sub plot location
+    ## get the sub plot location
 
     yp = fix ((index-1)/columns);
     xp = index - yp*columns - 1;
     multiplot_xi = ++xp;
     multiplot_yi = ++yp;
 
-    # set the origin
+    ## set the origin
 
     xo = (xp - 1.0)*multiplot_xsize;
     yo = (rows - yp)*multiplot_ysize;