#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   L A   L I S T E   D E S   A U T O R I S A T I O N S                                             #
#         D E   M O D I F I C A T I O N   D E S   C O U L E U R S  :                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.REFM.i2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200316100955).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____GraineModifCouleurs      1947

$Z                  setParam            _____SeuilModifCouleurs       0.5

$Z                  $DELETE             $xTV/AUTORISATION_MODIFICATION_COULEURS

$Z                  $xci/valeurs_alea$X p=$Part0 d=$PartN                                                                               \
$Z                                      graine=$_____GraineModifCouleurs                                                                \
$Z                                      signe="$K_VIDE"                                                                                 \
$Z                                      inf=0 sup=1                                                                                     \
$Z                                      mbse=FAUX                                                                                 |     \
$Z                  $xrv/IFGT.11$X      ne=$Npart                                                                                       \
$Z                                      fichier1=$_____SeuilModifCouleurs                                                               \
$Z                                      fichier2==                                                                                      \
$Z                                                                                        > $xTV/AUTORISATION_MODIFICATION_COULEURS

$Z                  set       FMoDiF_CoUlEuRs="LISTE_AUTORISATION_DE_MODIFICATION_COULEURS=$xTV/AUTORISATION_MODIFICATION_COULEURS"