/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E L A M E M O R I S A T I O N D U C H A M P G L O B A L : */
/* */
/* */
/* Author of '$xrq/nucleon.LV$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1991??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M E M O R I S A T I O N E V E N T U E L L E D U C H A M P G L O B A L : */
/* */
/*************************************************************************************************************************************/
#define MEMORISER_LE_CHAMP_GLOBAL \
FAUX \
/* Indicateur disant si le champ global doit etre memorise... */
DEFV(Local,DEFV(Logical,INIT(memoriser_le_champ_global,MEMORISER_LE_CHAMP_GLOBAL)));
/* Indicateur disant si le champ global doit etre memorise... */
#define VISUALISER_LES_PARTICULES_REELLES_DOMINANTES \
FAUX \
/* Lorsque la visualisation du champ global est demandee, on a le choix entre voir le */ \
/* champ global ('FAUX') et voir la zone d'influence de chacun des trois quarks REELs */ \
/* ('VRAI'). */
DEFV(Local,DEFV(Logical,INIT(visualiser_les_particules_REELLES_dominantes,VISUALISER_LES_PARTICULES_REELLES_DOMINANTES)));
/* Lorsque la visualisation du champ global est demandee, on a le choix entre voir le */
/* champ global ('FAUX') et voir la zone d'influence de chacun des trois quarks REELs */
/* ('VRAI'). */
DEFV(Local,DEFV(CHAR,INIT(POINTERc(nom_imageC),NOM_PIPE_Local)));
/* Nom du champ global... */
#define ___MEMORISATION_EVENTUELLE_DU_CHAMP_GLOBAL \
Bblock \
Test(IL_FAUT(memoriser_le_champ_global)) \
Bblock \
BDEFV(imageF,champ_interne_du_proton); \
/* Champ global des couleurs... */ \
begin_image \
Bblock \
CALCUL_DU_CHAMP_GLOBAL(X_PHYSIQUE(X) \
,Y_PHYSIQUE(Y) \
,PLAN_DE_LA_PARTICULE \
,CALCULER_LE_CHAMP_DE_FLUX \
,NE_PAS_CALCULER_LE_CHAMP_DE_CONFINEMENT \
,cutoff_du_champ_global \
); \
/* Definition du champ global de l'interaction lorsque cela est demande... */ \
Test(IL_NE_FAUT_PAS(visualiser_les_particules_REELLES_dominantes)) \
Bblock \
storeF_point(champ_global,champ_interne_du_proton,X,Y); \
/* Memorisation du champ global... */ \
Eblock \
ATes \
Bblock \
store_point(MULTIPLEXAGE_RVB_223(NORMALISATION_DU_ROUGE(cCOULEUR(particule_REELLE_dominante,ROUGE)) \
,NORMALISATION_DU_VERTE(cCOULEUR(particule_REELLE_dominante,VERTE)) \
,NORMALISATION_DU_BLEUE(cCOULEUR(particule_REELLE_dominante,BLEUE)) \
) \
,ImageR \
,X,Y \
,FVARIABLE \
); \
/* Memorisation de la portee de chacun des trois quarks REELs. */ \
Eblock \
ETes \
Eblock \
end_image \
Test(IL_NE_FAUT_PAS(visualiser_les_particules_REELLES_dominantes)) \
Bblock \
CALS(Ifloat_std(ImageR \
,champ_interne_du_proton \
,MINIMUM_DU_CHAMP_GLOBAL \
,MAXIMUM_DU_CHAMP_GLOBAL \
) \
); \
/* Generation de l'image representative d'une coupe dans le plan du proton du champ */ \
/* global. On notera que l'on ne fait pas de renormalisation, et ce afin de connaitre */ \
/* la veritable dynamique du champ... */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
GENERATION_D_UNE_COMPOSANTE(nom_imageC,ImageR); \
/* Et generation de l'image donnant soit le champ global, soit la portee de chacun des */ \
/* trois quarks REELs. */ \
EDEFV(imageF,champ_interne_du_proton); \
/* Champ global des couleurs... */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Memorisation eventuelle du champ global... */
BFonctionI
DEFV(LoF,GENERE__Fonction__OPT(MEMORISATION_EVENTUELLE_DU_CHAMP_GLOBAL,CG,___MEMORISATION_EVENTUELLE_DU_CHAMP_GLOBAL))
EFonctionI