/*************************************************************************************************************************************/
/* */
/* 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 20221001101856 que ce fichier */
/* s'appelle "coordonne.02$I" et non pas */
/* "coordonnee.02$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.02$I' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1998??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D O N N E E S U T I L E S : */
/* */
/*************************************************************************************************************************************/
DEFV(Logical,INIT(centrer_les_coordonnees_normalisees,CENTRER_LES_COORDONNEES_NORMALISEES));
/* Choix du format "rectangulaire"/"grand carre"/"petit carre" de visualisation lorsque */
/* le format d'image '$formatI' n'est pas carre (par exemple 'Pal'). Lors de l'utilisation */
/* de ces options, les correspondances suivantes sont etablies : */
/* */
/* 1-"rectangulaire=VRAI" : */
/* */
/* [Xmin,Xmax]x[Ymin,Ymax]x[Zmin,Zmax] <--> [0,1]x[0,1]x[0,1] */
/* */
/* 2-"rectangulaire=FAUX grand_carre=FAUX" (avec h=dimX/dimY et k=h/2) : */
/* */
/* [Xmin,Xmax]x[Ymin,Ymax]x[Zmin,Zmax] <--> [0,1+h]x[0,1]x[0,1] */
/* [0-k,1+k]x[0,1]x[0,1] */
/* */
/* 3-"rectangulaire=FAUX grand_carre=VRAI" (avec h=dimY/dimX et k=h/2) : */
/* */
/* [Xmin,Xmax]x[Ymin,Ymax]x[Zmin,Zmax] <--> [0,1]x[0,1-h]x[0,1] */
/* [0,1]x[0+k,1-k]x[0,1] */
/* */
/* suivant que l'on ne centre pas ou que l'on centre par rapport a {Xcentre,Ycentre}. */
/* */
/* Les indicateurs 'visualiser_en_mode_rectangulaire' et 'visualiser_en_mode_grand_carre' */
/* ont ete remplaces par 'v $xiii/Images$STR 20051216100446' le 20051218180353... */
DEFV(Logical,INIT(les_translations_sont_a_normaliser,LES_TRANSLATIONS_SONT_A_NORMALISER));
/* Les translations sont-elles deja normalisees ('FAUX') ou faut-il le faire ('VRAI') ? */
DEFV(Float,INIT(translation_des_X_normalisees,TRANSLATION_DES_X_NORMALISEES));
DEFV(Float,INIT(translation_des_Y_normalisees,TRANSLATION_DES_Y_NORMALISEES));
DEFV(Float,INIT(translation_des_Z_normalisees,TRANSLATION_DES_Z_NORMALISEES));
/* Translation a appliquer aux coordonnees {X,Y,Z} apres normalisation. */