blob: ef597da8d41e3ec86d18a8a677076e33ad6d8161 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gio.h>
# GFLUSH -- Flush the graphics output. A simple call to the FIO flush does not
# suffice since the graphics data stream may be spread over three or more
# processes. Flush any buffered polyline output, append the GKI_FLUSH metacode
# instruction, and flush the FIO buffered metacode output. The other processes
# will take similar actions upon receipt of the GKI_FLUSH instruction.
procedure gflush (gp)
pointer gp # graphics descriptor
begin
call gpl_flush()
call gki_flush (GP_FD(gp))
end
|