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

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

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* [Xx]=\([^ ]*\) .*/\1/"                                      > $xTV/COORD$COORD_X

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* [Yy]=\([^ ]*\) .*/\1/"                                      > $xTV/COORD$COORD_Y

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* [Zz]=\([^ ]*\) .*/\1/"                                      > $xTV/COORD$COORD_Z

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

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* ROUGE=\([^ ]*\) .*/\1/"                                     > $xTV/COULEUR$ROUGE

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* VERTE=\([^ ]*\) .*/\1/"                                     > $xTV/COULEUR$VERTE

$Z        $CA                 $xTV/VOLUME                                                                                               \
$Z        | $SE                -e "s/.* BLEUE=\([^ ]*\) .*/\1/"                                     > $xTV/COULEUR$BLEUE


$Z        set                 Nparticules=`wc $xTV/VOLUME`
$Z        set                 Nparticules=$Nparticules[$WC1]

$Z        $DELETE             $xTV/VOLUME