#!/usr/bin/perl 

# ~/bin/fairefilm 

# makes a movie from *.tiff files

format USAGE =
usage: fairefilm

ARGUMENTS:
   - STDIN: 
   - STDOUT: 
.

if( @ARGV != 0 ) {
    $~ = USAGE; write; exit;
}

$Trace = 0;

@tryfile = readpipe( "ls -1 tmp*.tiff" );
printf "Creation des %d images ppm\n" , 0 + @tryfile;
foreach $tryfile ( @tryfile) {
    # an image
    if( $tryfile =~ /^(tmp.*)\.tiff$/ ) {
	printf ".";
	system("convert $1.tiff $1.ppm");
    }
}
printf "\n";

printf "Pour produire le fichier mpeg faire :\n";
printf "mpeg2encode /home/jacquemi/cours/IG/TD/films/PPMtoMPEG.par out.mpeg\n";