/*************************************************************************************************************************************/
/* */
/* R E D U C T I O N D E M O I T I E D ' U N E I M A G E : */
/* */
/* */
/* Definition : */
/* */
/* Cette commande genere une image qui */
/* est une reduction de moitie de l'image */
/* Argument superposee a un Fond. */
/* */
/* */
/* Author of '$xci/reduction$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1990??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 CENTRER_LA_FENETRE \
FAUX \
/* Indique s'il faut centrer la fenetre ('VRAI') ou la placer a l'un des coins ('FAUX'). */
#define CALCULER_LA_MOYENNE \
VRAI \
/* Indique s'il faut calculer la moyenne ('VRAI') ou pas ('FAUX'). */
#define CALCULER_LE_MAXIMUM \
CALCUL_DU_MAXIMUM_DANS_UNE_DEMI_FENETRE \
/* Dans le cas ou il ne faut pas calculer la moyenne, indique s'il faut calculer le */ \
/* maximum ('VRAI') ou pas ('FAUX'), c'est-a-dire prendre le point courant... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define GENERE(FENETRE,NOM_DE_LA_FENETRE) \
Bblock \
Test(IFEQ_chaine(nom_de_la_fenetre,NOM_DE_LA_FENETRE)) \
Bblock \
FENETRE(ImageR,ImageA,il_faut_calculer_la_moyenne,il_faut_calculer_le_maximum); \
/* R = image Resultat obtenue par reduction de la 'FENETRE' demandee extraite dans */ \
/* l'image Argument. */ \
EGAL(la_fenetre_a_ete_reconnue,VRAI); \
/* Afin de savoir si la fenetre demandee existe... */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Procedure de recuperation d'une moitie de l'image Argument. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* R E D U C T I O N D E M O I T I E D ' U N E I M A G E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageF),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(CHAR,INIT(POINTERc(nom_de_la_fenetre),NOM_UNDEF));
/* Nom de la fenetre demandee ("HG", "HD", "BG" ou encore "BD"). */
DEFV(Logical,INIT(centrer_la_fenetre,CENTRER_LA_FENETRE));
/* Indique s'il faut centrer la fenetre ('VRAI') ou la placer a l'un des coins ('FAUX'). */
DEFV(Logical,INIT(il_faut_calculer_la_moyenne,CALCULER_LA_MOYENNE));
/* Indique s'il faut calculer la moyenne ('VRAI') ou pas ('FAUX'). */
DEFV(Logical,INIT(il_faut_calculer_le_maximum,CALCULER_LE_MAXIMUM));
/* Dans le cas ou il ne faut pas calculer la moyenne, indique s'il faut calculer le */
/* maximum ('VRAI') ou pas ('FAUX'), c'est-a-dire prendre le point courant... */
DEFV(Logical,INIT(la_fenetre_a_ete_reconnue,FAUX));
/* Afin de savoir si la fenetre demandee existe... */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("Ireduction_moitie_____compatibilite_20030611=""compatibilite_20030611="
,Ireduction_moitie_____compatibilite_20030611
);
GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_C("imageF=""F=",nom_imageF);
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_L("centrer=",centrer_la_fenetre);
GET_ARGUMENT_C("fenetre=""f=",nom_de_la_fenetre);
GET_ARGUMENT_L("moyenne=",il_faut_calculer_la_moyenne);
GET_ARGUMENT_L("maximum=",il_faut_calculer_le_maximum);
)
);
CALi(Inoir(ImageR));
/* Initialisation de l'image Resultat. */
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageR,nom_imageF))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
Bblock
Test(IL_FAUT(centrer_la_fenetre))
Bblock
DEFV(deltaF_2D,demi_translation);
/* Afin de positionner correctement les demi-images. */
DEFV(deltaI_2D,dimensions_maximales);
/* Afin de ne pas deborder lorsque les dimensions sont "exotiques" (voir 'Pal'...). */
INITIALISATION_ACCROISSEMENT_2D(demi_translation
,_____cNORMALISE_OX(SOUS(Xcentre,MOIT(dimX2)))
,_____cNORMALISE_OY(SOUS(Ycentre,MOIT(dimY2)))
);
INITIALISATION_ACCROISSEMENT_2D(dimensions_maximales
,MULD(dimX,ABSENCE_DE_MULTIPLICITE_POUR_LES_DEMI_FENETRES)
,MULD(dimY,ABSENCE_DE_MULTIPLICITE_POUR_LES_DEMI_FENETRES)
);
CALS(Ireduction_moitie(ImageR
,ImageA
,ADRESSE(demi_translation)
,ADRESSE(dimensions_maximales)
,FAUX,FAUX
,il_faut_calculer_la_moyenne,il_faut_calculer_le_maximum
)
);
/* Et reduction de moitie avec centrage (les deux 'FAUX' etant relatifs a l'absence de */
/* gestion "torique" des images...). */
EGAL(la_fenetre_a_ete_reconnue,VRAI);
/* Ainsi, on fait comme si une fenetre avait ete reconnue afin de generer l'image... */
Eblock
ATes
Bblock
GENERE(DEMI_FENETRE_BG,"BG");
GENERE(DEMI_FENETRE_BD,"BD");
GENERE(DEMI_FENETRE_HG,"HG");
GENERE(DEMI_FENETRE_HD,"HD");
/* Reduction de moitie de l'image Argument. */
Eblock
ETes
Test(EST_VRAI(la_fenetre_a_ete_reconnue))
Bblock
CALi(Iupdate_image(nom_imageR,ImageR));
/* Et rangement... */
Eblock
ATes
Bblock
PRINT_ERREUR("la fenetre demandee n'est pas reconnue (l'argument correspondant est obligatoire)");
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande