#######################################################################################################################################
#                                                                                                                                     #
#         P A R T I T I O N   A L E A T O I R E   D E   L ' E N S E M B L E   D E S   P A R T I C U L E S                             #
#         E N   D E U X   S O U S - E N S E M B L E S   P O U R   L E S   C O U L E U R S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.t.84.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE             $xTV/CARACTERIS.T

$Z                                      # ATTENTION, on notera que l'utilisation de '$NOIR_PLANCHER' ci-apres fait que le niveau      #
$Z                                      # '$NOIR' disparait completement ; cela peut avoir de legeres consequences sur l'apparence    #
$Z                                      # visuelle des particules (en augmentant leur taille apparente...). Le 20000626175801, pour   #
$Z                                      # tenter de corriger cela, j'ai ajoute des '$xrv/passe_ban.01$X' ci-apres pour tenter de      #
$Z                                      # restaurer les '$NOIR' initiaux...                                                           #

$Z                  @                   SNoir = $NOIR_PLANCHER + 1

$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/COULEURS$ROUGE                                                                    \
$Z                                      fichier2=$NOIR_PLANCHER                                                                   |     \
$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2="="                                                                              |     \
$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$NOIR                                                                            |     \
$Z                  $xrv/MIN2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$BLANC                                                                           |     \
$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$SNoir                                                                                  \
$Z                                      maximum=$BLANC                                                                                  \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$NOIR                                                                         \
$Z                                      valeur_superieure=$BLANC                                                                        \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COULEURS$ROUGE
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COULEURS$ROUGE

$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/COULEURS$VERTE                                                                    \
$Z                                      fichier2=$NOIR_PLANCHER                                                                   |     \
$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2="="                                                                              |     \
$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$NOIR                                                                            |     \
$Z                  $xrv/MIN2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$BLANC                                                                           |     \
$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$SNoir                                                                                  \
$Z                                      maximum=$BLANC                                                                                  \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$NOIR                                                                         \
$Z                                      valeur_superieure=$BLANC                                                                        \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COULEURS$VERTE
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COULEURS$VERTE

$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/COULEURS$BLEUE                                                                    \
$Z                                      fichier2=$NOIR_PLANCHER                                                                   |     \
$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.RVB                                                                    \
$Z                                      fichier2="="                                                                              |     \
$Z                  $xrv/MAX2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$NOIR                                                                            |     \
$Z                  $xrv/MIN2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1="="                                                                                    \
$Z                                      fichier2=$BLANC                                                                           |     \
$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$SNoir                                                                                  \
$Z                                      maximum=$BLANC                                                                                  \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      valeur_inferieure=$NOIR                                                                         \
$Z                                      valeur_superieure=$BLANC                                                                        \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COULEURS$BLEUE
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COULEURS$BLEUE

$Z                  $DELETE             $xTV/CARACTERIS.RVB

$Z                  unset               SNoir