7 |
|
|
8 |
|
#include "copyright.h" |
9 |
|
|
10 |
< |
#include "standard.h" |
10 |
> |
#include "ray.h" |
11 |
|
#include "otypes.h" |
12 |
|
#include "rtotypes.h" |
13 |
|
#include "otspecial.h" |
16 |
|
FUN ofun[NUMOTYPE] = INIT_OTYPE; |
17 |
|
|
18 |
|
|
19 |
< |
extern void |
19 |
> |
void |
20 |
|
initotypes(void) /* initialize ofun array */ |
21 |
|
{ |
22 |
|
ofun[OBJ_SPHERE].funp = |
41 |
|
ofun[MAT_TRANS].funp = m_normal; |
42 |
|
ofun[MAT_PLASTIC].flags |= T_OPAQUE; |
43 |
|
ofun[MAT_METAL].flags |= T_OPAQUE; |
44 |
< |
ofun[MAT_TRANS].flags |= T_IRR_IGN; |
44 |
> |
ofun[MAT_TRANS].flags |= T_TRANSP; |
45 |
|
ofun[MAT_PLASTIC2].funp = |
46 |
|
ofun[MAT_METAL2].funp = |
47 |
|
ofun[MAT_TRANS2].funp = m_aniso; |
48 |
|
ofun[MAT_PLASTIC2].flags |= T_OPAQUE; |
49 |
|
ofun[MAT_METAL2].flags |= T_OPAQUE; |
50 |
< |
ofun[MAT_TRANS2].flags |= T_IRR_IGN; |
50 |
> |
ofun[MAT_TRANS2].flags |= T_TRANSP; |
51 |
> |
ofun[MAT_ASHIKHMIN].funp = m_ashikhmin; |
52 |
> |
ofun[MAT_ASHIKHMIN].flags |= T_OPAQUE; |
53 |
|
ofun[MAT_DIELECTRIC].funp = |
54 |
|
ofun[MAT_INTERFACE].funp = m_dielectric; |
55 |
< |
ofun[MAT_DIELECTRIC].flags |= T_IRR_IGN; |
56 |
< |
ofun[MAT_INTERFACE].flags |= T_IRR_IGN; |
55 |
> |
ofun[MAT_DIELECTRIC].flags |= T_TRANSP; |
56 |
> |
ofun[MAT_INTERFACE].flags |= T_TRANSP; |
57 |
|
ofun[MAT_MIST].funp = m_mist; |
58 |
< |
ofun[MAT_MIST].flags |= T_IRR_IGN; |
58 |
> |
ofun[MAT_MIST].flags |= T_TRANSP; |
59 |
|
ofun[MAT_GLASS].funp = m_glass; |
60 |
< |
ofun[MAT_GLASS].flags |= T_IRR_IGN; |
60 |
> |
ofun[MAT_GLASS].flags |= T_TRANSP; |
61 |
|
ofun[MAT_MIRROR].funp = m_mirror; |
62 |
|
ofun[MAT_DIRECT1].funp = |
63 |
|
ofun[MAT_DIRECT2].funp = m_direct; |
64 |
|
ofun[MAT_CLIP].funp = m_clip; |
65 |
|
ofun[MAT_BRTDF].funp = m_brdf; |
66 |
+ |
ofun[MAT_BSDF].funp = |
67 |
+ |
ofun[MAT_ABSDF].funp = m_bsdf; |
68 |
+ |
ofun[MAT_ABSDF].flags |= T_TRANSP; |
69 |
|
ofun[MAT_PFUNC].funp = |
70 |
|
ofun[MAT_MFUNC].funp = |
71 |
|
ofun[MAT_PDATA].funp = |
74 |
|
ofun[MAT_TDATA].funp = m_brdf2; |
75 |
|
ofun[MAT_PFUNC].flags |= T_OPAQUE; |
76 |
|
ofun[MAT_MFUNC].flags |= T_OPAQUE; |
77 |
+ |
ofun[MAT_TFUNC].flags |= T_OPAQUE; |
78 |
|
ofun[MAT_PDATA].flags |= T_OPAQUE; |
79 |
|
ofun[MAT_MDATA].flags |= T_OPAQUE; |
80 |
+ |
ofun[MAT_TDATA].flags |= T_OPAQUE; |
81 |
|
ofun[TEX_FUNC].funp = t_func; |
82 |
|
ofun[TEX_DATA].funp = t_data; |
83 |
|
ofun[PAT_CFUNC].funp = p_cfunc; |
84 |
|
ofun[PAT_BFUNC].funp = p_bfunc; |
85 |
|
ofun[PAT_CPICT].funp = p_pdata; |
86 |
|
ofun[PAT_CDATA].funp = p_cdata; |
87 |
+ |
ofun[PAT_SPECTRUM].funp = p_spectrum; |
88 |
+ |
ofun[PAT_SPECFILE].funp = p_specfile; |
89 |
+ |
ofun[PAT_SPECFUNC].funp = p_specfunc; |
90 |
|
ofun[PAT_BDATA].funp = p_bdata; |
91 |
|
ofun[PAT_CTEXT].funp = |
92 |
|
ofun[PAT_BTEXT].funp = |
97 |
|
} |
98 |
|
|
99 |
|
|
100 |
< |
extern int |
101 |
< |
o_default(OBJREC *o, RAY *r) /* default action is error */ |
100 |
> |
int |
101 |
> |
o_default(OBJREC *o, RAY *r) /* default action is error */ |
102 |
|
{ |
103 |
< |
error(CONSISTENCY, "unexpected object call"); |
104 |
< |
/* call to pull in freeobjmem.o */ /* XXX ? */ |
103 |
> |
objerror(o, CONSISTENCY, "unexpected object call"); |
104 |
> |
/* unused call to load freeobjmem.o */ |
105 |
|
free_objs(0, 0); |
106 |
+ |
return(0); |
107 |
+ |
} |
108 |
+ |
|
109 |
+ |
|
110 |
+ |
OBJREC * |
111 |
+ |
findmaterial(OBJREC *o) /* find an object's actual material */ |
112 |
+ |
{ |
113 |
+ |
OBJECT obj = OVOID; |
114 |
+ |
|
115 |
+ |
while (!ismaterial(o->otype)) { |
116 |
+ |
if (o->otype == MOD_ALIAS && o->oargs.nsargs) { |
117 |
+ |
OBJREC *ao = o; |
118 |
+ |
if (obj == OVOID) |
119 |
+ |
obj = objndx(o); |
120 |
+ |
do { |
121 |
+ |
if (!ao->oargs.nsargs) |
122 |
+ |
obj = ao->omod; |
123 |
+ |
else |
124 |
+ |
obj = lastmod(obj, ao->oargs.sarg[0]); |
125 |
+ |
if (obj == OVOID) |
126 |
+ |
objerror(ao, USER, "bad reference"); |
127 |
+ |
ao = objptr(obj); |
128 |
+ |
} while (ao->otype == MOD_ALIAS); |
129 |
+ |
/* check if aliased to material */ |
130 |
+ |
if (ismaterial(ao->otype)) |
131 |
+ |
return(ao); |
132 |
+ |
} |
133 |
+ |
if (o->omod == OVOID) { |
134 |
+ |
/* void mixture de facto material? */ |
135 |
+ |
if (ismixture(o->otype)) |
136 |
+ |
break; |
137 |
+ |
return(NULL); /* else no material found */ |
138 |
+ |
} |
139 |
+ |
obj = o->omod; |
140 |
+ |
o = objptr(obj); |
141 |
+ |
} |
142 |
+ |
return(o); |
143 |
|
} |