#!/bin/csh

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

FileTmpB  FCoOrDoNnEeS
FileTmpB  FImAgE

set       NiVeAu=$BLANC

$xci/message$X                                                                                                                          \
          A=$NOIR                                                                                                                       \
          message="$MeSsAgE"                                                                                                            \
          niveau_fond=$NOIR                                                                                                             \
          niveau_message=$NiVeAu                                                                                                        \
          bibliotheque=$BiBlIoThEqUe                                                                                                    \
          centrer=VRAI                                                                                                                  \
          anti_aliasing=FAUX                                                                                                            \
          editer_vecteur_3D=VRAI                                                                                                        \
          R=$FImAgE                                                                                                               |&    \
$GRE      -i ",Niveau=$NiVeAu"'$'                                                                                                       \
                                                                                                    >&  $FCoOrDoNnEeS
                                        # Conversion du message argument en une suite de coordonnees {X,Y,Z}...                       #

FileTmpE  FImAgE

$CA       $FCoOrDoNnEeS                                                                                                           |     \
$SE       -e "s/^.*X=\([-+.$Alphabet_0_9]*\).*X=\([-+.$Alphabet_0_9]*\).*"'$/\1\n\2/'                                                   \
                                                                                                    >   $FCoOrDoNnEeS$COORD_X
$CA       $FCoOrDoNnEeS                                                                                                           |     \
$SE       -e "s/^.*Y=\([-+.$Alphabet_0_9]*\).*Y=\([-+.$Alphabet_0_9]*\).*"'$/\1\n\2/'                                                   \
                                                                                                    >   $FCoOrDoNnEeS$COORD_Y
$CA       $FCoOrDoNnEeS                                                                                                           |     \
$SE       -e "s/^.*Z=\([-+.$Alphabet_0_9]*\).*Z=\([-+.$Alphabet_0_9]*\).*"'$/\1\n\2/'                                                   \
                                                                                                    >   $FCoOrDoNnEeS$COORD_Z

set       NpOiNtS_X=`$WCl $FCoOrDoNnEeS$COORD_X | $AW ' { print $1 } '`
set       NpOiNtS_Y=`$WCl $FCoOrDoNnEeS$COORD_Y | $AW ' { print $1 } '`
set       NpOiNtS_Z=`$WCl $FCoOrDoNnEeS$COORD_Z | $AW ' { print $1 } '`

set       NpOiNtS=`$xcg/MAX3.01$X x=$NpOiNtS_X y=$NpOiNtS_Y z=$NpOiNtS_Z signe="$K_VIDE"`
                                        # Je note le 20110419173042 qu'il est effectivement preferable de calculer un 'MAX3(...)'     #
                                        # plutot qu'un 'MIN3(...)' car, en effet, si les trois fichiers '$FCoOrDoNnEeS' n'ont pas le  #
                                        # meme nombre d'elements cela se verra ci-apres dans '$xrv/particule.10$X' par des messages   #
                                        # d'erreur (contrairement au 'MIN3(...)' qui ferait que le meme nombre d'elements seraient    #
                                        # exploites dans les trois fichiers '$FCoOrDoNnEeS'...).                                      #

unset     NpOiNtS_X
unset     NpOiNtS_Y
unset     NpOiNtS_Z

if        ($NpOiNtS > 0) then
          set       RaYoN=0.06

          $xrv/particule.10$X                                                                                                           \
                    np=1 iterations=$NpOiNtS                                                                                            \
                    isoles=FAUX chainer=FAUX Pajuster=VRAI Rpoints=4                                                                    \
                    LISTE_X=$FCoOrDoNnEeS$COORD_X                                                                                       \
                    LISTE_Y=$FCoOrDoNnEeS$COORD_Y                                                                                       \
                    LISTE_Z=$FCoOrDoNnEeS$COORD_Z                                                                                       \
                    editer_extrema_hors=FAUX                                                                                            \
                    BZ=0.5                                                                                                              \
                    ajuster_coordonnees=VRAI ajuster_independamment_homothetie=VRAI ajuster_independamment_translation=VRAI             \
                    LISTE_ROUGE=$NiVeAu                                                                                                 \
                    LISTE_VERTE=$NiVeAu                                                                                                 \
                    LISTE_BLEUE=$NiVeAu                                                                                                 \
                    LISTE_RAYON=$RaYoN                                                                                                  \
                    ZOOM=1                                                                                                              \
                    Lz=100                                                                                                              \
                    R=$ImAgE chiffres=0                                                                                                 \
                    $ArGs                                                                                                               \
                                                                                                                        $formatI
                                        # Visualisation des vecteurs. On notera le "BZ=0.5" destine a "centrer" le plan des 'Z's      #
                                        # ce qui permet de faire fonctionner le 'ZOOM' correctement. En effet, si 'Z=0', alors        #
                                        # le plan des vecteurs se trouve renvoye en arriere, d'autant plus loin que le rapport        #
                                        # de zoom est eleve...                                                                        #
                                        #                                                                                             #
                                        # Le 20080911104308 fut introduit le "ZOOM=1"...                                              #
                                        #                                                                                             #
                                        # L'option "editer_extrema_hors=FAUX" a ete introduite le 20090127114929...                   #
else
          EROR      "['"'$xrd/graph.G_Dessin$vv$Y'"'] Il n'y a aucun vecteur a tracer."
endif

unset     NpOiNtS

unset     NiVeAu

FileTmpE  FCoOrDoNnEeS