/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A G R A N D I S S E M E N T   D ' U N E   I M A G E   P A R   D O U B L E M E N T  :                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande genere une image qui                                                                            */
/*                  est un agrandissement double de l'image                                                                          */
/*                  Argument.                                                                                                        */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/doublement$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1989??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   IL_FAUT_INTERPOLER                                                                                                            \
                    VRAI                                                                                                                \
                                        /* Indique s'il faut interpoler ('VRAI') ou dupliquer ('FAUX').                              */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   GENERE(FENETRE,NOM_DE_LA_FENETRE)                                                                                             \
                    Bblock                                                                                                              \
                    Test(IFEQ_chaine(nom_de_la_fenetre,NOM_DE_LA_FENETRE))                                                              \
                         Bblock                                                                                                         \
                         FENETRE(ImageR,ImageA,il_faut_interpoler);                                                                     \
                                        /* R = image Resultat obtenue par doublement de la 'FENETRE' demandee extraite dans          */ \
                                        /*     l'image Argument.                                                                     */ \
                         EGAL(la_fenetre_a_ete_reconnue,VRAI);                                                                          \
                                        /* Afin de savoir si la fenetre demandee existe...                                           */ \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Procedure de recuperation d'une moitie de l'image Argument.                               */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A G R A N D I S S E M E N T   D ' U N E   I M A G E   P A R   D O U B L E M E N T  :                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(CHAR,INIT(POINTERc(nom_de_la_fenetre),NOM_UNDEF));
                                        /* Nom de la fenetre demandee ("HG", "HD", "BG" ou encore "BD").                             */
     DEFV(Logical,INIT(il_faut_interpoler,IL_FAUT_INTERPOLER));
                                        /* Indique s'il faut interpoler ('VRAI') ou dupliquer ('FAUX').                              */
     DEFV(Logical,INIT(la_fenetre_a_ete_reconnue,FAUX));
                                        /* Afin de savoir si la fenetre demandee existe...                                           */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_C("fenetre=""f=",nom_de_la_fenetre);

                         GET_ARGUMENT_L("interpoler=",il_faut_interpoler);

                         GET_ARGUMENT_L("fractaliser=""fract=",Iagrandissement_par_doublement_____fractaliser);
                         GET_ARGUMENT_I("facteurX=""fX=",Iagrandissement_par_doublement_____facteur_delta_old_X);
                         GET_ARGUMENT_I("facteurY=""fY=",Iagrandissement_par_doublement_____facteur_delta_old_Y);
                                        /* Argument introduit le 20201221122834 et complete le 20201221134331..                      */
                         )
                    );

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

     Test(IFET(IL_FAUT(Iagrandissement_par_doublement_____fractaliser),IL_FAUT(il_faut_interpoler)))
                                        /* Test introduit le 20201221123647...                                                       */
          Bblock
          PRINT_ERREUR("l'interpolation l'emporte sur la fractalisation");
          Eblock
     ATes
          Bblock
          Eblock
     ETes

     Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
          Bblock
          GENERE(DOUBLE_FENETRE_BG,"BG");
          GENERE(DOUBLE_FENETRE_BD,"BD");
          GENERE(DOUBLE_FENETRE_HG,"HG");
          GENERE(DOUBLE_FENETRE_HD,"HD");
                                        /* Doublement de l'image Argument.                                                           */
          Test(EST_VRAI(la_fenetre_a_ete_reconnue))
               Bblock
               CALi(Iupdate_image(nom_imageR,ImageR));
                                        /* Et rangement...                                                                           */
               Eblock
          ATes
               Bblock
               PRINT_ERREUR("la fenetre demandee n'est pas reconnue");
               Eblock
          ETes
          Eblock
     ATes
          Bblock
          Test__CODE_ERREUR__ERREUR07;
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande