/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S R E L A T I V E S A U X P A R A M E T R E S */
/* D ' U N E V A R I E T E D E C A L A B I - Y A U 8 - D I M E N S I O N N E L L E : */
/* */
/* */
/* Author of '$xrs/CalabiYau.35$I' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20230202180314). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S ' A ' E T ' B ' : */
/* */
/*************************************************************************************************************************************/
#define PARTIE_REELLE_DU_PARAMETRE_qA \
R1_Quaternion
#define PARTIE_IMAGINAIRE_DU_PARAMETRE_qA \
I0_Quaternion
#define PARTIE_JMAGINAIRE_DU_PARAMETRE_qA \
J0_Quaternion
#define PARTIE_KMAGINAIRE_DU_PARAMETRE_qA \
K0_Quaternion
DEFV(Local,DEFV(hyper_complexe,INIS(parametre_qA
,IstructL04(PARTIE_REELLE_DU_PARAMETRE_qA
,PARTIE_IMAGINAIRE_DU_PARAMETRE_qA
,PARTIE_JMAGINAIRE_DU_PARAMETRE_qA
,PARTIE_KMAGINAIRE_DU_PARAMETRE_qA
)
)
)
);
/* Parametre 'A' initialise avec le nombre (1,0,0,0). */
#define PARTIE_REELLE_DU_PARAMETRE_qB \
R1_Quaternion
#define PARTIE_IMAGINAIRE_DU_PARAMETRE_qB \
I0_Quaternion
#define PARTIE_JMAGINAIRE_DU_PARAMETRE_qB \
J0_Quaternion
#define PARTIE_KMAGINAIRE_DU_PARAMETRE_qB \
K0_Quaternion
DEFV(Local,DEFV(hyper_complexe,INIS(parametre_qB
,IstructL04(PARTIE_REELLE_DU_PARAMETRE_qB
,PARTIE_IMAGINAIRE_DU_PARAMETRE_qB
,PARTIE_JMAGINAIRE_DU_PARAMETRE_qB
,PARTIE_KMAGINAIRE_DU_PARAMETRE_qB
)
)
)
);
/* Parametre 'B' initialise avec le nombre (1,0,0,0). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O O R D O N N E E S u' E T v' : */
/* */
/*************************************************************************************************************************************/
#define COORDONNEE_U_PRIME \
FZERO
#define COORDONNEE_V_PRIME \
FZERO
DEFV(Local,DEFV(Float,INIT(coordonnee_u_prime,COORDONNEE_U_PRIME)));
DEFV(Local,DEFV(Float,INIT(coordonnee_v_prime,COORDONNEE_V_PRIME)));
/* Afin de transformer le couple {u,v} en un quaternion {u,v,u',v'}... */