Repatch (from linux) of OSX IRAF

1 files changed, 35 insertions, 0 deletions

diff --git a/sys/gio/gvmark.x b/sys/gio/gvmark.x
new file mode 100644
index 00000000..219f8bae
--- /dev/null
+++ b/sys/gio/gvmark.x
@@ -0,0 +1,35 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	<gio.h>
+
+# GVMARK -- Vector polymarker.  Output at sequence of markers at the vertices
+# of a polygon, all markers the same type and size.  The polygon is given by
+# the set of points (X[i],V[i]), where the X[i] are evenly distributed from X1
+# to X2.  The marker type GM_POINT is a special case.
+
+procedure gvmark (gp, v, npts, x1, x2, marktype, xsize, ysize)
+
+pointer	gp			# graphics descriptor
+real	v[ARB]			# Y[i] polygon
+int	npts			# number of points
+real	x1, x2			# range of X[i]
+int	marktype		# marker type
+real	xsize, ysize		# marker size
+
+int	i
+real	dx
+
+begin
+	if (npts > 1)
+	    if (marktype == GM_POINT) {
+		call gpl_settype (gp, POLYMARKER)
+		call gvline (gp, v, npts, x1, x2)
+		call gpl_settype (gp, POLYLINE)
+	    } else {
+		dx = (x2 - x1) / (npts - 1)
+		do i = 1, npts
+		    call gmark (gp, (i-1) * dx + x1, v[i], marktype,
+			xsize, ysize)
+	    }
+end