/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        G E S T I O N   A R B I T R A I R E   D E S   C O O R D O N N E E S   { w1 , w2 , w3 , w4 , w5 , w6 , w7 , w8 }  :         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/hyper_hyper_volumes.51$I' :                                                                                */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20230225144053).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"

DEFV(Local,DEFV(Logical,INIT(definir_arbitrairement_les_coordonnees_w1_w2_w3_w4_w5_w6_w7_w8,FAUX)));
                                        /* Doit-on definir arbitrairement les coordonnees {w1,w2,w3,w4,w5,w6,w7,w8} ('VRAI')         */
                                        /* ou pas ('FAUX') ?                                                                         */
DEFV(Local,DEFV(Int,INIT(nombre_d_elements,NOMBRE_D_ELEMENTS)));
                                        /* Nombre d'elements attendus a priori dans les fichiers.                                    */

DEFV(Local,DEFV(Int,INIT(index_de_definition_arbitraire_des_coordonnees_w1_w2_w3_w4_w5_w6_w7_w8,PREMIER_ELEMENT_D_UN_FICHIER)));
DEFV(Local,DEFV(Float,INIT(separateur_de_definition_arbitraire_des_coordonnees_w1_w2_w3_w4_w5_w6_w7_w8
                          ,SEPARATEUR_DE_LISTES_DE_COORDONNEES
                           )
                )
     );
                                        /* La possibilite de definir plusieurs blocs successifs a ete introduite le 20230217101706.  */

#define   COORDONNEE_w1_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w2_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w3_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w4_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w5_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w6_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w7_IMPLICITE                                                                                                       \
                    FZERO
#define   COORDONNEE_w8_IMPLICITE                                                                                                       \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w1,liste_des_coordonnees_w1);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w2,liste_des_coordonnees_w2);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w3,liste_des_coordonnees_w3);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w4,liste_des_coordonnees_w4);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w5,liste_des_coordonnees_w5);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w6,liste_des_coordonnees_w6);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w7,liste_des_coordonnees_w7);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w8,liste_des_coordonnees_w8);
                                        /* Definition en memoire des fichiers des coordonnees {w1,w2,w3,w4,w5,w6,w7,w8}.             */

#define   ELEMENT_DU_FICHIER_COORDONNEES_w1(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w1,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w2(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w2,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w3(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w3,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w4(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w4,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w5(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w5,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w6(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w6,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w7(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w7,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w8(index)                                                                                      \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w8,index)
                                        /* Acces a un element courant des fichiers des coordonnees {w1,w2,w3,w4,w5,w6,w7,w8}.        */

#define   COORDONNEE_ROUGE_IMPLICITE                                                                                                    \
                    FZERO
#define   COORDONNEE_VERTE_IMPLICITE                                                                                                    \
                    FZERO
#define   COORDONNEE_BLEUE_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_ROUGE,liste_des_coordonnees_ROUGE);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_VERTE,liste_des_coordonnees_VERTE);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_BLEUE,liste_des_coordonnees_BLEUE);
                                        /* Definition en memoire des fichiers des coordonnees {ROUGE,VERTE,BLEUE}.                   */

#define   ELEMENT_DU_FICHIER_COORDONNEES_ROUGE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_ROUGE,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_VERTE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_VERTE,index)
#define   ELEMENT_DU_FICHIER_COORDONNEES_BLEUE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_BLEUE,index)
                                        /* Acces a un element courant des fichiers des coordonnees {ROUGE,VERTE,BLEUE}.              */

#define   COORDONNEE_RAYON_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_RAYON,liste_des_coordonnees_RAYON);
                                        /* Definition en memoire du fichier des coordonnees {RAYON} (introduit le 20240517141526)... */

#define   ELEMENT_DU_FICHIER_COORDONNEES_RAYON(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_RAYON,index)                                                              \
                                        /* Acces a un element courant du fichier des coordonnees {RAYON} (introduit le               */ \
                                        /* 20240517141526)...                                                                        */

#define   COORDONNEE_MASSE_IMPLICITE                                                                                                    \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_MASSE,liste_des_coordonnees_MASSE);
                                        /* Definition en memoire du fichier des coordonnees {MASSE} (introduit le 20240519091345)... */

#define   ELEMENT_DU_FICHIER_COORDONNEES_MASSE(index)                                                                                   \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_MASSE,index)                                                              \
                                        /* Acces a un element courant du fichier des coordonnees {RAYON} (introduit le               */ \
                                        /* 20240519091345)...                                                                        */