244 |
|
/* Number of spectral components */ |
245 |
|
#define NCOMPSTR "NCOMP=" |
246 |
|
#define LNCOMPSTR 6 |
247 |
< |
#define isncomp(hl) (!strncmp(hl,NCOMPSTR,LNCOMPSTR)) |
247 |
> |
#define isncomp(hl) !strncmp(hl,NCOMPSTR,LNCOMPSTR) |
248 |
|
#define ncompval(hl) atoi((hl)+LNCOMPSTR) |
249 |
|
#define fputncomp(nc,fp) fprintf(fp,"%s%d\n",NCOMPSTR,nc) |
250 |
|
|
251 |
|
/* 4 wavelength partitions for (IR+)R,G,B(+UV) */ |
252 |
|
#define WLSPLTSTR "WAVELENGTH_SPLITS=" |
253 |
|
#define LWLSPLTSTR 18 |
254 |
< |
#define iswlsplit(hl) (!strncmp(hl,WLSPLTSTR,LWLSPLTSTR)) |
254 |
> |
#define iswlsplit(hl) !strncmp(hl,WLSPLTSTR,LWLSPLTSTR) |
255 |
|
#define wlsplitval(w,hl) (sscanf((hl)+LWLSPLTSTR,"%f %f %f %f",\ |
256 |
|
&(w)[0],&(w)[1],&(w)[2],&(w)[3]) == 4) |
257 |
|
#define fputwlsplit(w,fp) fprintf(fp,"%s %g %g %g %g\n",WLSPLTSTR,\ |
260 |
|
/* macros for exposures */ |
261 |
|
#define EXPOSSTR "EXPOSURE=" |
262 |
|
#define LEXPOSSTR 9 |
263 |
< |
#define isexpos(hl) (!strncmp(hl,EXPOSSTR,LEXPOSSTR)) |
263 |
> |
#define isexpos(hl) !strncmp(hl,EXPOSSTR,LEXPOSSTR) |
264 |
|
#define exposval(hl) atof((hl)+LEXPOSSTR) |
265 |
|
#define fputexpos(ex,fp) fprintf(fp,"%s%.4e\n",EXPOSSTR,ex) |
266 |
|
|
267 |
|
/* macros for pixel aspect ratios */ |
268 |
|
#define ASPECTSTR "PIXASPECT=" |
269 |
|
#define LASPECTSTR 10 |
270 |
< |
#define isaspect(hl) (!strncmp(hl,ASPECTSTR,LASPECTSTR)) |
270 |
> |
#define isaspect(hl) !strncmp(hl,ASPECTSTR,LASPECTSTR) |
271 |
|
#define aspectval(hl) atof((hl)+LASPECTSTR) |
272 |
|
#define fputaspect(pa,fp) fprintf(fp,"%s%f\n",ASPECTSTR,pa) |
273 |
|
|
274 |
|
/* macros for primary specifications */ |
275 |
|
#define PRIMARYSTR "PRIMARIES=" |
276 |
|
#define LPRIMARYSTR 10 |
277 |
< |
#define isprims(hl) (!strncmp(hl,PRIMARYSTR,LPRIMARYSTR)) |
277 |
> |
#define isprims(hl) !strncmp(hl,PRIMARYSTR,LPRIMARYSTR) |
278 |
|
#define primsval(p,hl) (sscanf((hl)+LPRIMARYSTR, \ |
279 |
|
"%f %f %f %f %f %f %f %f", \ |
280 |
|
&(p)[RED][CIEX],&(p)[RED][CIEY], \ |
292 |
|
/* macros for color correction */ |
293 |
|
#define COLCORSTR "COLORCORR=" |
294 |
|
#define LCOLCORSTR 10 |
295 |
< |
#define iscolcor(hl) (!strncmp(hl,COLCORSTR,LCOLCORSTR)) |
295 |
> |
#define iscolcor(hl) !strncmp(hl,COLCORSTR,LCOLCORSTR) |
296 |
|
#define colcorval(cc,hl) sscanf((hl)+LCOLCORSTR,"%f %f %f", \ |
297 |
|
&(cc)[RED],&(cc)[GRN],&(cc)[BLU]) |
298 |
|
#define fputcolcor(cc,fp) fprintf(fp,"%s %f %f %f\n",COLCORSTR, \ |