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
30
31
32
33
34
35
36
37
38
|
# FUDGEPT -- Fudge a point
procedure fudgept (sh, gfd, x, y, n, wx, wy)
pointer sh
int gfd
real x[n]
real y[n]
int n
real wx, wy
int i1, nplot, istart
double shdr_wl()
begin
# Get pixel number
i1 = max (1, min (n, nint (shdr_wl (sh, double(wx)))))
# Replace with Y-value
if (i1 > 0 && i1 <= n)
y[i1] = wy
else
return
# Plot region around new point
if (i1 > 1 && i1 < n) {
nplot = 3
istart = i1 - 1
} else if (i1 == 1) {
nplot = 2
istart = i1
} else if (i1 == n) {
nplot = 2
istart = n - 1
}
call gpline (gfd, x[istart], y[istart], nplot)
end
|
