/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E L ' E D I T I O N D E L A G E O M E T R I E : */
/* */
/* */
/* Author of '$xrq/nucleon.LO$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1991??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N F A C U L T A T I V E D E L A G E O M E T R I E : */
/* */
/*************************************************************************************************************************************/
#define CREER_LA_BASE_DE_DONNEES_GEOMETRIQUES \
FAUX \
/* Indicateur disant si le fichier de la geometrie doit etre sorti... */
#define BASE_DE_DONNEES(sequence_de_sortie) \
Bblock \
Test(IL_FAUT(creer_la_base_de_donnees_geometriques)) \
Bblock \
BLOC(CALS(sequence_de_sortie);); \
/* Edition des informations demandees... */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Edition d'une information particuliere... */
DEFV(Local,DEFV(Logical,INIT(creer_la_base_de_donnees_geometriques,CREER_LA_BASE_DE_DONNEES_GEOMETRIQUES)));
/* Indicateur disant si le fichier de la geometrie doit etre genere... */
#define EDITER_LA_COULEUR_EN_FLOTTANT \
VRAI \
/* Indicateur disant si la charge de couleurs doit etre editee en flottant ('VRAI') ou */ \
/* bien en entier ('FAUX'). */
DEFV(Local,DEFV(Logical,INIT(editer_la_couleur_en_flottant,EDITER_LA_COULEUR_EN_FLOTTANT)));
/* Indicateur disant si la charge de couleurs doit etre editee en flottant ('VRAI') ou */
/* bien en entier ('FAUX'). */