9 |
|
|
10 |
|
#include "ray.h" |
11 |
|
#include "otypes.h" |
12 |
+ |
#include "otspecial.h" |
13 |
|
#include "rtotypes.h" |
14 |
|
#include "source.h" |
15 |
|
|
36 |
|
RAY *r |
37 |
|
) |
38 |
|
{ |
38 |
– |
SCOLOR mcolor; |
39 |
– |
RAY nr; |
40 |
– |
int rpure = 1; |
41 |
– |
int i; |
39 |
|
/* check arguments */ |
40 |
|
if (m->oargs.nfargs != 3 || m->oargs.nsargs > 1) |
41 |
|
objerror(m, USER, "bad number of arguments"); |
42 |
|
/* check for substitute material */ |
43 |
|
/* but avoid double-counting */ |
44 |
< |
if ( m->oargs.nsargs > 0 && |
45 |
< |
(r->rsrc < 0 || source[r->rsrc].so != r->ro) && |
46 |
< |
!(r->crtype & (AMBIENT|SPECULAR) && r->rod > 0.) ) { |
47 |
< |
if (!strcmp(m->oargs.sarg[0], VOIDID)) { |
48 |
< |
raytrans(r); |
44 |
> |
if (m->oargs.nsargs > 0 && |
45 |
> |
(r->rsrc < 0 || source[r->rsrc].so != r->ro)) { |
46 |
> |
int passOK = (r->rod < 0.) | |
47 |
> |
!(r->crtype & (AMBIENT|SPECULAR)); |
48 |
> |
if (strcmp(m->oargs.sarg[0], VOIDID)) { |
49 |
> |
OBJECT altmod = lastmod(objndx(m), m->oargs.sarg[0]); |
50 |
> |
OBJREC *altmat; |
51 |
> |
if (passOK) /* no double-count hazard? */ |
52 |
> |
return(rayshade(r, altmod)); |
53 |
> |
if (altmod == OVOID || /* else check alternate type */ |
54 |
> |
(altmat = findmaterial(objptr(altmod))) == NULL) |
55 |
> |
return(0); |
56 |
> |
if (istransp(altmat)) /* pass "transparent" materials */ |
57 |
> |
return(rayshade(r, altmod)); |
58 |
> |
} else if (passOK) { |
59 |
> |
raytrans(r); /* "safe" void passage */ |
60 |
|
return(1); |
61 |
|
} |
54 |
– |
return(rayshade(r, lastmod(objndx(m), m->oargs.sarg[0]))); |
62 |
|
} |
63 |
|
/* check for bad source ray */ |
64 |
|
if (r->rsrc >= 0 && source[r->rsrc].so != r->ro) |
69 |
|
raytrans(r); /* unless back visibility is off */ |
70 |
|
return(1); |
71 |
|
} |
72 |
+ |
{ /* new context for stack memory */ |
73 |
+ |
SCOLOR mcolor; |
74 |
+ |
RAY nr; |
75 |
+ |
int rpure = 1; |
76 |
+ |
int i; |
77 |
|
/* get modifiers */ |
78 |
|
raytexture(r, m->omod); |
79 |
|
/* assign material color */ |
115 |
|
r->rmt = r->rot; |
116 |
|
if (rpure && r->ro != NULL && isflat(r->ro->otype)) |
117 |
|
r->rmt += raydistance(&nr); |
118 |
+ |
} /* end stack context */ |
119 |
|
return(1); |
120 |
|
} |
121 |
|
|