84 #include <uves_physmod_plotmod.h>
86 #include <uves_plot.h>
88 #include <uves_error.h>
122 const cpl_parameterlist* params,
127 double ech_ang_off=0;
129 double ccd_ang_off=0;
133 double slit_length=0;
134 const char* origfile=NULL;
135 const char* tpl_start=NULL;
140 check( uves_get_parameter(params, NULL,rec_id,
"ech_angle_off",
141 CPL_TYPE_DOUBLE, &ech_ang_off ) ,
"Could not read parameter");
143 check( uves_get_parameter(params, NULL, rec_id,
"cd_angle_off",
144 CPL_TYPE_DOUBLE, &cd_ang_off ) ,
"Could not read parameter");
146 check( uves_get_parameter(params, NULL, rec_id,
"ccd_rot_angle_off",
147 CPL_TYPE_DOUBLE, &ccd_ang_off ) ,
"Could not read parameter");
150 "Could not read central wavelength setting from input header");
153 "Could not read camera's temperature from input header");
156 "Could not read slit width input header");
159 "Could not read slit length input header");
165 sprintf(title,
"%s %4.1f %s %2.1f %s %s %3.1f %s ",
166 "Central wavelength: ",wcent,
167 " nm, slit: ",slit_length,
168 " arcsec, CCD:",chip_id,temp_cam,
" C");
172 check(uves_plot_table(tbl,
"XMOD",
"XDIF",
"%s", title),
176 check(uves_plot_table(tbl,
"XMOD",
"YDIF",
"%s", title),
181 check(uves_plot_table(tbl,
"YMOD",
"XDIF",
"%s", title),
186 check(uves_plot_table(tbl,
"YMOD",
"YDIF",
"%s", title),
191 check(uves_plot_table(tbl,
"XDIF",
"YDIF",
"%s", title),
196 check(uves_plot_table(tbl,
"XMOD",
"YMOD",
"%s", title),
const char * uves_pfits_get_tpl_start(const uves_propertylist *plist)
Find out the tpl start.
double uves_pfits_get_tempcam(const uves_propertylist *plist, enum uves_chip chip)
find out the pressure value
double uves_pfits_get_gratwlen(const uves_propertylist *plist, enum uves_chip chip)
find out the central wavelength
double uves_pfits_get_slitwidth(const uves_propertylist *plist, enum uves_chip chip)
find out the slit width
const char * uves_pfits_get_origfile(const uves_propertylist *plist)
find out the origfile
const char * uves_chip_tostring_lower(enum uves_chip chip)
Convert to string.
int uves_physmod_plotmod(const cpl_table *tbl, const uves_propertylist *head, const char *rec_id, const cpl_parameterlist *params, enum uves_chip chip)
This procedure plots results from the uves_physmod recipe.
double uves_pfits_get_slitlength(const uves_propertylist *plist, enum uves_chip chip)
find out the slit length