| 15 |
|
set nseg=`ev "ceil(log10($extrem[2]/$extrem[1])/$sigma)"` |
| 16 |
|
if ( $nseg > 20 ) set nseg=20 |
| 17 |
|
onintr done |
| 18 |
< |
set tdir=/tmp/blf$$ |
| 19 |
< |
mkdir $tdir |
| 18 |
> |
set tdir=`mktemp -d /tmp/blf.XXXXXX` |
| 19 |
|
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=() |
| 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 |
< |
-o $inp > $tdir/gimg.pic |
| 27 |
> |
-o $inp > $tdir/gimg.hdr |
| 28 |
|
pcomb -e 'sf=gi(2);ro=sf*ri(1);go=sf*gi(1);bo=sf*bi(1)' \ |
| 29 |
< |
-o $inp $tdir/gimg.pic > $tdir/g_p.pic |
| 30 |
< |
pgblur -r $rad $tdir/g_p.pic \ |
| 29 |
> |
-o $inp $tdir/gimg.hdr > $tdir/g_p.hdr |
| 30 |
> |
pgblur -r $rad $tdir/g_p.hdr \ |
| 31 |
|
| 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 |
< |
- "\!pgblur -r $rad $tdir/gimg.pic" \ |
| 34 |
< |
> $tdir/gimg$i.pic |
| 35 |
< |
set imglist=($imglist $tdir/gimg$i.pic) |
| 33 |
> |
- "\!pgblur -r $rad $tdir/gimg.hdr" \ |
| 34 |
> |
> $tdir/gimg$i.hdr |
| 35 |
> |
set imglist=($imglist $tdir/gimg$i.hdr) |
| 36 |
|
@ i++ |
| 37 |
|
end |
| 38 |
|
cat > $tdir/interp.cal << _EOF_ |
| 53 |
|
rm -rf $tdir |
| 54 |
|
exit 0 |
| 55 |
|
userr: |
| 56 |
< |
echo Usage: $0 input.pic |
| 56 |
> |
echo Usage: $0 input.hdr |
