#!/usr/bin/csh
# Call with "mpeg_expand mpegfile.mpg N"

# Base name
set base = $1:r

# Factor (number!!)
@ factor = $2

@ beg = 0
@ res = 1


@ step = `/usr/bin/ulimit -n` - 10



while ($res) 
  mpeg_play -start $beg -dither ppm $base.mpg
  @ res = $status
  @ beg = $beg + 50
end

@ factorf = $factor - 1
set pattern = I

while ( $factorf )
  set pattern = ${pattern}P
  @ factorf = $factorf - 1
end

echo OUTPUT ${base}_exp$factor.mpg >encode
echo PATTERN $pattern >>encode

cat <<STOP >>encode
BASE_FILE_FORMAT        PPM
INPUT_CONVERT *
GOP_SIZE        10
SLICES_PER_FRAME        1
PIXEL           HALF
RANGE           32
PSEARCH_ALG     LOGARITHMIC
BSEARCH_ALG     CROSS2
IQSCALE         7
PQSCALE         7
BQSCALE         7
REFERENCE_FRAME DECODED
FORCE_ENCODE_LAST_FRAME
INPUT_DIR       .
INPUT
STOP

cat encode
echo "..."

foreach c ( ${base}_?????.ppm ) 
  repeat $factor echo $c >>encode
end

echo END_INPUT >>encode
echo END_INPUT

mpeg_encode encode

rm *.ppm
rm encode