/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E G R A T I O N   D ' U N E   S E R I E   D ' I M A G E S   A V E C   " D E P T H - C U E I N G "  :                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Definition :                                                                                                               */
/*                                                                                                                                   */
/*                    Cette commande "empile" d'arriere (la derniere                                                                 */
/*                  image) en avant (la premiere image) une serie                                                                    */
/*                  d'images binarisees a l'aide d'un seuil, et                                                                      */
/*                  visualisees avec un niveau fonction de leur                                                                      */
/*                  profondeur. Il n'y a donc pas effet de transparence,                                                             */
/*                  mais uniquement de "depth-cueing".                                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/integre.01$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
#include  image_image_IMAGESF_EXT
#include  image_image_QUAD_IMAGE_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xci/sequence.01.I"

#define   SEUIL_NOIR_BLANC                                                                                                              \
                    GRIS                                                                                                                \
                                        /* Seuil de discrimination entre le 'NOIR' et le 'BLANC'...                                  */
#define   PAS_VERTICAL                                                                                                                  \
                    ZORO(_____lNORMALISE_OY(I_lHOMOTHETIE_Std_OY(PasY)))                                                                \
                                        /* Pas de decalage des differentes couches...                                                */ \
                                        /*                                                                                           */ \
                                        /* Le 20120212100222, le 'I_lHOMOTHETIE_Std_OY(...)' fut introduit...                        */

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E G R A T I O N   D ' U N E   S E R I E   D ' I M A G E S   A V E C   " D E P T H - C U E I N G "  :                 */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
                                        /* Nom de la sequence a integrer.                                                            */
     DEFV(CHAR,INIC(POINTERc(nom_postfixe),NOM_UNDEF_VIDE));
                                        /* Nom d'un eventuel postfixe a placer derriere <nom_imageA><numero> (par exemple '$ROUGE'). */
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
                                        /* Nom du Resultat de l'integration.                                                         */
     DEFV(genere_Float,INIT(premiere_image,FLOT(PREMIERE_IMAGE)));
                                        /* Numero de la premiere image,                                                              */
     DEFV(genere_Float,INIT(derniere_image,FLOT(DERNIERE_IMAGE)));
                                        /* Numero de la derniere image.                                                              */
     DEFV(genere_Float,INIT(pas_des_images,FLOT(PAS_DES_IMAGES)));
                                        /* Pas de passage d'un numero d'image a une autre.                                           */
     DEFV(Int,INIT(nombre_de_chiffres,NOMBRE_DE_CHIFFRES));
                                        /* Nombre de chiffres codant le numero des images de la serie...                             */
     DEFV(genere_Float,INIT(numero_d_image,FLOT__UNDEF));
                                        /* Numero de l'image courante.                                                               */
     DEFV(CHAR,INIT(POINTERc(nom_image),NOM_UNDEF));
                                        /* Nom courant des images.                                                                   */
     DEFV(genere_p,INIT(seuil_de_masquage,SEUIL_NOIR_BLANC));
                                        /* Seuil de masquage.                                                                        */
     DEFV(Int,INIT(tranche_Z,UNDEF));
                                        /* Definition de la troisieme coordonnee 'Z' qui est aussi dans le cas                       */
                                        /* present le temps...                                                                       */
     DEFV(Int,INIT(coordonnee_z_de_depth_cueing,UNDEF));
                                        /* Coordonnee de "depth-cueing"...                                                           */
     DEFV(deltaF_2D,translation);
                                        /* Translation verticale d'empilement des nuages...                                          */
     DEFV(Int,INIT(pas_vertical,PAS_VERTICAL));
                                        /* Eventuel pas vertical de translation verticale...                                         */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
                         GET_ARGUMENT_C("postfixe=",nom_postfixe);
                         GET_ARGUMENT_C("imageR=""R=",nom_imageR);
                         GET_ARGUMENT_F("premiere=",premiere_image);
                         GET_ARGUMENT_F("derniere=",derniere_image);
                         GET_ARGUMENT_F("pas=",pas_des_images);
                         GET_ARGUMENT_I("chiffres=",nombre_de_chiffres);
                         GET_ARGUMENT_P("seuil=",seuil_de_masquage);
                         GET_ARGUMENT_I("pv=",pas_vertical);
                         )
                    );

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

     EGAL(coordonnee_z_de_depth_cueing,NOIR_PLANCHER);
                                        /* Afin de faire du "depth-cueing", la troisieme coordonnee 'z' suit                         */
                                        /* les couleurs...                                                                           */
     INITIALISATION_ACCROISSEMENT_2D(translation,ZERO,ZERO);
                                        /* Definition de la translation d'empilement vertical des nuages.                            */

     DoDe(numero_d_image,premiere_image,derniere_image,pas_des_images)
          Bblock
          Test(IFNE(numero_d_image,fINTE(numero_d_image)))
               Bblock
               PRINT_ATTENTION("le numero de l'image courante n'est pas entier et va donc etre tronque");
               Eblock
          ATes
               Bblock
               Eblock
          ETes

          EGAL(nom_image
              ,COND(IFEQ_chaine(nom_postfixe,NOM_UNDEF_VIDE)
                   ,chain_Aconcaten2_sauf_nom_pipe(nom_imageA
                                                  ,chain_numero_modulo(INTE(numero_d_image),nombre_de_chiffres)
                                                   )
                   ,chain_Aconcaten3_sauf_nom_pipe(nom_imageA
                                                  ,chain_numero_modulo(INTE(numero_d_image),nombre_de_chiffres)
                                                  ,nom_postfixe
                                                   )
                    )
               );
                                        /* Le 20221212114958, 'chain_numero_modulo(...)' a remplace 'chain_numero(...)'...           */

          Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(Masque,nom_image))))
               Bblock
                                        /* 'Masque' donne la couche a l'instant courant,                                             */
               EGAL(tranche_Z
                   ,COZA(SCAL(SOUS(derniere_image,numero_d_image)
                             ,LENG(premiere_image,derniere_image)
                             ,dimZ
                              )
                         )
                    );
                                        /* Conversion du numero d'image en une troisieme coordonnee...                               */
               MASQUE_IMAGES(seuil_de_masquage);
               BoIn(niveau,NOIR,BLANC,PAS_COULEURS)
                    Bblock
                    MODIFICATION_LISTE_DE_SUBSTITUTION(niveau,GENP(coordonnee_z_de_depth_cueing));
                                        /* La liste de substitution (associee au masque) est telle que tout ce qui                   */
                                        /* est inferieur au seuil disparait, et que les autres sont materialises                     */
                                        /* par le 'z' de depth-cueing...                                                             */
                    Eblock
               EBoI

               SUBSTITUTION(L_SUBSTITUTION_VARIABLE);
               SET_FILTRAGE(ACTIF);
               CALS(Itranslation(ImageR,Masque,ADRESSE(translation),FAUX,FAUX));
                                        /* Et on superpose les nuages...                                                             */
               SET_FILTRAGE(INACTIF);
               DECR(ASD1(translation,dy),pas_vertical);
                                        /* Et on decale d'un cran de plus...                                                         */
               DEMASQUE_IMAGES;
               EGAL(coordonnee_z_de_depth_cueing
                   ,MODU(ADD2(coordonnee_z_de_depth_cueing,PAS_COULEURS),NOIR_PLANCHER,BLANC)
                    );
               Eblock
          ATes
               Bblock
               Test__CODE_ERREUR__ERREUR07;
               Eblock
          ETes

          CALZ_FreCC(nom_image);
          Eblock
     EDoD

     CALS(Irenormalisation(ImageR,ImageR));
                                        /* La renormalisation se fait en passant par une representation flottante intermediaire...   */
     CALi(Iupdate_image(nom_imageR,ImageR));

     RETU_Commande;
     Eblock
ECommande