| 4 |
|
set Ldmax=100 # maximum display luminance |
| 5 |
|
set nsteps=100 # number of steps in perceptual histogram |
| 6 |
|
set cvratio=0.08 # fraction of pixels to ignore in envelope clipping |
| 7 |
< |
set td=/usr/tmp |
| 7 |
> |
set td=/tmp |
| 8 |
|
set tf1=$td/hist$$ |
| 9 |
|
set tf1b=$td/hist$$.new |
| 10 |
|
set tf2=$td/cumt$$ |
| 12 |
|
set tf4=$td/cf$$.cal |
| 13 |
|
set tf=($tf1 $tf1b $tf2 $tf3 $tf4) |
| 14 |
|
if ( $#argv != 1 ) then |
| 15 |
< |
echo "Usage: $0 input.pic > output.pic" |
| 15 |
> |
echo "Usage: $0 input.hdr > output.hdr" |
| 16 |
|
exit 1 |
| 17 |
|
endif |
| 18 |
|
set ifile=$1 |
| 57 |
|
set tst=1 |
| 58 |
|
while ( $totcount > 0 ) |
| 59 |
|
sed 's/^.*[ ]//' $tf1 | total -1 -r \ |
| 60 |
< |
| rcalc -e '$1=$1/'$totcount | lam $tf1 - \ |
| 60 |
> |
| rcalc -e '$1=$1/'$totcount | rlam $tf1 - \ |
| 61 |
|
| tabfunc -i 0 cf > $tf4 |
| 62 |
|
if ( $tst <= 0 ) break |
| 63 |
|
rcalc -f $tf4 -f $tf3 -e "T:$totcount*Stepsiz" \ |
