#!/bin/tcsh
# mkparameterfiles: make parameter files for ppmtompeg
# Jason Harrison, November 13, 2001


foreach i (*000.jpg)
  echo "sequence= " $i
  set base = `echo $i | sed "s/000\.jpg//"`
  echo $base
  set first = 000

  # adjust for variable frame counts
  foreach j ($base*.jpg)
    # nop
  end
    echo "counted"
  set last = `echo $j | sed s/$base// | sed "s/\.jpg//"`
  # echo $last

  echo "#written by mkparameterfiles" > $base.pf
  echo "PATTERN IBBPBBPBBPBBPBBP" >> $base.pf
  echo "OUTPUT" $base.mpg >> $base.pf
  echo "BASE_FILE_FORMAT JPG" >> $base.pf
  echo "INPUT_CONVERT *" >> $base.pf
  echo "GOP_SIZE 16" >> $base.pf
  echo "SLICES_PER_FRAME 1" >> $base.pf
  echo "INPUT_DIR ." >> $base.pf
  echo "INPUT" >> $base.pf
  # adjust for variable frame counts
  echo $base"*".jpg "["$first-$last"]" >> $base.pf
  echo "END_INPUT" >> $base.pf
  echo "PIXEL HALF" >> $base.pf
  echo "RANGE 10" >> $base.pf
  echo "PSEARCH_ALG LOGARITHMIC" >> $base.pf
  echo "BSEARCH_ALG CROSS2" >> $base.pf
  echo "IQSCALE 8" >> $base.pf
  echo "PQSCALE 10" >> $base.pf
  echo "BQSCALE 25" >> $base.pf
  echo "REFERENCE_FRAME DECODED" >> $base.pf
  echo "FORCE_ENCODE_LAST_FRAME" >> $base.pf
  echo "ASPECT_RATIO 1" >> $base.pf
  echo "FRAME_RATE 24" >> $base.pf

# use multiple workstations to perform encoding
#  echo "PARALLEL" >> $base.pf
#  echo "dab harrison ppmtompeg" >> $base.pf
#  echo "ritter harrison ppmtompeg" >> $base.pf
#  echo "END_PARALLEL" >> $base.pf

ppmtompeg $base.pf

end



# to play back:
# plaympeg *.mpg

# foreach i (*.mpg)
#   plaympeg $i
# end