From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/gio/gplotv.x | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 sys/gio/gplotv.x (limited to 'sys/gio/gplotv.x') diff --git a/sys/gio/gplotv.x b/sys/gio/gplotv.x new file mode 100644 index 00000000..1d9239e5 --- /dev/null +++ b/sys/gio/gplotv.x @@ -0,0 +1,22 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +# GPLOTV -- Plot a vector. 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. + +procedure gplotv (v, npts, x1, x2, title) + +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 + +pointer gp +pointer gopen() +errchk gopen, gploto + +begin + gp = gopen ("stdgraph", NEW_FILE, STDGRAPH) + call gploto (gp, v, npts, x1, x2, title) + call gclose (gp) +end -- cgit