blob: ad34b76769769e4d0f1478f442d7bc27116381de (
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
# Task parameters
define LEN_IDSTRUCT 64 # Length ID structure
define ID_TASK Memi[$1] # Task ID
define ID_IMAGE Memi[$1+1] # Image (pointer)
define ID_SECTION Memi[$1+2] # Section for 2D and 3D images (pointer)
define ID_LINE Memi[$1+$2+2] # Image line or column [2]
define ID_MAXLINE Memi[$1+$2+4] # Maximum line or column [2]
define ID_AP Memi[$1+$2+6] # Aperture if appropriate [2]
define ID_APS Memi[$1+9] # Array of apertures (pointer)
define ID_NSUM Memi[$1+$2+10] # Number of lines to sum [2]
define ID_MAXFEATURES Memi[$1+13] # Maximum number of features
define ID_FTYPE Memi[$1+14] # Feature type
define ID_MINSEP Memr[P2R($1+15)] # Minimum pixel separation
define ID_MATCH Memr[P2R($1+16)] # Maximum matching separation
define ID_FWIDTH Memr[P2R($1+17)] # Feature width in pixels
define ID_CRADIUS Memr[P2R($1+18)] # Centering radius in pixels
define ID_THRESHOLD Memr[P2R($1+19)] # Centering threshold
define ID_ZWIDTH Memr[P2R($1+20)] # Zoom window width in fit units
define ID_DATABASE Memi[$1+21] # Name of database (pointer)
define ID_COORDLIST Memi[$1+22] # Name of coordinate list (pointer)
define ID_LL Memi[$1+23] # Pointer to lines in coordinate list
define ID_LABELS Memi[$1+24] # Type of feature labels
define ID_LOGFILES Memi[$1+25] # List of logfiles
# Common image data
define ID_SHIFT Memd[P2D($1+26)]# Wavelength shift
define ID_REDSHIFT Memd[P2D($1+28)]# Redshift of spectrum
define ID_RMSRED Memd[P2D($1+30)]# Redshift of spectrum
define ID_ZHELIO Memd[P2D($1+32)]# Heliocentric correction in redshift
define ID_IMDATA Memi[$1+34] # Image data (pointer)
define ID_PIXDATA Memi[$1+35] # Pixel coordinates (pointer)
define ID_FITDATA Memi[$1+36] # Fit coordinates (pointer)
define ID_NPTS Memi[$1+37] # Number of points
# Features
define ID_NFEATURES Memi[$1+38] # Number of features
define ID_NALLOC Memi[$1+39] # Length of allocated feature arrays
define ID_PIX Memi[$1+40] # Feature pixel coordinates (pointer)
define ID_FIT Memi[$1+41] # Feature fit coordinates (pointer)
define ID_USER Memi[$1+42] # Feature user coordinates (pointer)
define ID_WTS Memi[$1+43] # Feature weights (pointer)
define ID_FWIDTHS Memi[$1+44] # Feature width (pointer)
define ID_FTYPES Memi[$1+45] # Feature type (pointer)
define ID_LABEL Memi[$1+46] # Feature label (pointer)
define ID_CURRENT Memi[$1+47] # Current feature
# Pointers for other packages and to save data
define ID_SH Memi[$1+48] # SHDR pointer
define ID_LP Memi[$1+49] # Logical to physical transformation
define ID_PL Memi[$1+50] # Physical to logical transformation
define ID_IC Memi[$1+51] # ICFIT pointer
define ID_CV Memi[$1+52] # Curfit pointer
define ID_GP Memi[$1+53] # GIO pointer
define ID_GT Memi[$1+54] # Gtools pointer
define ID_ID Memi[$1+55] # Array of structure pointers (pointer)
define ID_NID Memi[$1+56] # Number of saved structure
define ID_DT Memi[$1+57] # Database pointer
# Flags
define ID_NEWFEATURES Memi[$1+58] # Has feature list changed?
define ID_NEWCV Memi[$1+59] # Has fitting function changed?
define ID_NEWGRAPH Memi[$1+60] # Has graph changed?
define ID_NEWDBENTRY Memi[$1+61] # Has database entry changed?
define ID_REFIT Memi[$1+62] # Refit feature data?
define ID_GTYPE Memi[$1+63] # Graph type
# End of structure ----------------------------------------------------------
# Task ID
define IDENTIFY 1 # Standard identify
define RVIDLINES 2 # Line radial velocities
define LABELS "|none|index|pixel|coord|user|both|"
define FTYPES "|emission|absorption|gemission|gabsorption|"
define EMISSION 1 # Emission feature (center1d)
define ABSORPTION 2 # Absorption feature (center1d)
define GEMISSION 3 # Emission feature (center1d)
define GABSORPTION 4 # Absorption feature (center1d)
define IMDATA Memr[ID_IMDATA($1)+$2-1]
define PIXDATA Memd[ID_PIXDATA($1)+$2-1]
define FITDATA Memd[ID_FITDATA($1)+$2-1]
define PIX Memd[ID_PIX($1)+$2-1]
define FIT Memd[ID_FIT($1)+$2-1]
define USER Memd[ID_USER($1)+$2-1]
define WTS Memd[ID_WTS($1)+$2-1]
define FWIDTH Memr[ID_FWIDTHS($1)+$2-1]
define FTYPE Memi[ID_FTYPES($1)+$2-1]
define VLIGHT 2.997925e5 # Speed of light, Km/sec
|
