#######################################################################################################################################
# #
# G E N E R A T I O N D E L ' E V O L U T I O N D U J E U D E L A V I E B I D I M E N S I O N N E L : #
# #
# #
# Author of '$xiirk/.JVIE.51.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20120218085007). #
# #
#######################################################################################################################################
$Z setParam _____Listes `GetParam $xci/jeu_vie.11$X listes`
$Z # Parametre introduit le 20120301135056... #
$Z setParam _____ListesMortes__ `GetParam $xci/jeu_vie.11$X listes_cellules_mortes`
$Z # Parametre introduit le 20120301135056... #
$Z setParam _____ListesVivantes `GetParam $xci/jeu_vie.11$X listes_cellules_vivantes`
$Z # Parametre introduit le 20120301135056... #
$Z setParam _____Iterations `GetParam $xci/jeu_vie.11$X iterations`
$Z # Parametre introduit le 20120227121656... #
$Z setParam _____PeriodiserX VRAI
$Z # Parametre introduit le 20120229131640... #
$Z setParam _____PeriodiserY VRAI
$Z # Parametre introduit le 20120229131640... #
$c #define N0 cDerniere
$c #define N cPremiere
$c
$c int main()
$c {
$c int n;
$c
$c if (N0 > N)
$c /* Test introduit le 20120220180548 afin de pouvoir inverser l'ordre... */
$c {
$c /* Cas de l'ordre decroissant des numeros d'images... */
$c for (n=N0 ; n>N ; n--)
$c {
$c if (n > N)
$c {
$c printf("$xci/jeu_vie.11$X
$c A=$_____ImageT1.%04d
$c listes=$_____Listes
$c listes_cellules_mortes=$_____ListesMortes__
$c listes_cellules_vivantes=$_____ListesVivantes
$c iterations=$_____Iterations
$c periodiser_X=$_____PeriodiserX
$c periodiser_Y=$_____PeriodiserY
$c R=$_____ImageT1.%04d
$c $formatI\n"
$c ,n,n-1
$c );
$c }
$c else
$c {
$c }
$c }
$c }
$c else
$c {
$c /* Cas de l'ordre croissant des numeros d'images... */
$c for (n=N0 ; n<N ; n++)
$c {
$c if (n < N)
$c {
$c printf("$xci/jeu_vie.11$X
$c A=$_____ImageT1.%04d
$c listes=$_____Listes
$c listes_cellules_mortes=$_____ListesMortes__
$c listes_cellules_vivantes=$_____ListesVivantes
$c periodiser_X=$_____PeriodiserX
$c periodiser_Y=$_____PeriodiserY
$c iterations=$_____Iterations
$c R=$_____ImageT1.%04d
$c $formatI\n"
$c ,n,n+1
$c );
$c }
$c else
$c {
$c }
$c }
$c }
$c }
$Z IFS ($cDerniere < $cPremiere) then
$Z # Le 20120301171029 le 'if(...)' a ete remplace par un 'IFS(...)' afin de garantir le bon #
$Z # fonctionnement de ce qui suit (par exemple 'v $xiirk/.JVIE.61.2.$U cPremiere')... #
$Z SET scPremiere=$cPremiere
$Z SET scDerniere=$cDerniere
$Z
$Z SET cPremiere=$scDerniere
$Z SET cDerniere=$scPremiere
$Z # Cette permutation fut introduite le 20120220180548... #
$Z
$Z unset scPremiere
$Z unset scDerniere
$Z else
$Z endif