/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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 , w }  :                                     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/volumes.51$I' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20221221145930).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

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

DEFV(Local,DEFV(Logical,INIT(definir_arbitrairement_les_coordonnees_u_v_w,FAUX)));
                                        /* Doit-on definir arbitrairement les coordonnees {u,v,w} ('VRAI') ou pas ('FAUX') ? Ceci    */
                                        /* a ete introduit le 20221221145930, 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 20221221145930...).   */

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

#define   COORDONNEE_u_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_v_IMPLICITE                                                                                                        \
                    FZERO
#define   COORDONNEE_w_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);
gGENERATION_D_UN_FICHIER(fichier_des_coordonnees_w,liste_des_coordonnees_w);
                                        /* Definition en memoire des fichiers des coordonnees {u,v,w} (introduit le 20221221145930). */

#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)
#define   ELEMENT_DU_FICHIER_COORDONNEES_w(index)                                                                                       \
                    gELEMENT_DU_FICHIER(liste_des_coordonnees_w,index)
                                        /* Acces a un element courant des fichiers des coordonnees {u,v,w}.                          */

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

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

#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               */ \
                                        /* 20240517142055)...                                                                        */

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

#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               */ \
                                        /* 20240519091521)...                                                                        */