#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   D E F O R M A T I O N   F R A C T A L E  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MAIL.12.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150526104417).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Iterations               4

$Z                  setParam            _____FractalGraineX           1789
$Z                                      # Parametre introduit le 20150608132248...                                                    #

$Z                  setParam            _____FractalGraineY           1947
$Z                                      # Parametre introduit le 20150608132248...                                                    #

$Z                  setParam            _____FractalGraineZ           2001
$Z                                      # Parametre introduit le 20150608132248...                                                    #

$Z                  setParam            _____Origine                  -0.10

$Z                  setParam            _____Extremite                +0.10

$Z                  setParam            _____FractalParam             "$K_VIDE"
$Z                                      # Parametre introduit le 20150603132156...                                                    #

$Z                  set                 LiStE=`$xci/nombres$X premiere=0 derniere=$_____MailleZ`

$Z                  set                 GrAiNeX=$_____FractalGraineX
$Z                  set                 GrAiNeY=$_____FractalGraineY
$Z                  set                 GrAiNeZ=$_____FractalGraineZ

$Z                  FilSTmpB  FFrAcTaL

$Z                  foreach             NuMeRo ($LiStE)
$Z                                      echo      "$xci/fract_2D.01$X                                                                   \
$Z                                                                    standard=FAUX                                                     \
$Z                                                                    iterations=$_____Iterations                                       \
$Z                                                                    graine=$GrAiNeX                                                   \
$Z                                                                    renormaliser=VRAI                                                 \
$Z                                                                    origine=$_____Origine                                             \
$Z                                                                    extremite=$_____Extremite                                         \
$Z                                                                    $_____FractalParam                                                \
$Z                                                                    R=$xTV/DEFORMATION.$NuMeRo$COORD_X                                \
$Z                                                                                                  $formatI"                           \
$Z                                                                                        >> $FFrAcTaL

$Z                                      echo      "$xci/fract_2D.01$X                                                                   \
$Z                                                                    standard=FAUX                                                     \
$Z                                                                    iterations=$_____Iterations                                       \
$Z                                                                    graine=$GrAiNeY                                                   \
$Z                                                                    renormaliser=VRAI                                                 \
$Z                                                                    origine=$_____Origine                                             \
$Z                                                                    extremite=$_____Extremite                                         \
$Z                                                                    $_____FractalParam                                                \
$Z                                                                    R=$xTV/DEFORMATION.$NuMeRo$COORD_Y                                \
$Z                                                                                                  $formatI"                           \
$Z                                                                                        >> $FFrAcTaL

$Z                                      if                  ($_____Dimension == 2) then
$Z                                      # Test introduit le 20150527074536 car, en effet, il manquait...                              #
$Z                                                          echo      "$xci/init$X                                                      \
$Z                                                                                        standard=FAUX                                 \
$Z                                                                                        valeur=0                                      \
$Z                                                                                        R=$xTV/DEFORMATION.$NuMeRo$COORD_Z            \
$Z                                                                                                                      $formatI"       \
$Z                                                                                                            >> $FFrAcTaL
$Z                                      else
$Z                                                          echo      "$xci/fract_2D.01$X                                               \
$Z                                                                                        standard=FAUX                                 \
$Z                                                                                        iterations=$_____Iterations                   \
$Z                                                                                        graine=$GrAiNeZ                               \
$Z                                                                                        renormaliser=VRAI                             \
$Z                                                                                        origine=$_____Origine                         \
$Z                                                                                        extremite=$_____Extremite                     \
$Z                                                                                        $_____FractalParam                            \
$Z                                                                                        R=$xTV/DEFORMATION.$NuMeRo$COORD_Z            \
$Z                                                                                                                      $formatI"       \
$Z                                                                                                            >> $FFrAcTaL
$Z                                      endif

$Z                                      @                   GrAiNeX = $GrAiNeX + 17
$Z                                      @                   GrAiNeY = $GrAiNeY + 17
$Z                                      @                   GrAiNeZ = $GrAiNeZ + 17
$Z                  end

$Z                  $xcg/ExecParallele.01$Z       $FFrAcTaL                                                                             \
$Z                                                                    >& $nul

$Z                  FilSTmpE  FFrAcTaL