| 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; |
| 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); |
