diff options
Diffstat (limited to 'sys/gio/gploto.x')
| -rw-r--r-- | sys/gio/gploto.x | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/sys/gio/gploto.x b/sys/gio/gploto.x new file mode 100644 index 00000000..a76de4fd --- /dev/null +++ b/sys/gio/gploto.x @@ -0,0 +1,23 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# GPLOTV -- Plot a vector on an open graphics device. This routine is +# provided for the convenience of the user who does not need to exercise +# fine control over the details of how the plot is generated, but who may +# wish to select an output device other than stdgraph or who may wish to +# leave the device open for annotation. + +procedure gploto (gp, v, npts, x1, x2, title) + +pointer gp # graphics descriptor +real v[ARB] # data vector +int npts # number of data points +real x1, x2 # range of X in data vector +char title[ARB] # plot title +errchk gswind, gascale, glabax + +begin + call gswind (gp, x1, x2, INDEF, INDEF) + call gascale (gp, v, npts, 2) + call glabax (gp, title, "", "") + call gvline (gp, v, npts, x1, x2) +end |