#######################################################################################################################################
#                                                                                                                                     #
#         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   5 x 5                                                   #
#         L E   N O M B R E   D E   T R O U S   C A R R E S   E T A N T   E G A L   A U X   N O M B R E S   P R E M I E R S  :        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.SIER.91.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240409095407).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RapportHomothetie        5

$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"" TTTTT TTTTT TTFTT TTTTT TTTTT"'

$Z                  set                 LChIfFrE_1="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_1="$LChIfFrE_1"" TTTTT TTTTT TTFFT TTTTT TTTTT"'

$Z                  set                 LChIfFrE_2="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_2="$LChIfFrE_2"" TTTTT TTTTT TTFFT TTTFT TTTTT"'

$Z                  set                 LChIfFrE_3="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_3="$LChIfFrE_3"" TTTTT TTTTT TTFFT TFFFT TTTTT"'

$Z                  set                 LChIfFrE_4="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_4="$LChIfFrE_4"" TTTTT TFTTT TFFFT TFFFT TTTTT"'

$Z                  set                 LChIfFrE_5="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_5="$LChIfFrE_5"" TTTTT TFFFF TFFFF TFFFT TTTTT"'

$Z                  set                 LChIfFrE_6="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_6="$LChIfFrE_6"" TTTTT TFFFF TFFFF TFFFF TTTTF"'

$Z                  set                 LChIfFrE_7="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_7="$LChIfFrE_7"" TTTTT TFFFF TFFFF TFFFF FFFFF"'

$Z                  set                 LChIfFrE_8="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_8="$LChIfFrE_8"" TTTTT TFFFF FFFFF FFFFF FFFFF"'

$Z                  set                 LChIfFrE_9="$K_VIDE"
$Z                  repeat    $_____RapportHomothetie       eval      'set LChIfFrE_9="$LChIfFrE_9"" FFFTT FFFFF FFFFF FFFFF FFFFF"'

$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`