/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R P O L A T I O N   E N T R E   T R O I S   I M A G E S  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande genere une image                                                                                */
/*                  dont le nom est le premier argument                                                                              */
/*                  d'appel ; elle est le resultat de                                                                                */
/*                  l'interpolation entre les trois images                                                                           */
/*                  Arguments suivant trois parametres reels                                                                         */
/*                  'alpha', 'beta' et 'gamma'.                                                                                      */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/interpolb.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20090629150936).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   GENERER_LES_GET_ARGUMENTS_DE_CONTROLE_DE_L_ARITHMETIQUE_ETENDUE_DES_NOMBRES_FLOTTANTS

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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
#include  image_image_QUAD_IMAGE_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   ALPHA                                                                                                                         \
                    FRA3(FU)
#define   BETA                                                                                                                          \
                    FRA3(FU)
#define   GAMMA                                                                                                                         \
                    FRA3(FU)
                                        /* Parametres d'interpolation (en general : alpha+beta+gamma=1).                             */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R P O L A T I O N   E N T R E   T R O I S   I M A G E S  :                                                         */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA1),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA2),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA3),NOM_PIPE));

     DEFV(Float,INIT(alpha,ALPHA));
     DEFV(Float,INIT(beta_,BETA));
     DEFV(Float,INIT(gamma,GAMMA));
                                        /* Parametres d'interpolation (en general : alpha+beta+gamma=1).                             */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA1=""A1=",nom_imageA1);
                         GET_ARGUMENT_C("imageA2=""A2=",nom_imageA2);
                         GET_ARGUMENT_C("imageA3=""A3=",nom_imageA3);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_L("standard=",les_images_sont_standards);

                         PROCESS_ARGUMENT_L("arithmetique_etendue_interpolation=""ariei="
                                           ,IFinterpolation_barycentrique____`use_arithmetique_etendue_et_non_basique
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 EGAL(si_le_GooF_est_activable`use_arithmetique_etendue_et_non_basique
                                                     ,IFinterpolation_barycentrique____`use_arithmetique_etendue_et_non_basique
                                                      );
                                                 Eblock
                                                 )
                                            );
                         PROCESS_ARGUMENT_N("arithmetique_de_base_interpolation=""aribi="
                                           ,IFinterpolation_barycentrique____`use_arithmetique_etendue_et_non_basique
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 EGAL(si_le_GooF_est_activable`use_arithmetique_etendue_et_non_basique
                                                     ,NOTL(IFinterpolation_barycentrique____`use_arithmetique_etendue_et_non_basique)
                                                      );
                                        /* Le 'NOTL(...)' est absolument necessaire a cause de 'PROCESS_ARGUMENT_N(...)' car,        */
                                        /* en effet, lorsque le 'EGAL(...)' est execute, le parametre logique en cours de traitement */
                                        /* est alors inverse ('v $xig/fonct$vv$DEF NOTL.valeur_L_par_defaut').                       */
                                                 Eblock
                                                 )
                                            );

                         GET_ARGUMENT_F("alpha=""a=",alpha);
                         GET_ARGUMENT_F("beta=""b=",beta_);
                         GET_ARGUMENT_F("gamma=""g=",gamma);

                         GET_ARGUMENT_L("verifier_somme_ponderations=""vsp="
                                       ,Iinterpolation_barycentrique_____verifier_la_somme_des_ponderations
                                        );
                         GET_ARGUMENT_L("Fverifier_somme_ponderations=""Fvsp="
                                       ,IFinterpolation_barycentrique_____verifier_la_somme_des_ponderations
                                        );
                                        /* Arguments introduits le 20090630101801...                                                 */
                         )
                    );

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

     Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA1,IFmageA1,nom_imageA1))))
          Bblock
                                        /* Chargement de la premiere image Argument.                                                 */
          Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA2,IFmageA2,nom_imageA2))))
               Bblock
                                        /* Chargement de la deuxieme image Argument.                                                 */
               Test(PAS_D_ERREUR(CODE_ERROR(gIload_image(les_images_sont_standards,ImageA3,IFmageA3,nom_imageA3))))
                    Bblock
                                        /* Chargement de la troisieme image Argument.                                                */
                    Test(EST_VRAI(les_images_sont_standards))
                         Bblock
                                        /* Cas d'une image 'image' :                                                                 */
                         Test(IL_FAUT(IFinterpolation_barycentrique____`use_arithmetique_etendue_et_non_basique))
                              Bblock
                              PRINT_ATTENTION("l'arithmetique etendue n'est ici disponible que pour les images flottantes");
                              Eblock
                         ATes
                              Bblock
                              Eblock
                         ETes
                         Eblock
                    ATes
                         Bblock
                                        /* Cas d'une image 'imageF' :                                                                */
                         Eblock
                    ETes

                    CALS(gIinterpolation_barycentrique(les_images_sont_standards
                                                      ,ImageR,IFmageR
                                                      ,alpha,ImageA1,IFmageA1
                                                      ,beta_,ImageA2,IFmageA2
                                                      ,gamma,ImageA3,IFmageA3
                                                       )
                         );

                    CALi(gIupdate_image(les_images_sont_standards,nom_imageR,ImageR,IFmageR));
                    Eblock
               ATes
                    Bblock
                    Test__CODE_ERREUR__ERREUR07;
                    Eblock
               ETes
               Eblock
          ATes
               Bblock
               Test__CODE_ERREUR__ERREUR07;
               Eblock
          ETes
          Eblock
     ATes
          Bblock
          Test__CODE_ERREUR__ERREUR07;
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande