/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E N E R A T I O N   D ' U N E   I M A G E   A   P A R T I R   D ' U N E   L I S T E   D E   N I V E A U X  :             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/store_niveau$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20180517083156).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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
                                        /* Introduit le 20121110112405...                                                            */

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

#define   LA_MATRICE_DE_CONNEXION_EST_SYMETRIQUE                                                                                        \
                    VRAI                                                                                                                \
                                        /* Indique si la matrice est symetrique ('VRAI') ou pas ('FAUX'). Ceci a ete introduit       */ \
                                        /* le 20180523065344 a cause de 'v $xiird/NETW.21'...                                        */
#define   RENVERSER_L_AXE_OX                                                                                                            \
                    FAUX
#define   RENVERSER_L_AYE_OX                                                                                                            \
                    FAUX
                                        /* Indique s'il faut renverser les axes ('VRAI') ou pas ('FAUX'). Ceci a ete introduit       */ \
                                        /* le 20180523065344 a cause de 'v $xiird/NETW.21'...                                        */

#define   LES_NIVEAUX_______SONT_NORMALISES_                                                                                            \
                    VRAI                                                                                                                \
                                        /* Indique si les niveaux sont deja normalises ou pas...                                     */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   F I C H I E R S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
                                        /* Passage a l'allocation dynamique le 20060214193405...                                     */
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   NIVEAU_IMPLICITE                                                                                                              \
                    FU

gGENERATION_D_UN_FICHIER(fichier_LISTE_NIVEAU,liste_initiale_des_NIVEAU);
                                        /* Definition en memoire du fichier des niveaux...                                           */

#define   ELEMENT_DU_FICHIER_LISTE_NIVEAU(index)                                                                                        \
                    gELEMENT_DU_FICHIER(liste_initiale_des_NIVEAU,index)
                                        /* Acces a un element courant du fichier des niveaux...                                      */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E N E R A T I O N   D ' U N E   I M A G E   A   P A R T I R   D ' U N E   L I S T E   D E   N I V E A U X  :             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(CHAR,INIT(POINTERc(nom_imageR),NOM_PIPE_Local));
                                        /* Nom de l'image a generer...                                                               */

     DEFV(Logical,INIT(la_matrice_de_connexion_est_symetrique,LA_MATRICE_DE_CONNEXION_EST_SYMETRIQUE));
                                        /* Indique si la matrice est symetrique ('EXIST') ou pas ('NEXIST'). Ceci a ete introduit    */
                                        /* le 20180523065344 a cause de 'v $xiird/NETW.21'...                                        */
     DEFV(Logical,INIT(renverser_l_axe_OX,RENVERSER_L_AXE_OX));
     DEFV(Logical,INIT(renverser_l_axe_OY,RENVERSER_L_AYE_OX));
                                        /* Indique s'il faut renverser les axes ('VRAI') ou pas ('FAUX'). Ceci a ete introduit       */
                                        /* le 20180523065344 a cause de 'v $xiird/NETW.21'...                                        */

     DEFV(Logical,INIT(les_niveaux_______sont_normalises_,LES_NIVEAUX_______SONT_NORMALISES_));
                                        /* Indique si les niveaux sont deja normalises ou pas...                                     */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
                                                 Eblock
                                                 )
                                            );

                         PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;

                         PROKESF_ARGUMENT_FICHIER("LISTE_NIVEAU="
                                                 ,fichier_LISTE_NIVEAU
                                                 ,liste_initiale_des_NIVEAU
                                                 ,NIVEAU_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_L("standard=",les_images_sont_standards);

                         GET_ARGUMENT_L("matrice_symetrique=""symetrique=""triangle_superieur="
                                       ,la_matrice_de_connexion_est_symetrique
                                        );
                         GET_ARGUMENT_N("matrice_non_symetrique=""non_symetrique=""rectangle="
                                       ,la_matrice_de_connexion_est_symetrique
                                        );
                                        /* Argument introduit le 20180523065344 et completes le 20180602091506...                    */
                         GET_ARGUMENT_L("renverser_X=""rX=",renverser_l_axe_OX);
                         GET_ARGUMENT_L("renverser_Y=""rY=",renverser_l_axe_OY);
                                        /* Argument introduit le 20180523065344...                                                   */

                         GET_ARGUMENT_L("Nnormalises=""Nnorm=""Nn=",les_niveaux_______sont_normalises_);
                         GET_ARGUMENT_N("Ndenormalises=""Ndenorm=""Ndn=",les_niveaux_______sont_normalises_);
                         )
                    );

     CALi(gInettoyage(les_images_sont_standards,ImageR,IFmageR));
                                        /* Initialisation de l'image Resultat.                                                       */

     begin_nouveau_block
          Bblock
          DEFV(Int,INIT(index,PREMIER_ELEMENT_D_UN_FICHIER));
          begin_image
               Bblock
               Test(IFOU(EST_FAUX(la_matrice_de_connexion_est_symetrique)
                        ,IFET(EST_VRAI(la_matrice_de_connexion_est_symetrique)
                             ,IFGT(COND(IL_NE_FAUT_PAS(renverser_l_axe_OX),NEUT(X),RENX(X))
                                  ,COND(IL_NE_FAUT_PAS(renverser_l_axe_OY),NEUT(Y),RENY(Y))
                                   )
                              )
                         )
                    )
                                        /* Test introduit le 20180523065344...                                                       */
                    Bblock
                    DEFV(Float,INIT(niveau_courant_normalise,ELEMENT_DU_FICHIER_LISTE_NIVEAU(index)));
                    DEFV(genere_p,INIT(niveau_courant_denormalise,NIVEAU_UNDEF));

                    Test(EST_VRAI(les_niveaux_______sont_normalises_))
                         Bblock
                         EGAL(niveau_courant_denormalise,__DENORMALISE_NIVEAU(niveau_courant_normalise));
                                        /* Recuperation du niveau normalise et denormalise du point courant {X,Y} dans le fichier.   */
                         Eblock
                    ATes
                         Bblock
                         EGAL(niveau_courant_denormalise,GENP(niveau_courant_normalise));
                                        /* Les niveaux sont supposes deja denormalises...                                            */
                         Eblock
                    ETes

                    Test(EST_VRAI(les_images_sont_standards))
                         Bblock
                         store_point(niveau_courant_denormalise,ImageR,X,Y,FVARIABLE);
                         Eblock
                    ATes
                         Bblock
                         storeF_point(niveau_courant_normalise,IFmageR,X,Y);
                         Eblock
                    ETes
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes

               INCR(index,I);
               Eblock
          end_image

          CALi(gIupdate_image(les_images_sont_standards,nom_imageR,ImageR,IFmageR));
          Eblock
     end_nouveau_block

     lGENERATION_D_UN_FICHIER(liste_initiale_des_NIVEAU,NIVEAU_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande