#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   F R A C T A L   " C A R R E "   ( V E R S I O N   1 )  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRC1.11.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231103112131).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  eval                "$_____Format[$ItErAtIoN]"

$Z                  @                   ItErAtIoNm1 = $ItErAtIoN - 1

$Z                  set                 index=$index0

$Z                  foreach             NiVeAu ($_____LNiveaux)
$Z                                      IfBasic             ($NiVeAu == $NOIR) ThenBasic
$Z                                                          $xci/init$X         n=$NiVeAu                                               \
$Z                                                                              R=$ImAgEs.$ItErAtIoN.$LiStE_NuMeRoS[$index]             \
$Z                                                                                                                      $formatI
$Z                                      ElseBasic
$Z                                                          set                 GeNeRe="$xci/neutre$X"
$Z                                                          set                 GeNeRe="$xci/seuil$X superieur=$NiVeAu"
$Z                                      # Au choix, mais 'v $xci/seuil$K' est de loin preferable...                                   #

$Z                                                          $GeNeRe             A=$ImAgEs.$ItErAtIoNm1                                  \
$Z                                                                              R=$ImAgEs.$ItErAtIoN.$LiStE_NuMeRoS[$index]             \
$Z                                                                                                                      $formatI
$Z                                      EndifBasic

$Z                                      @                   index = $index + $indexP
$Z                  end