#! /bin/csh -f
# Last edited on 2000-05-03 02:09:52 by stolfi

set usage = "$0 DIRECTORY..."

# Replaces "p-raw.ppm[.Z]" in each DIRECTORY by "p-raw.jpg"
# with maximum quality.

set basedir = `pwd`
foreach dir ( $* )
  echo "${dir}"
  cd ${dir}
  foreach f ( p-raw p )
    if ( -r ${f}.ppm.Z ) then
      echo "uncompressing ${f}.ppm.Z"
      uncompress ${f}.ppm.Z
    endif
    if ( -r ${f}.ppm ) then
      echo "converting ${f}.ppm -> ${f}.jpg"
      cjpeg -quality 100 -dct float ${f}.ppm > ${f}.jpg
      echo "unconverting"
      djpeg -dct float ${f}.jpg > ${f}-check.ppm
      echo "comparing"
      pnmxarith -subtract -scale 20 -offset 127 ${f}.ppm ${f}-check.ppm > ${f}-diff.ppm
      xv ${f}-diff.ppm ${f}-check.ppm ${f}.jpg ${f}.ppm
      /bin/rm ${f}-diff.ppm ${f}-check.ppm 
      /bin/rm -i ${f}.ppm
    endif
  end
  cd ${basedir}
end