/* Interpolate and output a radial basis function BSDF representation */
static void
eval_rbf(void)
{
ANGLE_BASIS *abp = get_basis(kbasis);
float bsdfarr[MAXPATCHES*MAXPATCHES];
FVECT vin, vout;
RBFNODE *rbf;
double sum;
int i, j, n;
/* sanity check */
if (abp->nangles > MAXPATCHES) {
fprintf(stderr, "%s: too many patches!\n", progname);
exit(1);
}
data_prologue(); /* begin output */
for (i = 0; i < abp->nangles; i++) {
if (input_orient > 0) /* use incident patch center */
fi_getvec(vin, i+.5*(i>0), abp);
else
bi_getvec(vin, i+.5*(i>0), abp);
rbf = advect_rbf(vin); /* compute radial basis func */
for (j = 0; j < abp->nangles; j++) {
sum = 0; /* sample over exiting patch */
for (n = npsamps; n--; ) {
if (output_orient > 0)
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
else
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
sum += eval_rbfrep(rbf, vout) / vout[2];
}
bsdfarr[j*abp->nangles + i] = sum*output_orient/npsamps;
}
if (rbf != NULL)
free(rbf);
}
n = 0; /* write out our matrix */
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++)
printf("\t%.3e\n", bsdfarr[n++]);
putchar('\n');
}
data_epilogue(); /* finish output */
}
/* Interpolate and output a BSDF function using Klems basis */
static void
eval_function(char *funame)
{
ANGLE_BASIS *abp = get_basis(kbasis);
int assignD = (fundefined(funame) < 6);
FILE *ofp = open_component_file(CIE_Y);
double iovec[6];
double sum;
int i, j, n;
initurand(npsamps);
for (j = 0; j < abp->nangles; j++) { /* run through directions */
for (i = 0; i < abp->nangles; i++) {
sum = 0;
for (n = npsamps; n--; ) { /* average over patches */
if (output_orient > 0)
fo_getvec(iovec+3, j+(n+frandom())/npsamps, abp);
else
bo_getvec(iovec+3, j+(n+frandom())/npsamps, abp);
if (input_orient > 0)
fi_getvec(iovec, i+urand(n), abp);
else
bi_getvec(iovec, i+urand(n), abp);
if (assignD) {
varset("Dx", '=', -iovec[3]);
varset("Dy", '=', -iovec[4]);
varset("Dz", '=', -iovec[5]);
++eclock;
}
sum += funvalue(funame, 6, iovec);
}
fprintf(ofp, "\t%.3e\n", sum/npsamps);
}
fputc('\n', ofp);
prog_show((j+1.)/abp->nangles);
}
prog_done();
if (fclose(ofp)) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
}
/* Interpolate and output a BSDF function using Klems basis */
static void
eval_function(char *funame)
{
ANGLE_BASIS *abp = get_basis(kbasis);
int assignD = (fundefined(funame) < 6);
double iovec[6];
double sum;
int i, j, n;
initurand(npsamps);
data_prologue(); /* begin output */
for (j = 0; j < abp->nangles; j++) { /* run through directions */
for (i = 0; i < abp->nangles; i++) {
sum = 0;
for (n = npsamps; n--; ) { /* average over patches */
if (output_orient > 0)
fo_getvec(iovec+3, j+(n+frandom())/npsamps, abp);
else
bo_getvec(iovec+3, j+(n+frandom())/npsamps, abp);
if (input_orient > 0)
fi_getvec(iovec, i+urand(n), abp);
else
bi_getvec(iovec, i+urand(n), abp);
if (assignD) {
varset("Dx", '=', -iovec[3]);
varset("Dy", '=', -iovec[4]);
varset("Dz", '=', -iovec[5]);
++eclock;
}
sum += funvalue(funame, 6, iovec);
}
printf("\t%.3e\n", sum/npsamps);
}
putchar('\n');
}
data_epilogue(); /* finish output */
}
/* Interpolate and output a radial basis function BSDF representation */
static void
eval_rbf(void)
{
ANGLE_BASIS *abp = get_basis(kbasis);
float (*XZarr)[2] = NULL;
float bsdfarr[MAXPATCHES*MAXPATCHES];
FILE *cfp[3];
FVECT vin, vout;
double sum, xsum, ysum;
int i, j, n;
/* sanity check */
if (abp->nangles > MAXPATCHES) {
fprintf(stderr, "%s: too many patches!\n", progname);
exit(1);
}
if (rbf_colorimetry == RBCtristimulus)
XZarr = (float (*)[2])malloc(sizeof(float)*2*abp->nangles*abp->nangles);
for (i = 0; i < abp->nangles; i++) {
RBFNODE *rbf;
if (input_orient > 0) /* use incident patch center */
fi_getvec(vin, i+.5*(i>0), abp);
else
bi_getvec(vin, i+.5*(i>0), abp);
rbf = advect_rbf(vin, lobe_lim); /* compute radial basis func */
for (j = 0; j < abp->nangles; j++) {
sum = 0; /* sample over exiting patch */
xsum = ysum = 0;
for (n = npsamps; n--; ) {
SDValue sdv;
if (output_orient > 0)
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
else
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
eval_rbfcol(&sdv, rbf, vout);
sum += sdv.cieY;
if (rbf_colorimetry == RBCtristimulus) {
xsum += sdv.cieY * sdv.spec.cx;
ysum += sdv.cieY * sdv.spec.cy;
}
}
n = j*abp->nangles + i;
bsdfarr[n] = sum / npsamps;
if (rbf_colorimetry == RBCtristimulus) {
XZarr[n][0] = xsum*sum/(npsamps*ysum);
XZarr[n][1] = (sum - xsum - ysum)*sum/(npsamps*ysum);
}
}
if (rbf != NULL)
free(rbf);
prog_show((i+1.)/abp->nangles);
}
/* write out our matrix */
cfp[CIE_Y] = open_component_file(CIE_Y);
n = 0;
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++, n++)
fprintf(cfp[CIE_Y], "\t%.3e\n", bsdfarr[n]);
fputc('\n', cfp[CIE_Y]);
}
prog_done();
if (fclose(cfp[CIE_Y])) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
if (XZarr == NULL) /* no color? */
return;
cfp[CIE_X] = open_component_file(CIE_X);
cfp[CIE_Z] = open_component_file(CIE_Z);
n = 0;
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++, n++) {
fprintf(cfp[CIE_X], "\t%.3e\n", XZarr[n][0]);
fprintf(cfp[CIE_Z], "\t%.3e\n", XZarr[n][1]);
}
fputc('\n', cfp[CIE_X]);
fputc('\n', cfp[CIE_Z]);
}
free(XZarr);
if (fclose(cfp[CIE_X]) || fclose(cfp[CIE_Z])) {
fprintf(stderr, "%s: error writing X/Z output\n", progname);
exit(1);
}
}
/* Load and resample XML BSDF description using Klems basis */
static void
eval_bsdf(const char *fname)
{
ANGLE_BASIS *abp = get_basis(kbasis);
FILE *cfp[3];
SDData bsd;
SDError ec;
FVECT vin, vout;
SDValue sdv;
double sum, xsum, ysum;
int i, j, n;
initurand(npsamps);
SDclearBSDF(&bsd, fname); /* load BSDF file */
if ((ec = SDloadFile(&bsd, fname)) != SDEnone)
goto err;
if (bsd.mgf != NULL) /* save geometry */
save_geom(bsd.mgf);
if (bsd.matn[0]) /* save identifier(s) */
strcpy(bsdf_name, bsd.matn);
if (bsd.makr[0])
strcpy(bsdf_manuf, bsd.makr);
if (bsd.dim[2] > 0) { /* save dimension(s) */
char buf[64];
if ((bsd.dim[0] > 0) & (bsd.dim[1] > 0))
sprintf(buf, "w=%g;h=%g;t=%g",
bsd.dim[0], bsd.dim[1], bsd.dim[2]);
else
sprintf(buf, "t=%g", bsd.dim[2]);
add_wbsdf("-f", 1);
add_wbsdf(buf, 0);
}
/* front reflection */
if (bsd.rf != NULL || bsd.rLambFront.cieY > .002) {
input_orient = 1; output_orient = 1;
cfp[CIE_Y] = open_component_file(CIE_Y);
if (bsd.rf != NULL && bsd.rf->comp[0].cspec[2].flags) {
rbf_colorimetry = RBCtristimulus;
cfp[CIE_X] = open_component_file(CIE_X);
cfp[CIE_Z] = open_component_file(CIE_Z);
} else
rbf_colorimetry = RBCphotopic;
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
xsum = ysum = 0;
for (n = npsamps; n-- > 0; ) {
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
fi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sdv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sdv.cieY;
if (rbf_colorimetry == RBCtristimulus) {
xsum += sdv.cieY * sdv.spec.cx;
ysum += sdv.cieY * sdv.spec.cy;
}
}
fprintf(cfp[CIE_Y], "\t%.3e\n", sum/npsamps);
if (rbf_colorimetry == RBCtristimulus) {
fprintf(cfp[CIE_X], "\t%.3e\n", xsum*sum/(npsamps*ysum));
fprintf(cfp[CIE_Z], "\t%.3e\n",
(sum - xsum - ysum)*sum/(npsamps*ysum));
}
}
fputc('\n', cfp[CIE_Y]); /* extra space between rows */
if (rbf_colorimetry == RBCtristimulus) {
fputc('\n', cfp[CIE_X]);
fputc('\n', cfp[CIE_Z]);
}
}
if (fclose(cfp[CIE_Y])) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
if (rbf_colorimetry == RBCtristimulus &&
(fclose(cfp[CIE_X]) || fclose(cfp[CIE_Z]))) {
fprintf(stderr, "%s: error writing X/Z output\n", progname);
exit(1);
}
}
/* back reflection */
if (bsd.rb != NULL || bsd.rLambBack.cieY > .002) {
input_orient = -1; output_orient = -1;
cfp[CIE_Y] = open_component_file(CIE_Y);
if (bsd.rb != NULL && bsd.rb->comp[0].cspec[2].flags) {
rbf_colorimetry = RBCtristimulus;
cfp[CIE_X] = open_component_file(CIE_X);
cfp[CIE_Z] = open_component_file(CIE_Z);
} else
rbf_colorimetry = RBCphotopic;
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
xsum = ysum = 0;
for (n = npsamps; n-- > 0; ) {
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
bi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sdv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sdv.cieY;
if (rbf_colorimetry == RBCtristimulus) {
xsum += sdv.cieY * sdv.spec.cx;
ysum += sdv.cieY * sdv.spec.cy;
}
}
fprintf(cfp[CIE_Y], "\t%.3e\n", sum/npsamps);
if (rbf_colorimetry == RBCtristimulus) {
fprintf(cfp[CIE_X], "\t%.3e\n", xsum*sum/(npsamps*ysum));
fprintf(cfp[CIE_Z], "\t%.3e\n",
(sum - xsum - ysum)*sum/(npsamps*ysum));
}
}
if (rbf_colorimetry == RBCtristimulus) {
fputc('\n', cfp[CIE_X]);
fputc('\n', cfp[CIE_Z]);
}
}
if (fclose(cfp[CIE_Y])) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
if (rbf_colorimetry == RBCtristimulus &&
(fclose(cfp[CIE_X]) || fclose(cfp[CIE_Z]))) {
fprintf(stderr, "%s: error writing X/Z output\n", progname);
exit(1);
}
}
/* front transmission */
if (bsd.tf != NULL || bsd.tLamb.cieY > .002) {
input_orient = 1; output_orient = -1;
cfp[CIE_Y] = open_component_file(CIE_Y);
if (bsd.tf != NULL && bsd.tf->comp[0].cspec[2].flags) {
rbf_colorimetry = RBCtristimulus;
cfp[CIE_X] = open_component_file(CIE_X);
cfp[CIE_Z] = open_component_file(CIE_Z);
} else
rbf_colorimetry = RBCphotopic;
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
xsum = ysum = 0;
for (n = npsamps; n-- > 0; ) {
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
fi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sdv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sdv.cieY;
if (rbf_colorimetry == RBCtristimulus) {
xsum += sdv.cieY * sdv.spec.cx;
ysum += sdv.cieY * sdv.spec.cy;
}
}
fprintf(cfp[CIE_Y], "\t%.3e\n", sum/npsamps);
if (rbf_colorimetry == RBCtristimulus) {
fprintf(cfp[CIE_X], "\t%.3e\n", xsum*sum/(npsamps*ysum));
fprintf(cfp[CIE_Z], "\t%.3e\n",
(sum - xsum - ysum)*sum/(npsamps*ysum));
}
}
if (rbf_colorimetry == RBCtristimulus) {
fputc('\n', cfp[CIE_X]);
fputc('\n', cfp[CIE_Z]);
}
}
if (fclose(cfp[CIE_Y])) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
if (rbf_colorimetry == RBCtristimulus &&
(fclose(cfp[CIE_X]) || fclose(cfp[CIE_Z]))) {
fprintf(stderr, "%s: error writing X/Z output\n", progname);
exit(1);
}
}
/* back transmission */
if ((bsd.tb != NULL) | (bsd.tf != NULL)) {
input_orient = -1; output_orient = 1;
cfp[CIE_Y] = open_component_file(CIE_Y);
if (bsd.tb != NULL)
rbf_colorimetry = bsd.tb->comp[0].cspec[2].flags
? RBCtristimulus : RBCphotopic ;
if (rbf_colorimetry == RBCtristimulus) {
cfp[CIE_X] = open_component_file(CIE_X);
cfp[CIE_Z] = open_component_file(CIE_Z);
}
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
xsum = ysum = 0;
for (n = npsamps; n-- > 0; ) {
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
bi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sdv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sdv.cieY;
if (rbf_colorimetry == RBCtristimulus) {
xsum += sdv.cieY * sdv.spec.cx;
ysum += sdv.cieY * sdv.spec.cy;
}
}
fprintf(cfp[CIE_Y], "\t%.3e\n", sum/npsamps);
if (rbf_colorimetry == RBCtristimulus) {
fprintf(cfp[CIE_X], "\t%.3e\n", xsum*sum/(npsamps*ysum));
fprintf(cfp[CIE_Z], "\t%.3e\n",
(sum - xsum - ysum)*sum/(npsamps*ysum));
}
}
if (rbf_colorimetry == RBCtristimulus) {
fputc('\n', cfp[CIE_X]);
fputc('\n', cfp[CIE_Z]);
}
}
if (fclose(cfp[CIE_Y])) {
fprintf(stderr, "%s: error writing Y output\n", progname);
exit(1);
}
if (rbf_colorimetry == RBCtristimulus &&
(fclose(cfp[CIE_X]) || fclose(cfp[CIE_Z]))) {
fprintf(stderr, "%s: error writing X/Z output\n", progname);
exit(1);
}
}
SDfreeBSDF(&bsd); /* all done */
return;
err:
SDreportError(ec, stderr);
exit(1);
}
/* Load and resample XML BSDF description using Klems basis */
static void
eval_bsdf(const char *fname)
{
ANGLE_BASIS *abp = get_basis(kbasis);
SDData bsd;
SDError ec;
FVECT vin, vout;
SDValue sv;
double sum;
int i, j, n;
SDclearBSDF(&bsd, fname); /* load BSDF file */
if ((ec = SDloadFile(&bsd, fname)) != SDEnone)
goto err;
xml_prologue(&bsd); /* pass geometry */
/* front reflection */
if (bsd.rf != NULL || bsd.rLambFront.cieY > .002) {
input_orient = 1; output_orient = 1;
data_prologue();
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
for (n = npsamps; n-- > 0; ) {
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
fi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sv.cieY;
}
printf("\t%.3e\n", sum/npsamps);
}
putchar('\n'); /* extra space between rows */
}
data_epilogue();
}
/* back reflection */
if (bsd.rb != NULL || bsd.rLambBack.cieY > .002) {
input_orient = -1; output_orient = -1;
data_prologue();
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
for (n = npsamps; n-- > 0; ) {
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
bi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sv.cieY;
}
printf("\t%.3e\n", sum/npsamps);
}
putchar('\n'); /* extra space between rows */
}
data_epilogue();
}
/* front transmission */
if (bsd.tf != NULL || bsd.tLamb.cieY > .002) {
input_orient = 1; output_orient = -1;
data_prologue();
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
for (n = npsamps; n-- > 0; ) {
bo_getvec(vout, j+(n+frandom())/npsamps, abp);
fi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sv.cieY;
}
printf("\t%.3e\n", sum/npsamps);
}
putchar('\n'); /* extra space between rows */
}
data_epilogue();
}
/* back transmission */
if ((bsd.tb != NULL) | (bsd.tf != NULL)) {
input_orient = -1; output_orient = 1;
data_prologue();
for (j = 0; j < abp->nangles; j++) {
for (i = 0; i < abp->nangles; i++) {
sum = 0; /* average over patches */
for (n = npsamps; n-- > 0; ) {
fo_getvec(vout, j+(n+frandom())/npsamps, abp);
bi_getvec(vin, i+urand(n), abp);
ec = SDevalBSDF(&sv, vout, vin, &bsd);
if (ec != SDEnone)
goto err;
sum += sv.cieY;
}
printf("\t%.3e\n", sum/npsamps);
}
putchar('\n'); /* extra space between rows */
}
data_epilogue();
}
SDfreeBSDF(&bsd); /* all done */
return;
err:
SDreportError(ec, stderr);
exit(1);
}
