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 /sys/gio/calcomp/ccpclear.x | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'sys/gio/calcomp/ccpclear.x')
| -rw-r--r-- | sys/gio/calcomp/ccpclear.x | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/sys/gio/calcomp/ccpclear.x b/sys/gio/calcomp/ccpclear.x new file mode 100644 index 00000000..9ff17c20 --- /dev/null +++ b/sys/gio/calcomp/ccpclear.x @@ -0,0 +1,29 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <mach.h> +include "ccp.h" + +# CCP_CLEAR -- Advance a frame on the plotter. All attribute packets are +# initialized to their default values. Redundant calls or calls immediately +# after a workstation open (before anything has been drawn) are ignored. + +procedure ccp_clear (dummy) + +int dummy # not used at present +include "ccp.com" + +begin + # This is a no-op if nothing has been drawn. + if (g_cc == NULL || g_ndraw == 0) + return + + # Start a new frame. This is by resetting the origin to the last + # x-position drawn plus a compile-time offset. + + call plot (g_max_x + FRAME_OFFSET, 0.0, -3) + g_max_x = 0.0 + + # Init kernel data structures. + call ccp_reset() + g_ndraw = 0 +end |