blob: 9ff17c20dc56fd23a4056f98c2191feb4f01d18f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
|
