blob: bbd88ad0cf85a9b39d4688d71ea868c14f2bb338 (
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
33
34
35
36
37
38
39
40
41
42
43
|
# FITPSF header file
define LEN_PSFSTRUCT (25 + SZ_FNAME + 1)
# fitpsf parameters
define AP_PSFUNCTION Memi[$1] # PSF function
define AP_PSFNPARS Memi[$1+1] # Number of parameters
define AP_MAXNPARS Memi[$1+2] # Maximum number of parameters
define AP_PSFAPERT Memr[P2R($1+3)] # Half-width of fitting box
define AP_PMAXITER Memi[$1+4] # Maximum number of iterations
define AP_PK2 Memr[P2R($1+5)] # Rejection limit in sigma
define AP_PNREJECT Memi[$1+6] # Maximum number of rejections
# fitpsf buffers
define AP_PSFPIX Memi[$1+7] # Pointer to pixels
define AP_PSFXPIX Memi[$1+8] # X coordinates array (not used)
define AP_PSFYPIX Memi[$1+9] # Y coordinates array (not used)
define AP_NPSFPIX Memi[$1+10] # Number of pixels (not used)
define AP_LENPSFBUF Memi[$1+11] # Length of pixel buffer (not used)
define AP_PXC Memr[P2R($1+12)]# X center of subraster
define AP_PYC Memr[P2R($1+13)]# Y center of subraster
define AP_PNX Memi[$1+14] # X dimension of subraster
define AP_PNY Memi[$1+15] # Y dimension of subraster
define AP_PFXCUR Memr[P2R($1+16)]# X initial position
define AP_PFYCUR Memr[P2R($1+17)]# Y initial position
define AP_OPFXCUR Memr[P2R($1+18)]# X initial position
define AP_OPFYCUR Memr[P2R($1+19)]# Y initial position
# fitpsf answers
define AP_PPARS Memi[$1+20] # fitted parameters
define AP_PPERRS Memi[$1+21] # errors in the parameters
define AP_PSFSTRING Memc[P2C($1+22)] # functions string
# default fitpsf parameters
define DEF_MAXNPARS 10
define DEF_PSFUNCTION AP_RADGAUSS
define DEF_PMAXITER 50
define DEF_PK2 3.0
define DEF_PNREJECT 1
|
