/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E L A S O U R C E L U M I N E U S E : */
/* */
/* */
/* Author of '$xrq/nucleon.LQ$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1991??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E L A S O U R C E L U M I N E U S E : */
/* */
/*************************************************************************************************************************************/
#define X_DE_LA_SOURCE_LUMINEUSE \
ADD2(X_DU_CENTRE_DE_LA_PARTICULE,DOUB(RAYON_D_UN_HADRON))
#define Y_DE_LA_SOURCE_LUMINEUSE \
ADD2(Y_DU_CENTRE_DE_LA_PARTICULE,DOUB(RAYON_D_UN_HADRON))
#define Z_DE_LA_SOURCE_LUMINEUSE \
ADD2(PLAN_DE_LA_PARTICULE,MOIT(RAYON_D_UN_HADRON))
DEFV(Local,DEFV(pointF_3D,Lsource));
/* Definition de la source lumineuse dans l'univers physique... */
DEFV(Local,DEFV(pointF_3D,LsourceT));
/* Definition de la source lumineuse apres transformation de l'espace physique (rotation */
/* et zoom...). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E S T I O N D E L A S O U R C E L U M I N E U S E : */
/* */
/*************************************************************************************************************************************/
#define GESTION_DE_LA_SOURCE_LUMINEUSE \
Bblock \
INITIALISATION_POINT_3D(LsourceT \
,TRANSFORMATION_GEOMETRIQUE_3D_Fx(ASD1(Lsource,x) \
,ASD1(Lsource,y) \
,ASD1(Lsource,z) \
,ASD1(translation_de_l_origine,dx) \
) \
,TRANSFORMATION_GEOMETRIQUE_3D_Fy(ASD1(Lsource,x) \
,ASD1(Lsource,y) \
,ASD1(Lsource,z) \
,ASD1(translation_de_l_origine,dy) \
) \
,TRANSFORMATION_GEOMETRIQUE_3D_Fz(ASD1(Lsource,x) \
,ASD1(Lsource,y) \
,ASD1(Lsource,z) \
,ASD1(translation_de_l_origine,dz) \
) \
); \
/* Determination de la position de la source lumineuse dans l'espace transforme. */ \
Eblock \
/* Prise en compte des transformations geometriques tridimensionnelles en ce qui concerne */ \
/* la source lumineuse. Cette operation a lieu au cours de 'CHANGEMENT_DU_POINT_DE_VUE' */ \
/* afin que seule la composante 'zoom' (et non pas 'rotation') soit appliquee a la source */ \
/* lumineuse ; ainsi, elle reste quasiment immobile par rapport a l'observateur. Enfin, dans */ \
/* l'etat actuel des choses, 'translation_de_l_origine' est nul lorsqu'il est utilise ici. */ \
/* ATTENTION : 'GESTION_DE_LA_SOURCE_LUMINEUSE' etait autrefois dans les deux fichiers */ \
/* '$xrq/nucleon.LW.1$I' et '$xrq/nucleon.LW.2$I'. Pour pouvoir le mettre ici, il a fallu */ \
/* renoncer a en faire une fonction : d'ou la disparition de : */ \
/* */ \
/* GENERE__Fonction__OPT */ \
/* (GESTION_DE_LA_SOURCE_LUMINEUSE,G,___GESTION_DE_LA_SOURCE_LUMINEUSE); */ \
/* */ \
/* et la modification de : */ \
/* */ \
/* #define ___GESTION_DE_LA_SOURCE_LUMINEUSE \ */ \
/* */ \
/* en */ \
/* */ \
/* #define GESTION_DE_LA_SOURCE_LUMINEUSE \ */ \
/* */