Repatch (from linux) of OSX IRAF

1 files changed, 30 insertions, 0 deletions

diff --git a/sys/gio/gks/gsvp.x b/sys/gio/gks/gsvp.x
new file mode 100644
index 00000000..f2a61711
--- /dev/null
+++ b/sys/gio/gks/gsvp.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	"gks.h"
+
+# GSVP -- Set viewport.  This procedure sets the viewport for world coord
+# sys "wcs", which may not be the current WCS.
+
+procedure gsvp (wcs, x1, x2, y1, y2)
+
+int	wcs		# Number of world coordinate system
+real	x1, x2		# Range of viewport coordinate in x (NDC)
+real	y1, y2		# Range of viewport coordinate in y (NDC)
+
+int	current_wcs, i
+int	gstati()
+include	"gks.com"
+
+begin
+	current_wcs = gstati (gp[gk_std], G_WCS)
+	call gsawi (G_WCS, wcs)
+
+	do i = 1, NDEV {
+	    if (gk_status[i] == ACTIVE)
+		call gsview (gp[i], x1, x2, y1, y2)
+	}
+
+	# Now return to the current WCS
+	call gsawi (G_WCS, current_wcs)
+end