home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
NEWS
/
RADIANCE
/
SRC
/
RT
/
O_CONE.C
< prev
next >
Wrap
C/C++ Source or Header
|
1993-10-07
|
4KB
|
137 lines
/* Copyright (c) 1990 Regents of the University of California */
#ifndef lint
static char SCCSid[] = "@(#)o_cone.c 2.1 11/12/91 LBL";
#endif
/*
* o_cone.c - routine to determine ray intersection with cones.
*
* 2/13/86
*/
#include "ray.h"
#include "otypes.h"
#include "cone.h"
o_cone(o, r) /* intersect ray with cone */
OBJREC *o;
register RAY *r;
{
FVECT rox, rdx;
double a, b, c;
double root[2];
int nroots, rn;
register CONE *co;
register int i;
/* get cone structure */
co = getcone(o, 1);
/*
* To intersect a ray with a cone, we transform the
* ray into the cone's normalized space. This greatly
* simplifies the computation.
* For a cone or cup, normalization results in the
* equation:
*
* x*x + y*y - z*z == 0
*
* For a cylinder or tube, the normalized equation is:
*
* x*x + y*y - r*r == 0
*
* A normalized ring obeys the following set of equations:
*
* z == 0 &&
* x*x + y*y >= r0*r0 &&
* x*x + y*y <= r1*r1
*/
/* transform ray */
multp3(rox, r->rorg, co->tm);
multv3(rdx, r->rdir, co->tm);
/* compute intersection */
if (o->otype == OBJ_CONE || o->otype == OBJ_CUP) {
a = rdx[0]*rdx[0] + rdx[1]*rdx[1] - rdx[2]*rdx[2];
b = 2.0*(rdx[0]*rox[0] + rdx[1]*rox[1] - rdx[2]*rox[2]);
c = rox[0]*rox[0] + rox[1]*rox[1] - rox[2]*rox[2];
} else if (o->otype == OBJ_CYLINDER || o->otype == OBJ_TUBE) {
a = rdx[0]*rdx[0] + rdx[1]*rdx[1];
b = 2.0*(rdx[0]*rox[0] + rdx[1]*rox[1]);
c = rox[0]*rox[0] + rox[1]*rox[1] - CO_R0(co)*CO_R0(co);
} else { /* OBJ_RING */
if (rdx[2] <= FTINY && rdx[2] >= -FTINY)
return(0); /* parallel */
root[0] = -rox[2]/rdx[2];
if (root[0] <= FTINY || root[0] >= r->rot)
return(0); /* distance check */
b = root[0]*rdx[0] + rox[0];
c = root[0]*rdx[1] + rox[1];
a = b*b + c*c;
if (a < CO_R0(co)*CO_R0(co) || a > CO_R1(co)*CO_R1(co))
return(0); /* outside radii */
r->ro = o;
r->rot = root[0];
for (i = 0; i < 3; i++)
r->rop[i] = r->rorg[i] + r->rdir[i]*r->rot;
VCOPY(r->ron, co->ad);
r->rod = -rdx[2];
r->rox = NULL;
return(1); /* good */
}
/* roots for cone, cup, cyl., tube */
nroots = quadratic(root, a, b, c);
for (rn = 0; rn < nroots; rn++) { /* check real roots */
if (root[rn] <= FTINY)
continue; /* too small */
if (root[rn] >= r->rot)
break; /* too big */
/* check endpoints */
for (i = 0; i < 3; i++) {
rox[i] = r->rorg[i] + root[rn]*r->rdir[i];
rdx[i] = rox[i] - CO_P0(co)[i];
}
b = DOT(rdx, co->ad);
if (b < 0.0)
continue; /* before p0 */
if (b > co->al)
continue; /* after p1 */
r->ro = o;
r->rot = root[rn];
VCOPY(r->rop, rox);
/* get normal */
if (o->otype == OBJ_CYLINDER)
a = CO_R0(co);
else if (o->otype == OBJ_TUBE)
a = -CO_R0(co);
else { /* OBJ_CONE || OBJ_CUP */
c = CO_R1(co) - CO_R0(co);
a = CO_R0(co) + b*c/co->al;
if (o->otype == OBJ_CUP) {
c = -c;
a = -a;
}
}
for (i = 0; i < 3; i++)
r->ron[i] = (rdx[i] - b*co->ad[i])/a;
if (o->otype == OBJ_CONE || o->otype == OBJ_CUP)
for (i = 0; i < 3; i++)
r->ron[i] = (co->al*r->ron[i] - c*co->ad[i])
/co->sl;
r->rod = -DOT(r->rdir, r->ron);
r->rox = NULL;
return(1); /* good */
}
return(0);
}