26 |
|
|
27 |
|
char ourTempDir[TEMPLEN] = ""; /* our temporary directory */ |
28 |
|
|
29 |
< |
const char frpref[] = "frefl"; |
30 |
< |
const char ftpref[] = "ftrans"; |
31 |
< |
const char brpref[] = "brefl"; |
32 |
< |
const char btpref[] = "btrans"; |
29 |
> |
const char frpref[] = "rf"; |
30 |
> |
const char ftpref[] = "tf"; |
31 |
> |
const char brpref[] = "rb"; |
32 |
> |
const char btpref[] = "tb"; |
33 |
|
const char dsuffix[] = ".txt"; |
34 |
|
|
35 |
|
const char sph_fmat[] = "fBSDFmat"; |
270 |
|
|
271 |
|
/* Put out mirror arrow for the given incident vector */ |
272 |
|
static void |
273 |
< |
put_mirror_arrow(const FVECT ivec, int inc_side) |
273 |
> |
put_mirror_arrow(const FVECT origin, const FVECT nrm) |
274 |
|
{ |
275 |
|
const double arrow_len = 1.2*bsdf_rad; |
276 |
|
const double tip_len = 0.2*bsdf_rad; |
277 |
< |
FVECT origin, refl; |
277 |
> |
FVECT refl; |
278 |
|
int i; |
279 |
|
|
280 |
< |
cvt_sposition(origin, ivec, inc_side); |
280 |
> |
refl[0] = 2.*nrm[2]*nrm[0]; |
281 |
> |
refl[1] = 2.*nrm[2]*nrm[1]; |
282 |
> |
refl[2] = 2.*nrm[2]*nrm[2] - 1.; |
283 |
|
|
282 |
– |
refl[0] = -2.*ivec[2]*ivec[0]; |
283 |
– |
refl[1] = -2.*ivec[2]*ivec[1]; |
284 |
– |
refl[2] = 2.*ivec[2]*ivec[2] - 1.; |
285 |
– |
|
284 |
|
printf("\n# Mirror arrow\n"); |
285 |
|
printf("\narrow_mat cylinder inc_dir\n0\n0\n7"); |
286 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f\n", |
307 |
|
|
308 |
|
/* Put out transmitted direction arrow for the given incident vector */ |
309 |
|
static void |
310 |
< |
put_trans_arrow(const FVECT ivec, int inc_side) |
310 |
> |
put_trans_arrow(const FVECT origin) |
311 |
|
{ |
312 |
|
const double arrow_len = 1.2*bsdf_rad; |
313 |
|
const double tip_len = 0.2*bsdf_rad; |
316 |
– |
FVECT origin; |
314 |
|
int i; |
315 |
|
|
319 |
– |
cvt_sposition(origin, ivec, inc_side); |
320 |
– |
|
316 |
|
printf("\n# Transmission arrow\n"); |
317 |
|
printf("\narrow_mat cylinder trans_dir\n0\n0\n7"); |
318 |
|
printf("\n\t%f %f %f\n\t%f %f %f\n\t%f\n", |
367 |
|
put_BSDFs(void) |
368 |
|
{ |
369 |
|
const double scalef = bsdf_rad/(log10(overall_max) - min_log10); |
370 |
< |
FVECT ivec, sorg, upv; |
370 |
> |
FVECT ivec, sorg, nrm, upv; |
371 |
|
RREAL vMtx[3][3]; |
372 |
|
char *fname; |
373 |
|
char cmdbuf[256]; |
374 |
< |
char xfargs[128]; |
375 |
< |
int nxfa; |
374 |
> |
char rotargs[64]; |
375 |
> |
int nrota; |
376 |
|
int i; |
377 |
|
|
378 |
|
printf("\n# Gensurf output corresponding to %d incident directions\n", |
381 |
|
printf("\nvoid glow arrow_glow\n0\n0\n4 1 0 1 0\n"); |
382 |
|
printf("\nvoid mixfunc arrow_mat\n4 arrow_glow void 0.25 .\n0\n0\n"); |
383 |
|
|
384 |
< |
if (front_comp & SDsampR) /* front reflection */ |
385 |
< |
for (i = 0; i < NINCIDENT; i++) { |
386 |
< |
get_ivector(ivec, i); |
387 |
< |
put_mirror_arrow(ivec, 1); |
384 |
> |
for (i = 0; i < NINCIDENT; i++) { |
385 |
> |
get_ivector(ivec, i); |
386 |
> |
nrm[0] = -ivec[0]; nrm[1] = -ivec[1]; nrm[2] = ivec[2]; |
387 |
> |
upv[0] = nrm[0]*nrm[1]*(nrm[2] - 1.); |
388 |
> |
upv[1] = nrm[0]*nrm[0] + nrm[1]*nrm[1]*nrm[2]; |
389 |
> |
upv[2] = -nrm[1]*(nrm[0]*nrm[0] + nrm[1]*nrm[1]); |
390 |
> |
if (SDcompXform(vMtx, nrm, upv) != SDEnone) |
391 |
> |
continue; |
392 |
> |
nrota = addrot(rotargs, vMtx[0], vMtx[1], vMtx[2]); |
393 |
> |
if (front_comp) { |
394 |
|
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; |
395 |
|
printf("\nvoid colorfunc scale_pat\n"); |
396 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
397 |
< |
4+nxfa, xfargs); |
396 |
> |
printf("10 bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n"); |
397 |
> |
printf("\t-s %f -t %f %f %f\n0\n0\n", |
398 |
> |
bsdf_rad, sorg[0], sorg[1], sorg[2]); |
399 |
|
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
400 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
401 |
< |
continue; |
402 |
< |
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; |
400 |
> |
} |
401 |
> |
if (front_comp & SDsampR) { |
402 |
> |
put_mirror_arrow(sorg, nrm); |
403 |
|
fname = tfile_name(frpref, dsuffix, i); |
404 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform %s", |
404 |
> |
sprintf(cmdbuf, |
405 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform %s -s %f -t %f %f %f", |
406 |
|
frpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
407 |
< |
xfargs); |
407 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
408 |
|
if (!run_cmd(cmdbuf)) |
409 |
|
return(0); |
410 |
|
} |
411 |
< |
if (front_comp & SDsampT) /* front transmission */ |
412 |
< |
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; |
411 |
> |
if (front_comp & SDsampT) { |
412 |
> |
put_trans_arrow(sorg); |
413 |
|
fname = tfile_name(ftpref, dsuffix, i); |
414 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -I %s", |
414 |
> |
sprintf(cmdbuf, |
415 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -I %s -s %f -t %f %f %f", |
416 |
|
ftpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
417 |
< |
xfargs); |
417 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
418 |
|
if (!run_cmd(cmdbuf)) |
419 |
|
return(0); |
420 |
|
} |
421 |
< |
if (back_comp & SDsampR) /* rear reflection */ |
448 |
< |
for (i = 0; i < NINCIDENT; i++) { |
449 |
< |
get_ivector(ivec, i); |
450 |
< |
put_mirror_arrow(ivec, -1); |
421 |
> |
if (back_comp) { |
422 |
|
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; |
423 |
|
printf("\nvoid colorfunc scale_pat\n"); |
424 |
< |
printf("%d bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n\t%s\n0\n0\n", |
425 |
< |
4+nxfa, xfargs); |
424 |
> |
printf("10 bsdf_red bsdf_grn bsdf_blu bsdf2rad.cal\n"); |
425 |
> |
printf("\t-s %f -t %f %f %f\n0\n0\n", |
426 |
> |
bsdf_rad, sorg[0], sorg[1], sorg[2]); |
427 |
|
printf("\nscale_pat glow scale_mat\n0\n0\n4 1 1 1 0\n"); |
428 |
< |
if (SDcompXform(vMtx, ivec, upv) != SDEnone) |
429 |
< |
continue; |
430 |
< |
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; |
428 |
> |
} |
429 |
> |
if (back_comp & SDsampR) { |
430 |
> |
put_mirror_arrow(sorg, nrm); |
431 |
|
fname = tfile_name(brpref, dsuffix, i); |
432 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -I -ry 180 %s", |
432 |
> |
sprintf(cmdbuf, |
433 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -I -ry 180 %s -s %f -t %f %f %f", |
434 |
|
brpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
435 |
< |
xfargs); |
435 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
436 |
|
if (!run_cmd(cmdbuf)) |
437 |
|
return(0); |
438 |
|
} |
439 |
< |
if (back_comp & SDsampT) /* rear transmission */ |
440 |
< |
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; |
439 |
> |
if (back_comp & SDsampT) { |
440 |
> |
put_trans_arrow(sorg); |
441 |
|
fname = tfile_name(btpref, dsuffix, i); |
442 |
< |
sprintf(cmdbuf, "gensurf scale_mat %s%d %s %s %s %d %d | xform -ry 180 %s", |
442 |
> |
sprintf(cmdbuf, |
443 |
> |
"gensurf scale_mat %s%d %s %s %s %d %d | xform -ry 180 %s -s %f -t %f %f %f", |
444 |
|
btpref, i, fname, fname, fname, SAMPRES-1, SAMPRES-1, |
445 |
< |
xfargs); |
445 |
> |
rotargs, scalef, sorg[0], sorg[1], sorg[2]); |
446 |
|
if (!run_cmd(cmdbuf)) |
447 |
|
return(0); |
448 |
|
} |
449 |
+ |
} |
450 |
|
return(1); |
451 |
|
} |
452 |
|
|
749 |
|
strcpy(bsdf_manuf, myBSDF.makr); |
750 |
|
put_matBSDF(argv[1]); |
751 |
|
} else { |
752 |
< |
FILE *fp; |
752 |
> |
FILE *fp[4]; |
753 |
> |
if (argc > 5) { |
754 |
> |
fprintf(stderr, "%s: too many input files\n", progname); |
755 |
> |
return(1); |
756 |
> |
} |
757 |
|
for (n = 1; n < argc; n++) { |
758 |
< |
fp = fopen(argv[n], "rb"); |
759 |
< |
if (fp == NULL) { |
758 |
> |
fp[n-1] = fopen(argv[n], "rb"); |
759 |
> |
if (fp[n-1] == NULL) { |
760 |
|
fprintf(stderr, "%s: cannot open BSDF interpolant '%s'\n", |
761 |
|
progname, argv[n]); |
762 |
|
return(1); |
763 |
|
} |
764 |
< |
if (getheader(fp, rbf_headline, NULL) < 0) { |
764 |
> |
if (getheader(fp[n-1], rbf_headline, NULL) < 0) { |
765 |
|
fprintf(stderr, "%s: bad BSDF interpolant '%s'\n", |
766 |
|
progname, argv[n]); |
767 |
|
return(1); |
768 |
|
} |
820 |
– |
fclose(fp); |
769 |
|
} |
770 |
|
set_minlog(); |
771 |
|
for (n = 1; n < argc; n++) { |
772 |
< |
fp = fopen(argv[n], "rb"); |
773 |
< |
if (!load_bsdf_rep(fp)) |
772 |
> |
if (fseek(fp[n-1], 0L, SEEK_SET) < 0) { |
773 |
> |
fprintf(stderr, "%s: cannot seek on '%s'\n", |
774 |
> |
progname, argv[n]); |
775 |
|
return(1); |
776 |
< |
fclose(fp); |
776 |
> |
} |
777 |
> |
if (!load_bsdf_rep(fp[n-1])) |
778 |
> |
return(1); |
779 |
> |
fclose(fp[n-1]); |
780 |
|
if (!build_wRBF()) |
781 |
|
return(1); |
782 |
|
} |