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
39
40
41
42
43
44
45
46
|
# FUDGEX -- Fudge an extended region marked by the cursor
procedure fudgex (sh, gfd, x, y, n, wx1, wy1, xydraw)
pointer sh
int gfd
real x[n]
real y[n]
int n
real wx1, wy1
int xydraw
char command[SZ_FNAME]
int i, i1, i2, wc, key
real slope
real wx2, wy2
int clgcur()
bool fp_equalr()
begin
# Get second point
call printf ("x again:")
call flush (STDOUT)
i = clgcur ("cursor", wx2, wy2, wc, key, command, SZ_FNAME)
# Fix order
call fixx (sh, wx1, wx2, wy1, wy2, i1, i2)
if (xydraw == NO) {
wy1 = y[i1]
wy2 = y[i2]
}
if (fp_equalr (wx1, wx2))
slope = 0.
else
slope = (wy2-wy1) / (wx2-wx1)
# Replace pixels
do i = i1, i2
y[i] = wy1 + (x[i] - wx1) * slope
# Plot replaced pixels
i = i2 - i1 + 1
call gpline (gfd, x[i1], y[i1], i)
end
|
