1 |
< |
/* Copyright (c) 1991 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1994 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
47 |
|
{ |
48 |
|
/* check if source ray */ |
49 |
|
if (r->rsrc >= 0 && source[r->rsrc].so != r->ro) |
50 |
< |
return; /* got the wrong guy */ |
50 |
> |
return(1); /* got the wrong guy */ |
51 |
|
/* compute first projection */ |
52 |
|
if (m->otype == MAT_DIRECT1 || |
53 |
|
(r->rsrc < 0 || source[r->rsrc].sa.sv.pn == 0)) |
56 |
|
if (m->otype == MAT_DIRECT2 && |
57 |
|
(r->rsrc < 0 || source[r->rsrc].sa.sv.pn == 1)) |
58 |
|
redirect(m, r, 1); |
59 |
+ |
return(1); |
60 |
|
} |
61 |
|
|
62 |
|
|
67 |
|
{ |
68 |
|
MFUNC *mf; |
69 |
|
register EPNODE **va; |
70 |
+ |
FVECT nsdir; |
71 |
|
RAY nr; |
72 |
|
double coef; |
73 |
|
register int j; |
74 |
|
/* set up function */ |
75 |
|
mf = getdfunc(m); |
76 |
|
setfunc(m, r); |
77 |
+ |
/* assign direction variable */ |
78 |
+ |
if (r->rsrc >= 0) { |
79 |
+ |
register SRCREC *sp = source + source[r->rsrc].sa.sv.sn; |
80 |
+ |
|
81 |
+ |
if (sp->sflags & SDISTANT) |
82 |
+ |
VCOPY(nsdir, sp->sloc); |
83 |
+ |
else { |
84 |
+ |
for (j = 0; j < 3; j++) |
85 |
+ |
nsdir[j] = sp->sloc[j] - r->rop[j]; |
86 |
+ |
normalize(nsdir); |
87 |
+ |
} |
88 |
+ |
if (r->rox != NULL) |
89 |
+ |
multv3(nsdir, nsdir, r->rox->b.xfm); |
90 |
+ |
if (mf->b != &unitxf) |
91 |
+ |
multv3(nsdir, nsdir, mf->b->xfm); |
92 |
+ |
} else |
93 |
+ |
nsdir[0] = nsdir[1] = nsdir[2] = 0.0; |
94 |
+ |
varset("DxA", '=', nsdir[0]); |
95 |
+ |
varset("DyA", '=', nsdir[1]); |
96 |
+ |
varset("DzA", '=', nsdir[2]); |
97 |
|
/* compute coefficient */ |
98 |
|
errno = 0; |
99 |
|
va = mf->ep + 4*n; |
159 |
|
olddot = DOT(tr.rdir, nv); |
160 |
|
if (olddot <= FTINY && olddot >= -FTINY) |
161 |
|
return(0); /* old dir parallels plane */ |
162 |
+ |
tr.rmax = 0.0; |
163 |
|
rayorigin(&tr, NULL, PRIMARY, 1.0); |
164 |
|
if (!(*ofun[o->otype].funp)(o, &tr)) |
165 |
|
return(0); /* no intersection! */ |
167 |
|
m = vsmaterial(o); |
168 |
|
mf = getdfunc(m); |
169 |
|
setfunc(m, &tr); |
170 |
+ |
varset("DxA", '=', 0.0); |
171 |
+ |
varset("DyA", '=', 0.0); |
172 |
+ |
varset("DzA", '=', 0.0); |
173 |
|
errno = 0; |
174 |
|
va = mf->ep + 4*n; |
175 |
|
coef = evalue(va[0]); |