| # | Line 20 | Line 20 | 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/'` |
| 23 | > | set pr=`getinfo -d < $inp:q` |
| 24 | pfilt -1 -x /$reduc -y /$reduc $inp:q \ | |
| 25 | < | | pfilt -1 -r $filt -x $pr[1] -y $pr[2] |
| 25 | > | | pfilt -1 -r $filt -x $pr[4] -y $pr[2] |
| 26 | exit 0 | |
| 27 | userr: | |
| 28 | echo Usage: "$0 -r radius input.hdr" | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |