00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028 #ifdef HAVE_CONFIG_H
00029 #include <config.h>
00030 #endif
00031
00032
00033
00034
00035
00036 #include <cpl.h>
00037
00038 #include "irplib_detmon_lg.h"
00039 #include "irplib_detmon.h"
00040 #include "irplib_plugin.h"
00041
00042 #include "hawki_dfs.h"
00043
00044 #define RECIPE_NAME "hawki_cal_lingain"
00045
00046
00047 #define INSTREGEXP "ESO INS SETUP ID"
00048 #define PAFREGEXP "^(" REGEXP "|" INSTREGEXP ")$"
00049
00050
00051
00052
00053
00054
00057 cpl_error_code hawki_cal_lingain_fill_parlist_default(cpl_parameterlist * parlist);
00058
00059 IRPLIB_RECIPE_DEFINE(hawki_cal_lingain, HAWKI_BINARY_VERSION,
00060 hawki_cal_lingain_fill_parlist_default(recipe->parameters),
00061 "Enrique Garcia", PACKAGE_BUGREPORT, "2009",
00062 "Linearity/Gain recipe for the IR domain",
00063 irplib_detmon_lg_get_description(RECIPE_NAME, "HAWKI",
00064 HAWKI_CAL_LINGAIN_LAMP_RAW,
00065 HAWKI_CAL_LINGAIN_DARK_RAW));
00066
00067
00068
00069
00070
00071
00072
00073
00074
00075 static int hawki_cal_lingain(cpl_frameset * frameset,
00076 const cpl_parameterlist * parlist)
00077 {
00078 cpl_error_code error ;
00079 cpl_propertylist * pro_lintbl ;
00080 cpl_propertylist * pro_gaintbl ;
00081 cpl_propertylist * pro_coeffscube ;
00082 cpl_propertylist * pro_bpm ;
00083 cpl_propertylist * pro_corr ;
00084 cpl_propertylist * pro_diff ;
00085
00086
00087 pro_lintbl = cpl_propertylist_new() ;
00088 cpl_propertylist_append_string(pro_lintbl, CPL_DFS_PRO_CATG,
00089 HAWKI_CALPRO_LINGAIN_LIN) ;
00090 cpl_propertylist_append_string(pro_lintbl, CPL_DFS_PRO_TYPE,
00091 HAWKI_PROTYPE_LIN_STATS) ;
00092
00093 pro_gaintbl = cpl_propertylist_new() ;
00094 cpl_propertylist_append_string(pro_gaintbl, CPL_DFS_PRO_CATG,
00095 HAWKI_CALPRO_LINGAIN_GAIN) ;
00096 cpl_propertylist_append_string(pro_gaintbl, CPL_DFS_PRO_TYPE,
00097 HAWKI_PROTYPE_GAIN_STATS) ;
00098
00099 pro_coeffscube = cpl_propertylist_new() ;
00100 cpl_propertylist_append_string(pro_coeffscube, CPL_DFS_PRO_CATG,
00101 HAWKI_CALPRO_LINGAIN_COEFFS) ;
00102 cpl_propertylist_append_string(pro_coeffscube, CPL_DFS_PRO_TYPE,
00103 HAWKI_PROTYPE_LIN_COEFFS) ;
00104
00105 pro_bpm = cpl_propertylist_new() ;
00106 cpl_propertylist_append_string(pro_bpm, CPL_DFS_PRO_CATG,
00107 HAWKI_CALPRO_LINGAIN_BPM) ;
00108 cpl_propertylist_append_string(pro_bpm, CPL_DFS_PRO_TYPE,
00109 HAWKI_PROTYPE_BPM_LEVELS) ;
00110
00111 pro_corr = cpl_propertylist_new() ;
00112 cpl_propertylist_append_string(pro_corr, CPL_DFS_PRO_CATG,
00113 HAWKI_CALPRO_LINGAIN_CORR) ;
00114 cpl_propertylist_append_string(pro_corr, CPL_DFS_PRO_TYPE,
00115 HAWKI_PROTYPE_LINGAIN_CORR) ;
00116
00117 pro_diff = cpl_propertylist_new() ;
00118 cpl_propertylist_append_string(pro_diff, CPL_DFS_PRO_CATG,
00119 HAWKI_CALPRO_LINGAIN_DIFF) ;
00120 cpl_propertylist_append_string(pro_diff, CPL_DFS_PRO_TYPE,
00121 HAWKI_PROTYPE_LINGAIN_DIFF) ;
00122
00123
00124 error = irplib_detmon_lg(frameset,
00125 parlist,
00126 HAWKI_CAL_LINGAIN_LAMP_RAW,
00127 HAWKI_CAL_LINGAIN_DARK_RAW,
00128 RECIPE_NAME,
00129 PACKAGE_TARNAME,
00130 PAFREGEXP,
00131 pro_lintbl,
00132 pro_gaintbl,
00133 pro_coeffscube,
00134 pro_bpm,
00135 pro_corr,
00136 pro_diff,
00137 PACKAGE "/" PACKAGE_VERSION,
00138 NULL, NULL, TRUE);
00139
00140
00141 cpl_propertylist_delete(pro_lintbl) ;
00142 cpl_propertylist_delete(pro_gaintbl) ;
00143 cpl_propertylist_delete(pro_coeffscube) ;
00144 cpl_propertylist_delete(pro_bpm) ;
00145 cpl_propertylist_delete(pro_corr) ;
00146 cpl_propertylist_delete(pro_diff) ;
00147
00148
00149 cpl_ensure_code(!error, error);
00150
00151
00152 if (cpl_error_get_code())
00153 {
00154 cpl_msg_error(__func__,
00155 "HAWK-I pipeline could not recover from previous errors");
00156 return -1 ;
00157 }
00158 else return 0;
00159 }
00160
00161 cpl_error_code
00162 hawki_cal_lingain_fill_parlist_default(cpl_parameterlist * parlist)
00163 {
00164 cpl_parameter * p;
00165 cpl_error_code error ;
00166
00167 error=irplib_detmon_lg_fill_parlist_nir_default(parlist,
00168 RECIPE_NAME, PACKAGE_TARNAME);
00169 cpl_ensure_code(!error, error);
00170
00171
00172 p = cpl_parameterlist_find(parlist, PACKAGE_TARNAME "." RECIPE_NAME
00173 ".exts");
00174 cpl_ensure_code(p != NULL, CPL_ERROR_DATA_NOT_FOUND);
00175 error = cpl_parameter_set_default_int(p, -1);
00176 cpl_ensure_code(!error, error);
00177
00178
00179 return CPL_ERROR_NONE;
00180 }