/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A U T O M A T E   C E L L U L A I R E   B I D I M E N S I O N N E L  :                                                     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande genere une image                                                                                */
/*                  dont le nom est le premier argument                                                                              */
/*                  d'appel ; elle est le resultat de                                                                                */
/*                  l'evolution de la premiere image Argument                                                                        */
/*                  a l'aide de l'automate cellulaire                                                                                */
/*                  bidimensionnel defini a l'aide de la                                                                             */
/*                  seconde image Argument.                                                                                          */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/AutoC_2DQ.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20030116114225).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   NOMBRE_DE_REGLES                                                                                                              \
                    TRPU(LONGUEUR_DES_REGLES)                                                                                           \
                                        /* Nombre de formes a tester. La valeur par defaut a ete modifiee le 20030123163044 (la      */ \
                                        /* valeur anterieure etait 'UN'). Cette nouvelle valeur est compatible avec l'option         */ \
                                        /* 'EST_VRAI(ne_tester_que_le_nombre_de_points)' auquel cas il y a, en general, une          */ \
                                        /* regle de plus que de points par regle...                                                  */
#define   LONGUEUR_DES_REGLES                                                                                                           \
                    EXP2(DOUP(UN))                                                                                                      \
                                        /* Nombre de points definissant une forme.                                                   */
#define   NOMBRE_D_ITERATIONS                                                                                                           \
                    UN                                                                                                                  \
                                        /* Nombre d'iterations.                                                                      */
#define   NE_TESTER_QUE_LE_NOMBRE_DE_POINTS                                                                                             \
                    FAUX                                                                                                                \
                                        /* Si 'FAUX', la forme exacte est testee ; si 'VRAI', seul le nombre de points importe       */ \
                                        /* (parametre introduit le 20030120163751).                                                  */

#include  xci/substitue.01.I"

#define   SUSBTITUER_LES_NIVEAUX_DE_L_INSTANT_PRECEDENT                                                                                 \
                    FAUX                                                                                                                \
                                        /* Si 'FAUX', les niveaux de l'instant precedent sont substitues, si 'VRAI' les niveaux      */ \
                                        /* de l'instant precedent sont conserves (parametre introduit le 20030124164830).            */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xci/substitue.02.I"

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A U T O M A T E   C E L L U L A I R E   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(CHAR,INIC(POINTERc(nom_imageC),NOM_PIPE));

     DEFV(Positive,INIT(nombre_de_regles,NOMBRE_DE_REGLES));
                                        /* Nombre de formes a tester.                                                                */
     DEFV(Positive,INIT(longueur_des_regles,LONGUEUR_DES_REGLES));
                                        /* Nombre de points definissant une forme.                                                   */
     DEFV(Positive,INIT(nombre_d_iterations,NOMBRE_D_ITERATIONS));
                                        /* Nombre d'iterations.                                                                      */
     DEFV(Logical,INIT(ne_tester_que_le_nombre_de_points,NE_TESTER_QUE_LE_NOMBRE_DE_POINTS));
                                        /* Si 'FAUX', la forme exacte est testee ; si 'VRAI', seul le nombre de points importe       */
                                        /* (parametre introduit le 20030120163751).                                                  */

#include  xci/substitue.03.I"

     DEFV(Logical,INIT(susbtituer_les_niveaux_de_l_instant_precedent,SUSBTITUER_LES_NIVEAUX_DE_L_INSTANT_PRECEDENT));
                                        /* Si 'FAUX', les niveaux de l'instant precedent sont substitues, si 'VRAI' les niveaux      */
                                        /* de l'instant precedent sont conserves (parametre introduit le 20030124164830).            */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("imageC=""automate=""C=",nom_imageC);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);

                         GET_ARGUMENT_I("regles=""r=",nombre_de_regles);
                         GET_ARGUMENT_I("longueur=""l=",longueur_des_regles);
                         GET_ARGUMENT_I("nombre=""n=""iterations=",nombre_d_iterations);
                         GET_ARGUMENT_L("np=""nombre_de_points=",ne_tester_que_le_nombre_de_points);
                         GET_ARGUMENT_N("forme=""exact=",ne_tester_que_le_nombre_de_points);

                         GET_ARGUMENT_L("susbtituer=",susbtituer_les_niveaux_de_l_instant_precedent);
                         GET_ARGUMENT_C("substitution=""s=",nom_substitution);
                         GET_ARGUMENT_C("paletteA=""palette=""pA=""p=",nom_paletteA);

                         GET_ARGUMENT_L("effacer="
                                       ,Iautomate_cellulaire_bidimensionnel_par_convolution_____effacer_points_non_traites
                                        );
                         )
                    );

     Test(IL_FAUT(susbtituer_les_niveaux_de_l_instant_precedent))
          Bblock

#include  xci/substitue.05.I"
                                        /* Recherche de la substitution demandee et positionnement, mais sans activation...          */
          Eblock
     ATes
          Bblock
          Eblock
     ETes

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

     Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
          Bblock
                                        /* Chargement de la premiere image Argument.                                                 */
          Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(IFmageA,nom_imageC))))
               Bblock
                                        /* Chargement de la deuxieme image Argument. Le 20030123165539, je suis passe de             */
                                        /* 'Iload_image(...)' a 'IloadF_image(...)' en vue d'extensions futures...                   */
               CALS(Iautomate_cellulaire_bidimensionnel_par_convolution(ImageR
                                                                       ,ImageA
                                                                       ,nombre_de_regles
                                                                       ,longueur_des_regles
                                                                       ,IFmageA
                                                                       ,nombre_d_iterations
                                                                       ,ne_tester_que_le_nombre_de_points
                                                                       ,susbtituer_les_niveaux_de_l_instant_precedent
                                                                        )
                    );
                                        /* Et application de l'automate cellulaire bidimensionnel.                                   */

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

     RETU_Commande;
     Eblock
ECommande