#######################################################################################################################################
#                                                                                                                                     #
#         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.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231103103437).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Format                   ("Suc" "Sut" "Suh" "Sud")

$Z                  setParam            _____FormatR                  ("$formatR_Sut" "$formatR_Suh" "$formatR_Sud" "$formatR_Sdu")

$Z                  set                 NoMbRe2=$#_____LNiveaux
$Z                  set                 NoMbRe1=`calculINS sqrt($NoMbRe2)`
$Z                  set                 VaLiDaTiOn=`calculINS $NoMbRe1*$NoMbRe1`
$Z                                      # Validation des arguments...                                                                 #

$Z                  IfBasic             ($VaLiDaTiOn == $NoMbRe2) ThenBasic
$Z                  ElseBasic
$Z                                      EROR                "Le nombre de niveaux n'est pas un carre."
$Z                  EndifBasic

$Z                  set                 ItErAtIoN=1

$Z                  set                 index0=1
$Z                  set                 indexP=1

$Z                  set                 ImAgEs=$xTV/FRC1
$Z                  set                 LiStE_NuMeRoS=`$xci/nombres$X A="$K_VIDE" premiere=$index0 derniere=$NoMbRe2 pas=$indexP`

$Z                  eval                "$_____Format[$ItErAtIoN]"

$Z                  set                 index=$index0

$Z                  foreach             NiVeAu ($_____LNiveaux)
$Z                                      $xci/init$X         n=$NiVeAu                                                                   \
$Z                                                          R=$ImAgEs.$ItErAtIoN.$LiStE_NuMeRoS[$index]                                 \
$Z                                                                                                  $formatI

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