#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D E   M O S A I Q U E S   2 x 2                                                                   #
#         D E   M A R C H E S   A L E A T O I R E S   T R I D I M E N S I O N N E L L E S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.RDNW.d1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20241031105908).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MTaille                  2
$Z                  setParam            _____MY                       0.08

$Z                  set                 PrEmIeRe=1
$Z                  set                 DeRnIeRe=4
$Z                  set                 LNuMeRos=`$xci/nombres$X premiere=$PrEmIeRe derniere=$DeRnIeRe`

$Z                  set                 index=1

$Z                  FilSTmpB            ImAgEs

$Z                  set                 A09="$Alphabet_0_9"

$Z                  foreach             NuMeRo ($LNuMeRos)
$Z                                      set       MeSsAgE=`echo "$_____Messages[$index]" | $SE -e "s/\([$A09]\)\.\([$A09]\)/\1,\2/"`
$Z                                      # Afin que le point decimal "." soit remplace par une virgule ","...                          #

#20241101094650____:$Z                            execRVB   $xci/message$X                                                         \  #
#20241101094650____:$Z                                                          A=$_____ImagesA[$index]%s                          \  #
#20241101094650____:$Z                                                          message="$_____Messages[$index]"                   \  #
#20241101094650____:$Z                                                          bibliotheque_00_fonte_proportionnelle=VRAI         \  #
#20241101094650____:$Z                                                          bibliotheque_00_remplacer_0_O=VRAI                 \  #
#20241101094650____:$Z                                                          niveau_fond=$NOIR niveau_message=$BLANC            \  #
#20241101094650____:$Z                                                          centrer=VRAI                                       \  #
#20241101094650____:$Z                                                          anti_aliasing=VRAI                                 \  #
#20241101094650____:$Z                                                          taille=$_____MTaille                               \  #
#20241101094650____:$Z                                                          Y=$_____MY                                         \  #
#20241101094650____:$Z                                                          R=$ImAgEs.$LNuMeRos[$index]%s                      \  #
#20241101094650____:$Z                                                                                                  $formatI      #

$Z                            execRVB   $xci/message$X                                                                                  \
$Z                                                          A=$_____ImagesA[$index]%s                                                   \
$Z                                                          message="$MeSsAgE"                                                          \
$Z                                                          bibliotheque_00_fonte_proportionnelle=VRAI                                  \
$Z                                                          bibliotheque_00_remplacer_0_O=VRAI                                          \
$Z                                                          niveau_fond=$NOIR niveau_message=$BLANC                                     \
$Z                                                          centrer=VRAI                                                                \
$Z                                                          anti_aliasing=VRAI                                                          \
$Z                                                          taille=$_____MTaille                                                        \
$Z                                                          Y=$_____MY                                                                  \
$Z                                                          R=$ImAgEs.$LNuMeRos[$index]%s                                               \
$Z                                                                                                                      $formatI

$Z                                      @                   index = $index + 1
$Z                  end

$Z                  set                 NoMbReHV=`calculINS sqrt($DeRnIeRe-$PrEmIeRe+1)`

$Z        execRVB   $xci/regroupe.02$Z  $ImAgEs.                                                                                        \
$Z                                      $_____ImageR%s                                                                                  \
$Z                                      $PrEmIeRe 1                                                                                     \
$Z                                      $NoMbReHV $NoMbReHV                                                                             \
$Z                                      "%s"                                                                                            \
$Z                                      '$K_QD$formatR_Squ$K_QD'

$Z                  FilSTmpE            ImAgEs