blob: 2072907e20784baebc160f004ba28fe8722b922a (
plain) (
blame)
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
|
include "apertures.h"
# AP_VALUES -- Return the values for an aperture
procedure ap_values (current, aps, line, apid, apbeam, center, low, high)
int current # Index to current aperture
pointer aps[ARB] # Apertures
int line # Line
int apid # Aperture ID
int apbeam # Aperture beam
real center # Aperture center
real low # Lower limit of aperture
real high # Upper limit of aperture
int apaxis
pointer ap
real ap_cveval()
begin
if (current > 0) {
ap = aps[current]
apaxis = AP_AXIS(ap)
apid = AP_ID(ap)
apbeam = AP_BEAM(ap)
center = AP_CEN(ap, apaxis) + ap_cveval (AP_CV(ap), real (line))
low = AP_LOW(ap, apaxis)
high = AP_HIGH(ap, apaxis)
}
end
|
