ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/bsdfrep.c
(Generate patch)

Comparing ray/src/cv/bsdfrep.c (file contents):
Revision 2.1 by greg, Fri Oct 19 04:14:29 2012 UTC vs.
Revision 2.6 by greg, Thu Nov 8 00:31:17 2012 UTC

# Line 9 | Line 9 | static const char RCSid[] = "$Id$";
9  
10   #define _USE_MATH_DEFINES
11   #include <stdlib.h>
12 + #include <string.h>
13   #include <math.h>
14   #include "rtio.h"
15   #include "resolu.h"
16   #include "bsdfrep.h"
17 <                                /* which quadrants are represented */
17 >                                /* active grid resolution */
18 > int                     grid_res = GRIDRES;
19 >
20 >                                /* coverage/symmetry using INP_QUAD? flags */
21   int                     inp_coverage = 0;
22                                  /* all incident angles in-plane so far? */
23   int                     single_plane_incident = -1;
# Line 52 | Line 56 | new_input_direction(double new_theta, double new_phi)
56                  new_theta = -new_theta;
57                  new_phi += 180.;
58          }
59 +        if ((theta_in_deg = new_theta) < 1.0)
60 +                return(1);              /* don't rely on phi near normal */
61          while (new_phi < 0)
62                  new_phi += 360.;
63          while (new_phi >= 360.)
# Line 60 | Line 66 | new_input_direction(double new_theta, double new_phi)
66                  single_plane_incident = (round(new_phi) == round(phi_in_deg));
67          else if (single_plane_incident < 0)
68                  single_plane_incident = 1;
63 –        theta_in_deg = new_theta;       /* assume it's OK */
69          phi_in_deg = new_phi;
70          if ((1. < new_phi) & (new_phi < 89.))
71                  inp_coverage |= INP_QUAD1;
# Line 167 | Line 172 | rev_rbf_symmetry(RBFNODE *rbf, int sym)
172          rev_symmetry(rbf->invec, sym);
173          if (sym & MIRROR_X)
174                  for (n = rbf->nrbf; n-- > 0; )
175 <                        rbf->rbfa[n].gx = GRIDRES-1 - rbf->rbfa[n].gx;
175 >                        rbf->rbfa[n].gx = grid_res-1 - rbf->rbfa[n].gx;
176          if (sym & MIRROR_Y)
177                  for (n = rbf->nrbf; n-- > 0; )
178 <                        rbf->rbfa[n].gy = GRIDRES-1 - rbf->rbfa[n].gy;
178 >                        rbf->rbfa[n].gy = grid_res-1 - rbf->rbfa[n].gy;
179   }
180  
181 + /* Rotate RBF to correspond to given incident vector */
182 + void
183 + rotate_rbf(RBFNODE *rbf, const FVECT invec)
184 + {
185 +        static const FVECT      vnorm = {.0, .0, 1.};
186 +        const double            phi = atan2(invec[1],invec[0]) -
187 +                                        atan2(rbf->invec[1],rbf->invec[0]);
188 +        FVECT                   outvec;
189 +        int                     pos[2];
190 +        int                     n;
191 + #ifdef DEBUG
192 +        {
193 +                double  tdiff = 180./M_PI*fabs(acos(invec[2])-acos(rbf->invec[2]));
194 +                if (tdiff >= 1.5)
195 +                        fprintf(stderr,
196 +                        "%s: Warning - rotated theta differs by %.1f degrees\n",
197 +                                        progname, tdiff);
198 +        }
199 + #endif
200 +        for (n = rbf->nrbf; n-- > 0; ) {
201 +                ovec_from_pos(outvec, rbf->rbfa[n].gx, rbf->rbfa[n].gy);
202 +                spinvector(outvec, outvec, vnorm, phi);
203 +                pos_from_vec(pos, outvec);
204 +                rbf->rbfa[n].gx = pos[0];
205 +                rbf->rbfa[n].gy = pos[1];
206 +        }
207 +        VCOPY(rbf->invec, invec);
208 + }
209 +
210   /* Compute volume associated with Gaussian lobe */
211   double
212   rbf_volume(const RBFVAL *rbfp)
# Line 189 | Line 223 | ovec_from_pos(FVECT vec, int xpos, int ypos)
223          double  uv[2];
224          double  r2;
225          
226 <        SDsquare2disk(uv, (1./GRIDRES)*(xpos+.5), (1./GRIDRES)*(ypos+.5));
226 >        SDsquare2disk(uv, (1./grid_res)*(xpos+.5), (1./grid_res)*(ypos+.5));
227                                  /* uniform hemispherical projection */
228          r2 = uv[0]*uv[0] + uv[1]*uv[1];
229          vec[0] = vec[1] = sqrt(2. - r2);
# Line 207 | Line 241 | pos_from_vec(int pos[2], const FVECT vec)
241  
242          SDdisk2square(sq, vec[0]*norm, vec[1]*norm);
243  
244 <        pos[0] = (int)(sq[0]*GRIDRES);
245 <        pos[1] = (int)(sq[1]*GRIDRES);
244 >        pos[0] = (int)(sq[0]*grid_res);
245 >        pos[1] = (int)(sq[1]*grid_res);
246   }
247  
248   /* Evaluate RBF for DSF at the given normalized outgoing direction */
# Line 280 | Line 314 | get_dsf(int ord)
314          RBFNODE         *rbf;
315  
316          for (rbf = dsf_list; rbf != NULL; rbf = rbf->next)
317 <                if (rbf->ord == ord);
317 >                if (rbf->ord == ord)
318                          return(rbf);
319          return(NULL);
320   }
# Line 311 | Line 345 | is_rev_tri(const FVECT v1, const FVECT v2, const FVECT
345   int
346   get_triangles(RBFNODE *rbfv[2], const MIGRATION *mig)
347   {
348 <        const MIGRATION *ej, *ej2;
348 >        const MIGRATION *ej1, *ej2;
349          RBFNODE         *tv;
350  
351          rbfv[0] = rbfv[1] = NULL;
352          if (mig == NULL)
353                  return(0);
354 <        for (ej = mig->rbfv[0]->ejl; ej != NULL;
355 <                                ej = nextedge(mig->rbfv[0],ej)) {
356 <                if (ej == mig)
354 >        for (ej1 = mig->rbfv[0]->ejl; ej1 != NULL;
355 >                                ej1 = nextedge(mig->rbfv[0],ej1)) {
356 >                if (ej1 == mig)
357                          continue;
358 <                tv = opp_rbf(mig->rbfv[0],ej);
358 >                tv = opp_rbf(mig->rbfv[0],ej1);
359                  for (ej2 = tv->ejl; ej2 != NULL; ej2 = nextedge(tv,ej2))
360                          if (opp_rbf(tv,ej2) == mig->rbfv[1]) {
361                                  rbfv[is_rev_tri(mig->rbfv[0]->invec,
# Line 333 | Line 367 | get_triangles(RBFNODE *rbfv[2], const MIGRATION *mig)
367          return((rbfv[0] != NULL) + (rbfv[1] != NULL));
368   }
369  
370 + /* Clear our BSDF representation and free memory */
371 + void
372 + clear_bsdf_rep(void)
373 + {
374 +        while (mig_list != NULL) {
375 +                MIGRATION       *mig = mig_list;
376 +                mig_list = mig->next;
377 +                free(mig);
378 +        }
379 +        while (dsf_list != NULL) {
380 +                RBFNODE         *rbf = dsf_list;
381 +                dsf_list = rbf->next;
382 +                free(rbf);
383 +        }
384 +        inp_coverage = 0;
385 +        single_plane_incident = -1;
386 +        input_orient = output_orient = 0;
387 +        grid_res = GRIDRES;
388 + }
389 +
390   /* Write our BSDF mesh interpolant out to the given binary stream */
391   void
392   save_bsdf_rep(FILE *ofp)
# Line 341 | Line 395 | save_bsdf_rep(FILE *ofp)
395          MIGRATION       *mig;
396          int             i, n;
397                                          /* finish header */
398 +        fprintf(ofp, "SYMMETRY=%d\n", !single_plane_incident * inp_coverage);
399 +        fprintf(ofp, "IO_SIDES= %d %d\n", input_orient, output_orient);
400 +        fprintf(ofp, "GRIDRES=%d\n", grid_res);
401          fputformat(BSDFREP_FMT, ofp);
402          fputc('\n', ofp);
403                                          /* write each DSF */
# Line 360 | Line 417 | save_bsdf_rep(FILE *ofp)
417          }
418          putint(-1, 4, ofp);             /* terminator */
419                                          /* write each migration matrix */
420 <        for (mig = mig_list; mig != NULL; mig = mig_list->next) {
420 >        for (mig = mig_list; mig != NULL; mig = mig->next) {
421 >                int     zerocnt = 0;
422                  putint(mig->rbfv[0]->ord, 4, ofp);
423                  putint(mig->rbfv[1]->ord, 4, ofp);
424 +                                        /* write out as sparse data */
425                  n = mtx_nrows(mig) * mtx_ncols(mig);
426 <                for (i = 0; i < n; i++)
427 <                        putflt(mig->mtx[i], ofp);
426 >                for (i = 0; i < n; i++) {
427 >                        if (zerocnt == 0xff) {
428 >                                putint(0xff, 1, ofp); zerocnt = 0;
429 >                        }
430 >                        if (mig->mtx[i] != 0) {
431 >                                putint(zerocnt, 1, ofp); zerocnt = 0;
432 >                                putflt(mig->mtx[i], ofp);
433 >                        } else
434 >                                ++zerocnt;
435 >                }
436 >                putint(zerocnt, 1, ofp);
437          }
438          putint(-1, 4, ofp);             /* terminator */
439          putint(-1, 4, ofp);
# Line 376 | Line 444 | save_bsdf_rep(FILE *ofp)
444          }
445   }
446  
447 + /* Check header line for critical information */
448 + static int
449 + headline(char *s, void *p)
450 + {
451 +        char    fmt[32];
452 +
453 +        if (!strncmp(s, "SYMMETRY=", 9)) {
454 +                inp_coverage = atoi(s+9);
455 +                single_plane_incident = !inp_coverage;
456 +                return(0);
457 +        }
458 +        if (!strncmp(s, "IO_SIDES=", 9)) {
459 +                sscanf(s+9, "%d %d", &input_orient, &output_orient);
460 +                return(0);
461 +        }
462 +        if (!strncmp(s, "GRIDRES=", 8)) {
463 +                sscanf(s+8, "%d", &grid_res);
464 +                return(0);
465 +        }
466 +        if (formatval(fmt, s) && strcmp(fmt, BSDFREP_FMT))
467 +                return(-1);
468 +        return(0);
469 + }
470 +
471   /* Read a BSDF mesh interpolant from the given binary stream */
472   int
473   load_bsdf_rep(FILE *ifp)
# Line 383 | Line 475 | load_bsdf_rep(FILE *ifp)
475          RBFNODE         rbfh;
476          int             from_ord, to_ord;
477          int             i;
478 < #ifdef DEBUG
479 <        if ((dsf_list != NULL) | (mig_list != NULL)) {
480 <                fprintf(stderr,
389 <                "%s: attempt to load BSDF interpolant over existing\n",
390 <                                progname);
478 >
479 >        clear_bsdf_rep();
480 >        if (ifp == NULL)
481                  return(0);
482 <        }
483 < #endif
394 <        if (checkheader(ifp, BSDFREP_FMT, NULL) <= 0) {
482 >        if (getheader(ifp, headline, NULL) < 0 || single_plane_incident < 0 |
483 >                        !input_orient | !output_orient) {
484                  fprintf(stderr, "%s: missing/bad format for BSDF interpolant\n",
485                                  progname);
486                  return(0);
# Line 404 | Line 493 | load_bsdf_rep(FILE *ifp)
493                  rbfh.invec[0] = getflt(ifp);
494                  rbfh.invec[1] = getflt(ifp);
495                  rbfh.invec[2] = getflt(ifp);
496 +                rbfh.vtotal = getflt(ifp);
497                  rbfh.nrbf = getint(4, ifp);
408 –                if (!new_input_vector(rbfh.invec))
409 –                        return(0);
498                  newrbf = (RBFNODE *)malloc(sizeof(RBFNODE) +
499                                          sizeof(RBFVAL)*(rbfh.nrbf-1));
500                  if (newrbf == NULL)
# Line 447 | Line 535 | load_bsdf_rep(FILE *ifp)
535                          goto memerr;
536                  newmig->rbfv[0] = from_rbf;
537                  newmig->rbfv[1] = to_rbf;
538 <                                        /* read matrix coefficients */
539 <                for (i = 0; i < n; i++)
540 <                        newmig->mtx[i] = getflt(ifp);
538 >                memset(newmig->mtx, 0, sizeof(float)*n);
539 >                for (i = 0; ; ) {       /* read sparse data */
540 >                        int     zc = getint(1, ifp) & 0xff;
541 >                        if ((i += zc) >= n)
542 >                                break;
543 >                        if (zc == 0xff)
544 >                                continue;
545 >                        newmig->mtx[i++] = getflt(ifp);
546 >                }
547                  if (feof(ifp))
548                          goto badEOF;
549                                          /* insert in edge lists */

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines