Initial commit

1 files changed, 39 insertions, 0 deletions

diff --git a/vendor/x11iraf/guidemo/hello.x b/vendor/x11iraf/guidemo/hello.x
new file mode 100644
index 00000000..4e519cf1
--- /dev/null
+++ b/vendor/x11iraf/guidemo/hello.x
@@ -0,0 +1,39 @@
+# HELLO.X -- GUI version of IRAF hello world.
+
+procedure t_hello()
+
+pointer	gp
+real	x, y
+int	wcs, key
+char	strval[SZ_LINE]
+char	device[SZ_FNAME]
+char	guifile[SZ_FNAME]
+int	clgcur()
+pointer	gopenui()
+
+begin
+	call clgstr ("device", device, SZ_FNAME)
+	call clgstr ("gui", guifile, SZ_FNAME)
+
+	gp = gopenui (device, NEW_FILE, guifile, STDGRAPH)
+	while (clgcur ("coords", x, y, wcs, key, strval, SZ_LINE) != EOF)
+	    if (key == 'q' || key == 'Q')
+		break
+	    else {
+		if (key == ':') {
+		    call printf ("%g %g %d %c %s\n")
+			call pargr (x)
+			call pargr (y)
+			call pargi (wcs)
+			call pargi (key)
+			call pargstr (strval)
+		} else {
+		    call printf ("%g %g %d %c\n")
+			call pargr (x)
+			call pargr (y)
+			call pargi (wcs)
+			call pargi (key)
+		}
+	    }
+	call gclose (gp)
+end