/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   { u , v }  :                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/surfaces.51$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20221221140438).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"
                                        /* Introduits le 20221221130307...                                                           */

DEFV(Local,DEFV(Logical,INIT(definir_arbitrairement_les_coordonnees_u_v,FAUX)));
                                        /* Doit-on definir arbitrairement les coordonnees {u,v} ('VRAI') ou pas ('FAUX') ? Ceci      */
                                        /* a ete introduit le 20221221130307, la valeur par defaut garantissant la compatibilite     */
                                        /* anterieure...                                                                             */
DEFV(Local,DEFV(Int,INIT(nombre_d_elements,NOMBRE_D_ELEMENTS)));
                                        /* Nombre d'elements attendus a priori dans les fichiers (introduit le 20221221130307...).   */

DEFV(Local,DEFV(Int,INIT(index_de_definition_arbitraire_des_coordonnees_u_v,PREMIER_ELEMENT_D_UN_FICHIER)));
DEFV(Local,DEFV(Float,INIT(separateur_de_definition_arbitraire_des_coordonnees_u_v,SEPARATEUR_DE_LISTES_DE_COORDONNEES)));
                                        /* La possibilite de definir plusieurs blocs successifs a ete introduite le 20230217100148   */
                                        /* et ce principalement pour 'v $xrs/CalabiYau.12$K' qui est en general compose de 5x5       */
                                        /* morceaux contigus...                                                                      */

#define   COORDONNEE_u_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_v_IMPLICITE                                                                                                        \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_u,liste_des_coordonnees_u);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_v,liste_des_coordonnees_v);
                                        /* Definition en memoire des fichiers des coordonnees {u,v} (introduit le 20221221130307).   */

-define   ELEMENT_DU_FICHIER_COORDONNEES_u(index)                                                                                       \
-_-_-_-             gELEMENT_DU_FICHIER(liste_des_coordonnees_u,index)
-define   ELEMENT_DU_FICHIER_COORDONNEES_v(index)                                                                                       \
-_-_-_-             gELEMENT_DU_FICHIER(liste_des_coordonnees_v,index)
                                        /* Acces a un element courant des fichiers des coordonnees {u,v}.                            */

#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} (introduit le      */
                                        /* 20230125094446).                                                                          */

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

-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               */

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

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