1 |
|
#!/bin/csh -f |
2 |
< |
# SCCSid "$SunId$ LBL" |
2 |
> |
# RCSid: $Id$ |
3 |
|
set Lmin=.0001 # minimum visible world luminance |
4 |
|
set Ldmin=1 # minimum display luminance |
5 |
|
set Ldmax=100 # maximum display luminance |
100 |
|
while ( 1 ) |
101 |
|
# Compute mapping function |
102 |
|
sed 's/^.*[ ]//' $tf1 | total -1 -r \ |
103 |
< |
| rcalc -e '$1=$1/'$totcount | lam $tf1 - \ |
103 |
> |
| rcalc -e '$1=$1/'$totcount | rlam $tf1 - \ |
104 |
|
| tabfunc -i 0 cf > $tf4 |
105 |
|
# Compute difference with visible envelope |
106 |
|
rcalc -f $tf4 -f $tf3 -e "T:$totcount*Stepsiz" \ |
149 |
|
endif |
150 |
|
end |
151 |
|
# Mung histogram |
152 |
< |
echo $diffs | tr ' ' '\012' | lam $tf1 - \ |
152 |
> |
echo $diffs | tr ' ' '\012' | rlam $tf1 - \ |
153 |
|
| rcalc -f $tf4 -f $tf3 -e "T:$totcount*Stepsiz" \ |
154 |
|
-e 'clfq=floor(T*clamp(Lb($1))+.5)' \ |
155 |
|
-e '$1=$1;$2=$3+clfq' > $tf1b |