/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N V E R S E   D E   L A   C O M M A N D E   'v $xci/dumpx$K niveau_index'  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/anti_dumpx$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20151210124517).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   FACTEUR_DE_RECUPERATION_DES_INDEX                                                                                             \
                    MILLION                                                                                                             \
                                        /* Facteur de recuperation des index a partir de la partie decimale...                       */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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"
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   NIVEAU_INDEX_IMPLICITE                                                                                                        \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_NIVEAU_INDEX,liste_initiale_des_NIVEAU_INDEX);

#define   ELEMENT_DU_FICHIER_LISTE_NIVEAU_INDEX(index)                                                                                  \
                    gELEMENT_DU_FICHIER(liste_initiale_des_NIVEAU_INDEX,index)
                                        /* Acces a un element courant du fichier "niveau/index".                                     */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N V E R S E   D E   L A   C O M M A N D E   'v $xci/dumpx$K niveau_index'  :                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
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 la sequence a generer...                                                           */

     DEFV(Float,INIT(facteur_de_recuperation_des_index,FACTEUR_DE_RECUPERATION_DES_INDEX));
                                        /* Facteur de recuperation des index a partir de la partie decimale...                       */
     /*..............................................................................................................................*/
     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_INDEX="
                                                 ,fichier_NIVEAU_INDEX
                                                 ,liste_initiale_des_NIVEAU_INDEX
                                                 ,NIVEAU_INDEX_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

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

                         GET_ARGUMENT_F("facteur_recuperation_index=""facteur=""fri=",facteur_de_recuperation_des_index);
                         )
                    );

     begin_nouveau_block
          Bblock
          Test(EST_VRAI(les_images_sont_standards))
               Bblock
               CALi(Inoir(ImageR));
                                        /* Initialisation de l'image Resultat.                                                       */
               Eblock
          ATes
               Bblock
               CALi(IFinitialisation(IFmageR,FZERO));
                                        /* Initialisation de l'image Resultat.                                                       */
               Eblock
          ETes

          DoIn(index
              ,PREMIER_ELEMENT_D_UN_FICHIER
              ,DERNIER_ELEMENT_D_UN_FICHIER
              ,I
               )
               Bblock
               DEFV(Int,INIT(coordonnee_X,UNDEF));
               DEFV(Int,INIT(coordonnee_Y,UNDEF));

               DEFV(Float,INIT(couple_niveau_index_courant,ELEMENT_DU_FICHIER_LISTE_NIVEAU_INDEX(index)));
               DEFV(genere_Float,INIT(niveau_du_point_courant,NIVEAU_UNDEF));
               DEFV(Int,INIT(index_du_point_courant,UNDEF));

               EGAL(niveau_du_point_courant,AINT(couple_niveau_index_courant));
               EGAL(index_du_point_courant,ARRI(MUL2(facteur_de_recuperation_des_index,DECI(couple_niveau_index_courant))));
                                        /* La valeur 'Float' recuperee donne un niveau de point (via sa partie entiere) et un        */
                                        /* index de point (via sa partie decimale)...                                                */
                                        /*                                                                                           */
                                        /* On notera le 'ARRI(...)' et non pas un 'INTE(...)' afin d'etre sur de recuperer           */
                                        /* correctement le nombre entier correspondant a la partie decimale...                       */

               EGAL(index_du_point_courant,INDX(index_du_point_courant,INDEX0));
               EGAL(coordonnee_Y,COYA(DIVI(index_du_point_courant,dimY)));
               EGAL(coordonnee_X,COYA(REST(index_du_point_courant,dimY)));
                                        /* En effet, l'index est du type :                                                           */
                                        /*                                                                                           */
                                        /*                  index = Y.dimY + X                                                       */
                                        /*                                                                                           */
                                        /* Voir a ce propos 'v $xiida/fonction$FON validation_index_des_points'.                     */

               Test(EST_VRAI(les_images_sont_standards))
                    Bblock
                    store_point(GENP(niveau_du_point_courant),ImageR,coordonnee_X,coordonnee_Y,FVARIABLE);
                    Eblock
               ATes
                    Bblock
                    storeF_point(NEUT(niveau_du_point_courant),IFmageR,coordonnee_X,coordonnee_Y);
                    Eblock
               ETes
               Eblock
          EDoI

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

     lGENERATION_D_UN_FICHIER(liste_initiale_des_NIVEAU_INDEX,NIVEAU_INDEX_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande