From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 sys/gio/gvline.x | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 sys/gio/gvline.x

(limited to 'sys/gio/gvline.x')

diff --git a/sys/gio/gvline.x b/sys/gio/gvline.x
new file mode 100644
index 00000000..929fab44
--- /dev/null
+++ b/sys/gio/gvline.x
@@ -0,0 +1,23 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# GVLINE -- Vector polyline.  Draw a line connecting the points (X[i],V[i]),
+# where the X[i] are evenly distributed from X1 to X2.
+
+procedure gvline (gp, v, npts, x1, x2)
+
+pointer	gp			# graphics descriptor
+real	v[ARB]			# Y coordinates of the polyline
+int	npts			# number of polyline points
+real	x1, x2			# range of X coordinates of the polyline
+
+int	i
+real	dx
+
+begin
+	if (npts > 1) {
+	    dx = (x2 - x1) / (npts - 1)
+	    call gamove (gp, x1, v[1])
+	    do i = 2, npts
+		call gadraw (gp, (i-1) * dx + x1, v[i])
+	}
+end
-- 
cgit