5 |
|
* Plot 3-D BSDF output based on scattering interpolant or XML representation |
6 |
|
*/ |
7 |
|
|
8 |
– |
#include <stdio.h> |
9 |
– |
#include <string.h> |
8 |
|
#include <stdlib.h> |
9 |
+ |
#include "rtio.h" |
10 |
|
#include "paths.h" |
11 |
|
#include "rtmath.h" |
13 |
– |
#include "resolu.h" |
12 |
|
#include "bsdfrep.h" |
13 |
|
|
14 |
+ |
#ifndef NINCIDENT |
15 |
|
#define NINCIDENT 37 /* number of samples/hemisphere */ |
16 |
< |
|
16 |
> |
#endif |
17 |
> |
#ifndef GRIDSTEP |
18 |
|
#define GRIDSTEP 2 /* our grid step size */ |
19 |
+ |
#endif |
20 |
|
#define SAMPRES (GRIDRES/GRIDSTEP) |
21 |
|
|
22 |
|
int front_comp = 0; /* front component flags (SDsamp*) */ |
25 |
|
double min_log10; /* smallest log10 value for plotting */ |
26 |
|
double overall_max = .0; /* overall maximum BSDF value */ |
27 |
|
|
28 |
< |
char ourTempDir[TEMPLEN] = ""; /* our temporary directory */ |
28 |
> |
char ourTempDir[TEMPLEN+1] = ""; /* our temporary directory */ |
29 |
|
|
30 |
< |
const char frpref[] = "frefl"; |
31 |
< |
const char ftpref[] = "ftrans"; |
32 |
< |
const char brpref[] = "brefl"; |
33 |
< |
const char btpref[] = "btrans"; |
30 |
> |
const char frpref[] = "rf"; |
31 |
> |
const char ftpref[] = "tf"; |
32 |
> |
const char brpref[] = "rb"; |
33 |
> |
const char btpref[] = "tb"; |
34 |
|
const char dsuffix[] = ".txt"; |
35 |
|
|
36 |
|
const char sph_fmat[] = "fBSDFmat"; |
43 |
|
|
44 |
|
#define FEQ(a,b) ((a)-(b) <= 1e-7 && (b)-(a) <= 1e-7) |
45 |
|
|
46 |
< |
#define set_minlog() (min_log10 = log10(overall_min + 1e-5) - .1) |
46 |
> |
#define set_minlog() overall_min = (overall_min < 1e-5) ? 1e-5 : overall_min; \ |
47 |
> |
min_log10 = log10(overall_min) - .1 |
48 |
|
|
49 |
|
char *progname; |
50 |
|
|
78 |
|
static char * |
79 |
|
tfile_name(const char *prefix, const char *suffix, int i) |
80 |
|
{ |
81 |
< |
static char buf[128]; |
81 |
> |
static char buf[256]; |
82 |
|
|
83 |
|
if (!ourTempDir[0]) { /* create temporary directory */ |
84 |
|
mktemp(strcpy(ourTempDir,TEMPLATE)); |
272 |
|
|
273 |
|
/* Put out mirror arrow for the given incident vector */ |
274 |
|
static void |
275 |
< |
put_mirror_arrow(const FVECT ivec, int inc_side) |
275 |
> |
put_mirror_arrow(const FVECT origin, const FVECT nrm) |
276 |
|
{ |
277 |
|
const double arrow_len = 1.2*bsdf_rad; |
278 |
|
const double tip_len = 0.2*bsdf_rad; |
279 |
< |
FVECT origin, refl; |
279 |
> |
static int cnt = 1; |
280 |
> |
FVECT refl; |
281 |
|
int i; |
282 |
|
|
283 |
< |
cvt_sposition(origin, ivec, inc_side); |
283 |
> |
refl[0] = 2.*nrm[2]*nrm[0]; |
284 |
> |
refl[1] = 2.*nrm[2]*nrm[1]; |
285 |
> |
refl[2] = 2.*nrm[2]*nrm[2] - 1.; |
286 |
|
|
287 |
< |
refl[0] = -2.*ivec[2]*ivec[0]; |
288 |
< |
refl[1] = -2.*ivec[2]*ivec[1]; |
284 |
< |
refl[2] = 2.*ivec[2]*ivec[2] - 1.; |
285 |
< |
|
286 |
< |
printf("\n# Mirror arrow\n"); |
287 |
< |
printf("\narrow_mat cylinder inc_dir\n0\n0\n7"); |
287 |
> |
printf("\n# Mirror arrow #%d\n", cnt); |
288 |
> |
printf("\nshaft_mat cylinder inc_dir%d\n0\n0\n7", cnt); |
289 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f\n", |
290 |
|
origin[0], origin[1], origin[2]+arrow_len, |
291 |
|
origin[0], origin[1], origin[2], |
292 |
|
arrow_rad); |
293 |
< |
printf("\narrow_mat cylinder mir_dir\n0\n0\n7"); |
293 |
> |
printf("\nshaft_mat cylinder mir_dir%d\n0\n0\n7", cnt); |
294 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f\n", |
295 |
|
origin[0], origin[1], origin[2], |
296 |
|
origin[0] + arrow_len*refl[0], |
297 |
|
origin[1] + arrow_len*refl[1], |
298 |
|
origin[2] + arrow_len*refl[2], |
299 |
|
arrow_rad); |
300 |
< |
printf("\narrow_mat cone mir_tip\n0\n0\n8"); |
300 |
> |
printf("\ntip_mat cone mir_tip%d\n0\n0\n8", cnt); |
301 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f 0\n", |
302 |
|
origin[0] + (arrow_len-.5*tip_len)*refl[0], |
303 |
|
origin[1] + (arrow_len-.5*tip_len)*refl[1], |
306 |
|
origin[1] + (arrow_len+.5*tip_len)*refl[1], |
307 |
|
origin[2] + (arrow_len+.5*tip_len)*refl[2], |
308 |
|
2.*arrow_rad); |
309 |
+ |
++cnt; |
310 |
|
} |
311 |
|
|
312 |
|
/* Put out transmitted direction arrow for the given incident vector */ |
313 |
|
static void |
314 |
< |
put_trans_arrow(const FVECT ivec, int inc_side) |
314 |
> |
put_trans_arrow(const FVECT origin) |
315 |
|
{ |
316 |
|
const double arrow_len = 1.2*bsdf_rad; |
317 |
|
const double tip_len = 0.2*bsdf_rad; |
318 |
< |
FVECT origin; |
318 |
> |
static int cnt = 1; |
319 |
|
int i; |
320 |
|
|
321 |
< |
cvt_sposition(origin, ivec, inc_side); |
322 |
< |
|
321 |
< |
printf("\n# Transmission arrow\n"); |
322 |
< |
printf("\narrow_mat cylinder trans_dir\n0\n0\n7"); |
321 |
> |
printf("\n# Transmission arrow #%d\n", cnt); |
322 |
> |
printf("\nshaft_mat cylinder trans_dir%d\n0\n0\n7", cnt); |
323 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f\n", |
324 |
|
origin[0], origin[1], origin[2], |
325 |
|
origin[0], origin[1], origin[2]-arrow_len, |
326 |
|
arrow_rad); |
327 |
< |
printf("\narrow_mat cone trans_tip\n0\n0\n8"); |
327 |
> |
printf("\ntip_mat cone trans_tip%d\n0\n0\n8", cnt); |
328 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f 0\n", |
329 |
|
origin[0], origin[1], origin[2]-arrow_len+.5*tip_len, |
330 |
|
origin[0], origin[1], origin[2]-arrow_len-.5*tip_len, |
331 |
< |
2.*arrow_rad); |
331 |
> |
2.*arrow_rad); |
332 |
> |
++cnt; |
333 |
|
} |
334 |
|
|
335 |
|
/* Compute rotation (x,y,z) => (xp,yp,zp) */ |
373 |
|
put_BSDFs(void) |
374 |
|
{ |
375 |
|
const double scalef = bsdf_rad/(log10(overall_max) - min_log10); |
376 |
< |
FVECT ivec, sorg, upv; |
376 |
> |
FVECT ivec, sorg, nrm, upv; |
377 |
|
RREAL vMtx[3][3]; |
378 |
|
char *fname; |
379 |
|
char cmdbuf[256]; |
380 |
< |
char xfargs[128]; |
381 |
< |
int nxfa; |
380 |
> |
char rotargs[64]; |
381 |
> |
int nrota; |
382 |
|
int i; |
383 |
|
|
384 |
|
printf("\n# Gensurf output corresponding to %d incident directions\n", |
385 |
|
NINCIDENT); |
386 |
|
|
387 |
< |
printf("\nvoid glow arrow_glow\n0\n0\n4 1 0 1 0\n"); |
388 |
< |
printf("\nvoid mixfunc arrow_mat\n4 arrow_glow void 0.25 .\n0\n0\n"); |
387 |
> |
printf("\nvoid glow tip_mat\n0\n0\n4 1 0 1 0\n"); |
388 |
> |
printf("\nvoid mixfunc shaft_mat\n4 tip_mat void 0.25 .\n0\n0\n"); |
389 |
|
|
390 |
< |
if (front_comp & SDsampR) /* front reflection */ |
391 |
< |
for (i = 0; i < NINCIDENT; i++) { |
392 |
< |
get_ivector(ivec, i); |
393 |
< |
put_mirror_arrow(ivec, 1); |
390 |
> |
for (i = 0; i < NINCIDENT; i++) { |
391 |
> |
get_ivector(ivec, i); |
392 |
> |
nrm[0] = -ivec[0]; nrm[1] = -ivec[1]; nrm[2] = ivec[2]; |
393 |
> |
upv[0] = nrm[0]*nrm[1]*(nrm[2] - 1.); |
394 |
> |
upv[1] = nrm[0]*nrm[0] + nrm[1]*nrm[1]*nrm[2]; |
395 |
> |
upv[2] = -nrm[1]*(nrm[0]*nrm[0] + nrm[1]*nrm[1]); |
396 |
> |
if (SDcompXform(vMtx, nrm, upv) != SDEnone) |
397 |
> |
continue; |
398 |
> |
nrota = addrot(rotargs, vMtx[0], vMtx[1], vMtx[2]); |
399 |
> |
if (front_comp) { |
400 |
|
cvt_sposition(sorg, ivec, 1); |
394 |
– |
ivec[0] = -ivec[0]; ivec[1] = -ivec[1]; /* normal */ |
395 |
– |
upv[0] = ivec[0]*ivec[1]*(ivec[2] - 1.); |
396 |
– |
upv[1] = ivec[0]*ivec[0] + ivec[1]*ivec[1]*ivec[2]; |
397 |
– |
upv[2] = -ivec[1]*(ivec[0]*ivec[0] + ivec[1]*ivec[1]); |
398 |
– |
sprintf(xfargs, "-s %f -t %f %f %f", bsdf_rad, |
399 |
– |
sorg[0], sorg[1], sorg[2]); |
400 |
– |
nxfa = 6; |
401 |
|
printf("\nvoid colorfunc scale_pat\n"); |
402 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
403 |
< |
4+nxfa, xfargs); |
402 |
> |
printf("10 bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n"); |
403 |
> |
printf("\t-s %f -t %f %f %f\n0\n0\n", |
404 |
> |
bsdf_rad, sorg[0], sorg[1], sorg[2]); |
405 |
|
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
406 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
407 |
< |
continue; |
408 |
< |
nxfa = addrot(xfargs, vMtx[0], vMtx[1], vMtx[2]); |
408 |
< |
sprintf(xfargs+strlen(xfargs), " -s %f -t %f %f %f", |
409 |
< |
scalef, sorg[0], sorg[1], sorg[2]); |
410 |
< |
nxfa += 6; |
406 |
> |
} |
407 |
> |
if (front_comp & SDsampR) { |
408 |
> |
put_mirror_arrow(sorg, nrm); |
409 |
|
fname = tfile_name(frpref, dsuffix, i); |
410 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform %s", |
410 |
> |
sprintf(cmdbuf, |
411 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform %s -s %f -t %f %f %f", |
412 |
|
frpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
413 |
< |
xfargs); |
413 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
414 |
|
if (!run_cmd(cmdbuf)) |
415 |
|
return(0); |
416 |
|
} |
417 |
< |
if (front_comp & SDsampT) /* front transmission */ |
418 |
< |
for (i = 0; i < NINCIDENT; i++) { |
420 |
< |
get_ivector(ivec, i); |
421 |
< |
put_trans_arrow(ivec, 1); |
422 |
< |
cvt_sposition(sorg, ivec, 1); |
423 |
< |
ivec[0] = -ivec[0]; ivec[1] = -ivec[1]; /* normal */ |
424 |
< |
upv[0] = ivec[0]*ivec[1]*(ivec[2] - 1.); |
425 |
< |
upv[1] = ivec[0]*ivec[0] + ivec[1]*ivec[1]*ivec[2]; |
426 |
< |
upv[2] = -ivec[1]*(ivec[0]*ivec[0] + ivec[1]*ivec[1]); |
427 |
< |
sprintf(xfargs, "-s %f -t %f %f %f", bsdf_rad, |
428 |
< |
sorg[0], sorg[1], sorg[2]); |
429 |
< |
nxfa = 6; |
430 |
< |
printf("\nvoid colorfunc scale_pat\n"); |
431 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
432 |
< |
4+nxfa, xfargs); |
433 |
< |
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
434 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
435 |
< |
continue; |
436 |
< |
nxfa = addrot(xfargs, vMtx[0], vMtx[1], vMtx[2]); |
437 |
< |
sprintf(xfargs+strlen(xfargs), " -s %f -t %f %f %f", |
438 |
< |
scalef, sorg[0], sorg[1], sorg[2]); |
439 |
< |
nxfa += 6; |
417 |
> |
if (front_comp & SDsampT) { |
418 |
> |
put_trans_arrow(sorg); |
419 |
|
fname = tfile_name(ftpref, dsuffix, i); |
420 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -I %s", |
420 |
> |
sprintf(cmdbuf, |
421 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -I %s -s %f -t %f %f %f", |
422 |
|
ftpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
423 |
< |
xfargs); |
423 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
424 |
|
if (!run_cmd(cmdbuf)) |
425 |
|
return(0); |
426 |
|
} |
427 |
< |
if (back_comp & SDsampR) /* rear reflection */ |
448 |
< |
for (i = 0; i < NINCIDENT; i++) { |
449 |
< |
get_ivector(ivec, i); |
450 |
< |
put_mirror_arrow(ivec, -1); |
427 |
> |
if (back_comp) { |
428 |
|
cvt_sposition(sorg, ivec, -1); |
452 |
– |
ivec[0] = -ivec[0]; ivec[1] = -ivec[1]; /* normal */ |
453 |
– |
upv[0] = ivec[0]*ivec[1]*(ivec[2] - 1.); |
454 |
– |
upv[1] = ivec[0]*ivec[0] + ivec[1]*ivec[1]*ivec[2]; |
455 |
– |
upv[2] = -ivec[1]*(ivec[0]*ivec[0] + ivec[1]*ivec[1]); |
456 |
– |
sprintf(xfargs, "-s %f -t %f %f %f", bsdf_rad, |
457 |
– |
sorg[0], sorg[1], sorg[2]); |
458 |
– |
nxfa = 6; |
429 |
|
printf("\nvoid colorfunc scale_pat\n"); |
430 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
431 |
< |
4+nxfa, xfargs); |
430 |
> |
printf("10 bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n"); |
431 |
> |
printf("\t-s %f -t %f %f %f\n0\n0\n", |
432 |
> |
bsdf_rad, sorg[0], sorg[1], sorg[2]); |
433 |
|
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
434 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
435 |
< |
continue; |
436 |
< |
nxfa = addrot(xfargs, vMtx[0], vMtx[1], vMtx[2]); |
466 |
< |
sprintf(xfargs+strlen(xfargs), " -s %f -t %f %f %f", |
467 |
< |
scalef, sorg[0], sorg[1], sorg[2]); |
468 |
< |
nxfa += 6; |
434 |
> |
} |
435 |
> |
if (back_comp & SDsampR) { |
436 |
> |
put_mirror_arrow(sorg, nrm); |
437 |
|
fname = tfile_name(brpref, dsuffix, i); |
438 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -I -ry 180 %s", |
438 |
> |
sprintf(cmdbuf, |
439 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -I -ry 180 %s -s %f -t %f %f %f", |
440 |
|
brpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
441 |
< |
xfargs); |
441 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
442 |
|
if (!run_cmd(cmdbuf)) |
443 |
|
return(0); |
444 |
|
} |
445 |
< |
if (back_comp & SDsampT) /* rear transmission */ |
446 |
< |
for (i = 0; i < NINCIDENT; i++) { |
478 |
< |
get_ivector(ivec, i); |
479 |
< |
put_trans_arrow(ivec, -1); |
480 |
< |
cvt_sposition(sorg, ivec, -1); |
481 |
< |
ivec[0] = -ivec[0]; ivec[1] = -ivec[1]; /* normal */ |
482 |
< |
upv[0] = ivec[0]*ivec[1]*(ivec[2] - 1.); |
483 |
< |
upv[1] = ivec[0]*ivec[0] + ivec[1]*ivec[1]*ivec[2]; |
484 |
< |
upv[2] = -ivec[1]*(ivec[0]*ivec[0] + ivec[1]*ivec[1]); |
485 |
< |
sprintf(xfargs, "-s %f -t %f %f %f", bsdf_rad, |
486 |
< |
sorg[0], sorg[1], sorg[2]); |
487 |
< |
nxfa = 6; |
488 |
< |
printf("\nvoid colorfunc scale_pat\n"); |
489 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
490 |
< |
4+nxfa, xfargs); |
491 |
< |
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
492 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
493 |
< |
continue; |
494 |
< |
nxfa = addrot(xfargs, vMtx[0], vMtx[1], vMtx[2]); |
495 |
< |
sprintf(xfargs+strlen(xfargs), " -s %f -t %f %f %f", |
496 |
< |
scalef, sorg[0], sorg[1], sorg[2]); |
497 |
< |
nxfa += 6; |
445 |
> |
if (back_comp & SDsampT) { |
446 |
> |
put_trans_arrow(sorg); |
447 |
|
fname = tfile_name(btpref, dsuffix, i); |
448 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -ry 180 %s", |
448 |
> |
sprintf(cmdbuf, |
449 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -ry 180 %s -s %f -t %f %f %f", |
450 |
|
btpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
451 |
< |
xfargs); |
451 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
452 |
|
if (!run_cmd(cmdbuf)) |
453 |
|
return(0); |
454 |
|
} |
455 |
+ |
} |
456 |
|
return(1); |
457 |
|
} |
458 |
|
|
476 |
|
} |
477 |
|
switch (XMLfile[0]) { /* avoid RAYPATH search */ |
478 |
|
case '.': |
479 |
+ |
case '~': |
480 |
|
CASEDIRSEP: |
481 |
|
curdir = ""; |
482 |
|
break; |
518 |
|
if (front_comp) { |
519 |
|
printf( |
520 |
|
"\n!genrev %s Front \"R*sin(A*t)\" \"R*cos(A*t)\" %d -e \"R:%g;A:%f\" -s | xform -t %g 0 0\n", |
521 |
< |
sph_fmat, nsegs, sph_rad, 0.495*PI, sph_xoffset); |
521 |
> |
sph_fmat, nsegs, sph_rad, 0.5*PI, sph_xoffset); |
522 |
|
printf("\nvoid brighttext front_text\n3 helvet.fnt . FRONT\n0\n"); |
523 |
|
printf("12\n\t%f %f 0\n\t%f 0 0\n\t0 %f 0\n\t.01 1 -.1\n", |
524 |
|
-.22*sph_rad + sph_xoffset, -1.4*sph_rad, |
534 |
|
if (back_comp) { |
535 |
|
printf( |
536 |
|
"\n!genrev %s Back \"R*cos(A*t)\" \"R*sin(A*t)\" %d -e \"R:%g;A:%f\" -s | xform -t %g 0 0\n", |
537 |
< |
sph_bmat, nsegs, sph_rad, 0.495*PI, -sph_xoffset); |
537 |
> |
sph_bmat, nsegs, sph_rad, 0.5*PI, -sph_xoffset); |
538 |
|
printf("\nvoid brighttext back_text\n3 helvet.fnt . BACK\n0\n"); |
539 |
|
printf("12\n\t%f %f 0\n\t%f 0 0\n\t0 %f 0\n\t.01 1 -.1\n", |
540 |
|
-.22*sph_rad - sph_xoffset, -1.4*sph_rad, |
674 |
|
static int |
675 |
|
rbf_headline(char *s, void *p) |
676 |
|
{ |
677 |
< |
char fmt[64]; |
677 |
> |
char fmt[MAXFMTLEN]; |
678 |
|
|
679 |
|
if (formatval(fmt, s)) { |
680 |
|
if (strcmp(fmt, BSDFREP_FMT)) |
708 |
|
main(int argc, char *argv[]) |
709 |
|
{ |
710 |
|
int inpXML = -1; |
711 |
+ |
double myLim[2]; |
712 |
|
SDData myBSDF; |
713 |
< |
int n; |
713 |
> |
int a, n; |
714 |
|
/* check arguments */ |
715 |
|
progname = argv[0]; |
716 |
< |
if (argc > 1 && (n = strlen(argv[1])-4) > 0) { |
717 |
< |
if (!strcasecmp(argv[1]+n, ".xml")) |
716 |
> |
a = 1; |
717 |
> |
myLim[0] = -1; myLim[1] = -2; /* specified BSDF range? */ |
718 |
> |
if (argc > a+3 && argv[a][0] == '-' && argv[a][1] == 'r') { |
719 |
> |
myLim[0] = atof(argv[++a]); |
720 |
> |
myLim[1] = atof(argv[++a]); |
721 |
> |
++a; |
722 |
> |
} |
723 |
> |
if (argc > a && (n = strlen(argv[a])-4) > 0) { |
724 |
> |
if (!strcasecmp(argv[a]+n, ".xml")) |
725 |
|
inpXML = 1; |
726 |
< |
else if (!strcasecmp(argv[1]+n, ".sir")) |
726 |
> |
else if (!strcasecmp(argv[a]+n, ".sir")) |
727 |
|
inpXML = 0; |
728 |
|
} |
729 |
< |
if (inpXML < 0 || inpXML & (argc > 2)) { |
730 |
< |
fprintf(stderr, "Usage: %s bsdf.xml > output.rad\n", progname); |
731 |
< |
fprintf(stderr, " Or: %s hemi1.sir hemi2.sir .. > output.rad\n", progname); |
729 |
> |
if (inpXML < 0 || inpXML & (argc > a+1)) { |
730 |
> |
fprintf(stderr, "Usage: %s [-r min max] bsdf.xml > output.rad\n", progname); |
731 |
> |
fprintf(stderr, " Or: %s [-r min max] hemi1.sir hemi2.sir .. > output.rad\n", progname); |
732 |
|
return(1); |
733 |
|
} |
734 |
|
fputs("# ", stdout); /* copy our command */ |
735 |
|
printargs(argc, argv, stdout); |
736 |
|
/* evaluate BSDF */ |
737 |
|
if (inpXML) { |
738 |
< |
SDclearBSDF(&myBSDF, argv[1]); |
739 |
< |
if (SDreportError(SDloadFile(&myBSDF, argv[1]), stderr)) |
738 |
> |
SDclearBSDF(&myBSDF, argv[a]); |
739 |
> |
if (SDreportError(SDloadFile(&myBSDF, argv[a]), stderr)) |
740 |
|
return(1); |
741 |
|
if (myBSDF.rf != NULL) front_comp |= SDsampR; |
742 |
|
if (myBSDF.tf != NULL) front_comp |= SDsampT; |
744 |
|
if (myBSDF.tb != NULL) back_comp |= SDsampT; |
745 |
|
if (!front_comp & !back_comp) { |
746 |
|
fprintf(stderr, "%s: nothing to plot in '%s'\n", |
747 |
< |
progname, argv[1]); |
747 |
> |
progname, argv[a]); |
748 |
|
return(1); |
749 |
|
} |
750 |
< |
if (front_comp & SDsampR && myBSDF.rLambFront.cieY < overall_min*PI) |
751 |
< |
overall_min = myBSDF.rLambFront.cieY/PI; |
752 |
< |
if (back_comp & SDsampR && myBSDF.rLambBack.cieY < overall_min*PI) |
753 |
< |
overall_min = myBSDF.rLambBack.cieY/PI; |
754 |
< |
if ((front_comp|back_comp) & SDsampT && |
755 |
< |
myBSDF.tLamb.cieY < overall_min*PI) |
756 |
< |
overall_min = myBSDF.tLamb.cieY/PI; |
750 |
> |
if (myLim[0] >= 0) |
751 |
> |
overall_min = myLim[0]; |
752 |
> |
else { |
753 |
> |
if (front_comp & SDsampR && myBSDF.rLambFront.cieY < overall_min*PI) |
754 |
> |
overall_min = myBSDF.rLambFront.cieY/PI; |
755 |
> |
if (back_comp & SDsampR && myBSDF.rLambBack.cieY < overall_min*PI) |
756 |
> |
overall_min = myBSDF.rLambBack.cieY/PI; |
757 |
> |
if ((front_comp|back_comp) & SDsampT && |
758 |
> |
myBSDF.tLamb.cieY < overall_min*PI) |
759 |
> |
overall_min = myBSDF.tLamb.cieY/PI; |
760 |
> |
} |
761 |
|
set_minlog(); |
762 |
|
if (!build_wBSDF(&myBSDF)) |
763 |
|
return(1); |
766 |
|
else |
767 |
|
strcpy(bsdf_name, myBSDF.name); |
768 |
|
strcpy(bsdf_manuf, myBSDF.makr); |
769 |
< |
put_matBSDF(argv[1]); |
769 |
> |
put_matBSDF(argv[a]); |
770 |
|
} else { |
771 |
< |
FILE *fp; |
772 |
< |
for (n = 1; n < argc; n++) { |
773 |
< |
fp = fopen(argv[n], "rb"); |
774 |
< |
if (fp == NULL) { |
771 |
> |
FILE *fp[4]; |
772 |
> |
if (argc > a+4) { |
773 |
> |
fprintf(stderr, "%s: more than 4 hemispheres!\n", progname); |
774 |
> |
return(1); |
775 |
> |
} |
776 |
> |
for (n = a; n < argc; n++) { |
777 |
> |
fp[n-a] = fopen(argv[n], "rb"); |
778 |
> |
if (fp[n-a] == NULL) { |
779 |
|
fprintf(stderr, "%s: cannot open BSDF interpolant '%s'\n", |
780 |
|
progname, argv[n]); |
781 |
|
return(1); |
782 |
|
} |
783 |
< |
if (getheader(fp, rbf_headline, NULL) < 0) { |
783 |
> |
if (getheader(fp[n-a], rbf_headline, NULL) < 0) { |
784 |
|
fprintf(stderr, "%s: bad BSDF interpolant '%s'\n", |
785 |
|
progname, argv[n]); |
786 |
|
return(1); |
787 |
|
} |
820 |
– |
fclose(fp); |
788 |
|
} |
789 |
+ |
if (myLim[0] >= 0) |
790 |
+ |
overall_min = myLim[0]; |
791 |
|
set_minlog(); |
792 |
< |
for (n = 1; n < argc; n++) { |
793 |
< |
fp = fopen(argv[n], "rb"); |
794 |
< |
if (!load_bsdf_rep(fp)) |
792 |
> |
for (n = a; n < argc; n++) { |
793 |
> |
if (fseek(fp[n-a], 0L, SEEK_SET) < 0) { |
794 |
> |
fprintf(stderr, "%s: cannot seek on '%s'\n", |
795 |
> |
progname, argv[n]); |
796 |
|
return(1); |
797 |
< |
fclose(fp); |
797 |
> |
} |
798 |
> |
if (!load_bsdf_rep(fp[n-a])) |
799 |
> |
return(1); |
800 |
> |
fclose(fp[n-a]); |
801 |
|
if (!build_wRBF()) |
802 |
|
return(1); |
803 |
|
} |
804 |
|
put_matBSDF(NULL); |
805 |
|
} |
806 |
+ |
if (myLim[1] > myLim[0]) /* override maximum BSDF? */ |
807 |
+ |
overall_max = myLim[1]; |
808 |
|
put_source(); /* before hemispheres & labels */ |
809 |
|
put_hemispheres(); |
810 |
|
put_scale(); |
811 |
|
if (inpXML && myBSDF.mgf) |
812 |
|
convert_mgf(myBSDF.mgf); |
813 |
< |
if (!put_BSDFs()) |
813 |
> |
if (!put_BSDFs()) /* most of the output happens here */ |
814 |
|
return(1); |
815 |
|
cleanup_tmp(); |
816 |
|
return(0); |