/*************************************************************************************************************************************/ /* */ /* 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'). */