/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O M P R E S S I O N / D E C O M P R E S S I O N   M A S Q U E E   D ' U N E   I M A G E  :                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande permet de                                                                                       */
/*                  compresser et de decompresser                                                                                    */
/*                  l'image Argument masquee.                                                                                        */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/CompressionDeCompressionMasquee$K' :                                                                       */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20140619134454).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   COMPRESSER                                                                                                                    \
                    VRAI                                                                                                                \
                                        /* Faut-il compresser ('VRAI') ou decompresser ('FAUX') ?                                    */
#define   UTILISER_TOUTE_LA_LONGUEUR_DES_IMAGES                                                                                         \
                    VRAI                                                                                                                \
                                        /* Faut-il utiliser toute la longueur des images ('VRAI') ou bien ne garder que ce qui       */ \
                                        /* est significatif au debut du fichier (apres elimination des parties masquees (('FAUX') ?  */

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O M P R E S S I O N / D E C O M P R E S S I O N   M A S Q U E E   D ' U N E   I M A G E  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
     DEFV(CHAR,INIC(POINTERc(nom_imageM),NOM_PIPE));

     DEFV(Logical,INIT(compresser,COMPRESSER));
                                        /* Faut-il compresser ('VRAI') ou decompresser ('FAUX') ?                                    */
     DEFV(Logical,INIT(utiliser_toute_la_longueur_des_images,UTILISER_TOUTE_LA_LONGUEUR_DES_IMAGES));
                                        /* Faut-il utiliser toute la longueur des images ('VRAI') ou bien ne garder que ce qui       */
                                        /* est significatif au debut du fichier (apres elimination des parties masquees (('FAUX') ?  */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_C("imageM=""M=",nom_imageM);

                         GET_ARGUMENT_L("compression=""compresser=""c=",compresser);
                         GET_ARGUMENT_N("decompression=""decompresser=""dc=""d=",compresser);

                         GET_ARGUMENT_L("toute_la_longueur_des_images=""complet=",utiliser_toute_la_longueur_des_images);
                         GET_ARGUMENT_N("juste_la_partie_utile=""significatif=""incomplet=",utiliser_toute_la_longueur_des_images);

                         GET_ARGUMENT_L("nettoyer=""noir=",Icompression_masquee_____nettoyer);
                         GET_ARGUMENTS2_P("seuil=""s=",Icompression_masquee_____seuil,Idecompression_masquee_____seuil);
                         GET_ARGUMENTS2_L("editer=""e=",Icompression_masquee_____editer,Idecompression_masquee_____editer);
                         )
                    );

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

     Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA1,nom_imageA))))
          Bblock
          Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA2,nom_imageM))))
               Bblock
               Test(IL_FAUT(compresser))
                    Bblock
                    CALS(Icompression_masquee(ImageR,ImageA1,ImageA2));
                    Eblock
               ATes
                    Bblock
                    CALS(Idecompression_masquee(ImageR,ImageA1,ImageA2));
                    Eblock
               ETes

               Test(IL_FAUT(utiliser_toute_la_longueur_des_images))
                    Bblock
                    CALi(Iupdate_image(nom_imageR,ImageR));
                    Eblock
               ATes
                    Bblock
                    BSaveModifyVariable(Int
                                       ,Fstore_fichier_non_formatte_____seuil_size_fichier
                                       ,Icompression_masquee_____nombre_de_points_transferes
                                        );

                    CALi(Iupdate_image(nom_imageR,ImageR));
                                        /* Afin de n'ecrire que les octets strictement utiles...                                     */

                    ESaveModifyVariable(Int
                                       ,Fstore_fichier_non_formatte_____seuil_size_fichier
                                        );
                    Eblock
               ETes
               Eblock
          ATes
               Bblock
               Test__CODE_ERREUR__ERREUR07;
               Eblock
          ETes
          Eblock
     ATes
          Bblock
          Test__CODE_ERREUR__ERREUR07;
          Eblock
     ETes

     RETU_Commande;
     Eblock
ECommande