#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         F I C H I E R   D E S T I N E   A   L ' A L I A S   ' G_Genere '  :                                                         #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrd/graph.G_Genere$vv$Y' :                                                                                      #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20130226084148).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

if        ($?_____FGcomplements == $NEXIST) then
          set       _____FGcomplements="$NEXIST"
                                        # Parametre introduit le 20140308104445...                                                    #
else
endif

if        ($?_____N_au_carre == $NEXIST) then
          set       _____N_au_carre=`GetParam $xrv/particule.10$X N_au_carre`
                                        # Parametre introduit le 20140318105704...                                                    #
else
endif

if        ($?_____Redirection == $NEXIST) then
          set       _____Redirection="$K_VIDE"
                                        # Parametre introduit le 20130308085043...                                                    #
else
endif

if        (    (-e $File_COORD_X)                                                                                                       \
          &&   (-e $File_COORD_Y)                                                                                                       \
          &&   (-e $File_COORD_Z)                                                                                                       \
          ) then
          if        ($_____FGcomplements != $NEXIST) then
                    $CA                 $_____FGcomplements$COORD_X                                                                     \
                                                                                                    >> $File_COORD_X
                    $CA                 $_____FGcomplements$COORD_Y                                                                     \
                                                                                                    >> $File_COORD_Y
                    $CA                 $_____FGcomplements$COORD_Z                                                                     \
                                                                                                    >> $File_COORD_Z

                    $CA                 $_____FGcomplements$ROUGE                                                                       \
                                                                                                    >> $File_ROUGE
                    $CA                 $_____FGcomplements$VERTE                                                                       \
                                                                                                    >> $File_VERTE
                    $CA                 $_____FGcomplements$BLEUE                                                                       \
                                                                                                    >> $File_BLEUE

                    $CA                 $_____FGcomplements.RAYON                                                                       \
                                                                                                    >> $File_RAYON
                                        # Possibilite introduite le 20140308104445. Elle permet donc d'inclure, par exemple, le       #
                                        # trace dans un "decor"...                                                                    #
          else
          endif

          set       NpOiNtSX=`$CA $File_COORD_X | $WCl`
          set       NpOiNtSY=`$CA $File_COORD_Y | $WCl`
          set       NpOiNtSZ=`$CA $File_COORD_Z | $WCl`
          set       NpOiNtS=`$xcg/MIN3.01$X x=$NpOiNtSX y=$NpOiNtSY z=$NpOiNtSZ`

          eval      $xrv/particule.10$X                                                                                                 \
                                        np=1                                                                                            \
                                        iterations=$NpOiNtS                                                                             \
                                        isoles=FAUX chainer=FAUX Pajuster=VRAI Rpoints=4                                                \
                                        LISTE_X=$File_COORD_X                                                                           \
                                        LISTE_Y=$File_COORD_Y                                                                           \
                                        LISTE_Z=$File_COORD_Z                                                                           \
                                        editer_extrema_hors=FAUX                                                                        \
                                        LISTE_ROUGE=$File_ROUGE                                                                         \
                                        LISTE_VERTE=$File_VERTE                                                                         \
                                        LISTE_BLEUE=$File_BLEUE                                                                         \
                                        LISTE_RAYON=$File_RAYON                                                                         \
                                        ZOOM=$Transformation_ZOOM                                                                       \
                                        Lz=100                                                                                          \
                                        N_au_carre=$_____N_au_carre                                                                     \
                                        store_sphere__anti_aliasing_____compatibilite_20060426=FAUX                                     \
                                        chiffres=0                                                                                      \
                                        R=$ImAgE                                                                                        \
                                        $ArGs                                                                                           \
                                                                                                                        $formatI        \
                                                                                                              $_____Redirection
                                        # Le parametre '$Transformation_ZOOM' a ete introduit le 20130226090029...                    #
                                        #                                                                                             #
                                        # Le 'eval' a ete introduit le 20130308085043 a cause de l'eventuelle '$_____Redirection'...  #
                                        #                                                                                             #
                                        # L'option "N_au_carre=" a ete introduite le 20140318105704...                                #
                                        #                                                                                             #
                                        # L'option "store_sphere__anti_aliasing_____compatibilite_20060426=" a ete introduite le      #
                                        # 20160315182736 (a 'FAUX' pour des raisons de compatibilite anterieure) et ce a cause de     #
                                        # 'v $xiirv/.GPS3.11.1.$U store_sphere__anti_aliasing_____compatibilite_20060426=VRAI'        #
                                        # qui la rend obligatoire sous peine d'avoir des caracteres entaches de spheres trop          #
                                        # lumineuses par endroit...                                                                   #

          unset     NpOiNtS
          unset     NpOiNtSZ
          unset     NpOiNtSY
          unset     NpOiNtSX
else
          EROR      "['"'$xrd/graph.G_Genere$vv$Y'"'] L'un au moins des fichiers de coordonnees ('X', 'Y' ou 'Z') n'existe pas."
endif