Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/gio/gpmark.x b/sys/gio/gpmark.x
new file mode 100644
index 00000000..dbe0b362
--- /dev/null
+++ b/sys/gio/gpmark.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	<gio.h>
+
+# GPMARK -- Polymarker.  Output at sequence of markers at the vertices of a
+# polygon, all markers the same type and size.  The marker type GM_POINT is
+# a special case.
+
+procedure gpmark (gp, x, y, npts, marktype, xsize, ysize)
+
+pointer	gp			# graphics descriptor
+real	x[ARB], y[ARB]		# vertices of polygon
+int	npts			# number of points
+int	marktype		# marker type
+real	xsize, ysize		# marker size
+int	i
+
+begin
+	if (marktype == GM_POINT) {
+	    call gpl_settype (gp, POINTMODE)
+	    call gpline (gp, x, y, npts)
+	    call gpl_settype (gp, POLYLINE)
+	} else {
+	    do i = 1, npts
+		call gmark (gp, x[i], y[i], marktype, xsize, ysize)
+	}
+end