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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   NOMBRE_DE_GENERATIONS                                                                                                         \
                    UN                                                                                                                  \
                                        /* Nombre de generations, la valeur par defaut garantissant la compatibilite anterieure.     */ \
                                        /* Ce parametre a ete introduit le 20090125120254...                                         */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CHOIX_IMAGE(image1,image2)                                                                                                    \
                    COND(IL_NE_FAUT_PAS(permuter_les_deux_images),image1,image2)                                                        \
                                        /* Ceci fut introduit le 20120308160411 afin de supprimer le 'Imove(...)' assez penalisant   */ \
                                        /* en terme de performance...                                                                */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        J E U   D E   L A   V I E   S T A N D A R D   B 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));

     DEFV(Int,INIT(nombre_de_generations,NOMBRE_DE_GENERATIONS));
                                        /* Nombre de generations, la valeur par defaut garantissant la compatibilite anterieure.     */
                                        /* Ce parametre a ete introduit le 20090125120254...                                         */
                                        /*                                                                                           */
                                        /* On notera que grace a 'CHOIX_IMAGE(...)' l'image Resultat est identique a l'image         */
                                        /* 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_I("nombre_generations=""generations=""ng=""iterations=""iter=",nombre_de_generations);
                                        /* Option introduite le 20090125120254 et completee le 20090126113533 ("iterations=",...).   */

                         GET_ARGUMENT_P("mort=",Ijeu_de_la_vie_____niveau_de_mort);
                         GET_ARGUMENT_P("vie=",Ijeu_de_la_vie_____niveau_de_vie);
                         GET_ARGUMENT_L("periodiser_X=""periodX=",Ijeu_de_la_vie_____periodiser_X);
                         GET_ARGUMENT_L("periodiser_Y=""periodY=",Ijeu_de_la_vie_____periodiser_Y);
                         GET_ARGUMENT_L("symetriser_X=""symetrX=",Ijeu_de_la_vie_____symetriser_X);
                         GET_ARGUMENT_L("symetriser_Y=""symetrY=",Ijeu_de_la_vie_____symetriser_Y);
                         GET_ARGUMENT_L("prolonger_X=""prolX=",Ijeu_de_la_vie_____prolonger_X);
                         GET_ARGUMENT_L("prolonger_Y=""prolY=",Ijeu_de_la_vie_____prolonger_Y);
                         GET_ARGUMENT_P("niveau_hors_image=""niveau=",Ijeu_de_la_vie_____niveau_hors_image);

                         GET_ARGUMENT_I("NpasX=""NpX=",Ijeu_de_la_vie_____NpasX);
                         GET_ARGUMENT_I("NpasY=""NpY=",Ijeu_de_la_vie_____NpasY);
                                        /* Parametres introduits le 20120305151225...                                                */

                         GET_ARGUMENT_I("solitude=""sol=""s=",Ijeu_de_la_vie_____seuil_de_solitude);
                         GET_ARGUMENT_I("naissance=""n=",Ijeu_de_la_vie_____seuil_de_naissance);
                         GET_ARGUMENT_I("etouffement=""etouf=""e=",Ijeu_de_la_vie_____seuil_d_etouffement);

                         GET_ARGUMENT_L("listes=",Ijeu_de_la_vie_____definir_les_seuils_a_l_aide_de_listes);
                         GET_ARGUMENT_C("listes_cellules_mortes=""lcm=",Ijeu_de_la_vie_____liste_pour_les_cellules_mortes__);
                         GET_ARGUMENT_C("listes_cellules_vivantes=""lcv=",Ijeu_de_la_vie_____liste_pour_les_cellules_vivantes);
                                        /* Parametres introduits le 20120229150446...                                                */
                                        /*                                                                                           */
                                        /* On notera le 20120305091733 que :                                                         */
                                        /*                                                                                           */
                                        /*                  lcm="000100100"                                                          */
                                        /*                  lcv="110011011"                                                          */
                                        /*                                                                                           */
                                        /* donne avec la configuration initiale de Von Neumann ('v $xiak/JVIE.42$R16') une sorte de  */
                                        /* planete grouillante et de taille croissante, qui emet de temps en temps (de facon non     */
                                        /* periodique) des "vaisseaux spatiaux"...                                                   */

                         GET_ARGUMENT_L("minimum=",Ijeu_de_la_vie_____marquer_la_naissance_avec_le_minimum);
                         GET_ARGUMENT_L("maximum=",Ijeu_de_la_vie_____marquer_la_naissance_avec_le_maximum);
                         GET_ARGUMENT_L("OUEX=",Ijeu_de_la_vie_____marquer_la_naissance_avec_le_OUEX);
                         )
                    );

     CALi(Inoir(ImageR));
                                        /* Initialisation de l'image Resultat.                                                       */

     Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
          Bblock
          DEFV(Logical,INIT(permuter_les_deux_images,FAUX));
                                        /* Ceci fut introduit le 20120308160411 afin de supprimer le 'Imove(...)' assez penalisant   */
                                        /* en terme de performance...                                                                */

          Repe(nombre_de_generations)
               Bblock
               CALS(Ijeu_de_la_vie(CHOIX_IMAGE(ImageR,ImageA),CHOIX_IMAGE(ImageA,ImageR)));
                                        /* Et calcul de la generation suivante...                                                    */

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

          EGAL(permuter_les_deux_images,NOTL(permuter_les_deux_images));

          CALi(Iupdate_image(nom_imageR,CHOIX_IMAGE(ImageR,ImageA)));
          Eblock
     ATes
          Bblock
          Test__CODE_ERREUR__ERREUR07;
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande