diff options
| author | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
|---|---|---|
| committer | Joe Hunkeler <jhunkeler@gmail.com> | 2015-08-11 16:51:37 -0400 |
| commit | 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 (patch) | |
| tree | 4464880c571602d54f6ae114729bf62a89518057 /sys/gio/gki/zzdebug.x | |
| download | iraf-osx-40e5a5811c6ffce9b0974e93cdd927cbcf60c157.tar.gz | |
Repatch (from linux) of OSX IRAF
Diffstat (limited to 'sys/gio/gki/zzdebug.x')
| -rw-r--r-- | sys/gio/gki/zzdebug.x | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/sys/gio/gki/zzdebug.x b/sys/gio/gki/zzdebug.x new file mode 100644 index 00000000..e56c5cc0 --- /dev/null +++ b/sys/gio/gki/zzdebug.x @@ -0,0 +1,44 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <fset.h> +include <fio.h> +include <gki.h> + +task ggcur = t_ggcur + + +# GGCUR -- Debug cursor read in inline graphics kernel. + +procedure t_ggcur() + +pointer gp +char device[SZ_FNAME] + +real cx, cy +int key, xres, yres, hardchar +int dd[LEN_GKIDD] +pointer gopen() + +begin + call clgstr ("device", device, SZ_FNAME) + hardchar = YES + xres = 0 + yres = 0 + + call fseti (STDGRAPH, F_TYPE, SPOOL_FILE) + call fseti (STDGRAPH, F_CANCEL, OK) + + call stg_open (device, dd, STDIN, STDOUT, xres, yres, hardchar) + call gki_inline_kernel (STDGRAPH, dd) + + gp = gopen (device, NEW_FILE, STDGRAPH) + call ggcur (gp, cx, cy, key) + + call gclose (gp) + call stg_close() + + call printf ("cx=%f, cy=%f, key=%d\n") + call pargr (cx) + call pargr (cy) + call pargi (key) +end |