--- ray/src/cv/bsdfinterp.c 2012/11/08 00:31:17 2.5 +++ ray/src/cv/bsdfinterp.c 2012/11/26 07:02:20 2.7 @@ -1,5 +1,5 @@ #ifndef lint -static const char RCSid[] = "$Id: bsdfinterp.c,v 2.5 2012/11/08 00:31:17 greg Exp $"; +static const char RCSid[] = "$Id: bsdfinterp.c,v 2.7 2012/11/26 07:02:20 greg Exp $"; #endif /* * Interpolate BSDF data from radial basis functions in advection mesh. @@ -126,7 +126,7 @@ in_tri(const RBFNODE *v1, const RBFNODE *v2, const RBF return(sgn2 == sgn3); } -/* Test and set for edge */ +/* Test (and set) bitmap for edge */ static int check_edge(unsigned char *emap, int nedges, const MIGRATION *mig, int mark) { @@ -305,7 +305,7 @@ e_advect_rbf(const MIGRATION *mig, const FVECT invec) rbf->rbfa[n].crad = ANG2R(sqrt(rad0*rad0*(1.-t) + rad1*rad1*t)); ovec_from_pos(v, rbf1j->gx, rbf1j->gy); - geodesic(v, v0, v, t, GEOD_REL); + geodesic(v, v0, v, t*full_dist, GEOD_RAD); pos_from_vec(pos, v); rbf->rbfa[n].gx = pos[0]; rbf->rbfa[n].gy = pos[1]; @@ -331,7 +331,7 @@ advect_rbf(const FVECT invec) float mbfact, mcfact; int n, i, j, k; FVECT v0, v1, v2; - double s, t; + double s, t, t_full; VCOPY(sivec, invec); /* find triangle/edge */ sym = get_interp(miga, sivec); @@ -363,7 +363,8 @@ advect_rbf(const FVECT invec) s = acos(DOT(v0,v1)) / acos(DOT(v0,v2)); geodesic(v1, miga[0]->rbfv[0]->invec, miga[0]->rbfv[1]->invec, s, GEOD_REL); - t = acos(DOT(v1,sivec)) / acos(DOT(v1,miga[1]->rbfv[1]->invec)); + t = acos(DOT(v1,sivec)) / + (t_full = acos(DOT(v1,miga[1]->rbfv[1]->invec))); n = 0; /* count migrating particles */ for (i = 0; i < mtx_nrows(miga[0]); i++) for (j = 0; j < mtx_ncols(miga[0]); j++) @@ -419,7 +420,7 @@ advect_rbf(const FVECT invec) rad2k = R2ANG(rbf2k->crad); rbf->rbfa[n].crad = ANG2R(sqrt(srad2 + t*rad2k*rad2k)); ovec_from_pos(v2, rbf2k->gx, rbf2k->gy); - geodesic(vout, v1, v2, t, GEOD_REL); + geodesic(vout, v1, v2, t*t_full, GEOD_RAD); pos_from_vec(pos, vout); rbf->rbfa[n].gx = pos[0]; rbf->rbfa[n].gy = pos[1];