#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   T A P I S   D E   S I E R P I N S K I   4 x 4  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.SIER.81.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240407074515).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RapportHomothetie        4

$Z                  setParam            _____NiveauEponge             $GRIS_1
$Z                  setParam            _____NiveauComplement         $GRIS_1
                                        #                                                                                             #

$Z                                      # ATTENTION : l'axe 'OY' est oriente vers le bas...                                           #

$Z                  set                 LChIfFrE_0="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_0="$LChIfFrE_0"" TTTT TFTT TTTT TTTT"'
$Z                                      # On notera le 20240408134427 que la definition doit etre dupliquee a l'identique sur         #
$Z                                      # quatre lignes a cause du fait que l'axe 'OZ' est en general parcouru, meme pour le          #
$Z                                      # tapis de Sierpinski. Cela est vrai pour les dix chiffres {0,1,2,3,4,5,6,7,8,9} ci-apres...  #

$Z                  set                 LChIfFrE_1="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_1="$LChIfFrE_1"" TTTT TFFT TTTT TTTT"'

$Z                  set                 LChIfFrE_2="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_2="$LChIfFrE_2"" TTTT TFFT TTFT TTTT"'

$Z                  set                 LChIfFrE_3="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_3="$LChIfFrE_3"" TTTT TFFT TFFT TTTT"'

$Z                  set                 LChIfFrE_4="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_4="$LChIfFrE_4"" TTTT TFFT FFFT TTTT"'

$Z                  set                 LChIfFrE_5="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_5="$LChIfFrE_5"" TTTT FFFT FFFT TTTT"'

$Z                  set                 LChIfFrE_6="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_6="$LChIfFrE_6"" FTTT FFFT FFFT TTTT"'

$Z                  set                 LChIfFrE_7="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_7="$LChIfFrE_7"" FFTT FFFT FFFT TTTT"'

$Z                  set                 LChIfFrE_8="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_8="$LChIfFrE_8"" FFFT FFFT FFFT TTTT"'

$Z                  set                 LChIfFrE_9="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set      LChIfFrE_9="$LChIfFrE_9"" FFFF FFFT FFFT TTTT"'

$Z                                      # ATTENTION : l'axe 'OY' est oriente vers le bas...                                           #

$Z                  set       CoUlEuRs=`$xci/valeurs_inte$X premiere=0 derniere=9 vD=$GRIS_2 vA=$GRIS_8 lineaire=VRAI entiers=VRAI`