/*************************************************************************************************************************************/
/* */
/* S O M M E E T E N D U E D E D E U X I M A G E S F L O T T A N T E S */
/* A V E C L ' A R I T H M E T I Q U E E T E N D U E V A R I A B L E L O C A L E M E N T : */
/* */
/* */
/* Author of '$xci/somExt_02.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20080107100242). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_GOOF_IMAGE_EXT
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define imageA1 \
IFmageA1
#define imageA2 \
IFmageA2
#define imageA_ADD2__ \
IFmageA3
#define imageA_SOUS__ \
IFmageA4
#define imageA_MUL2__ \
IFmageA5
#define imageA_DIVZ__ \
IFmageA6
#define imageA_MIN2__ \
IFmageA7
#define imageA_MAX2__ \
IFmageA8
#define imageA_MINMAX \
IFmageA9
#define imageA_MAXMIN \
IFmageAA
#define imageR \
IFmageR
/* L'ensemble des definitions precedentes {image...} a ete introduit le 20080220121228... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S O M M E E T E N D U E D E D E U X I M A G E S F L O T T A N T E S */
/* A V E C L ' A R I T H M E T I Q U E E T E N D U E V A R I A B L E L O C A L E M E N T : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA1),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA2),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_ADD2__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_SOUS__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_MUL2__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_DIVZ__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_MIN2__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_MAX2__),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_MINMAX),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageA_MAXMIN),NOM_PIPE));
/*..............................................................................................................................*/
EGAL(si_le_GooF_est_activable_utiliser_l_arithmetique_etendue_au_lieu_de_l_arithmetique_de_base,VRAI);
/* A priori, l'utilisation de l'arithmetique etendue est forcee puisque l'option */
/* 'utiliser_l_arithmetique_etendue' peut etre activee et que cette derniere n'a */
/* evidemment d'interet qu'avec l'arithmetique etendue. */
EGAL(IloadF_image_____un_nom_absent_est_une_erreur,FAUX);
EGAL(IloadF_image_____valeur_initiale_si_erreur,FZERO);
/* Introduit le 20090930131518 car, etant donne le nombre d'images Argument, il est logique */
/* de pouvoir n'en introduire que le strict minimum... */
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageA1=""A1=",nom_imageA1);
GET_ARGUMENT_C("imageA2=""A2=",nom_imageA2);
GET_ARGUMENT_C("imageA_ADD2=""ADD2=",nom_imageA_ADD2__);
GET_ARGUMENT_C("imageA_SOUS=""SOUS=",nom_imageA_SOUS__);
GET_ARGUMENT_C("imageA_MUL2=""MUL2=",nom_imageA_MUL2__);
GET_ARGUMENT_C("imageA_DIVZ=""DIVZ=",nom_imageA_DIVZ__);
GET_ARGUMENT_C("imageA_MIN2=""MIN2=",nom_imageA_MIN2__);
GET_ARGUMENT_C("imageA_MAX2=""MAX2=",nom_imageA_MAX2__);
GET_ARGUMENT_C("imageA_MINMAX=""MINMAX=",nom_imageA_MINMAX);
GET_ARGUMENT_C("imageA_MAXMIN=""MAXMIN=",nom_imageA_MAXMIN);
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
)
);
CALi(IFinitialisation(imageR,FZERO));
/* Initialisation de l'image Resultat. */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA1,nom_imageA1))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA2,nom_imageA2))))
Bblock
/* Entree des deux images Arguments {imageA1,imageA2} a additionner grace a l'arithmetique */
/* etendue locale (en chaque point {X,Y}). */
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_ADD2__,nom_imageA_ADD2__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_SOUS__,nom_imageA_SOUS__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_MUL2__,nom_imageA_MUL2__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_DIVZ__,nom_imageA_DIVZ__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_MIN2__,nom_imageA_MIN2__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_MAX2__,nom_imageA_MAX2__))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_MINMAX,nom_imageA_MINMAX))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(IloadF_image(imageA_MAXMIN,nom_imageA_MAXMIN))))
Bblock
/* Entree des huit images Arguments {imageA_ADD2__,...,imageA_MAXMIN} definissant */
/* l'arithmetique etendue locale (en chaque point {X,Y}. */
CALS(IFaddition_etendue_a_variations_locales(imageR
,imageA1
,imageA2
,imageA_ADD2__,imageA_SOUS__
,imageA_MUL2__,imageA_DIVZ__
,imageA_MIN2__,imageA_MAX2__
,imageA_MINMAX,imageA_MAXMIN
)
);
/* Somme etendue des deux images Arguments... */
CALi(IupdateF_image(nom_imageR,imageR));
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
RETU_Commande;
Eblock
ECommande