blob: e697bf88400d1f8605a4baac3120b378b1b64aad (
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
|
include "apertures.h"
# AP_COPY -- Make a copy of an aperture.
# The title is not copied.
procedure ap_copy (apin, apout)
pointer apin # Aperture to copy
pointer apout # New copy
int i
begin
# Allocate memory, transfer the aperture parameters, and call procedures
# which copy the offset curve and background parameters.
call ap_alloc (apout)
AP_ID(apout) = AP_ID(apin)
AP_BEAM(apout) = AP_BEAM(apin)
AP_AXIS(apout) = AP_AXIS(apin)
do i = 1, 2 {
AP_CEN(apout, i) = AP_CEN(apin, i)
AP_LOW(apout, i) = AP_LOW(apin, i)
AP_HIGH(apout, i) = AP_HIGH(apin, i)
}
call ap_cvset (apin, apout)
call ic_open (AP_IC(apout))
call ic_copy (AP_IC(apin), AP_IC(apout))
end
|
