1 #!/bin/csh -f

     2 # RCSid $Id: pgblur.csh,v 1.2 2008/11/10 19:08:19 greg Exp $

     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.hdr"

    29 exit 1