#! /bin/csh -f
# Last edited on 1999-03-14 17:12:19 by stolfi

set txd = ${STOLFIHOME}/staff/stolfi/PUB/images/textures/pgm-256x256

set tdir = "../../test-images/"

set goodparms = ( \
    tent_03 \
    tent_06 \
    tent_12 \
    gauss_03_-eps_0.005 \
    gauss_06_-eps_0.010 \
    gauss_12_-eps_0.020 \
    gauss_18_-eps_0.030 \
    power_2.0_-eps_0.005 \
  )
  
set badparms = ( \
    flat_03 \
    flat_06 \
    power_1.5_-eps_0.019 \
    flat_12 \
    power_1.0_-eps_0.070 \
    flat_18 \
  )

foreach f ( $* ) 
  if ( ! ( -e ${tdir}/${f}.pgm ) ) then
    cp -p $txd/${f}.pgm ${tdir}/
  endif
  chmod a-w ${tdir}/${f}.pgm
  foreach k ( ${goodparms} )
    set args = ( `echo "$k" | tr '_' ' '` )
    set tag = "`echo $k | sed -e 's/-eps_0./e/' | tr '_' '-'`"
    echo " "
    echo "in = ${f}.pgm args = ${args} out = ${f}-${tag}.pgm"
    cat ${tdir}/${f}.pgm \
      | nice PGMRankFilter -weight ${args} -printWeights \
      > ${f}-${tag}.pgm
    xv ${f}-${tag}.pgm ${f}.pgm &
  end
end