28 |
|
#include "ambient.h" |
29 |
|
#include "source.h" |
30 |
|
#include "otypes.h" |
31 |
+ |
#include "otspecial.h" |
32 |
|
#include "resolu.h" |
33 |
|
#include "random.h" |
34 |
|
|
59 |
|
|
60 |
|
typedef void oputf_t(RAY *r); |
61 |
|
static oputf_t oputo, oputd, oputv, oputV, oputl, oputL, oputc, oputp, |
62 |
< |
oputn, oputN, oputs, oputw, oputW, oputm, oputM, oputtilde; |
62 |
> |
oputr, oputR, oputx, oputX, oputn, oputN, oputs, |
63 |
> |
oputw, oputW, oputm, oputM, oputtilde; |
64 |
|
|
65 |
|
static void setoutput(char *vs); |
66 |
|
extern void tranotify(OBJECT obj); |
73 |
|
static void tabin(RAY *r); |
74 |
|
static void ourtrace(RAY *r); |
75 |
|
|
76 |
< |
static oputf_t *ray_out[16], *every_out[16]; |
76 |
> |
static oputf_t *ray_out[32], *every_out[32]; |
77 |
|
static putf_t *putreal; |
78 |
|
|
79 |
|
|
118 |
|
unsigned long vcount = (hresolu > 1) ? (unsigned long)hresolu*vresolu |
119 |
|
: (unsigned long)vresolu; |
120 |
|
long nextflush = (vresolu > 0) & (hresolu > 1) ? 0 : hresolu; |
121 |
+ |
int bogusflushed = 0; |
122 |
|
FILE *fp; |
123 |
|
double d; |
124 |
|
FVECT orig, direc; |
155 |
|
if (hresolu > 0) { |
156 |
|
if (vresolu > 0) |
157 |
|
fprtresolu(hresolu, vresolu, stdout); |
158 |
< |
fflush(stdout); |
158 |
> |
else |
159 |
> |
fflush(stdout); |
160 |
|
} |
161 |
|
/* process file */ |
162 |
|
while (getvec(orig, inform, fp) == 0 && |
164 |
|
|
165 |
|
d = normalize(direc); |
166 |
|
if (d == 0.0) { /* zero ==> flush */ |
167 |
< |
if (--nextflush <= 0 || !vcount) { |
168 |
< |
if (nproc > 1 && ray_fifo_flush() < 0) |
167 |
> |
if ((--nextflush <= 0) | !vcount && !bogusflushed) { |
168 |
> |
if (ray_pnprocs > 1 && ray_fifo_flush() < 0) |
169 |
|
error(USER, "child(ren) died"); |
170 |
|
bogusray(); |
171 |
|
fflush(stdout); |
172 |
+ |
bogusflushed = 1; |
173 |
|
nextflush = (vresolu > 0) & (hresolu > 1) ? 0 : |
174 |
|
hresolu; |
175 |
|
} else |
178 |
|
rtcompute(orig, direc, lim_dist ? d : 0.0); |
179 |
|
/* flush if time */ |
180 |
|
if (!--nextflush) { |
181 |
< |
if (nproc > 1 && ray_fifo_flush() < 0) |
181 |
> |
if (ray_pnprocs > 1 && ray_fifo_flush() < 0) |
182 |
|
error(USER, "child(ren) died"); |
183 |
|
fflush(stdout); |
184 |
|
nextflush = hresolu; |
185 |
< |
} |
185 |
> |
} else |
186 |
> |
bogusflushed = 0; |
187 |
|
} |
188 |
|
if (ferror(stdout)) |
189 |
|
error(SYSTEM, "write error"); |
190 |
|
if (vcount && !--vcount) /* check for end */ |
191 |
|
break; |
192 |
|
} |
193 |
< |
if (nproc > 1) { /* clean up children */ |
193 |
> |
if (ray_pnprocs > 1) { /* clean up children */ |
194 |
|
if (ray_fifo_flush() < 0) |
195 |
|
error(USER, "unable to complete processing"); |
196 |
|
ray_pclose(0); |
241 |
|
case 'd': /* direction */ |
242 |
|
*table++ = oputd; |
243 |
|
break; |
244 |
+ |
case 'r': /* reflected contrib. */ |
245 |
+ |
*table++ = oputr; |
246 |
+ |
castonly = 0; |
247 |
+ |
break; |
248 |
+ |
case 'R': /* reflected distance */ |
249 |
+ |
*table++ = oputR; |
250 |
+ |
castonly = 0; |
251 |
+ |
break; |
252 |
+ |
case 'x': /* xmit contrib. */ |
253 |
+ |
*table++ = oputx; |
254 |
+ |
castonly = 0; |
255 |
+ |
break; |
256 |
+ |
case 'X': /* xmit distance */ |
257 |
+ |
*table++ = oputX; |
258 |
+ |
castonly = 0; |
259 |
+ |
break; |
260 |
|
case 'v': /* value */ |
261 |
|
*table++ = oputv; |
262 |
|
castonly = 0; |
263 |
|
break; |
264 |
|
case 'V': /* contribution */ |
265 |
|
*table++ = oputV; |
266 |
+ |
castonly = 0; |
267 |
|
if (ambounce > 0 && (ambacc > FTINY || ambssamp > 0)) |
268 |
|
error(WARNING, |
269 |
|
"-otV accuracy depends on -aa 0 -as 0"); |
296 |
|
break; |
297 |
|
case 'W': /* coefficient */ |
298 |
|
*table++ = oputW; |
299 |
+ |
castonly = 0; |
300 |
|
if (ambounce > 0 && (ambacc > FTINY || ambssamp > 0)) |
301 |
|
error(WARNING, |
302 |
|
"-otW accuracy depends on -aa 0 -as 0"); |
318 |
|
static void |
319 |
|
bogusray(void) /* print out empty record */ |
320 |
|
{ |
297 |
– |
thisray.rorg[0] = thisray.rorg[1] = thisray.rorg[2] = |
298 |
– |
thisray.rdir[0] = thisray.rdir[1] = thisray.rdir[2] = 0.0; |
299 |
– |
thisray.rmax = 0.0; |
321 |
|
rayorigin(&thisray, PRIMARY, NULL, NULL); |
322 |
|
printvals(&thisray); |
323 |
|
} |
344 |
|
) |
345 |
|
{ |
346 |
|
void (*old_revf)(RAY *) = r->revf; |
347 |
< |
|
348 |
< |
r->rot = 1e-5; /* pretend we hit surface */ |
347 |
> |
/* pretend we hit surface */ |
348 |
> |
r->rxt = r->rot = 1e-5; |
349 |
|
VSUM(r->rop, r->rorg, r->rdir, r->rot); |
350 |
|
r->ron[0] = -r->rdir[0]; |
351 |
|
r->ron[1] = -r->rdir[1]; |
529 |
|
|
530 |
|
|
531 |
|
static void |
532 |
+ |
oputr( /* print mirrored contribution */ |
533 |
+ |
RAY *r |
534 |
+ |
) |
535 |
+ |
{ |
536 |
+ |
RREAL cval[3]; |
537 |
+ |
|
538 |
+ |
cval[0] = colval(r->mcol,RED); |
539 |
+ |
cval[1] = colval(r->mcol,GRN); |
540 |
+ |
cval[2] = colval(r->mcol,BLU); |
541 |
+ |
(*putreal)(cval, 3); |
542 |
+ |
} |
543 |
+ |
|
544 |
+ |
|
545 |
+ |
|
546 |
+ |
static void |
547 |
+ |
oputR( /* print mirrored distance */ |
548 |
+ |
RAY *r |
549 |
+ |
) |
550 |
+ |
{ |
551 |
+ |
(*putreal)(&r->rmt, 1); |
552 |
+ |
} |
553 |
+ |
|
554 |
+ |
|
555 |
+ |
static void |
556 |
+ |
oputx( /* print unmirrored contribution */ |
557 |
+ |
RAY *r |
558 |
+ |
) |
559 |
+ |
{ |
560 |
+ |
RREAL cval[3]; |
561 |
+ |
|
562 |
+ |
cval[0] = colval(r->rcol,RED) - colval(r->mcol,RED); |
563 |
+ |
cval[1] = colval(r->rcol,GRN) - colval(r->mcol,GRN); |
564 |
+ |
cval[2] = colval(r->rcol,BLU) - colval(r->mcol,BLU); |
565 |
+ |
(*putreal)(cval, 3); |
566 |
+ |
} |
567 |
+ |
|
568 |
+ |
|
569 |
+ |
static void |
570 |
+ |
oputX( /* print unmirrored distance */ |
571 |
+ |
RAY *r |
572 |
+ |
) |
573 |
+ |
{ |
574 |
+ |
(*putreal)(&r->rxt, 1); |
575 |
+ |
} |
576 |
+ |
|
577 |
+ |
|
578 |
+ |
static void |
579 |
|
oputv( /* print value */ |
580 |
|
RAY *r |
581 |
|
) |
615 |
|
RAY *r |
616 |
|
) |
617 |
|
{ |
618 |
< |
(*putreal)(&r->rt, 1); |
618 |
> |
RREAL d = raydistance(r); |
619 |
> |
|
620 |
> |
(*putreal)(&d, 1); |
621 |
|
} |
622 |
|
|
623 |
|
|