Mercurial > octave

changeset 2296:5f6c19054139

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-06-14 06:41:57 by jwe]
author jwe
date Fri, 14 Jun 1996 06:41:57 +0000
parents 95d9259a9915
children d5805958f3e1
files scripts/plot/bottom_title.m scripts/plot/mplot.m scripts/plot/multiplot.m scripts/plot/oneplot.m scripts/plot/plot_border.m scripts/plot/subplot.m scripts/plot/subwindow.m scripts/plot/top_title.m
diffstat 8 files changed, 58 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/plot/bottom_title.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/bottom_title.m	Fri Jun 14 06:41:57 1996 +0000
@@ -30,6 +30,10 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU
 
+  if (! gnuplot_has_multiplot)
+    error ("bottom_title: gnuplot does not appear to support this feature");
+  endif
+    
   if (nargin != 1)
     usage ("bottom_title (text)");
   endif
--- a/scripts/plot/mplot.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/mplot.m	Fri Jun 14 06:41:57 1996 +0000
@@ -35,15 +35,19 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU
 
-# global variables to keep track of multiplot options
+  if (! gnuplot_has_multiplot)
+    error ("mplot: gnuplot does not appear to support this feature");
+  endif
+
+  # 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
 
@@ -59,7 +63,7 @@
 
   plot_int ("plot", all_va_args);
 
-# update the plot position
+  # update the plot position
 
   if (multiplot_mode)
 
--- a/scripts/plot/multiplot.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/multiplot.m	Fri Jun 14 06:41:57 1996 +0000
@@ -32,15 +32,19 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
 
-# global variables to keep track of multiplot options
+  if (! gnuplot_has_multiplot)
+    error ("multiplot: gnuplot does not appear to support this feature");
+  endif
+    
+  # 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
 
@@ -76,7 +80,7 @@
     multiplot_xi = 1;
     multiplot_yi = 1;
 
-# 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;
--- a/scripts/plot/oneplot.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/oneplot.m	Fri Jun 14 06:41:57 1996 +0000
@@ -29,6 +29,10 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
 
+  if (! gnuplot_has_multiplot)
+    error ("oneplot: gnuplot does not appear to support this feature");
+  endif
+    
   global multiplot_mode
 
   set nomultiplot;
--- a/scripts/plot/plot_border.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/plot_border.m	Fri Jun 14 06:41:57 1996 +0000
@@ -40,6 +40,10 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
 
+  if (! gnuplot_has_multiplot)
+    error ("plot_border: gnuplot does not appear to support this feature");
+  endif
+    
   south = 0;
   west = 0;
   north = 0;
@@ -57,8 +61,8 @@
       error ("plot_border: input not a string");
     endif
 
-# The effect of the arguments in cumulative.  If something is found
-# after "b", do that and ignore "b".
+    # The effect of the arguments in cumulative.  If something is found
+    # after "b", do that and ignore "b".
 
     if (strcmp (arg, "blank") || strcmp (arg, "BLANK")
         || strcmp (arg, "b") || strcmp (arg, "B"))
--- a/scripts/plot/subplot.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/subplot.m	Fri Jun 14 06:41:57 1996 +0000
@@ -57,15 +57,19 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU
 
-# global variables to keep track of multiplot options
+  if (! gnuplot_has_multiplot)
+    error ("subplot: gnuplot does not appear to support this feature");
+  endif
+
+  # 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
 
@@ -74,7 +78,7 @@
   endif
 
   if ((isstr (automatic_replot) && strcmp (automatic_replot, "true"))
-       || automatic_replot)
+      || automatic_replot)
     warning ("turning off automatic replot for multiplot mode");
     multiplot_save_auto_replot = automatic_replot;
     automatic_replot = 0;
@@ -111,7 +115,7 @@
 
   if (columns*rows == 1)
 
-# switching to single plot ?
+    # switching to single plot ?
 
     set nomultiplot;
     set size 1, 1;
@@ -121,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;
@@ -129,7 +133,7 @@
 
   else
 
-# doing multiplot plots
+    # doing multiplot plots
 
     doagain = 0;
 
@@ -154,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;
--- a/scripts/plot/subwindow.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/subwindow.m	Fri Jun 14 06:41:57 1996 +0000
@@ -30,19 +30,23 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
 
-# global variables to keep track of multiplot options
+  if (! gnuplot_has_multiplot)
+    error ("subwindow: gnuplot does not appear to support this feature");
+  endif
+
+  # global variables to keep track of multiplot options
 
   global multiplot_mode 
   global multiplot_xsize multiplot_ysize 
   global multiplot_xn multiplot_yn
 
-# check calling argument count
+  # check calling argument count
 
   if (nargin != 2)
     usage ("subwindow (xn, yn)");
   endif
 
-# check for scalar inputs
+  # check for scalar inputs
 
   if (! (is_scalar (xn) && is_scalar (yn)))
     error ("subwindow: xn and yn have to be scalars");
@@ -51,15 +55,15 @@
   xn = round (xn);
   yn = round (yn);
 
-# switch to multiplot mode if not already in, and use the args as the
-# args to multiplot() 
+  # switch to multiplot mode if not already in, and use the args as the
+  # args to multiplot() 
 
   if (multiplot_mode != 1)
     multiplot (xn, yn);
     return;
   endif
 
-# get the sub plot location
+  # get the sub plot location
 
   if (xn < 1 || xn > multiplot_xn || yn < 1 || yn > multiplot_yn)
     error ("subwindow: incorrect xn and yn");
@@ -69,5 +73,5 @@
   yo = (multiplot_yn - yn)*multiplot_ysize;
 
   eval (sprintf ("set origin %g, %g", xo, yo));
-
+      
 endfunction
--- a/scripts/plot/top_title.m	Thu Jun 13 21:38:50 1996 +0000
+++ b/scripts/plot/top_title.m	Fri Jun 14 06:41:57 1996 +0000
@@ -28,6 +28,10 @@
 
 # Written by Vinayak Dutt, Dutt.Vinayak@mayo.EDU  3 Jul 95 
 
+  if (! gnuplot_has_multiplot)
+    error ("top_title: gnuplot does not appear to support this feature");
+  endif
+
   if (nargin != 1)
     usage ("top_title (text)");
   endif