diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /vendor/x11iraf/cdl/test/zzdebug.x | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'vendor/x11iraf/cdl/test/zzdebug.x')
| -rw-r--r-- | vendor/x11iraf/cdl/test/zzdebug.x | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/vendor/x11iraf/cdl/test/zzdebug.x b/vendor/x11iraf/cdl/test/zzdebug.x new file mode 100644 index 00000000..352b0657 --- /dev/null +++ b/vendor/x11iraf/cdl/test/zzdebug.x @@ -0,0 +1,44 @@ +include "../cdlspp.h" + +# ZZDEBUG -- Quickie demo tasks of the CDL SPP language binding. + + +task display = t_display, + tvmark = t_tvmark, + rimcur = t_rimcur + + +procedure t_display () +int ier +begin + call cdl_open ("", ier) + call cdl_displayIRAF ("/iraf/iraf/dev/pix.imh", 1, 1, 1, 1, ier) + call cdl_close () +end + +procedure t_tvmark () +int ier +begin + call cdl_open ("", ier) + call cdl_displayIRAF ("/iraf/iraf/dev/pix.imh", 1, 1, 1, 1, ier) + call cdl_markCoordsFile ("coords", M_PLUS, 11, C_GREEN, YES, ier) + call cdl_close () +end + +procedure t_rimcur () +int ier +char key +real x, y +begin + call cdl_open ("", ier) + key = 'a' + while (key != 'q' && key != EOS) { + call cdl_readCursor (0, x, y, key, ier) + call printf ("x=%.2g y=%.2g key='%c' ier=%d\n") + call pargr (x) + call pargr (y) + call pargc (key) + call pargi (ier) + } + call cdl_close () +end |