From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- 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