/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S O P E R A T I O N S S U R L E S C O O R D O N N E E S : */
/* */
/* */
/* Nota important : */
/* */
/* Je note le 20221001102110 que ce fichier */
/* s'appelle "coordonne.03$I" et non pas */
/* "coordonnee.03$I" pour des raisons historiques, */
/* les premiers systemes UNIX utilises limitant la */
/* longueur des noms relatifs des fichiers a 14 */
/* caracteres. Je laisse cela ainsi pour des raisons */
/* de simplicite... */
/* */
/* */
/* Author of '$xci/coordonne.03$I' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1998??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define NORMALISER_LES_TRANSLATIONS(translation,normalisation) \
COND(EST_FAUX(les_translations_sont_a_normaliser) \
,translation \
,normalisation(translation) \
) \
/* Normalisation eventuelle des translations... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O D E U T I L E : */
/* */
/*************************************************************************************************************************************/
Bblock
/* ATTENTION, jusqu'au 19990701180400, il y avait ici : */
/* */
/* EGAL(translation_des_X_normalisees,FZERO); */
/* EGAL(translation_des_Y_normalisees,FZERO); */
/* */
/* mais, ceici etait en contradiction avec les 'GET_ARGUMENT_F(...)' qui precedent et */
/* comme de plus leurs valeurs initiales sont nulles ('TRANSLATION_DES_?_NORMALISEES'), */
/* on peut supprimer ces deux initialisations... */
Test(IL_FAUT(super_echelle_____utiliser_le_mode_rectangulaire))
Bblock
Eblock
ATes
Bblock
Test(IL_FAUT(super_echelle_____utiliser_le_mode_carre__grand_carre))
Bblock
EGAL(translation_des_Y_normalisees
,COND(IL_NE_FAUT_PAS(centrer_les_coordonnees_normalisees)
,FZERO
,NEUT(MOYS(SUPER_cNORMALISE_OX(Xmax)
,SUPER_cNORMALISE_OY(Ymax)
)
)
)
);
Eblock
ATes
Bblock
EGAL(translation_des_X_normalisees
,COND(IL_NE_FAUT_PAS(centrer_les_coordonnees_normalisees)
,FZERO
,NEGA(MOYS(SUPER_cNORMALISE_OX(Xmax)
,SUPER_cNORMALISE_OY(Ymax)
)
)
)
);
Eblock
ETes
Eblock
ETes
Eblock