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
|
include <gset.h>
# REPLOT -- Replot the current array
procedure replot (gfd, gt, x, y, npts, clear)
pointer gfd
pointer gt
real x[ARB]
real y[ARB]
int npts
int clear
int wc, gstati()
begin
if (clear == YES) {
wc = gstati (gfd, G_WCS)
call gclear (gfd)
call gseti (gfd, G_WCS, wc)
call gt_ascale (gfd, gt, x, y, npts)
call gt_swind (gfd, gt)
call gt_labax (gfd, gt)
}
call gt_plot (gfd, gt, x, y, npts)
end
|
