/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        J E U   D E   L A   V I E   S T A N D A R D   T R I D I M E N S I O N N E L  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/jeu_vie.12$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20120223132504).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE
#include  image_image_DI_ALBUM_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xci/sequence.01.I"
                                        /* ATTENTION, on definit ainsi le symbole 'DERNIERE_IMAGE' qui ne sert a rien ici, puisque   */
                                        /* c'est en effet 'Zmax' qui joue ce role...                                                 */

#define   NOMBRE_DE_GENERATIONS                                                                                                         \
                    CENT                                                                                                                \
                                        /* Nombre de generations.                                                                    */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CHOIX_ALBUM_D_IMAGES(album_d_images1,album_d_images2)                                                                         \
                    COND(IL_NE_FAUT_PAS(permuter_les_deux_albums),album_d_images1,album_d_images2)                                      \
                                        /* Ceci fut introduit le 20120308161820 afin de supprimer le 'Amove(...)' assez penalisant   */ \
                                        /* en terme de performance...                                                                */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        J E U   D E   L A   V I E   S T A N D A R D   T R I D I M E N S I O N N E L  :                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
                                        /* Definition des albums Argument et Resultat.                                               */
     DEFV(CHAR,INIC(POINTERc(nom_postfixe),NOM_UNDEF_VIDE));
                                        /* Nom d'un eventuel postfixe a placer derriere <nom_imageA><numero> (par exemple '$ROUGE'). */
     DEFV(Int,INIT(premiere_image,PREMIERE_IMAGE));
                                        /* Numero de la premiere image,                                                              */
     DEFV(Int,INIT(pas_des_images,PAS_DES_IMAGES));
                                        /* Pas de passage d'un numero d'image a une autre.                                           */
     DEFV(Int,INIT(nombre_de_chiffres,NOMBRE_DE_CHIFFRES));
                                        /* Nombre de chiffres codant le numero des images de la serie...                             */

     DEFV(Int,INIT(nombre_de_generations,NOMBRE_DE_GENERATIONS));
                                        /* Nombre de generations.                                                                    */
                                        /*                                                                                           */
                                        /* On notera que grace a 'CHOIX_ALBUM_D_IMAGES(...)' l'album Resultat est identique a        */
                                        /* l'album Argument lorsque le nombre de generations est negatif ou nul...                   */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_C("postfixe=",nom_postfixe);
                         GET_ARGUMENT_I("premiere=",premiere_image);
                         GET_ARGUMENTS2_I("pas=",pas_des_images,pasZ);

                         GET_ARGUMENT_I("nombre_generations=""generations=""ng=""iterations=""iter=",nombre_de_generations);

                         GET_ARGUMENT_P("mort=",Ajeu_de_la_vie_____niveau_de_mort);
                         GET_ARGUMENT_P("vie=",Ajeu_de_la_vie_____niveau_de_vie);
                         GET_ARGUMENT_L("periodiser_X=""periodX=",Ajeu_de_la_vie_____periodiser_X);
                         GET_ARGUMENT_L("periodiser_Y=""periodY=",Ajeu_de_la_vie_____periodiser_Y);
                         GET_ARGUMENT_L("periodiser_Z=""periodZ=",Ajeu_de_la_vie_____periodiser_Z);
                         GET_ARGUMENT_L("symetriser_X=""symetrX=",Ajeu_de_la_vie_____symetriser_X);
                         GET_ARGUMENT_L("symetriser_Y=""symetrY=",Ajeu_de_la_vie_____symetriser_Y);
                         GET_ARGUMENT_L("symetriser_Z=""symetrZ=",Ajeu_de_la_vie_____symetriser_Z);
                         GET_ARGUMENT_L("prolonger_X=""prolX=",Ajeu_de_la_vie_____prolonger_X);
                         GET_ARGUMENT_L("prolonger_Y=""prolY=",Ajeu_de_la_vie_____prolonger_Y);
                         GET_ARGUMENT_L("prolonger_Z=""prolZ=",Ajeu_de_la_vie_____prolonger_Z);
                         GET_ARGUMENT_P("niveau_hors_album=""niveau=",Ajeu_de_la_vie_____niveau_hors_album);

                         GET_ARGUMENT_I("NpasX=""NpX=",Ajeu_de_la_vie_____NpasX);
                         GET_ARGUMENT_I("NpasY=""NpY=",Ajeu_de_la_vie_____NpasY);
                         GET_ARGUMENT_I("NpasZ=""NpZ=",Ajeu_de_la_vie_____NpasZ);
                                        /* Parametres introduits le 20120305151051...                                                */

                         GET_ARGUMENT_I("solitude=""sol=""s=",Ajeu_de_la_vie_____seuil_de_solitude);
                         GET_ARGUMENT_I("naissance_inferieur=""ni=",Ajeu_de_la_vie_____seuil_inferieur_de_naissance);
                         GET_ARGUMENT_I("naissance_superieur=""ns=",Ajeu_de_la_vie_____seuil_superieur_de_naissance);
                         GET_ARGUMENT_I("etouffement=""etouf=""e=",Ajeu_de_la_vie_____seuil_d_etouffement);

                         GET_ARGUMENT_L("listes=",Ajeu_de_la_vie_____definir_les_seuils_a_l_aide_de_listes);
                         GET_ARGUMENT_C("listes_cellules_mortes=""lcm=",Ajeu_de_la_vie_____liste_pour_les_cellules_mortes__);
                         GET_ARGUMENT_C("listes_cellules_vivantes=""lcv=",Ajeu_de_la_vie_____liste_pour_les_cellules_vivantes);
                                        /* Parametres introduits le 20120229150456...                                                */
                                        /*                                                                                           */
                                        /* On notera le 20240829143744 que dans le cas du jeu de la vie bidimensionnel, ces deux     */
                                        /* listes seraient par defaut :                                                              */
                                        /*                                                                                           */
                                        /*                              23                                                           */
                                        /*                                                                                           */
                                        /*                              ||                                                           */
                                        /*                                                                                           */
                                        /*                  lcm :     000100000                                                      */
                                        /*                  lcv :     110011110                                                      */
                                        /*                                                                                           */

                         GET_ARGUMENT_L("minimum=",Ajeu_de_la_vie_____marquer_la_naissance_avec_le_minimum);
                         GET_ARGUMENT_L("maximum=",Ajeu_de_la_vie_____marquer_la_naissance_avec_le_maximum);
                         GET_ARGUMENT_L("OUEX=",Ajeu_de_la_vie_____marquer_la_naissance_avec_le_OUEX);
                         )
                    );

     begin_nouveau_block
          Bblock
          BDEFV(album,album_d_imagesA);
          BDEFV(album,album_d_imagesR);
                                        /* Definition des albums d'images Argument et Resultat...                                    */

          CALS(dAnoir(album_d_imagesR));
                                        /* Initialisation de l'album Resultat.                                                       */

          CALi(dAload_album(album_d_imagesA
                           ,nom_imageA
                           ,nom_postfixe
                           ,premiere_image
                           ,pas_des_images
                           ,nombre_de_chiffres
                           ,FAUX
                           ,UNDEF
                           ,FAUX
                            )
               );
                                        /* Chargement de l'album Argument...                                                         */

          Test(PAS_D_ERREUR(CODE_ERREUR))
               Bblock
               DEFV(Logical,INIT(permuter_les_deux_albums,FAUX));
                                        /* Ceci fut introduit le 20120308161820 afin de supprimer le 'Amove(...)' assez penalisant   */
                                        /* en terme de performance...                                                                */

               Repe(nombre_de_generations)
                    Bblock
                    CALS(Ajeu_de_la_vie(CHOIX_ALBUM_D_IMAGES(album_d_imagesR,album_d_imagesA)
                                       ,CHOIX_ALBUM_D_IMAGES(album_d_imagesA,album_d_imagesR)
                                        )
                         );
                                        /* Et calcul de la generation suivante...                                                    */

                    EGAL(permuter_les_deux_albums,NOTL(permuter_les_deux_albums));
                    Eblock
               ERep

               EGAL(permuter_les_deux_albums,NOTL(permuter_les_deux_albums));

               CALi(dAupdate_album(nom_imageR
                                  ,nom_postfixe
                                  ,premiere_image
                                  ,pas_des_images
                                  ,CHOIX_ALBUM_D_IMAGES(album_d_imagesR,album_d_imagesA)
                                  ,nombre_de_chiffres
                                  ,FAUX
                                   )
                    );
               Eblock
          ATes
               Bblock
               Eblock
          ETes

          EDEFV(album,album_d_imagesR);
          EDEFV(album,album_d_imagesA);
                                        /* Definition des albums d'images Argument et Resultat...                                    */
          Eblock
     end_nouveau_block

     RETU_Commande;
     Eblock
ECommande