/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I L T R A G E   D ' U N E   I M A G E   P A R   T R A N S F O R M E E   D E   F O U R I E R   C O M P L E X E  :         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/filtre.04$I' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E S T I O N   D E   L ' E T A L E M E N T   D U   N O Y A U  :                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

                    Bblock
                    BoIn(niveau,NOIR,BLANC,PAS_COULEURS)
                         Bblock
                         MODIFICATION_LISTE_DE_SUBSTITUTION(niveau
                                                           ,GENP(COND(IFLE(niveau,seuil_d_etalement_du_filtre)
                                                                     ,NOIR
                                                                     ,COND(IL_FAUT(binariser_le_filtre)
                                                                          ,BLANC
                                                                          ,MAX2(NIVA(SCAL(SOUS(niveau
                                                                                              ,seuil_d_etalement_du_filtre
                                                                                               )
                                                                                         ,SOUS(BLANC
                                                                                              ,seuil_d_etalement_du_filtre
                                                                                               )
                                                                                         ,NIVR(BLANC)
                                                                                          )
                                                                                     )
                                                                               ,NOIR_PLANCHER
                                                                                )
                                                                           )
                                                                      )
                                                                 )
                                                            );
                                        /* La liste de substitution (associee au masque) est telle que tout ce qui                   */
                                        /* est inferieur au seuil disparait ('NOIR'), et que les autres utilisent tout               */
                                        /* le "spectre" [NOIR_PLANCHER,BLANC].                                                       */
                         Eblock
                    EBoI

                    SUBSTITUTION(L_SUBSTITUTION_VARIABLE);
                    Eblock