427 |
|
e *= atof(cp); |
428 |
|
} |
429 |
|
if (p != NULL) { /* relative setting */ |
430 |
+ |
compavg(p); |
431 |
|
if (bright(p->v) < 1e-15) { |
432 |
|
error(COMMAND, "cannot normalize to zero"); |
433 |
|
return; |
445 |
|
} |
446 |
|
|
447 |
|
typedef union {int i; double d; COLOR C;} *MyUptr; |
448 |
+ |
#define FEQ(x,y) (fabs((x)-(y)) <= FTINY) |
449 |
|
|
450 |
|
int |
451 |
|
getparam( /* get variable from user */ |
470 |
|
if (sscanf(buf, "%d", &i0) != 1) |
471 |
|
return(0); |
472 |
|
} |
473 |
+ |
if (ptr->i == i0) |
474 |
+ |
return(0); |
475 |
|
ptr->i = i0; |
476 |
|
break; |
477 |
|
case 'r': /* real */ |
483 |
|
if (sscanf(buf, "%lf", &d0) != 1) |
484 |
|
return(0); |
485 |
|
} |
486 |
+ |
if (FEQ(ptr->d, d0)) |
487 |
+ |
return(0); |
488 |
|
ptr->d = d0; |
489 |
|
break; |
490 |
|
case 'b': /* boolean */ |
493 |
|
sprintf(buf, "? (%c): ", ptr->i ? 'y' : 'n'); |
494 |
|
(*dev->comout)(buf); |
495 |
|
(*dev->comin)(buf, NULL); |
496 |
< |
if (buf[0] == '\0' || |
491 |
< |
strchr("yY+1tTnN-0fF", buf[0]) == NULL) |
496 |
> |
if (buf[0] == '\0') |
497 |
|
return(0); |
498 |
|
} |
499 |
< |
ptr->i = strchr("yY+1tT", buf[0]) != NULL; |
499 |
> |
if (strchr("yY+1tTnN-0fF", buf[0]) == NULL) |
500 |
> |
return(0); |
501 |
> |
i0 = strchr("yY+1tT", buf[0]) != NULL; |
502 |
> |
if (ptr->i == i0) |
503 |
> |
return(0); |
504 |
> |
ptr->i = i0; |
505 |
|
break; |
506 |
|
case 'C': /* color */ |
507 |
|
if (sscanf(str, "%lf %lf %lf", &d0, &d1, &d2) != 3) { |
515 |
|
if (sscanf(buf, "%lf %lf %lf", &d0, &d1, &d2) != 3) |
516 |
|
return(0); |
517 |
|
} |
518 |
+ |
if (FEQ(colval(ptr->C,RED), d0) && |
519 |
+ |
FEQ(colval(ptr->C,GRN), d1) && |
520 |
+ |
FEQ(colval(ptr->C,BLU), d2)) |
521 |
+ |
return(0); |
522 |
|
setcolor(ptr->C, d0, d1, d2); |
523 |
|
break; |
524 |
|
default: |