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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
include "epix.h"
# EP_GCUR -- Get EPIX cursor value.
# This is an interface between the standard cursor input and EPIX. It
# returns an aperture consisting of an aperture type and the two integer
# pixel corners containing the aperture. This interface also provides
# for interpreting the FIXPIX type files. A default key may be
# supplied which allows simple X-Y files to be read.
int procedure ep_gcur (ep, ap, x1, y1, x2, y2, key, strval, maxch)
pointer ep # EPIX structure
int ap # Aperture type
int x1, y1, x2, y2 # Corners of aperture
int key # Keystroke value of cursor event
char strval[ARB] # String value, if any
int maxch
real a, b, c, d, e
pointer sp, buf, ip
int nitems, wcs
int ctor(), clglstr(), clgcur()
begin
# FIXPIX format consists of a rectangle with column and line ranges.
# The key returned is for interpolation across the narrow dimension
# of the rectangle.
if (EP_FIXPIX(ep) == YES) {
call smark (sp)
call salloc (buf, SZ_LINE, TY_CHAR)
# Read the list structured string.
if (clglstr ("cursor", Memc[buf], SZ_LINE) == EOF) {
call sfree (sp)
return (EOF)
}
ip = buf
nitems = 0
if (ctor (Memc, ip, a) > 0)
nitems = nitems + 1
if (ctor (Memc, ip, b) > 0)
nitems = nitems + 1
if (ctor (Memc, ip, c) > 0)
nitems = nitems + 1
if (ctor (Memc, ip, d) > 0)
nitems = nitems + 1
e = max (a, b)
a = min (a, b)
b = e
e = max (c, d)
c = min (c, d)
d = e
x1 = nint(a)
y1 = nint(c)
x2 = nint(b)
y2 = nint(d)
ap = APRECTANGLE
if (x2 - x1 <= y2 - y1)
key = 'c'
else
key = 'l'
call sfree (sp)
return (nitems)
}
# The standard cursor value is read for centered apertures and
# for two values are read for rectangular apertures. The
# returned coordinates are properly defined.
key = EP_DEFAULT(ep)
strval[1] = EOS
nitems = clgcur ("cursor", a, b, wcs, key, strval, maxch)
switch (key) {
case 'a', 'c', 'd', 'l', 'f', 'j', 'v':
call printf ("again:")
nitems = clgcur ("cursor", c, d, wcs, key, strval, SZ_LINE)
call printf ("\n")
if (!IS_INDEF(a))
x1 = nint (a)
if (!IS_INDEF(b))
y1 = nint (b)
if (!IS_INDEF(c))
x2 = nint (c)
if (!IS_INDEF(d))
y2 = nint (d)
if (key == 'f' || key == 'v') {
if (abs (x2-x1) > abs (y2-y1))
ap = APLDIAG
else
ap = APCDIAG
} else
ap = APRECTANGLE
case 'b', 'e', 'k', 'm', 'n', 'p', 's', ' ':
if (!IS_INDEF(a)) {
x1 = nint (a - EP_RADIUS(ep))
x2 = nint (a + EP_RADIUS(ep))
}
if (!IS_INDEF(b)) {
y1 = nint (b - EP_RADIUS(ep))
y2 = nint (b + EP_RADIUS(ep))
}
ap = EP_APERTURE(ep)
case 'E':
call printf ("again:")
nitems = clgcur ("cursor", c, d, wcs, key, strval, SZ_LINE)
call printf ("\n")
if (!IS_INDEF(a))
x1 = nint (a)
if (!IS_INDEF(b))
y1 = nint (b)
if (!IS_INDEF(c))
x2 = nint (c)
if (!IS_INDEF(d))
y2 = nint (d)
default:
if (!IS_INDEF(a))
x1 = nint (a)
if (!IS_INDEF(b))
y1 = nint (b)
}
return (nitems)
end
|
