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