#######################################################################################################################################
#                                                                                                                                     #
#         A N I M A T I O N   D ' U N   C H A M P   D E   V O R T I C I T E   T R I D I M E N S I O N N E L  :                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000004/face.1/.TUR3.1.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Fichier                  $xie/TUR3.1.64.240.D1.total

$Z        setParam            _____FiltrerMin               -1e100

$Z        setParam            _____FiltrerInf               0

$Z        setParam            _____FiltrerMax               +1e100

$Z        setParam            _____FiltrerSup               +1e100

$Z        setParam            _____ARayon                   0.0005

$Z        setParam            _____ARVB                     1.37

$Z        setParam            _____Palettes                 $xiP/trou_noir.74

$Z        set                 Premiere=1
$Z        set                 Derniere=128
$Z        @                   Nombre = $Derniere - $Premiere
$Z        @                   Nombre = $Nombre + 1

$Z        $DELETE             $xTV/TUR3.1$COORD_X
$Z        $DELETE             $xTV/TUR3.1$COORD_Y
$Z        $DELETE             $xTV/TUR3.1$COORD_Z
$Z        $DELETE             $xTV/TUR3.1$RAYON.T
$Z        $DELETE             $xTV/TUR3.1$RAYON
$Z        $DELETE             $xTV/TUR3.1$NIVEAU
$Z        $DELETE             $xTV/TUR3.1.ROTX

$Z        set                 _____Zmin=0
$Z        set                 _____Zmax=63
$Z        @                   Iterations = $_____Zmax - $_____Zmin
$Z        @                   Iterations = $Iterations + 1

$Z        XYmaxNe             $_____Zmax $_____Zmax

$Z        @                   Iterations = $Iterations * $dimX * $dimY

$Z        $xci/valeurs_albu$X                                                                                                           \
$Z                            PX=1 PY=0 PZ=0                                                                                            \
$Z                            Zmin=$_____Zmin Zmax=$_____Zmax                                                                           \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  > $xTV/TUR3.1$COORD_X

$Z        $xci/valeurs_albu$X                                                                                                           \
$Z                            PX=0 PY=1 PZ=0                                                                                            \
$Z                            Zmin=$_____Zmin Zmax=$_____Zmax                                                                           \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  > $xTV/TUR3.1$COORD_Y

$Z        $xci/valeurs_albu$X                                                                                                           \
$Z                            PX=0 PY=0 PZ=1                                                                                            \
$Z                            Zmin=$_____Zmin Zmax=$_____Zmax                                                                           \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  > $xTV/TUR3.1$COORD_Z

$Z        $xcg/float_Float$X                                                                                                            \
$Z                            A=$_____Fichier                                                                                     |     \
$Z        $xci/liste_points$X                                                                                                           \
$Z                            standard=FAUX                                                                                             \
$Z                            eNIVEAU=VRAI                                                                                              \
$Z                            eX=FAUX eY=FAUX                                                                                           \
$Z                            epoints=FAUX                                                                                        |     \
$Z        $SE                                                                                                                           \
$Z                            -e "s/^n=//"                                                                                              \
$Z                                                                                                  > $xTV/TUR3.1$RAYON.T

$Z        $xrv/passe_ban.01$X                                                                                                           \
$Z                            ne=$Iterations                                                                                            \
$Z                            fichier=$xTV/TUR3.1$RAYON.T                                                                               \
$Z                            hors_bande=VRAI                                                                                           \
$Z                            minimum=$_____FiltrerMin valeur_inferieure=$_____FiltrerInf                                               \
$Z                            maximum=$_____FiltrerMax valeur_superieure=$_____FiltrerSup                                               \
$Z                                                                                                  > $xTV/TUR3.1$RAYON

$Z        $xcg/float_Float$X                                                                                                            \
$Z                            A=$_____Fichier                                                                                     |     \
$Z        $xci/liste_points$X                                                                                                           \
$Z                            standard=FAUX                                                                                             \
$Z                            eNIVEAU=VRAI                                                                                              \
$Z                            eX=FAUX eY=FAUX                                                                                           \
$Z                            epoints=FAUX                                                                                        |     \
$Z        $SE                                                                                                                           \
$Z                            -e "s/^n=//"                                                                                              \
$Z                                                                                                  > $xTV/TUR3.1$NIVEAU

$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=$Premiere derniere=$Derniere                                                                     \
$Z                            vD=0 vA=$dpi                                                                                              \
$Z                                                                                                  > $xTV/TUR3.1.ROTX

$Z        Pal

$Z        $xrv/particule.10$X                                                                                                           \
$Z                            iterations=$Iterations                                                                                    \
$Z                            np=$Nombre                                                                                                \
$Z                            R=$_____imagesR.                                                                                          \
$Z                            LISTE_X=$xTV/TUR3.1$COORD_X                                                                               \
$Z                            LISTE_Y=$xTV/TUR3.1$COORD_Y                                                                               \
$Z                            LISTE_Z=$xTV/TUR3.1$COORD_Z                                                                               \
$Z                            ROTATION_OX=$xTV/TUR3.1.ROTX                                                                              \
$Z                            LISTE_RAYON=$xTV/TUR3.1$RAYON                                                                             \
$Z                            Ar=$_____ARayon                                                                                           \
$Z                            N_au_carre=FAUX                                                                                           \
$Z                            zoom_automatique=FAUX ZOOM=0.7                                                                            \
$Z                            coordonnees_dans_0_1=VRAI                                                                                 \
$Z                            AXYZ=2 BXYZ=-1                                                                                            \
$Z                            Lz=1000                                                                                                   \
$Z                            LISTE_NIVEAU=$xTV/TUR3.1$NIVEAU ARVB=$_____ARVB p=$_____Palettes                                          \
$Z                                                                                                                      $formatI

$Z        $DELETE             $xTV/TUR3.1$COORD_X
$Z        $DELETE             $xTV/TUR3.1$COORD_Y
$Z        $DELETE             $xTV/TUR3.1$COORD_Z
$Z        $DELETE             $xTV/TUR3.1$RAYON.T
$Z        $DELETE             $xTV/TUR3.1$RAYON
$Z        $DELETE             $xTV/TUR3.1$NIVEAU
$Z        $DELETE             $xTV/TUR3.1.ROTX