Mercurial > hg > octave-lyh
changeset 2296:5f6c19054139
[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 +++ b/scripts/plot/bottom_title.m @@ -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 +++ b/scripts/plot/mplot.m @@ -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 +++ b/scripts/plot/multiplot.m @@ -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 +++ b/scripts/plot/oneplot.m @@ -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 +++ b/scripts/plot/plot_border.m @@ -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 +++ b/scripts/plot/subplot.m @@ -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 +++ b/scripts/plot/subwindow.m @@ -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 +++ b/scripts/plot/top_title.m @@ -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