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 |
|
|
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]); |
88 |
> |
multv3(nsdir, nsdir, funcxf.xfm); |
89 |
> |
varset("DxA", '=', nsdir[0]/funcxf.sca); |
90 |
> |
varset("DyA", '=', nsdir[1]/funcxf.sca); |
91 |
> |
varset("DzA", '=', nsdir[2]/funcxf.sca); |
92 |
> |
} else { |
93 |
> |
varset("DxA", '=', 0.0); |
94 |
> |
varset("DyA", '=', 0.0); |
95 |
> |
varset("DzA", '=', 0.0); |
96 |
> |
} |
97 |
|
/* compute coefficient */ |
98 |
|
errno = 0; |
99 |
|
va = mf->ep + 4*n; |
120 |
|
rayvalue(&nr); |
121 |
|
scalecolor(nr.rcol, coef); |
122 |
|
addcolor(r->rcol, nr.rcol); |
123 |
+ |
if (r->ro != NULL && isflat(r->ro->otype)) |
124 |
+ |
r->rt = r->rot + nr.rt; |
125 |
|
return(1); |
126 |
|
computerr: |
127 |
|
objerror(m, WARNING, "compute error"); |
161 |
|
olddot = DOT(tr.rdir, nv); |
162 |
|
if (olddot <= FTINY && olddot >= -FTINY) |
163 |
|
return(0); /* old dir parallels plane */ |
164 |
+ |
tr.rmax = 0.0; |
165 |
|
rayorigin(&tr, NULL, PRIMARY, 1.0); |
166 |
|
if (!(*ofun[o->otype].funp)(o, &tr)) |
167 |
|
return(0); /* no intersection! */ |