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 |