blob: 63e55072a35826a1af57e780f3c90d6ffb3ad419 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
include <smw.h>
include "ecidentify.h"
# EC_LINE -- Get line corresponding to aperture.
int procedure ec_line (ec, ap)
pointer ec # EC pointer
int ap # Aperture
int i
begin
if (IS_INDEFI (ap))
return (INDEFI)
do i = 1, EC_NLINES(ec)
if (ap == APS(ec,i))
return (i)
call error (0, "Image line for aperture number not found")
end
|
