#! /bin/csh -f
# Last edited on 1999-03-20 11:35:22 by stolfi

set usage = "$0 NAME RADIUS"
unset notify

if ( $#argv != 2 ) then
  echo "usage: ${usage}"; exit 1
endif

set name = "$1"; shift
set rad = "$1"; shift

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

set pre = `gawk -v rad=${rad} 'BEGIN{ printf "%6.4f",1/rad;}'`
set pos = `gawk -v rad=${rad} 'BEGIN{ printf "%6.4f",rad;}'`
set tag = `gawk -v rad=${rad} 'BEGIN{ printf "%03d",int(10*rad+0.5);}'`

if ( "${pos}" == "1.0000" ) then
  nice PGMLineDetect ${tdir}/${name}.pgm \
    | pnmhisteq \
    > ${name}-${tag}-f.pgm
else
  cat ${tdir}/${name}.pgm \
    | pnmscale ${pre} \
    | pnmdepth 255 \
    | nice PGMLineDetect - \
    | pnmscale ${pos} \
    | pnmhisteq \
    | pnmdepth 255 \
    > ${name}-${tag}-f.pgm
endif

xv ${name}-${tag}-f.pgm ${tdir}/${name}.pgm  &