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 |
|
|
164 |
|
if (d == 0.0) { /* zero ==> flush */ |
165 |
|
if (--nextflush <= 0 || !vcount) { |
166 |
|
if (nproc > 1 && ray_fifo_flush() < 0) |
167 |
< |
error(USER, "lost children"); |
167 |
> |
error(USER, "child(ren) died"); |
168 |
|
bogusray(); |
169 |
|
fflush(stdout); |
170 |
|
nextflush = (vresolu > 0) & (hresolu > 1) ? 0 : |
176 |
|
/* flush if time */ |
177 |
|
if (!--nextflush) { |
178 |
|
if (nproc > 1 && ray_fifo_flush() < 0) |
179 |
< |
error(USER, "lost children"); |
179 |
> |
error(USER, "child(ren) died"); |
180 |
|
fflush(stdout); |
181 |
|
nextflush = hresolu; |
182 |
|
} |
237 |
|
case 'd': /* direction */ |
238 |
|
*table++ = oputd; |
239 |
|
break; |
240 |
+ |
case 'r': /* reflected contrib. */ |
241 |
+ |
*table++ = oputr; |
242 |
+ |
castonly = 0; |
243 |
+ |
break; |
244 |
+ |
case 'R': /* reflected distance */ |
245 |
+ |
*table++ = oputR; |
246 |
+ |
castonly = 0; |
247 |
+ |
break; |
248 |
+ |
case 'x': /* xmit contrib. */ |
249 |
+ |
*table++ = oputx; |
250 |
+ |
castonly = 0; |
251 |
+ |
break; |
252 |
+ |
case 'X': /* xmit distance */ |
253 |
+ |
*table++ = oputX; |
254 |
+ |
castonly = 0; |
255 |
+ |
break; |
256 |
|
case 'v': /* value */ |
257 |
|
*table++ = oputv; |
258 |
|
castonly = 0; |
259 |
|
break; |
260 |
|
case 'V': /* contribution */ |
261 |
|
*table++ = oputV; |
262 |
+ |
castonly = 0; |
263 |
|
if (ambounce > 0 && (ambacc > FTINY || ambssamp > 0)) |
264 |
|
error(WARNING, |
265 |
|
"-otV accuracy depends on -aa 0 -as 0"); |
292 |
|
break; |
293 |
|
case 'W': /* coefficient */ |
294 |
|
*table++ = oputW; |
295 |
+ |
castonly = 0; |
296 |
|
if (ambounce > 0 && (ambacc > FTINY || ambssamp > 0)) |
297 |
|
error(WARNING, |
298 |
|
"-otW accuracy depends on -aa 0 -as 0"); |
430 |
|
} |
431 |
|
break; |
432 |
|
case 'f': /* binary float */ |
433 |
< |
if (fread((char *)vf, sizeof(float), 3, fp) != 3) |
433 |
> |
if (getbinary(vf, sizeof(float), 3, fp) != 3) |
434 |
|
return(-1); |
435 |
|
VCOPY(vec, vf); |
436 |
|
break; |
437 |
|
case 'd': /* binary double */ |
438 |
< |
if (fread((char *)vd, sizeof(double), 3, fp) != 3) |
438 |
> |
if (getbinary(vd, sizeof(double), 3, fp) != 3) |
439 |
|
return(-1); |
440 |
|
VCOPY(vec, vd); |
441 |
|
break; |
528 |
|
|
529 |
|
|
530 |
|
static void |
531 |
+ |
oputr( /* print mirrored contribution */ |
532 |
+ |
RAY *r |
533 |
+ |
) |
534 |
+ |
{ |
535 |
+ |
RREAL cval[3]; |
536 |
+ |
|
537 |
+ |
cval[0] = colval(r->mcol,RED); |
538 |
+ |
cval[1] = colval(r->mcol,GRN); |
539 |
+ |
cval[2] = colval(r->mcol,BLU); |
540 |
+ |
(*putreal)(cval, 3); |
541 |
+ |
} |
542 |
+ |
|
543 |
+ |
|
544 |
+ |
|
545 |
+ |
static void |
546 |
+ |
oputR( /* print mirrored distance */ |
547 |
+ |
RAY *r |
548 |
+ |
) |
549 |
+ |
{ |
550 |
+ |
(*putreal)(&r->rmt, 1); |
551 |
+ |
} |
552 |
+ |
|
553 |
+ |
|
554 |
+ |
static void |
555 |
+ |
oputx( /* print unmirrored contribution */ |
556 |
+ |
RAY *r |
557 |
+ |
) |
558 |
+ |
{ |
559 |
+ |
RREAL cval[3]; |
560 |
+ |
|
561 |
+ |
cval[0] = colval(r->rcol,RED) - colval(r->mcol,RED); |
562 |
+ |
cval[1] = colval(r->rcol,GRN) - colval(r->mcol,GRN); |
563 |
+ |
cval[2] = colval(r->rcol,BLU) - colval(r->mcol,BLU); |
564 |
+ |
(*putreal)(cval, 3); |
565 |
+ |
} |
566 |
+ |
|
567 |
+ |
|
568 |
+ |
static void |
569 |
+ |
oputX( /* print unmirrored distance */ |
570 |
+ |
RAY *r |
571 |
+ |
) |
572 |
+ |
{ |
573 |
+ |
(*putreal)(&r->rxt, 1); |
574 |
+ |
} |
575 |
+ |
|
576 |
+ |
|
577 |
+ |
static void |
578 |
|
oputv( /* print value */ |
579 |
|
RAY *r |
580 |
|
) |
586 |
|
setcolr(cout, colval(r->rcol,RED), |
587 |
|
colval(r->rcol,GRN), |
588 |
|
colval(r->rcol,BLU)); |
589 |
< |
fwrite(cout, sizeof(cout), 1, stdout); |
589 |
> |
putbinary(cout, sizeof(cout), 1, stdout); |
590 |
|
return; |
591 |
|
} |
592 |
|
cval[0] = colval(r->rcol,RED); |
614 |
|
RAY *r |
615 |
|
) |
616 |
|
{ |
617 |
< |
(*putreal)(&r->rt, 1); |
617 |
> |
RREAL d = raydistance(r); |
618 |
> |
|
619 |
> |
(*putreal)(&d, 1); |
620 |
|
} |
621 |
|
|
622 |
|
|
781 |
|
static void |
782 |
|
putd(RREAL *v, int n) /* print binary double(s) */ |
783 |
|
{ |
784 |
< |
if (sizeof(RREAL) != sizeof(double)) |
784 |
> |
#ifdef SMLFLT |
785 |
> |
double da[3]; |
786 |
> |
int i; |
787 |
> |
|
788 |
> |
if (n > 3) |
789 |
|
error(INTERNAL, "code error in putd()"); |
790 |
< |
fwrite(v, sizeof(RREAL), n, stdout); |
790 |
> |
for (i = n; i--; ) |
791 |
> |
da[i] = v[i]; |
792 |
> |
putbinary(da, sizeof(double), n, stdout); |
793 |
> |
#else |
794 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
795 |
> |
#endif |
796 |
|
} |
797 |
|
|
798 |
|
|
799 |
|
static void |
800 |
|
putf(RREAL *v, int n) /* print binary float(s) */ |
801 |
|
{ |
802 |
+ |
#ifndef SMLFLT |
803 |
|
float fa[3]; |
804 |
|
int i; |
805 |
|
|
807 |
|
error(INTERNAL, "code error in putf()"); |
808 |
|
for (i = n; i--; ) |
809 |
|
fa[i] = v[i]; |
810 |
< |
fwrite(fa, sizeof(float), n, stdout); |
810 |
> |
putbinary(fa, sizeof(float), n, stdout); |
811 |
> |
#else |
812 |
> |
putbinary(v, sizeof(RREAL), n, stdout); |
813 |
> |
#endif |
814 |
|
} |