#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   G R I L L E   D E   S U D O K U                                                           #
#         V I A   D E S   S T R U C T U R E S   P A R A D O X A L E S  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SUDO.51.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20140930172647).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 SeLeCtEuR=`echo "$Alphabet_0_9" | $SE -e "s/././g"`
$Z                  set                 AlPhAbEt=`echo "$Alphabet_A_Z" | $SE -e "s/^\($SeLeCtEuR\).*"'$/\1/'`
$Z                                      # Definition de la liste des lettres destinees a remplacer les chiffres...                    #

$Z                  set                 SeLeCtEuR="$K_VIDE"
$Z                  repeat              $YnSuDoKu eval 'set                 SeLeCtEuR="$SeLeCtEuR""."'
$Z                  set                 ReToUr=`echo "$Alphabet_A_Z" | $SE -e "s/^\($SeLeCtEuR\).*"'$/\1/' | $SE -e "s/./3/g"`"2"
$Z                                      # Definition d'un passage a la ligne superieure...                                            #

$Z                  set                 TaIlLe=9

$Z                  set                 GrIlLe="$K_VIDE"

$Z                  set                 Y_SuDoKu=$Y0SuDoKu

$Z                  while               ($Y_SuDoKu <= $YnSuDoKu)
$Z                                      set       LiGnE=`$CA $FSuDoKu | $GRE " Y=$Y_SuDoKu " | $SE -e 's/^.* C=\([^ ][^ ]*\) .*$/\1/'`
$Z                                      set       LiGnE=`echo "$LiGnE" | $R "[$Alphabet_0_9]" "[$AlPhAbEt]" | $SE "s/  *//g"`
$Z                                      set       LiGnE="$LiGnE""$ReToUr"
$Z                                      set       GrIlLe="$GrIlLe""$LiGnE"

$Z                                      @                   Y_SuDoKu = $Y_SuDoKu + 1
$Z                  end

$Z                  $xci/message$X                                                                                                      \
$Z                                      A=$NOIR                                                                                         \
$Z                                      centrer=VRAI                                                                                    \
$Z                                      message="$GrIlLe"                                                                               \
$Z                                      taille=$TaIlLe anti_aliasing=VRAI                                                               \
$Z                                      bibliotheque=03                                                                                 \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                              $formatI