/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P R O D U I T   M I X T E   D E   3 x 3   I M A G E S   F L O T T A N T E S  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/multi_09_m.01$K' :                                                                                         */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20080708172127).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   imageVA1X                                                                                                                     \
                    IFmageA1
#define   imageVA1Y                                                                                                                     \
                    IFmageA2
#define   imageVA1Z                                                                                                                     \
                    IFmageA3

#define   imageVA2X                                                                                                                     \
                    IFmageA4
#define   imageVA2Y                                                                                                                     \
                    IFmageA5
#define   imageVA2Z                                                                                                                     \
                    IFmageA6

#define   imageVA3X                                                                                                                     \
                    IFmageA7
#define   imageVA3Y                                                                                                                     \
                    IFmageA8
#define   imageVA3Z                                                                                                                     \
                    IFmageA9

#define   imageR                                                                                                                        \
                    IFmageR

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P R O D U I T   M I X T E   D E   3 x 3   I M A G E S   F L O T T A N T E S  :                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));

     DEFV(CHAR,INIC(POINTERc(nom_imageA1X),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA1Y),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA1Z),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA2X),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA2Y),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA2Z),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA3X),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA3Y),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA3Z),NOM_PIPE));
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA1=""A1=""A1R=""imageA1X=""A1X=",nom_imageA1X);
                         GET_ARGUMENT_C("imageA2=""A2=""A1V=""imageA1Y=""A1Y=",nom_imageA1Y);
                         GET_ARGUMENT_C("imageA3=""A3=""A1B=""imageA1Z=""A1Z=",nom_imageA1Z);
                         GET_ARGUMENT_C("imageA4=""A4=""A2R=""imageA2X=""A2X=",nom_imageA2X);
                         GET_ARGUMENT_C("imageA5=""A5=""A2V=""imageA2Y=""A2Y=",nom_imageA2Y);
                         GET_ARGUMENT_C("imageA6=""A6=""A2B=""imageA2Z=""A2Z=",nom_imageA2Z);
                         GET_ARGUMENT_C("imageA7=""A7=""A3R=""imageA3X=""A3X=",nom_imageA3X);
                         GET_ARGUMENT_C("imageA8=""A8=""A3V=""imageA3Y=""A3Y=",nom_imageA3Y);
                         GET_ARGUMENT_C("imageA9=""A9=""A3B=""imageA3Z=""A3Z=",nom_imageA3Z);

                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         )
                    );

     CALi(IFinitialisation(imageR,FZERO));
                                        /* Initialisation de l'image Resultat.                                                       */

     Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA1X,nom_imageA1X))))
          Bblock
          Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA1Y,nom_imageA1Y))))
               Bblock
               Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA1Z,nom_imageA1Z))))
                    Bblock
                    Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA2X,nom_imageA2X))))
                         Bblock
                         Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA2Y,nom_imageA2Y))))
                              Bblock
                              Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA2Z,nom_imageA2Z))))
                                   Bblock
                                   Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA3X,nom_imageA3X))))
                                        Bblock
                                        Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA3Y,nom_imageA3Y))))
                                             Bblock
                                             Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageVA3Z,nom_imageA3Z))))
                                                  Bblock
                                                  CALS(IFproduit_mixte(imageR
                                                                      ,imageVA1X,imageVA1Y,imageVA1Z
                                                                      ,imageVA2X,imageVA2Y,imageVA2Z
                                                                      ,imageVA3X,imageVA3Y,imageVA3Z
                                                                       )
                                                       );
                                        /* Calcul du produit mixte :                                                                 */
                                        /*                                                                                           */
                                        /*             {imaVA1X,imaVA1Y,imaVA1Z}.{imaVA2X,imaVA2Y,imaVA2Z}.{imaVA3X,imaVA3Y,imaVA3Z} */
                                        /*                                                                                           */

                                                  CALi(IupdateF_image(nom_imageR,imageR));
                                                  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
                                   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
                    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