src/rt/m_clip.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  m_clip.c - routine for clipped (cut) objects.
 */

/* ====================================================================
 * The Radiance Software License, Version 1.0
 *
 * Copyright (c) 1990 - 2002 The Regents of the University of California,
 * through Lawrence Berkeley National Laboratory.   All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *         notice, this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in
 *       the documentation and/or other materials provided with the
 *       distribution.
 *
 * 3. The end-user documentation included with the redistribution,
 *           if any, must include the following acknowledgment:
 *             "This product includes Radiance software
 *                 (http://radsite.lbl.gov/)
 *                 developed by the Lawrence Berkeley National Laboratory
 *               (http://www.lbl.gov/)."
 *       Alternately, this acknowledgment may appear in the software itself,
 *       if and wherever such third-party acknowledgments normally appear.
 *
 * 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
 *       and "The Regents of the University of California" must
 *       not be used to endorse or promote products derived from this
 *       software without prior written permission. For written
 *       permission, please contact [email protected].
 *
 * 5. Products derived from this software may not be called "Radiance",
 *       nor may "Radiance" appear in their name, without prior written
 *       permission of Lawrence Berkeley National Laboratory.
 *
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED.   IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
 * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
 * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals on behalf of Lawrence Berkeley National Laboratory.   For more
 * information on Lawrence Berkeley National Laboratory, please see
 * <http://www.lbl.gov/>.
 */

#include  "ray.h"

/*
 *  Clipping objects permit holes and sections to be taken out
 *  of other objects.  The method is simple:  
 *
 *  The argument is the clipped materials;
 *  the first is used to shade upon exit.
 */


int
m_clip(m, r)                    /* clip objects from ray */
register OBJREC  *m;
register RAY  *r;
{
        OBJECT  cset[MAXSET+1], *modset;
        OBJECT  obj, mod;
        int  entering;
        register int  i;

        obj = objndx(m);
        if ((modset = (OBJECT *)m->os) == NULL) {
                if (m->oargs.nsargs < 1 || m->oargs.nsargs > MAXSET)
                        objerror(m, USER, "bad # arguments");
                modset = (OBJECT *)malloc((m->oargs.nsargs+1)*sizeof(OBJECT));
                if (modset == NULL)
                        error(SYSTEM, "out of memory in m_clip");
                modset[0] = 0;
                for (i = 0; i < m->oargs.nsargs; i++) {
                        if (!strcmp(m->oargs.sarg[i], VOIDID))
                                continue;
                        if ((mod = lastmod(obj, m->oargs.sarg[i])) == OVOID) {
                                sprintf(errmsg, "unknown modifier \"%s\"",
                                                m->oargs.sarg[i]);
                                objerror(m, WARNING, errmsg);
                                continue;
                        }
                        if (inset(modset, mod)) {
                                objerror(m, WARNING, "duplicate modifier");
                                continue;
                        }
                        insertelem(modset, mod);
                }
                m->os = (char *)modset;
        }
        if (r->clipset != NULL)
                setcopy(cset, r->clipset);
        else
                cset[0] = 0;

        entering = r->rod > 0.0;                /* entering clipped region? */

        for (i = modset[0]; i > 0; i--) {
                if (entering) {
                        if (!inset(cset, modset[i])) {
                                if (cset[0] >= MAXSET)
                                        error(INTERNAL, "set overflow in m_clip");
                                insertelem(cset, modset[i]);
                        }
                } else {
                        if (inset(cset, modset[i]))
                                deletelem(cset, modset[i]);
                }
        }
                                        /* compute ray value */
        r->newcset = cset;
        if (strcmp(m->oargs.sarg[0], VOIDID)) {
                int  inside = 0;
                register RAY  *rp;
                                        /* check for penetration */
                for (rp = r; rp->parent != NULL; rp = rp->parent)
                        if (!(rp->rtype & RAYREFL) && rp->parent->ro != NULL
                                        && inset(modset, rp->parent->ro->omod))
                                if (rp->parent->rod > 0.0)
                                        inside++;
                                else
                                        inside--;
                if (inside > 0) {       /* we just hit the object */
                        flipsurface(r);
                        return(rayshade(r, lastmod(obj, m->oargs.sarg[0])));
                }
        }
        raytrans(r);                    /* else transfer ray */
        return(1);
}
Revision:	2.5
Committed:	Sat Feb 22 02:07:28 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 2.4:	+58 -5 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	2.5	static const char RCSid[] = "$Id$";
3	greg	1.1	#endif
4			/*
5			* m_clip.c - routine for clipped (cut) objects.
6	greg	2.5	*/
7
8			/* ====================================================================
9			* The Radiance Software License, Version 1.0
10			*
11			* Copyright (c) 1990 - 2002 The Regents of the University of California,
12			* through Lawrence Berkeley National Laboratory. All rights reserved.
13			*
14			* Redistribution and use in source and binary forms, with or without
15			* modification, are permitted provided that the following conditions
16			* are met:
17			*
18			* 1. Redistributions of source code must retain the above copyright
19			* notice, this list of conditions and the following disclaimer.
20			*
21			* 2. Redistributions in binary form must reproduce the above copyright
22			* notice, this list of conditions and the following disclaimer in
23			* the documentation and/or other materials provided with the
24			* distribution.
25			*
26			* 3. The end-user documentation included with the redistribution,
27			* if any, must include the following acknowledgment:
28			* "This product includes Radiance software
29			* (http://radsite.lbl.gov/)
30			* developed by the Lawrence Berkeley National Laboratory
31			* (http://www.lbl.gov/)."
32			* Alternately, this acknowledgment may appear in the software itself,
33			* if and wherever such third-party acknowledgments normally appear.
34			*
35			* 4. The names "Radiance," "Lawrence Berkeley National Laboratory"
36			* and "The Regents of the University of California" must
37			* not be used to endorse or promote products derived from this
38			* software without prior written permission. For written
39			* permission, please contact [email protected].
40			*
41			* 5. Products derived from this software may not be called "Radiance",
42			* nor may "Radiance" appear in their name, without prior written
43			* permission of Lawrence Berkeley National Laboratory.
44			*
45			* THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
46			* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
47			* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
48			* DISCLAIMED. IN NO EVENT SHALL Lawrence Berkeley National Laboratory OR
49			* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
50			* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
51			* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
52			* USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
53			* ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
54			* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
55			* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
56			* SUCH DAMAGE.
57			* ====================================================================
58	greg	1.1	*
59	greg	2.5	* This software consists of voluntary contributions made by many
60			* individuals on behalf of Lawrence Berkeley National Laboratory. For more
61			* information on Lawrence Berkeley National Laboratory, please see
62			* <http://www.lbl.gov/>.
63	greg	1.1	*/
64
65			#include "ray.h"
66
67			/*
68			* Clipping objects permit holes and sections to be taken out
69			* of other objects. The method is simple:
70			*
71			* The argument is the clipped materials;
72			* the first is used to shade upon exit.
73			*/
74
75
76	greg	2.5	int
77	greg	1.1	m_clip(m, r) /* clip objects from ray */
78			register OBJREC *m;
79			register RAY *r;
80			{
81			OBJECT cset[MAXSET+1], *modset;
82	gwlarson	2.4	OBJECT obj, mod;
83	greg	1.1	int entering;
84			register int i;
85
86	gwlarson	2.4	obj = objndx(m);
87	greg	1.1	if ((modset = (OBJECT *)m->os) == NULL) {
88			if (m->oargs.nsargs < 1 \|\| m->oargs.nsargs > MAXSET)
89			objerror(m, USER, "bad # arguments");
90			modset = (OBJECT )malloc((m->oargs.nsargs+1)sizeof(OBJECT));
91			if (modset == NULL)
92			error(SYSTEM, "out of memory in m_clip");
93			modset[0] = 0;
94			for (i = 0; i < m->oargs.nsargs; i++) {
95			if (!strcmp(m->oargs.sarg[i], VOIDID))
96			continue;
97	greg	2.3	if ((mod = lastmod(obj, m->oargs.sarg[i])) == OVOID) {
98	greg	1.1	sprintf(errmsg, "unknown modifier \"%s\"",
99			m->oargs.sarg[i]);
100			objerror(m, WARNING, errmsg);
101			continue;
102			}
103			if (inset(modset, mod)) {
104			objerror(m, WARNING, "duplicate modifier");
105			continue;
106			}
107			insertelem(modset, mod);
108			}
109	greg	1.2	m->os = (char *)modset;
110	greg	1.1	}
111			if (r->clipset != NULL)
112			setcopy(cset, r->clipset);
113			else
114			cset[0] = 0;
115
116			entering = r->rod > 0.0; /* entering clipped region? */
117
118			for (i = modset[0]; i > 0; i--) {
119			if (entering) {
120			if (!inset(cset, modset[i])) {
121			if (cset[0] >= MAXSET)
122			error(INTERNAL, "set overflow in m_clip");
123			insertelem(cset, modset[i]);
124			}
125			} else {
126			if (inset(cset, modset[i]))
127			deletelem(cset, modset[i]);
128			}
129			}
130			/* compute ray value */
131			r->newcset = cset;
132			if (strcmp(m->oargs.sarg[0], VOIDID)) {
133			int inside = 0;
134			register RAY *rp;
135			/* check for penetration */
136			for (rp = r; rp->parent != NULL; rp = rp->parent)
137			if (!(rp->rtype & RAYREFL) && rp->parent->ro != NULL
138			&& inset(modset, rp->parent->ro->omod))
139			if (rp->parent->rod > 0.0)
140			inside++;
141			else
142			inside--;
143			if (inside > 0) { /* we just hit the object */
144			flipsurface(r);
145	gwlarson	2.4	return(rayshade(r, lastmod(obj, m->oargs.sarg[0])));
146	greg	1.1	}
147			}
148			raytrans(r); /* else transfer ray */
149	greg	2.2	return(1);
150	greg	1.1	}