src/rt/initotypes.c

#ifndef lint
static const char RCSid[] = "$Id: initotypes.c,v 2.31 2023/11/15 18:02:52 greg Exp $";
#endif
/*
 * Initialize ofun[] list for renderers
 */

#include  "copyright.h"

#include  "ray.h"
#include  "otypes.h"
#include  "rtotypes.h"
#include  "otspecial.h"


FUN  ofun[NUMOTYPE] = INIT_OTYPE;


void
initotypes(void)                        /* initialize ofun array */
{
        ofun[OBJ_SPHERE].funp =
        ofun[OBJ_BUBBLE].funp = o_sphere;
        ofun[OBJ_FACE].funp = o_face;
        ofun[OBJ_CONE].funp =
        ofun[OBJ_CUP].funp =
        ofun[OBJ_CYLINDER].funp =
        ofun[OBJ_TUBE].funp =
        ofun[OBJ_RING].funp = o_cone;
        ofun[OBJ_INSTANCE].funp = o_instance;
        ofun[OBJ_MESH].funp = o_mesh;
        ofun[MOD_ALIAS].funp = m_alias;
        ofun[MAT_LIGHT].funp =
        ofun[MAT_ILLUM].funp =
        ofun[MAT_GLOW].funp =
        ofun[MAT_SPOT].funp = m_light;
        ofun[MAT_LIGHT].flags |= T_OPAQUE;
        ofun[MAT_SPOT].flags |= T_OPAQUE;
        ofun[MAT_PLASTIC].funp =
        ofun[MAT_METAL].funp =
        ofun[MAT_TRANS].funp = m_normal;
        ofun[MAT_PLASTIC].flags |= T_OPAQUE;
        ofun[MAT_METAL].flags |= T_OPAQUE;
        ofun[MAT_TRANS].flags |= T_TRANSP;
        ofun[MAT_PLASTIC2].funp =
        ofun[MAT_METAL2].funp =
        ofun[MAT_TRANS2].funp = m_aniso;
        ofun[MAT_PLASTIC2].flags |= T_OPAQUE;
        ofun[MAT_METAL2].flags |= T_OPAQUE;
        ofun[MAT_TRANS2].flags |= T_TRANSP;
        ofun[MAT_ASHIKHMIN].funp = m_ashikhmin;
        ofun[MAT_ASHIKHMIN].flags |= T_OPAQUE;
        ofun[MAT_DIELECTRIC].funp =
        ofun[MAT_INTERFACE].funp = m_dielectric;
        ofun[MAT_DIELECTRIC].flags |= T_TRANSP;
        ofun[MAT_INTERFACE].flags |= T_TRANSP;
        ofun[MAT_MIST].funp = m_mist;
        ofun[MAT_MIST].flags |= T_TRANSP;
        ofun[MAT_GLASS].funp = m_glass;
        ofun[MAT_GLASS].flags |= T_TRANSP;
        ofun[MAT_MIRROR].funp = m_mirror;
        ofun[MAT_DIRECT1].funp =
        ofun[MAT_DIRECT2].funp = m_direct;
        ofun[MAT_CLIP].funp = m_clip;
        ofun[MAT_BRTDF].funp = m_brdf;
        ofun[MAT_BSDF].funp = 
        ofun[MAT_ABSDF].funp = m_bsdf;
        ofun[MAT_ABSDF].flags |= T_TRANSP;
        ofun[MAT_PFUNC].funp =
        ofun[MAT_MFUNC].funp =
        ofun[MAT_PDATA].funp =
        ofun[MAT_MDATA].funp = 
        ofun[MAT_TFUNC].funp =
        ofun[MAT_TDATA].funp = m_brdf2;
        ofun[MAT_PFUNC].flags |= T_OPAQUE;
        ofun[MAT_MFUNC].flags |= T_OPAQUE;
        ofun[MAT_TFUNC].flags |= T_OPAQUE;
        ofun[MAT_PDATA].flags |= T_OPAQUE;
        ofun[MAT_MDATA].flags |= T_OPAQUE;
        ofun[MAT_TDATA].flags |= T_OPAQUE;
        ofun[TEX_FUNC].funp = t_func;
        ofun[TEX_DATA].funp = t_data;
        ofun[PAT_CFUNC].funp = p_cfunc;
        ofun[PAT_BFUNC].funp = p_bfunc;
        ofun[PAT_CPICT].funp = p_pdata;
        ofun[PAT_CDATA].funp = p_cdata;
        ofun[PAT_SPECTRUM].funp = p_spectrum;
        ofun[PAT_SPECFILE].funp = p_specfile;
        ofun[PAT_SPECFUNC].funp = p_specfunc;
        ofun[PAT_SPECDATA].funp = p_specdata;
        ofun[PAT_SPECPICT].funp = p_specpict;
        ofun[PAT_BDATA].funp = p_bdata;
        ofun[PAT_CTEXT].funp =
        ofun[PAT_BTEXT].funp =
        ofun[MIX_TEXT].funp = do_text;
        ofun[MIX_FUNC].funp = mx_func;
        ofun[MIX_DATA].funp = mx_data;
        ofun[MIX_PICT].funp = mx_pdata;
}


int
o_default(OBJREC *o, RAY *r)            /* default action is error */
{
        objerror(o, CONSISTENCY, "unexpected object call");
                                        /* unused call to load freeobjmem.o */
        free_objs(0, 0);
        return(0);
}


OBJREC *        
findmaterial(OBJREC *o)                 /* find an object's actual material */
{
        OBJECT  obj = OVOID;

        while (!ismaterial(o->otype)) {
                if (o->otype == MOD_ALIAS && o->oargs.nsargs) {
                        OBJREC  *ao = o;
                        if (obj == OVOID)
                                obj = objndx(o);
                        do {
                                if (!ao->oargs.nsargs)
                                        obj = ao->omod;
                                else
                                        obj = lastmod(obj, ao->oargs.sarg[0]);
                                if (obj == OVOID)
                                        objerror(ao, USER, "bad reference");
                                ao = objptr(obj);
                        } while (ao->otype == MOD_ALIAS);
                                        /* check if aliased to material */
                        if (ismaterial(ao->otype))
                                return(ao);
                }
                if (o->omod == OVOID) {
                                        /* void mixture de facto material? */
                        if (ismixture(o->otype))
                                break;
                        return(NULL);   /* else no material found */
                }
                obj = o->omod;
                o = objptr(obj);
        }
        return(o);
}
Revision:	2.32
Committed:	Wed Dec 13 23:26:16 2023 UTC (5 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	HEAD
Changes since 2.31:	+3 -1 lines
Log Message:	feat(rpict,rvu,rtrace,rcontrib): Added "specdata" and "specpict" pattern primitives
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.32	static const char RCSid[] = "$Id: initotypes.c,v 2.31 2023/11/15 18:02:52 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Initialize ofun[] list for renderers
6			*/
7
8	greg	2.9	#include "copyright.h"
9	greg	2.7
10	greg	2.15	#include "ray.h"
11	greg	1.1	#include "otypes.h"
12	schorsch	2.12	#include "rtotypes.h"
13	greg	1.2	#include "otspecial.h"
14
15	greg	1.1
16			FUN ofun[NUMOTYPE] = INIT_OTYPE;
17
18
19	greg	2.19	void
20	schorsch	2.12	initotypes(void) /* initialize ofun array */
21	greg	1.1	{
22			ofun[OBJ_SPHERE].funp =
23			ofun[OBJ_BUBBLE].funp = o_sphere;
24			ofun[OBJ_FACE].funp = o_face;
25			ofun[OBJ_CONE].funp =
26			ofun[OBJ_CUP].funp =
27			ofun[OBJ_CYLINDER].funp =
28			ofun[OBJ_TUBE].funp =
29			ofun[OBJ_RING].funp = o_cone;
30			ofun[OBJ_INSTANCE].funp = o_instance;
31	greg	2.9	ofun[OBJ_MESH].funp = o_mesh;
32	greg	2.10	ofun[MOD_ALIAS].funp = m_alias;
33	greg	1.1	ofun[MAT_LIGHT].funp =
34			ofun[MAT_ILLUM].funp =
35			ofun[MAT_GLOW].funp =
36			ofun[MAT_SPOT].funp = m_light;
37	greg	2.11	ofun[MAT_LIGHT].flags \|= T_OPAQUE;
38			ofun[MAT_SPOT].flags \|= T_OPAQUE;
39	greg	1.1	ofun[MAT_PLASTIC].funp =
40			ofun[MAT_METAL].funp =
41			ofun[MAT_TRANS].funp = m_normal;
42	greg	2.11	ofun[MAT_PLASTIC].flags \|= T_OPAQUE;
43			ofun[MAT_METAL].flags \|= T_OPAQUE;
44	greg	2.20	ofun[MAT_TRANS].flags \|= T_TRANSP;
45	greg	2.2	ofun[MAT_PLASTIC2].funp =
46			ofun[MAT_METAL2].funp =
47			ofun[MAT_TRANS2].funp = m_aniso;
48	greg	2.11	ofun[MAT_PLASTIC2].flags \|= T_OPAQUE;
49			ofun[MAT_METAL2].flags \|= T_OPAQUE;
50	greg	2.20	ofun[MAT_TRANS2].flags \|= T_TRANSP;
51	greg	2.18	ofun[MAT_ASHIKHMIN].funp = m_ashikhmin;
52			ofun[MAT_ASHIKHMIN].flags \|= T_OPAQUE;
53	greg	1.1	ofun[MAT_DIELECTRIC].funp =
54			ofun[MAT_INTERFACE].funp = m_dielectric;
55	greg	2.20	ofun[MAT_DIELECTRIC].flags \|= T_TRANSP;
56			ofun[MAT_INTERFACE].flags \|= T_TRANSP;
57	greg	2.4	ofun[MAT_MIST].funp = m_mist;
58	greg	2.20	ofun[MAT_MIST].flags \|= T_TRANSP;
59	greg	1.1	ofun[MAT_GLASS].funp = m_glass;
60	greg	2.20	ofun[MAT_GLASS].flags \|= T_TRANSP;
61	greg	1.5	ofun[MAT_MIRROR].funp = m_mirror;
62	greg	1.6	ofun[MAT_DIRECT1].funp =
63			ofun[MAT_DIRECT2].funp = m_direct;
64	greg	1.1	ofun[MAT_CLIP].funp = m_clip;
65	greg	2.3	ofun[MAT_BRTDF].funp = m_brdf;
66	greg	2.21	ofun[MAT_BSDF].funp =
67	greg	2.22	ofun[MAT_ABSDF].funp = m_bsdf;
68			ofun[MAT_ABSDF].flags \|= T_TRANSP;
69	greg	1.1	ofun[MAT_PFUNC].funp =
70			ofun[MAT_MFUNC].funp =
71			ofun[MAT_PDATA].funp =
72	greg	1.4	ofun[MAT_MDATA].funp =
73			ofun[MAT_TFUNC].funp =
74	greg	2.3	ofun[MAT_TDATA].funp = m_brdf2;
75	greg	2.11	ofun[MAT_PFUNC].flags \|= T_OPAQUE;
76			ofun[MAT_MFUNC].flags \|= T_OPAQUE;
77	greg	2.23	ofun[MAT_TFUNC].flags \|= T_OPAQUE;
78	greg	2.11	ofun[MAT_PDATA].flags \|= T_OPAQUE;
79			ofun[MAT_MDATA].flags \|= T_OPAQUE;
80	greg	2.23	ofun[MAT_TDATA].flags \|= T_OPAQUE;
81	greg	1.1	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	greg	2.31	ofun[PAT_SPECTRUM].funp = p_spectrum;
88			ofun[PAT_SPECFILE].funp = p_specfile;
89			ofun[PAT_SPECFUNC].funp = p_specfunc;
90	greg	2.32	ofun[PAT_SPECDATA].funp = p_specdata;
91			ofun[PAT_SPECPICT].funp = p_specpict;
92	greg	1.1	ofun[PAT_BDATA].funp = p_bdata;
93			ofun[PAT_CTEXT].funp =
94			ofun[PAT_BTEXT].funp =
95	greg	2.5	ofun[MIX_TEXT].funp = do_text;
96	greg	1.1	ofun[MIX_FUNC].funp = mx_func;
97			ofun[MIX_DATA].funp = mx_data;
98	gwlarson	2.6	ofun[MIX_PICT].funp = mx_pdata;
99	greg	1.1	}
100
101
102	greg	2.19	int
103	greg	2.26	o_default(OBJREC o, RAY r) /* default action is error */
104	greg	1.1	{
105	greg	2.14	objerror(o, CONSISTENCY, "unexpected object call");
106	greg	2.26	/* unused call to load freeobjmem.o */
107	greg	2.7	free_objs(0, 0);
108	greg	2.16	return(0);
109	greg	1.1	}
110	greg	2.23
111
112	greg	2.26	OBJREC *
113			findmaterial(OBJREC o) / find an object's actual material */
114	greg	2.23	{
115	greg	2.29	OBJECT obj = OVOID;
116	greg	2.27
117	greg	2.23	while (!ismaterial(o->otype)) {
118			if (o->otype == MOD_ALIAS && o->oargs.nsargs) {
119	greg	2.29	OBJREC *ao = o;
120			if (obj == OVOID)
121			obj = objndx(o);
122			do {
123			if (!ao->oargs.nsargs)
124			obj = ao->omod;
125			else
126			obj = lastmod(obj, ao->oargs.sarg[0]);
127	greg	2.30	if (obj == OVOID)
128	greg	2.29	objerror(ao, USER, "bad reference");
129			ao = objptr(obj);
130			} while (ao->otype == MOD_ALIAS);
131			/* check if aliased to material */
132	greg	2.28	if (ismaterial(ao->otype))
133	greg	2.23	return(ao);
134			}
135	greg	2.25	if (o->omod == OVOID) {
136	greg	2.26	/* void mixture de facto material? */
137	greg	2.25	if (ismixture(o->otype))
138			break;
139	greg	2.26	return(NULL); /* else no material found */
140	greg	2.25	}
141	greg	2.29	obj = o->omod;
142			o = objptr(obj);
143	greg	2.23	}
144	greg	2.25	return(o);
145	greg	2.23	}