| 57 |
|
return(Bldmin); |
| 58 |
|
if (b >= bwmax-FTINY) |
| 59 |
|
return(Bldmax); |
| 60 |
< |
return(Bldmin + cf(Bl(Lw))*(Bldmax-Bldmin)); |
| 60 |
> |
return(Bldmin + cf(b)*(Bldmax-Bldmin)); |
| 61 |
|
} |
| 62 |
|
|
| 63 |
|
|
| 207 |
|
mult = (Lb(b) - ldmin)/(ldmax - ldmin) / (Lw*inpexp); |
| 208 |
|
if (lumf == rgblum) mult *= WHTEFFICACY; |
| 209 |
|
scalecolor(scan[i], mult); |
| 210 |
+ |
} |
| 211 |
+ |
} |
| 212 |
+ |
|
| 213 |
+ |
|
| 214 |
+ |
putmapping(fp) /* put out mapping function */ |
| 215 |
+ |
FILE *fp; |
| 216 |
+ |
{ |
| 217 |
+ |
double b, s; |
| 218 |
+ |
register int i; |
| 219 |
+ |
double wlum, sf; |
| 220 |
+ |
|
| 221 |
+ |
sf = scalef*inpexp; |
| 222 |
+ |
if (lumf == cielum) sf *= WHTEFFICACY; |
| 223 |
+ |
s = (bwmax - bwmin)/HISTRES; |
| 224 |
+ |
for (i = 0, b = bwmin + .5*s; i < HISTRES; i++, b += s) { |
| 225 |
+ |
wlum = Lb(b); |
| 226 |
+ |
if (what2do&DO_LINEAR) |
| 227 |
+ |
fprintf(fp, "%e %e\n", wlum, sf*wlum); |
| 228 |
+ |
else |
| 229 |
+ |
fprintf(fp, "%e %e\n", wlum, Lb(BLw(wlum))); |
| 230 |
|
} |
| 231 |
|
} |
| 232 |
|
|
