#######################################################################################################################################
#                                                                                                                                     #
#         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   D E S   C H A M P S   V A R I A B L E S  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SUDO.72.2.1.$U' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141003100109).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NiveauGrille             `GetParam $xci/grille.01$X niveau`
$Z                                      # Parametre introduit le 20141003153144...                                                    #

$Z                  SETParam            _____NpointsGrille            25

$Z                  FilSTmpB            ISuDoKu

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

$Z                  SformatI

$Z                  Std

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