#######################################################################################################################################
#                                                                                                                                     #
#         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.2.$U' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141003100217).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____PointsConvol             1
$Z                                      # Parametre introduit le 20141006144040...                                                    #

$Z                                                          @                   NuMeRo = $NuMeRo + 1

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

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

$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                  if                  ($_____PointsConvol > 1) then
$Z                                      execRVB             $xci/convol.01$X                                                            \
$Z                                                                              A=$_____ImageR%s                                        \
$Z                                                                              points=$_____PointsConvol                               \
$Z                                                                              R=$_____ImageR%s                                        \
$Z                                                                                                                      $formatI
$Z                  else
$Z                  endif

$Z                  set                 MaIlLeX=`calculNS ($dimX/$XnSuDoKu)+1`
$Z                  set                 MaIlLeY=`calculNS ($dimY/$YnSuDoKu)+1`

#20180619102052____:$Z                  $xci/grille.01$X                                                                           \  #
#20180619102052____:$Z                                      A=$NOIR                                                                \  #
#20180619102052____:$Z                                      niveau=$_____NiveauGrille                                              \  #
#20180619102052____:$Z                                      mx=$MaIlLeX my=$MaIlLeY                                                \  #
#20180619102052____:$Z                                                                              $formatI                 |     \  #
#20180619102052____:$Z                  $xci/dilate.01$X                                                                           \  #
#20180619102052____:$Z                                      dilater=VRAI                                                           \  #
#20180619102052____:$Z                                      points=$_____NpointsGrille                                             \  #
#20180619102052____:$Z                                      R=$ISuDoKu.GRILLE                                                      \  #
#20180619102052____:$Z                                                                              $formatI                          #

$Z                  set                 EpAiSsEuR=`calculINS (sqrt($_____NpointsGrille)-1)/2`
$Z                  set                 dEpAiSsEuR=1

$Z                  set                 EpAiSsEuR_G=`calculINS $EpAiSsEuR+((((int)$MaIlLeX)*$XnSuDoKu)-$dimX)`
$Z                  set                 EpAiSsEuR_B=`calculINS $EpAiSsEuR+((((int)$MaIlLeY)*$YnSuDoKu)-$dimY)`
$Z                  set                 EpAiSsEuR_DH=`calculINS $EpAiSsEuR-$dEpAiSsEuR`
$Z                                      # Formules relativement heuristiques...                                                       #

$Z                  $xci/grille.01$X                                                                                                    \
$Z                                      A=$NOIR                                                                                         \
$Z                                      niveau=$_____NiveauGrille                                                                       \
$Z                                      mx=$MaIlLeX my=$MaIlLeY                                                                         \
$Z                                      X_increment_gauche=-$EpAiSsEuR_G X_increment_droite=+$EpAiSsEuR_DH                              \
$Z                                      Y_increment_bas=-$EpAiSsEuR_B    Y_increment_haut=+$EpAiSsEuR_DH                                \
$Z                                      R=$ISuDoKu.GRILLE                                                                               \
$Z                                                                              $formatI

$Z                  execRVB             $xci/cache$X                                                                                    \
$Z                                                          A=$_____ImageR%s                                                            \
$Z                                                          M=$ISuDoKu.GRILLE                                                           \
$Z                                                          R=$_____ImageR%s                                                            \
$Z                                                                                                  $formatI

$Z                  FilSTmpE            ISuDoKu