#!/bin/csh
##
## Valeur des constantes du script
##
##
## Fin des constantes
##

##
## La syntaxe de la commande:
##

if ($# == 0 | "$1" == "-h" | "$1" == "-help") then
    echo ""
    echo "     usage: $0 numero_premier numero_dernier prefixe nom_film"
    echo ""
    echo "numero_premier : numero du premier fichier ppm"
    echo "numero_dernier : numero du dernier fichier ppm"
    echo ""
    echo "Le format du nom des fichiers ppm est: prefixenumero.ppm"
    echo ""
    echo "Pour finir un mpeg nommer nom_film.mpg sera cree."
    echo ""    
    ##
else
    ##
    ## on traite l'argv 
    ##

    set debut = $1
    set fin   = $2
    set prefixe = $3
    set nom_film = $4

    ##
    ## on cree le fichier de donne de ppmtompeg et on fait le mpeg
    ##
    ##
    ## D'abord l'epilogue du fichier param
    ##
    rm -f film_fin.param
    echo "##### PAS TOUCHER EN BAS #####" > film_fin.param
    echo "GOP_SIZE        15" >> film_fin.param
    echo "SLICES_PER_FRAME        1" >> film_fin.param
    
    echo "BASE_FILE_FORMAT        PPM" >> film_fin.param
    echo "YUV_SIZE        352x240" >> film_fin.param
    
    echo "INPUT_CONVERT   *" >> film_fin.param
    
    echo "INPUT_DIR       ./" >> film_fin.param
    
    echo "PATTERN         IBBPBBPBBPBBPBBPBBPBBP" >> film_fin.param
    
    echo "# quality parameters" >> film_fin.param
    
    echo "IQSCALE         8" >> film_fin.param
    echo "PQSCALE         10" >> film_fin.param
    echo "BQSCALE         25" >> film_fin.param
    
    echo "# motion vector search parameters" >> film_fin.param
    
    echo "PIXEL           HALF" >> film_fin.param
    
    echo "RANGE           10 4" >> film_fin.param
    
    echo "# LOGARITHMIC, TWOLEVEL, SUBSAMPLE, EXHAUSTIVE" >> film_fin.param
    echo "PSEARCH_ALG      LOGARITHMIC" >> film_fin.param
    
    echo "# CROSS2, SIMPLE" >> film_fin.param
    echo "BSEARCH_ALG     CROSS2" >> film_fin.param
    
    echo "# DECODED or ORIGINAL" >> film_fin.param
    echo "REFERENCE_FRAME ORIGINAL" >> film_fin.param

    echo "INPUT" > film.$prefixe.param
    echo "$prefixe*.ppm [$debut-$fin]" >> film.$prefixe.param
    echo "END_INPUT" >> film.$prefixe.param
    echo "OUTPUT ./$nom_film.mpg" >> film.$prefixe.param
    cat film_fin.param >> film.$prefixe.param
##
## on execute 
##
    ppmtompeg film.$prefixe.param

##
## diagnostik a la sortie:
##
    if (-e ./$nom_film.mpg) then
        echo ""
        echo "Film cree sur $nom_film.mpg"
    else
        echo "ECHEC LORS DE LA CREATION DE $nom_film.mpg"
    endif


##
## on detruit les images ppm
##
    echo -n "Conserver les ppm, film_fin.param et film.$prefixe.param ? (o/n) "
    set PROCEED = $<
    if ($PROCEED == "n") then
      echo "Destruction des fichiers: film.$prefixe.param film_fin.param $prefixe*.ppm"
      rm -f film.$prefixe.param film_fin.param $prefixe*.ppm
    endif
endif