| 1 |
greg |
1.1 |
#!/bin/csh -f
|
| 2 |
greg |
1.3 |
# RCSid $Id: pbilat.csh,v 1.2 2008/08/25 04:50:32 greg Exp $
|
| 3 |
greg |
1.1 |
#
|
| 4 |
|
|
# Bilateral Filter (fixed parameters for now)
|
| 5 |
|
|
#
|
| 6 |
|
|
set bfrac=0.02
|
| 7 |
|
|
set sigma=0.4
|
| 8 |
|
|
set vmin=1e-7
|
| 9 |
|
|
if ( $#argv != 1 ) then
|
| 10 |
|
|
goto userr
|
| 11 |
|
|
endif
|
| 12 |
|
|
set inp="$1"
|
| 13 |
|
|
set rad=`getinfo -d < $inp:q | rcalc -i '-Y ${yr} +X ${xr}' -e '$1=sqrt(xr*yr)*'$bfrac`
|
| 14 |
|
|
set extrem=`pextrem -o $inp:q | rcalc -e "vmin:$vmin" -e 'max(a,b):if(a-b,a,b);$1=max($3*.265+$4*.670+$5*.065,vmin)'`
|
| 15 |
|
|
set nseg=`ev "ceil(log10($extrem[2]/$extrem[1])/$sigma)"`
|
| 16 |
|
|
if ( $nseg > 20 ) set nseg=20
|
| 17 |
|
|
onintr done
|
| 18 |
greg |
1.2 |
set tdir=`mktemp -d /tmp/blf.XXXXXX`
|
| 19 |
greg |
1.1 |
set gfunc="sq(x):x*x;gfunc(x):if(sq(x)-sq($sigma),0,sq(1-sq(x/$sigma)))"
|
| 20 |
|
|
set i=0
|
| 21 |
|
|
set imglist=()
|
| 22 |
|
|
while ( $i <= $nseg )
|
| 23 |
|
|
set intens=`ev "$extrem[1]*($extrem[2]/$extrem[1])^($i/$nseg)"`
|
| 24 |
|
|
pcomb -e $gfunc:q -e "vmin:$vmin" \
|
| 25 |
|
|
-e 'max(a,b):if(a-b,a,b);l1=max(li(1),vmin)' \
|
| 26 |
|
|
-e "lo=gfunc(log10(l1)-log10($intens))" \
|
| 27 |
greg |
1.3 |
-o $inp > $tdir/gimg.hdr
|
| 28 |
greg |
1.1 |
pcomb -e 'sf=gi(2);ro=sf*ri(1);go=sf*gi(1);bo=sf*bi(1)' \
|
| 29 |
greg |
1.3 |
-o $inp $tdir/gimg.hdr > $tdir/g_p.hdr
|
| 30 |
|
|
pgblur -r $rad $tdir/g_p.hdr \
|
| 31 |
greg |
1.1 |
| pcomb -e 'sf=if(gi(2)-1e-6,1/gi(2),1e6)' \
|
| 32 |
|
|
-e 'ro=sf*ri(1);go=sf*gi(1);bo=sf*bi(1)' \
|
| 33 |
greg |
1.3 |
- "\!pgblur -r $rad $tdir/gimg.hdr" \
|
| 34 |
|
|
> $tdir/gimg$i.hdr
|
| 35 |
|
|
set imglist=($imglist $tdir/gimg$i.hdr)
|
| 36 |
greg |
1.1 |
@ i++
|
| 37 |
|
|
end
|
| 38 |
|
|
cat > $tdir/interp.cal << _EOF_
|
| 39 |
|
|
{ Segmented intensity image interpolation }
|
| 40 |
|
|
max(a,b) : if(a-b, a, b);
|
| 41 |
|
|
NSEG : $nseg;
|
| 42 |
|
|
l1 = max(li(1), $vmin);
|
| 43 |
|
|
val = NSEG / log($extrem[2]/$extrem[1]) * (log(l1) - log($extrem[1]));
|
| 44 |
|
|
iv = floor(val);
|
| 45 |
|
|
ival = if(iv - (NSEG-1), NSEG-1, max(iv, 0));
|
| 46 |
|
|
xval = val - ival;
|
| 47 |
|
|
ro = (1-xval)*ri(ival+2) + xval*ri(ival+3);
|
| 48 |
|
|
go = (1-xval)*gi(ival+2) + xval*gi(ival+3);
|
| 49 |
|
|
bo = (1-xval)*bi(ival+2) + xval*bi(ival+3);
|
| 50 |
|
|
_EOF_
|
| 51 |
|
|
pcomb -h -f $tdir/interp.cal -o $inp:q $imglist
|
| 52 |
|
|
done:
|
| 53 |
|
|
rm -rf $tdir
|
| 54 |
|
|
exit 0
|
| 55 |
|
|
userr:
|
| 56 |
greg |
1.3 |
echo Usage: $0 input.hdr
|
