| 1 |
#!/bin/csh -f |
| 2 |
# RCSid $Id$ |
| 3 |
# |
| 4 |
# Apply Gaussian blur without resizing image |
| 5 |
# More efficient than straight pfilt for large blurs |
| 6 |
# |
| 7 |
if ( $#argv != 3 ) then |
| 8 |
goto userr |
| 9 |
endif |
| 10 |
if ( "$1" != "-r" ) then |
| 11 |
goto userr |
| 12 |
endif |
| 13 |
if ( "$2" !~ [1-9]* ) then |
| 14 |
goto userr |
| 15 |
endif |
| 16 |
set rad = $2 |
| 17 |
set inp = "$3" |
| 18 |
set reduc = `ev "floor($rad/1.8)"` |
| 19 |
if ( $reduc <= 1 ) then |
| 20 |
exec pfilt -1 -r $rad $inp:q |
| 21 |
endif |
| 22 |
set filt = `ev "$rad/$reduc"` |
| 23 |
set pr=`getinfo -d < $inp:q | sed 's/^-Y \([1-9][0-9]*\) +X \([1-9][0-9]*\)$/\2 \1/'` |
| 24 |
pfilt -1 -x /$reduc -y /$reduc $inp:q \ |
| 25 |
| pfilt -1 -r $filt -x $pr[1] -y $pr[2] |
| 26 |
exit 0 |
| 27 |
userr: |
| 28 |
echo Usage: "$0 -r radius input.pic" |
| 29 |
exit 1 |
