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$$ |
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" \ |