Repatch (from linux) of OSX IRAF

1 files changed, 28 insertions, 0 deletions

diff --git a/sys/gio/cursor/gtrset.x b/sys/gio/cursor/gtrset.x
new file mode 100644
index 00000000..629ef097
--- /dev/null
+++ b/sys/gio/cursor/gtrset.x
@@ -0,0 +1,28 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gio.h>
+include	<gki.h>
+include	"gtr.h"
+
+# GTRSET -- Set the workstation transformation.  The workstation transformation
+# is automatically zeroed whenever the screen is cleared or when a workstation
+# is opened.
+
+procedure gtrset (fd, x1, x2, y1, y2)
+
+int	fd			# graphics stream to be set
+real	x1, x2			# range of workstation viewport in X
+real	y1, y2			# range of workstation viewport in Y
+include	"gtr.com"
+
+begin
+	mx1 = x1 * GKI_MAXNDC
+	mx2 = x2 * GKI_MAXNDC
+	my1 = y1 * GKI_MAXNDC
+	my2 = y2 * GKI_MAXNDC
+
+	xscale = GKI_MAXNDC / (mx2 - mx1)
+	yscale = GKI_MAXNDC / (my2 - my1)
+
+	wstranset = YES
+end