483 |
|
} |
484 |
|
|
485 |
|
typedef union {int i; double d; COLOR C;} *MyUptr; |
486 |
– |
#define FEQ(x,y) (fabs((x)-(y)) <= FTINY) |
486 |
|
|
487 |
|
int |
488 |
|
getparam( /* get variable from user */ |
520 |
|
if (sscanf(buf, "%lf", &d0) != 1) |
521 |
|
return(0); |
522 |
|
} |
523 |
< |
if (FEQ(ptr->d, d0)) |
523 |
> |
if (FABSEQ(ptr->d, d0)) |
524 |
|
return(0); |
525 |
|
ptr->d = d0; |
526 |
|
break; |
552 |
|
if (sscanf(buf, "%lf %lf %lf", &d0, &d1, &d2) != 3) |
553 |
|
return(0); |
554 |
|
} |
555 |
< |
if (FEQ(colval(ptr->C,RED), d0) && |
556 |
< |
FEQ(colval(ptr->C,GRN), d1) && |
557 |
< |
FEQ(colval(ptr->C,BLU), d2)) |
555 |
> |
if (FABSEQ(colval(ptr->C,RED), d0) && |
556 |
> |
FABSEQ(colval(ptr->C,GRN), d1) && |
557 |
> |
FABSEQ(colval(ptr->C,BLU), d2)) |
558 |
|
return(0); |
559 |
|
setcolor(ptr->C, d0, d1, d2); |
560 |
|
break; |
792 |
|
matspec[0] = '\0'; |
793 |
|
if (thisray.ro->omod != OVOID) { |
794 |
|
mod = objptr(thisray.ro->omod); |
795 |
< |
mat = findmaterial(mod); |
795 |
> |
mat = findmaterial(thisray.ro); |
796 |
|
} |
797 |
|
if (thisray.rod < 0.0) |
798 |
|
strcpy(matspec, "back of "); |
811 |
|
ofun[ino->otype].funame, ino->oname); |
812 |
|
(*dev->comout)(buf); |
813 |
|
(*dev->comin)(buf, NULL); |
814 |
< |
if (thisray.rot >= FHUGE) |
814 |
> |
if (thisray.rot >= FHUGE*.99) |
815 |
|
(*dev->comout)("at infinity"); |
816 |
|
else { |
817 |
|
sprintf(buf, "at (%.6g %.6g %.6g) (%.6g)", |
870 |
|
fputexpos(exposure, fp); |
871 |
|
if (dev->pixaspect != 1.0) |
872 |
|
fputaspect(dev->pixaspect, fp); |
873 |
+ |
fputprims(stdprims, fp); |
874 |
|
fputformat(COLRFMT, fp); |
875 |
|
putc('\n', fp); |
876 |
|
fprtresolu(hresolu, vresolu, fp); |