From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- vendor/x11iraf/guidemo/hello.x | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 vendor/x11iraf/guidemo/hello.x (limited to 'vendor/x11iraf/guidemo/hello.x') 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 -- cgit