378 |
|
register int i; |
379 |
|
|
380 |
|
/* check for within display range */ |
381 |
< |
if (!(what2do&DO_LINEAR) && Lb(bwmax)/Lb(bwmin) <= ldmax/ldmin) |
381 |
> |
l = Lb(bwmax)/Lb(bwmin); |
382 |
> |
if (l <= ldmax/ldmin) |
383 |
|
what2do |= DO_LINEAR; |
384 |
+ |
/* determine if veiling significant */ |
385 |
+ |
if (l < 100.) /* heuristic */ |
386 |
+ |
what2do &= ~DO_VEIL; |
387 |
|
|
388 |
< |
if (!(what2do & (DO_ACUITY|DO_COLOR|DO_VEIL))) |
388 |
> |
if (!(what2do & (DO_ACUITY|DO_COLOR))) |
389 |
|
return; |
390 |
|
/* find 5th percentile */ |
391 |
|
sum = histot*0.05 + .5; |
394 |
|
break; |
395 |
|
b = (i+.5)*(bwmax-bwmin)/HISTRES + bwmin; |
396 |
|
l = Lb(b); |
393 |
– |
#if 0 |
397 |
|
/* determine if acuity adj. useful */ |
398 |
|
if (what2do&DO_ACUITY && |
399 |
|
hacuity(l) >= (inpres.xr/sqrt(ourview.hn2) + |
400 |
|
inpres.yr/sqrt(ourview.vn2))/(2.*180./PI*2.)) |
401 |
|
what2do &= ~DO_ACUITY; |
399 |
– |
#endif |
402 |
|
/* color sensitivity loss? */ |
403 |
|
if (l >= 6.0) |
404 |
|
what2do &= ~DO_COLOR; |
403 |
– |
if (!(what2do&DO_VEIL)) |
404 |
– |
return; |
405 |
– |
/* find 50th percentile (median) */ |
406 |
– |
sum = histot*0.50 + .5; |
407 |
– |
for (i = 0; i < HISTRES; i++) |
408 |
– |
if ((sum -= bwhist[i]) <= 0) |
409 |
– |
break; |
410 |
– |
/* determine if veiling significant */ |
411 |
– |
b = (i+.5)*(bwmax-bwmin)/HISTRES + bwmin; |
412 |
– |
if ((b-bwmin)/(bwmax-bwmin) >= 0.70) /* heuristic */ |
413 |
– |
what2do &= ~DO_VEIL; |
405 |
|
} |