| 53 |
|
|
| 54 |
|
static RAY thisray; /* for our convenience */ |
| 55 |
|
|
| 56 |
< |
typedef void putf_t(double v); |
| 56 |
> |
typedef void putf_t(RREAL *v, int n); |
| 57 |
|
static putf_t puta, putd, putf; |
| 58 |
|
|
| 59 |
|
typedef void oputf_t(RAY *r); |
| 494 |
|
RAY *r |
| 495 |
|
) |
| 496 |
|
{ |
| 497 |
< |
(*putreal)(r->rorg[0]); |
| 498 |
< |
(*putreal)(r->rorg[1]); |
| 499 |
< |
(*putreal)(r->rorg[2]); |
| 497 |
> |
(*putreal)(r->rorg, 3); |
| 498 |
|
} |
| 499 |
|
|
| 500 |
|
|
| 503 |
|
RAY *r |
| 504 |
|
) |
| 505 |
|
{ |
| 506 |
< |
(*putreal)(r->rdir[0]); |
| 509 |
< |
(*putreal)(r->rdir[1]); |
| 510 |
< |
(*putreal)(r->rdir[2]); |
| 506 |
> |
(*putreal)(r->rdir, 3); |
| 507 |
|
} |
| 508 |
|
|
| 509 |
|
|
| 512 |
|
RAY *r |
| 513 |
|
) |
| 514 |
|
{ |
| 515 |
+ |
RREAL cval[3]; |
| 516 |
+ |
|
| 517 |
|
if (outform == 'c') { |
| 518 |
|
COLR cout; |
| 519 |
|
setcolr(cout, colval(r->rcol,RED), |
| 520 |
|
colval(r->rcol,GRN), |
| 521 |
|
colval(r->rcol,BLU)); |
| 522 |
< |
fwrite((char *)cout, sizeof(cout), 1, stdout); |
| 522 |
> |
fwrite(cout, sizeof(cout), 1, stdout); |
| 523 |
|
return; |
| 524 |
|
} |
| 525 |
< |
(*putreal)(colval(r->rcol,RED)); |
| 526 |
< |
(*putreal)(colval(r->rcol,GRN)); |
| 527 |
< |
(*putreal)(colval(r->rcol,BLU)); |
| 525 |
> |
cval[0] = colval(r->rcol,RED); |
| 526 |
> |
cval[1] = colval(r->rcol,GRN); |
| 527 |
> |
cval[2] = colval(r->rcol,BLU); |
| 528 |
> |
(*putreal)(cval, 3); |
| 529 |
|
} |
| 530 |
|
|
| 531 |
|
|
| 534 |
|
RAY *r |
| 535 |
|
) |
| 536 |
|
{ |
| 537 |
< |
double contr[3]; |
| 537 |
> |
RREAL contr[3]; |
| 538 |
|
|
| 539 |
|
raycontrib(contr, r, PRIMARY); |
| 540 |
|
multcolor(contr, r->rcol); |
| 541 |
< |
(*putreal)(contr[RED]); |
| 543 |
< |
(*putreal)(contr[GRN]); |
| 544 |
< |
(*putreal)(contr[BLU]); |
| 541 |
> |
(*putreal)(contr, 3); |
| 542 |
|
} |
| 543 |
|
|
| 544 |
|
|
| 547 |
|
RAY *r |
| 548 |
|
) |
| 549 |
|
{ |
| 550 |
< |
(*putreal)(r->rt); |
| 550 |
> |
(*putreal)(&r->rt, 1); |
| 551 |
|
} |
| 552 |
|
|
| 553 |
|
|
| 556 |
|
RAY *r |
| 557 |
|
) |
| 558 |
|
{ |
| 559 |
< |
(*putreal)(r->rot); |
| 559 |
> |
(*putreal)(&r->rot, 1); |
| 560 |
|
} |
| 561 |
|
|
| 562 |
|
|
| 565 |
|
RAY *r |
| 566 |
|
) |
| 567 |
|
{ |
| 568 |
< |
(*putreal)(r->uv[0]); |
| 572 |
< |
(*putreal)(r->uv[1]); |
| 568 |
> |
(*putreal)(r->uv, 2); |
| 569 |
|
} |
| 570 |
|
|
| 571 |
|
|
| 572 |
+ |
static RREAL vdummy[3] = {0.0, 0.0, 0.0}; |
| 573 |
+ |
|
| 574 |
+ |
|
| 575 |
|
static void |
| 576 |
|
oputp( /* print point */ |
| 577 |
|
RAY *r |
| 578 |
|
) |
| 579 |
|
{ |
| 580 |
< |
if (r->rot < FHUGE) { |
| 581 |
< |
(*putreal)(r->rop[0]); |
| 582 |
< |
(*putreal)(r->rop[1]); |
| 583 |
< |
(*putreal)(r->rop[2]); |
| 585 |
< |
} else { |
| 586 |
< |
(*putreal)(0.0); |
| 587 |
< |
(*putreal)(0.0); |
| 588 |
< |
(*putreal)(0.0); |
| 589 |
< |
} |
| 580 |
> |
if (r->rot < FHUGE) |
| 581 |
> |
(*putreal)(r->rop, 3); |
| 582 |
> |
else |
| 583 |
> |
(*putreal)(vdummy, 3); |
| 584 |
|
} |
| 585 |
|
|
| 586 |
|
|
| 589 |
|
RAY *r |
| 590 |
|
) |
| 591 |
|
{ |
| 592 |
< |
if (r->rot < FHUGE) { |
| 593 |
< |
(*putreal)(r->ron[0]); |
| 594 |
< |
(*putreal)(r->ron[1]); |
| 595 |
< |
(*putreal)(r->ron[2]); |
| 602 |
< |
} else { |
| 603 |
< |
(*putreal)(0.0); |
| 604 |
< |
(*putreal)(0.0); |
| 605 |
< |
(*putreal)(0.0); |
| 606 |
< |
} |
| 592 |
> |
if (r->rot < FHUGE) |
| 593 |
> |
(*putreal)(r->ron, 3); |
| 594 |
> |
else |
| 595 |
> |
(*putreal)(vdummy, 3); |
| 596 |
|
} |
| 597 |
|
|
| 598 |
|
|
| 604 |
|
FVECT pnorm; |
| 605 |
|
|
| 606 |
|
if (r->rot >= FHUGE) { |
| 607 |
< |
(*putreal)(0.0); |
| 619 |
< |
(*putreal)(0.0); |
| 620 |
< |
(*putreal)(0.0); |
| 607 |
> |
(*putreal)(vdummy, 3); |
| 608 |
|
return; |
| 609 |
|
} |
| 610 |
|
raynormal(pnorm, r); |
| 611 |
< |
(*putreal)(pnorm[0]); |
| 625 |
< |
(*putreal)(pnorm[1]); |
| 626 |
< |
(*putreal)(pnorm[2]); |
| 611 |
> |
(*putreal)(pnorm, 3); |
| 612 |
|
} |
| 613 |
|
|
| 614 |
|
|
| 630 |
|
RAY *r |
| 631 |
|
) |
| 632 |
|
{ |
| 633 |
< |
(*putreal)(r->rweight); |
| 633 |
> |
RREAL rwt = r->rweight; |
| 634 |
> |
|
| 635 |
> |
(*putreal)(&rwt, 1); |
| 636 |
|
} |
| 637 |
|
|
| 638 |
|
|
| 641 |
|
RAY *r |
| 642 |
|
) |
| 643 |
|
{ |
| 644 |
< |
double contr[3]; |
| 644 |
> |
RREAL contr[3]; |
| 645 |
|
|
| 646 |
|
raycontrib(contr, r, PRIMARY); |
| 647 |
< |
(*putreal)(contr[RED]); |
| 661 |
< |
(*putreal)(contr[GRN]); |
| 662 |
< |
(*putreal)(contr[BLU]); |
| 647 |
> |
(*putreal)(contr, 3); |
| 648 |
|
} |
| 649 |
|
|
| 650 |
|
|
| 692 |
|
|
| 693 |
|
|
| 694 |
|
static void |
| 695 |
< |
puta( /* print ascii value */ |
| 696 |
< |
double v |
| 695 |
> |
puta( /* print ascii value(s) */ |
| 696 |
> |
RREAL *v, int n |
| 697 |
|
) |
| 698 |
|
{ |
| 699 |
< |
printf("%e\t", v); |
| 699 |
> |
if (n == 3) { |
| 700 |
> |
printf("%e\t%e\t%e\t", v[0], v[1], v[2]); |
| 701 |
> |
return; |
| 702 |
> |
} |
| 703 |
> |
while (n--) |
| 704 |
> |
printf("%e\t", *v++); |
| 705 |
|
} |
| 706 |
|
|
| 707 |
|
|
| 708 |
|
static void |
| 709 |
< |
putd(v) /* print binary double */ |
| 720 |
< |
double v; |
| 709 |
> |
putd(RREAL *v, int n) /* print binary double(s) */ |
| 710 |
|
{ |
| 711 |
< |
fwrite((char *)&v, sizeof(v), 1, stdout); |
| 711 |
> |
if (sizeof(RREAL) != sizeof(double)) |
| 712 |
> |
error(INTERNAL, "code error in putd()"); |
| 713 |
> |
fwrite(v, sizeof(RREAL), n, stdout); |
| 714 |
|
} |
| 715 |
|
|
| 716 |
|
|
| 717 |
|
static void |
| 718 |
< |
putf(v) /* print binary float */ |
| 728 |
< |
double v; |
| 718 |
> |
putf(RREAL *v, int n) /* print binary float(s) */ |
| 719 |
|
{ |
| 720 |
< |
float f = v; |
| 720 |
> |
float fa[3]; |
| 721 |
> |
int i; |
| 722 |
|
|
| 723 |
< |
fwrite((char *)&f, sizeof(f), 1, stdout); |
| 723 |
> |
if (n > 3) |
| 724 |
> |
error(INTERNAL, "code error in putf()"); |
| 725 |
> |
for (i = n; i--; ) |
| 726 |
> |
fa[i] = v[i]; |
| 727 |
> |
fwrite(fa, sizeof(float), n, stdout); |
| 728 |
|
} |