#######################################################################################################################################
#                                                                                                                                     #
#         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                                                           #
#         A V E C   U N E   L I S T E   D ' I M A G E S   :                                                                           #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SUDO.52.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141001133014).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            ISuDoKu

$Z                  set                 NuMeRo0=0
$Z                  set                 NuMeRo=$NuMeRo0

$Z                  SformatI

$Z                  Format              $LiStE_ImAgEs[1]$ROUGE
$Z                  eval                "$Format"
                                        # On fait l'hypothese que toutes les images ont le meme format...                             #

$Z                  set                 X_SuDoKu=$X0SuDoKu

$Z                  while               ($X_SuDoKu <= $XnSuDoKu)
$Z                                      set                 Y_SuDoKu=$Y0SuDoKu

$Z                                      while               ($Y_SuDoKu <= $YnSuDoKu)
$Z                                                          set       LiGnE=`$CA $FSuDoKu | $GRE " X=$X_SuDoKu Y=$Y_SuDoKu "`
$Z                                                          set       LiGnE=" $LiGnE "

$Z                                                          set       CLiGnE=`echo "$LiGnE" | $SE -e 's/^.* C=\([^ ][^ ]*\) .*$/\1/'`

$Z                                                          set                 NuMeRo4=`$xci/nombres$X p=$NuMeRo d=$NuMeRo`
$Z                                                          execRVB             $xci/format.01$X                                        \
$Z                                                                                                  A=$LiStE_ImAgEs[$CLiGnE]%s          \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  mode=2                              \
$Z                                                                                                  R=$ISuDoKu.$NuMeRo4%s               \
$Z                                                                                                                      $formatR_Std

$Z                                                          @                   NuMeRo = $NuMeRo + 1

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

$Z                                      @                   X_SuDoKu = $X_SuDoKu + 1
$Z                  end

$Z                  Std

$Z                  execRVB             $xci/regroupe.02$Z                                                                              \
$Z                                                          $ISuDoKu.                                                                   \
$Z                                                          $_____ImageR%s                                                              \
$Z                                                          $NuMeRo0 1                                                                  \
$Z                                                          $XnSuDoKu $YnSuDoKu                                                         \
$Z                                                          "%s"                                                                        \
$Z                                                          '$K_QD$sformatIR$K_QD'                                                      \
$Z                                                          4                                                                           \
$Z                                                          FAUX

$Z                  RformatI

$Z                  FilSTmpE            ISuDoKu