blob: 9cba49c49acd8b445251c6c758710ff898e75458 (
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
|
include "identify.h"
# ID_PEAK -- Find the peak value above continuum.
double procedure id_peak (id, pix)
pointer id # ID pointer
double pix # Pixel position
double peak # Peak value
int c, l, u
begin
if (IS_INDEFD(pix))
return (INDEFD)
c = nint (pix)
l = max (1, nint (pix - ID_FWIDTH(id)))
u = min (ID_NPTS(id), nint (pix + ID_FWIDTH(id)))
peak = IMDATA(id,c) - (IMDATA(id,l) + IMDATA(id,u)) / 2.
return (peak)
end
|
