#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   " R O B E R T   &   S O N I A   D E L A U N A Y "  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.DELA.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220628135304).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____GraineF11                19471

$Z                  setParam            _____GraineF12                17891

#20220629101729____:$Z                  setParam            _____Niveau1                  4                                           #
$Z                  setParam            _____Niveau1                  8

#20220629101729____:$Z                  setParam            _____Maille1X                 0.04                                        #
$Z                  setParam            _____Maille1X                 0.02

#20220629101729____:$Z                  setParam            _____Maille1Y                 0.04                                        #
$Z                  setParam            _____Maille1Y                 0.02

$Z                  setParam            _____Normalise10              0

#20220628155105____:$Z                  setParam            _____Normalise1               0.010                                       #
#20220629101729____:$Z                  setParam            _____Normalise11              0.005                                       #
#20220629103743____:$Z                  setParam            _____Normalise11              0.010                                       #
#20220629111128____:$Z                  setParam            _____Normalise11              0.0075                                      #
$Z                  setParam            _____Normalise11              0.0060

$Z                  setParam            _____GraineF2                 20011

$Z                  setParam            _____Niveau2                  8

$Z                  setParam            _____Maille2X                 0.04

$Z                  setParam            _____Maille2Y                 0.04

#20220629101729____:$Z                  setParam            _____Normalise20              $GRIS_7                                     #
#20220629111128____:$Z                  setParam            _____Normalise20              $GRIS_6                                     #
#20220629112711____:$Z                  setParam            _____Normalise20              $GRIS_7                                     #
$Z                  setParam            _____Normalise20              `calculINS ($GRIS_6+$GRIS_7)/2`

$Z                  setParam            _____Normalise21              $GRIS_8

$Z                  set                 MaIlLes1="mx=$_____Maille1X my=$_____Maille1Y"
$Z                  set                 MaIlLes2="mx=$_____Maille2X my=$_____Maille2Y"
$Z                  set                 NoRmAlIsE1="origine=$_____Normalise10 extremite=$_____Normalise11"

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=$_____GraineF11                                                                          \
$Z                                      $MaIlLes1                                                                                       \
$Z                                      niveau=$_____Niveau1                                                                            \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                    $formatI                                                    |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      $NoRmAlIsE1                                                                                     \
$Z                                      R=$_____ImageP$COORD_X                                                                          \
$Z                                                                    $formatI
$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=$_____GraineF12                                                                          \
$Z                                      $MaIlLes1                                                                                       \
$Z                                      niveau=$_____Niveau1                                                                            \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                    $formatI                                                    |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      $NoRmAlIsE1                                                                                     \
$Z                                      R=$_____ImageP$COORD_Y                                                                          \
$Z                                                                    $formatI

$m4                 _____include(_____xiirf/.PAYS.F2.4._____U)

$Z                  set                 NoRmAlIsE2="rNOIR=$_____Normalise20 rBLANC=$_____Normalise21"

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=$_____GraineF2                                                                           \
$Z                                      $MaIlLes2                                                                                       \
$Z                                      niveau=$_____Niveau2                                                                            \
$Z                                      standard=VRAI                                                                                   \
$Z                                                                    $formatI                                                    |     \
$Z                  $xci/acces$X                                                                                                        \
$Z                                      renormaliser=VRAI                                                                               \
$Z                                      $NoRmAlIsE2                                                                                     \
$Z                                      R=$xTV/BRUIT                                                                                    \
$Z                                                                    $formatI

$Z        execRVB   $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/BRUIT                                                                                   \
$Z                                      A2=$_____ImageR%s                                                                               \
$Z                                      renormaliser=FAUX                                                                               \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                    $formatI
$Z                                      # Il ne faut surtout pas renormaliser (d'ou le "renormaliser=FAUX") car, en effet, si une     #
$Z                                      # renormalisation est demandee, elle est faite independamment sur les trois composantes et    #
$Z                                      # la palette de couleurs n'est pas conservee...                                               #