ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/rt/srcsupp.c

Comparing ray/src/rt/srcsupp.c (file contents):
Revision 1.13 by greg, Fri Sep 13 13:44:10 1991 UTC vs.
Revision 1.15 by greg, Tue Oct 22 11:23:47 1991 UTC

#	Line 18 | Line 18 | static char SCCSid[] = "$SunId$ LBL";
18
19		#include  "face.h"
20
21	+	#define SRCINC          4               /* realloc increment for array */
22
23		SRCREC  *source = NULL;                 /* our list of sources */
24		int  nsources = 0;                      /* the number of sources */
#	Line 28 | Line 29 | SRCFUNC  sfun[NUMOTYPE];               /* source dispatch table */
29		initstypes()                    /* initialize source dispatch table */
30		{
31		extern VSMATERIAL  mirror_vs, direct1_vs, direct2_vs;
32	<	extern int  fsetsrc(), ssetsrc(), sphsetsrc(), rsetsrc();
32	>	extern int  fsetsrc(), ssetsrc(), sphsetsrc(), cylsetsrc(), rsetsrc();
33	>	extern int  nopart(), flatpart(), cylpart();
34		extern double  fgetplaneq(), rgetplaneq();
35		extern double  fgetmaxdisk(), rgetmaxdisk();
36	<	static SOBJECT  fsobj = {fsetsrc, fgetplaneq, fgetmaxdisk};
37	<	static SOBJECT  ssobj = {ssetsrc};
38	<	static SOBJECT  sphsobj = {sphsetsrc};
39	<	static SOBJECT  rsobj = {rsetsrc, rgetplaneq, rgetmaxdisk};
36	>	static SOBJECT  fsobj = {fsetsrc, flatpart, fgetplaneq, fgetmaxdisk};
37	>	static SOBJECT  ssobj = {ssetsrc, nopart};
38	>	static SOBJECT  sphsobj = {sphsetsrc, nopart};
39	>	static SOBJECT  cylsobj = {cylsetsrc, cylpart};
40	>	static SOBJECT  rsobj = {rsetsrc, flatpart, rgetplaneq, rgetmaxdisk};
41
42		sfun[MAT_MIRROR].mf = &mirror_vs;
43		sfun[MAT_DIRECT1].mf = &direct1_vs;
#	Line 42 | Line 45 | initstypes()                   /* initialize source dispatch table */
45		sfun[OBJ_FACE].of = &fsobj;
46		sfun[OBJ_SOURCE].of = &ssobj;
47		sfun[OBJ_SPHERE].of = &sphsobj;
48	+	sfun[OBJ_CYLINDER].of = &cylsobj;
49		sfun[OBJ_RING].of = &rsobj;
50		}
51
#	Line 49 | Line 53 | initstypes()                   /* initialize source dispatch table */
53		int
54		newsource()                     /* allocate new source in our array */
55		{
52	–	#define SRCINC  4
56		if (nsources == 0)
57		source = (SRCREC *)malloc(SRCINC*sizeof(SRCREC));
58		else if (nsources%SRCINC == 0)
#	Line 61 | Line 64 | newsource()                    /* allocate new source in our array */
64		source[nsources].nhits = 1;
65		source[nsources].ntests = 2;    /* initial hit probability = 1/2 */
66		return(nsources++);
64	–	#undef SRCINC
67		}
68
69
70	+	setflatss(src)                          /* set sampling for a flat source */
71	+	register SRCREC  *src;
72	+	{
73	+	double  mult;
74	+	register int  i;
75	+
76	+	src->ss[SV][0] = src->ss[SV][1] = src->ss[SV][2] = 0.0;
77	+	for (i = 0; i < 3; i++)
78	+	if (src->snorm[i] < 0.6 && src->snorm[i] > -0.6)
79	+	break;
80	+	src->ss[SV][i] = 1.0;
81	+	fcross(src->ss[SU], src->ss[SV], src->snorm);
82	+	mult = .5 * sqrt( src->ss2 / DOT(src->ss[SU],src->ss[SU]) );
83	+	for (i = 0; i < 3; i++)
84	+	src->ss[SU][i] *= mult;
85	+	fcross(src->ss[SV], src->snorm, src->ss[SU]);
86	+	}
87	+
88	+
89		fsetsrc(src, so)                        /* set a face as a source */
90		register SRCREC  *src;
91		OBJREC  *so;
92		{
93		register FACE  *f;
94		register int  i, j;
95	+	double  d;
96
97		src->sa.success = 2*AIMREQT-1;          /* bitch on second failure */
98		src->so = so;
#	Line 87 | Line 109 | OBJREC  *so;
109		objerror(so, USER, "cannot hit center");
110		src->sflags |= SFLAT;
111		VCOPY(src->snorm, f->norm);
90	–	src->ss = sqrt(f->area / PI);
112		src->ss2 = f->area;
113	+	/* find maximum radius */
114	+	src->srad = 0.;
115	+	for (i = 0; i < f->nv; i++) {
116	+	d = dist2(VERTEX(f,i), src->sloc);
117	+	if (d > src->srad)
118	+	src->srad = d;
119	+	}
120	+	src->srad = sqrt(src->srad);
121	+	/* compute size vectors */
122	+	if (f->nv == 4 || (f->nv == 5 &&        /* parallelogram case */
123	+	dist2(VERTEX(f,0),VERTEX(f,4)) <= FTINY*FTINY))
124	+	for (j = 0; j < 3; j++) {
125	+	src->ss[SU][j] = .5*(VERTEX(f,1)[j]-VERTEX(f,0)[j]);
126	+	src->ss[SV][j] = .5*(VERTEX(f,3)[j]-VERTEX(f,0)[j]);
127	+	}
128	+	else
129	+	setflatss(src);
130		}
131
132
#	Line 109 | Line 147 | register OBJREC  *so;
147		theta = PI/180.0/2.0 * so->oargs.farg[3];
148		if (theta <= FTINY)
149		objerror(so, USER, "zero size");
112	–	src->ss = theta >= PI/4.0 ? 1.0 : tan(theta);
150		src->ss2 = 2.0*PI * (1.0 - cos(theta));
151	+	/* the following is approximate */
152	+	src->srad = sqrt(src->ss2/PI);
153	+	VCOPY(src->snorm, src->sloc);
154	+	setflatss(src);                 /* hey, whatever works */
155	+	src->ss[SW][0] = src->ss[SW][1] = src->ss[SW][2] = 0.0;
156		}
157
158
#	Line 118 | Line 160 | sphsetsrc(src, so)                     /* set a sphere as a source */
160		register SRCREC  *src;
161		register OBJREC  *so;
162		{
163	+	register int  i;
164	+
165		src->sa.success = 2*AIMREQT-1;          /* bitch on second failure */
166		src->so = so;
167		if (so->oargs.nfargs != 4)
#	Line 125 | Line 169 | register OBJREC  *so;
169		if (so->oargs.farg[3] <= FTINY)
170		objerror(so, USER, "illegal radius");
171		VCOPY(src->sloc, so->oargs.farg);
172	<	src->ss = so->oargs.farg[3];
173	<	src->ss2 = PI * src->ss * src->ss;
172	>	src->srad = so->oargs.farg[3];
173	>	src->ss2 = PI * src->srad * src->srad;
174	>	for (i = 0; i < 3; i++)
175	>	src->ss[SU][i] = src->ss[SV][i] = src->ss[SW][i] = 0.0;
176	>	for (i = 0; i < 3; i++)
177	>	src->ss[i][i] = .7236 * so->oargs.farg[3];
178		}
179
180
#	Line 145 | Line 193 | OBJREC  *so;
193		objerror(so, USER, "cannot hit center");
194		src->sflags |= SFLAT;
195		VCOPY(src->snorm, co->ad);
196	<	src->ss = CO_R1(co);
197	<	src->ss2 = PI * src->ss * src->ss;
196	>	src->srad = CO_R1(co);
197	>	src->ss2 = PI * src->srad * src->srad;
198	>	setflatss(src);
199	>	}
200	>
201	>
202	>	cylsetsrc(src, so)                      /* set a cylinder as a source */
203	>	register SRCREC  *src;
204	>	OBJREC  *so;
205	>	{
206	>	register CONE  *co;
207	>	register int  i;
208	>
209	>	src->sa.success = 4*AIMREQT-1;          /* bitch on fourth failure */
210	>	src->so = so;
211	>	/* get the cylinder */
212	>	co = getcone(so, 0);
213	>	if (CO_R0(co) > .2*co->al)              /* heuristic constraint */
214	>	objerror(so, WARNING, "source aspect too small");
215	>	src->sflags |= SCYL;
216	>	for (i = 0; i < 3; i++)
217	>	src->sloc[i] = .5 * (CO_P1(co)[i] + CO_P0(co)[i]);
218	>	src->srad = .5*co->al;
219	>	src->ss2 = 2.*CO_R0(co)*co->al;
220	>	/* set sampling vectors */
221	>	for (i = 0; i < 3; i++)
222	>	src->ss[SU][i] = .5 * co->al * co->ad[i];
223	>	src->ss[SV][0] = src->ss[SV][1] = src->ss[SV][2] = 0.0;
224	>	for (i = 0; i < 3; i++)
225	>	if (co->ad[i] < 0.6 && co->ad[i] > -0.6)
226	>	break;
227	>	src->ss[SV][i] = 1.0;
228	>	fcross(src->ss[SW], src->ss[SV], co->ad);
229	>	normalize(src->ss[SW]);
230	>	for (i = 0; i < 3; i++)
231	>	src->ss[SW][i] *= .8559 * CO_R0(co);
232	>	fcross(src->ss[SV], src->ss[SW], co->ad);
233		}
234
235

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)