Repatch (from linux) of OSX IRAF

1 files changed, 27 insertions, 0 deletions

diff --git a/sys/gio/gamove.x b/sys/gio/gamove.x
new file mode 100644
index 00000000..7c40d1b7
--- /dev/null
+++ b/sys/gio/gamove.x
@@ -0,0 +1,27 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gki.h>
+include	<gio.h>
+
+# GAMOVE -- Absolute move.  Move the pen to the indicated position in
+# preparation for a draw.
+
+procedure gamove (gp, x, y)
+
+pointer	gp			# graphics descriptor
+real	x, y			# new position of pen
+include	"gpl.com"
+
+begin
+	if (op > 1)
+	    call gpl_flush()
+
+	if (IS_INDEF(x) || IS_INDEF(y)) {
+	    # Set current position to indefinite.
+	    cx = INDEF
+	    cy = INDEF
+	} else {
+	    # Set current position to (x,y) in GKI coordinates.
+	    call gpl_wcstogki (gp, x, y, cx, cy)
+	}
+end