| 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; |
| 821 |
|
} |
| 822 |
|
(*dev->comin)(buf, NULL); |
| 823 |
|
sprintf(buf, "value (%.5g %.5g %.5g) (%.3gL)", |
| 824 |
< |
colval(thisray.rcol,RED), |
| 825 |
< |
colval(thisray.rcol,GRN), |
| 826 |
< |
colval(thisray.rcol,BLU), |
| 827 |
< |
luminance(thisray.rcol)); |
| 824 |
> |
scolval(thisray.rcol,RED), |
| 825 |
> |
scolval(thisray.rcol,GRN), |
| 826 |
> |
scolval(thisray.rcol,BLU), |
| 827 |
> |
sluminance(thisray.rcol)); |
| 828 |
|
(*dev->comout)(buf); |
| 829 |
|
} |
| 830 |
|
(*dev->comin)(buf, NULL); |
| 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); |