/*************************************************************************************************************************************/
/* */
/* B O U C H A G E D E S T R O U S D ' U N E I M A G E : */
/* */
/* */
/* Definition : */
/* */
/* Cette commande genere une image */
/* dont le nom est le premier argument */
/* d'appel ; elle est le resultat de */
/* la convolution de la deuxieme image */
/* destine a boucher les trous... */
/* */
/* */
/* Author of '$xci/bouche_trou$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1987??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define NIVEAU_DES_TROUS \
NOIR \
/* Niveau caracterisant les trous. */
#define FACTEUR_MULTIPLICATIF_DE_CONVOLUTION \
FU \
/* Facteur multiplicatif du produit de convolution en chaque point {X,Y}. */
#define NOMBRE_DE_POINTS_DU_NOYAU \
EXP2(DOUP(UN)) \
/* Nombre de points du noyau. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define NOYAU(numero,valeur) \
Bblock \
EGAL(ITb1(noyau,INDX(numero,PREMIER_POINT)),valeur); \
EGAL(ITb1(inhibition_du_noyau,INDX(numero,PREMIER_POINT)),ACTIF); \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* B O U C H A G E D E S T R O U S 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(genere_p,INIT(niveau_des_trous,NIVEAU_DES_TROUS));
/* Niveau caracterisant les trous. */
DEFV(Logical,DTb1(niveaux_a_traiter,COULEURS));
/* Definit les niveaux sur lesquels on doit faire la convolution par 'Pconvolution()'. */
DEFV(Logical,DTb1(niveaux_cumulables,COULEURS));
/* Definit les niveaux cumulables lors du calcul de 'Pconvolution_____cumul_courant'. */
DEFV(Float,INIT(facteur_multiplicatif,FACTEUR_MULTIPLICATIF_DE_CONVOLUTION));
/* Facteur multiplicatif du produit de convolution en chaque point {X,Y}. */
DEFV(Int,INIT(nombre_de_points,NOMBRE_DE_POINTS_DU_NOYAU));
/* Nombre de points du noyau. */
DEFV(Float,DTb1(noyau,TAILLE_MAXIMALE_D_UN_NOYAU_DE_CONVOLUTION));
/* Noyau de la convolution, */
DEFV(Logical,DTb1(inhibition_du_noyau,TAILLE_MAXIMALE_D_UN_NOYAU_DE_CONVOLUTION));
/* Et sa liste d'activite. */
DEFV(Int,INIT(index,UNDEF));
/* Index d'initialisation du noyau. */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("Pconvolution_____compatibilite_2014082110=""compatibilite_2014082110="
,Pconvolution_____compatibilite_2014082110
);
/* Options introduites le 20140821165944... */
GET_ARGUMENT_L("Pconvolution_____compatibilite_20141124=""compatibilite_20141124="
,Pconvolution_____compatibilite_20141124
);
/* Options introduites le 20141124185326... */
GET_ARGUMENT_L
("Fparcours_circulaire_d_une_spirale_carree_____compatibilite_2014082117=""compatibilite_2014082117="
,Fparcours_circulaire_d_une_spirale_carree_____compatibilite_2014082117
);
/* Options introduites le 20140821175304... */
GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_L("tore=",Pconvolution_____placer_l_image_sur_un_tore);
GET_ARGUMENT_L("ponderations_utiles="
,Pconvolution_____normaliser_uniquement_avec_les_ponderations_utilisees
);
GET_ARGUMENT_P("trous=""t=",niveau_des_trous);
GET_ARGUMENT_F("facteur=""f=",facteur_multiplicatif);
GET_ARGUMENT_I("points=""p=",nombre_de_points);
GET_ARGUMENT_I("spirale_horizontal=",SPIRALE_DEFINITION_____facteur_delta_horizontal);
GET_ARGUMENT_I("spirale_vertical=",SPIRALE_DEFINITION_____facteur_delta_vertical);
GET_ARGUMENT_L("circulaire=",Pconvolution_____parcourir_circulairement_les_spirales_carrees);
GET_ARGUMENT_L("circulaire_optimale="
,Pconvolution_____adapter_le_nombre_de_points_lors_du_parcours_circulaire_des_spirales_carrees
);
/* Options introduites le 20140820110141... */
)
);
CALi(Inoir(ImageR));
/* Initialisation de l'image Resultat. */
BoIn(niveau,NOIR,BLANC,PAS_COULEURS)
Bblock
EGAL(ITb1(niveaux_a_traiter,INDX(niveau,NOIR)),FAUX);
EGAL(ITb1(niveaux_cumulables,INDX(niveau,NOIR)),VRAI);
/* Initialisation telle que tous les niveaux soient "non traitables" et "cumulables". */
Eblock
EBoI
EGAL(ITb1(niveaux_a_traiter,INDX(niveau_des_trous,NOIR)),VRAI);
EGAL(ITb1(niveaux_cumulables,INDX(niveau_des_trous,NOIR)),FAUX);
/* Puis caracterisation des trous : ils sont "traitables" et "non cumulables". */
Test(IFLE(nombre_de_points,TAILLE_MAXIMALE_D_UN_NOYAU_DE_CONVOLUTION))
Bblock
DoIn(index,PREMIER_POINT,LSTX(PREMIER_POINT,nombre_de_points),I)
Bblock
NOYAU(index,FU);
/* Initialisation du noyau de convolution. */
Eblock
EDoI
Eblock
ATes
Bblock
PRINT_ERREUR("la taille demandee pour le noyau de convolution est incompatible avec les definitions");
EGAL(nombre_de_points,NOMBRE_DE_POINTS_DU_NOYAU);
CAL1(Prer1("(la valeur %d par defaut est forcee)\n",nombre_de_points));
/* Introduit le 20111031140727 car, en effet, manquait cruellement... */
Eblock
ETes
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA1,nom_imageA))))
Bblock
/* A1 = image dont on veut boucher les trous. */
CALi(Inoir(ImageA2));
/* A2 = nettoyage... */
CALS(Iconvolution(ImageA2
,facteur_multiplicatif
,ImageA1
,niveaux_a_traiter,niveaux_cumulables
,nombre_de_points,noyau,inhibition_du_noyau
)
);
/* A2 = image donnant les trous bouches par la convolution. */
CALS(Ior(ImageR,ImageA1,ImageA2));
/* R = image Resultat avec les trous bouches, obtenue par superposition de l'image */
/* Argument et de celle de ses trous bouches. */
CALi(Iupdate_image(nom_imageR,ImageR));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande