#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   N O N   R E L A T I V I S T E   D E   L ' O B J E T  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.1/.RELA.1.14.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SETENV              NAretes             12
$Z        SETENV              NConnexions         32

$Z        $DELETE             $xTV/TRANSLATION$COORD_X

$Z        set                 DemiTranslation=1.0

$Z        $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere                                                                     \
$Z                            vD=-$DemiTranslation vA=$DemiTranslation                                                                  \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                  >   $xTV/TRANSLATION$COORD_X

$Z        $DELETE             $xTV/HISTORIQUE

$Z        set                 PasDeTemps=1.0

$Z        if                  ($?_____RapportVC == $EXIST) then
$Z                            set                 Vitesse=`$xcg/MUL2.01$X a=$DemiTranslation b=2`
$Z                            set                 Vitesse=`$xcg/DIVZ.01$X a=$Vitesse b=$Nimages`
$Z                            set                 Celerite=`$xcg/DIVZ.01$X a=$Vitesse b=$_____RapportVC`
$Z        else
$Z                            set                 Celerite=0.002
$Z        endif

$Z        setParam            _____Xrelativiste             0.0

$Z        setParam            _____Yrelativiste             0.0

$Z        setParam            _____Zrelativiste             0.0

$Z        $xrv/particule.10$X np=$Nimages iterations=$Nparticules                                                                       \
$Z                            AX=+1 BX=+0.5                                                                                             \
$Z                            AY=+1 BY=+0.5                                                                                             \
$Z                            AZ=+1 BZ=+0.5                                                                                             \
$Z                            AXYZ=+2 BXYZ=-1                                                                                           \
$Z                            LISTE_X=$xTV/COORD$COORD_X                                                                                \
$Z                            LISTE_Y=$xTV/COORD$COORD_Y                                                                                \
$Z                            LISTE_Z=$xTV/COORD$COORD_Z                                                                                \
$Z                            LISTE_RAYON=$RayonVolume                                                                                  \
$Z                            LISTE_ROUGE=$xTV/COULEUR$ROUGE                                                                            \
$Z                            LISTE_VERTE=$xTV/COULEUR$VERTE                                                                            \
$Z                            LISTE_BLEUE=$xTV/COULEUR$BLEUE                                                                            \
$Z                            Lz=1000 ZOOM=0.5                                                                                          \
$Z                            isoles=FAUX points=$NConnexions                                                                           \
$Z                            cubique=FAUX                                                                                              \
$Z                            LISTE_dX=$DeriveeVolume                                                                                   \
$Z                            LISTE_dY=$DeriveeVolume                                                                                   \
$Z                            LISTE_dZ=$DeriveeVolume                                                                                   \
$Z                            RVB=VRAI                                                                                                  \
$Z                            TRANSLATION_OX=$xTV/TRANSLATION$COORD_X                                                                   \
$Z                            TRANSLATION_OY=0                                                                                          \
$Z                            lister_le_temps=VRAI                                                                                      \
$Z                            lister_les_points=VRAI                                                                                    \
$Z                            lister_les_points_apres=VRAI                                                                              \
$Z                            celerite=$Celerite                                                                                        \
$Z                            Xrelativiste=$_____Xrelativiste                                                                           \
$Z                            Yrelativiste=$_____Yrelativiste                                                                           \
$Z                            Zrelativiste=$_____Zrelativiste                                                                           \
$Z                            quantifier_le_temps=FAUX quantification_du_temps=0.10                                                     \
$Z                            dct=$PasDeTemps                                                                                           \
$Z                            R=$_____images1.                                                                                          \
$Z                                                                         $formatI                                                     \
$Z        | $SE                                                                                                                         \
$Z                             -e '/^ *$/d'                                                                                             \
$Z                                                                                                  >& $xTV/HISTORIQUE

$Z        $DELETE             $xTV/COORD$COORD_X
$Z        $DELETE             $xTV/COORD$COORD_Y
$Z        $DELETE             $xTV/COORD$COORD_Z

$Z        $DELETE             $xTV/TRANSLATION$COORD_X

$Z        $DELETE             $xTV/COULEUR$ROUGE
$Z        $DELETE             $xTV/COULEUR$VERTE
$Z        $DELETE             $xTV/COULEUR$BLEUE