#!/usr/bin/perl

use strict ;
use warnings ;

## Ne pas dépasser 2^31-1=2147483647, pour chaque valeur,
## voir la doc de ramdom.tex
my $seed1 = int rand(2**31) ;
my $seed2 = int rand(2**31) ;
my $seed3 = int rand(2**31) ;

open( RANDOM_DICES, '>random_dices.tex' ) or die "Cannot create file random_dices.tex" ;
print RANDOM_DICES qq#\\ThreeDies[randomi1=${seed1},randomi2=${seed2},randomi3=${seed3}]\n# ;
close( RANDOM_DICES ) or die "Cannot write file random_dices.tex" ;

system( 'latex dices.tex > dices.latex_out 2> dices.latex_err' ) ;
system( 'dvips dices.dvi > dices.dvips_out 2> dices.dvips_err' ) ;
system( '/usr/bin/convert -density 60 -trim -transparent "#FFFFFF"  dices.ps dices.png > dices.convert_out 2> dices.convert_err' ) ;

exit ;