#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   " V I C T O R   V A S A R E L Y "  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiia/.VASA.21.1.$U' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20190602095349).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Premiere                 1

$Z                  setParam            _____Derniere                 64

$Z                  setParam            _____SeuilInf                 $GRIS_4

$Z                  setParam            _____SeuilSup                 $GRIS_8

$Z                  FilSTmpB            ImAgEsT

$Z                  FilSTmpB            PaLeTtE

$Z                  $xciP/ACCES$X       pA=$xiP/gris.01 pR=$PaLeTtE
$Z                                      # Creation d'une palette "dynamique"...                                                       #

$Z                  set                 NiVeAu_1=$GRIS_0
$Z                  set                 NiVeAu_2=$GRIS_8

$Z                  set                 index=$_____Premiere

$Z                  while               ($index <= $_____Derniere)
$Z                                      switch    ("$LiM[$index]")
$Z                                                case      "1":
$Z                                                          set       CoMmAnDe="$xci/gauss$X"
$Z                                                          breaksw
$Z                                                case      "2":
$Z                                                          set       CoMmAnDe="$xci/gauss$X arieg=VRAI pxADD2_ADD2=0 pxMAX2_ADD2=1"
$Z                                                          breaksw
$Z                                                default:
$Z                                                          set       CoMmAnDe="$xci/neutre$X A=$NOIR"
$Z                                                          breaksw
$Z                                      endsw

$Z                                      $xciP/S_NIVEAU$X    pA=$PaLeTtE                                                                 \
$Z                                                          nR=$LiR1[$index]                                                            \
$Z                                                          nV=$LiV1[$index]                                                            \
$Z                                                          nB=$LiB1[$index]                                                            \
$Z                                                          niveau=$NiVeAu_1                                                            \
$Z                                                          pR=$PaLeTtE

$Z                                      $xciP/S_NIVEAU$X    pA=$PaLeTtE                                                                 \
$Z                                                          nR=$LiR2[$index]                                                            \
$Z                                                          nV=$LiV2[$index]                                                            \
$Z                                                          nB=$LiB2[$index]                                                            \
$Z                                                          niveau=$NiVeAu_2                                                            \
$Z                                                          pR=$PaLeTtE
$Z                                      # Mise a jour de la palette "dynamique"...                                                    #

$Z                                      set                 NuMeRo=`$xci/nombres$X p=$index d=$index`

$Z                                      $CoMmAnDe                                                                                       \
$Z                                                                                                  $formatI                      |     \
$Z                                      $xci/passe_bande$X                                                                              \
$Z                                                          seuil_inferieur=$_____SeuilInf                                              \
$Z                                                          seuil_superieur=$_____SeuilSup                                              \
$Z                                                          forcer_niveau_intermediaire=VRAI                                            \
$Z                                                          niveau_inferieur=$NiVeAu_1                                                  \
$Z                                                          niveau_intermediaire=$NiVeAu_2                                              \
$Z                                                                                                  $formatI                      |     \
$Z                                      $xci/vraies_C$X                                                                                 \
$Z                                                          p=$PaLeTtE                                                                  \
$Z                                                          R=$ImAgEsT.$NuMeRo                                                          \
$Z                                                                                                  $formatI
$Z                                      # Generation de l'image courante...                                                           #

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

$Z                  FilSTmpE            PaLeTtE

$Z                  set                 NoMbRE=`calculINS sqrt($_____Derniere-$_____Premiere+1)`


$Z                  set                 FoRmAtR="optimiser"

$Z                  execRVB             $xci/regroupe.01$Z  $ImAgEsT.                                                                   \
$Z                                                          $_____ImageR%s                                                              \
$Z                                                          $_____Premiere      1                                                       \
$Z                                                          $NoMbRE             $NoMbRE                                                 \
$Z                                                          %s                                                                          \
$Z                                                          '$K_QD$FoRmAtR$K_QD'
$Z                                      # Generation de la matrice d'images...                                                        #

$Z                  FilSTmpE            ImAgEsT