#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   C R A Q U E L U R E S  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.CRAQ.21.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220121094728).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____PasX           32

$Z                  setParam            _____PasY           32

$Z                  setParam            _____GraineX        1789

$Z                  setParam            _____GraineY        2001

$Z                  setParam            _____DeplacementX   0.015

$Z                  setParam            _____DeplacementY   0.015

$Z                  setParam            _____Niveau         $BLANC

$Z                  setParam            _____Alpha          0.8

$Z                  setParam            _____Beta           0.2

$Z                  FilSTmpB            FiLeT

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" premiere=1 derniere=$tailleI"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" px=$_____PasX py=$_____PasY"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" normalisees=VRAI"

$Z                  $xci/valeurs_imag$X                                                                                                 \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      PX=1 PY=0                                                                                       \
$Z                                                                                                            > $FiLeT.1$COORD_X

$Z                  $xci/valeurs_imag$X                                                                                                 \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      PX=0 PY=1                                                                                       \
$Z                                                                                                            > $FiLeT.1$COORD_Y

$Z                  set                 NPoInTsX_=`$CA $FiLeT.1$COORD_X | $WCl`
$Z                  set                 NPoInTsY_=`$CA $FiLeT.1$COORD_Y | $WCl`
$Z                  set                 NPoInTsXY=`$xcg/MIN2.01$X x=$NPoInTsX_ y=$NPoInTsY_`

$Z                  $xrv/val_alea.01$X                                                                                                  \
$Z                                      ne=$NPoInTsXY                                                                                   \
$Z                                      graine=$_____GraineX                                                                            \
$Z                                      LISTE_BORNES_INFERIEURES=-$_____DeplacementX LISTE_BORNES_SUPERIEURES=+$_____DeplacementX       \
$Z                                                                                                            > $FiLeT.alea$COORD_X

$Z                  $xrv/val_alea.01$X                                                                                                  \
$Z                                      ne=$NPoInTsXY                                                                                   \
$Z                                      graine=$_____GraineY                                                                            \
$Z                                      LISTE_BORNES_INFERIEURES=-$_____DeplacementY LISTE_BORNES_SUPERIEURES=+$_____DeplacementY       \
$Z                                                                                                            > $FiLeT.alea$COORD_Y

$Z                  $xrv/ADD2.11$X                                                                                                      \
$Z                                      ne=$NPoInTsXY                                                                                   \
$Z                                      fichier1=$FiLeT.1$COORD_X                                                                       \
$Z                                      fichier2=$FiLeT.alea$COORD_X                                                                    \
$Z                                                                                                            > $FiLeT.2$COORD_X

$Z                  $xrv/ADD2.11$X                                                                                                      \
$Z                                      ne=$NPoInTsXY                                                                                   \
$Z                                      fichier1=$FiLeT.1$COORD_Y                                                                       \
$Z                                      fichier2=$FiLeT.alea$COORD_Y                                                                    \
$Z                                                                                                            > $FiLeT.2$COORD_Y

$Z                  $xrv/store_image$X                                                                                                  \
$Z                                      ne=$NPoInTsXY                                                                                   \
$Z                                      LISTE_X=$FiLeT.2$COORD_X                                                                        \
$Z                                      LISTE_Y=$FiLeT.2$COORD_Y                                                                        \
$Z                                      LISTE_NIVEAU=$_____Niveau                                                                       \
$Z                                      R=$FiLeT.points                                                                                 \
$Z                                                                                                            $formatI

$Z                  $xci/craque$X                                                                                                       \
$Z                                      A1=$_____Niveau                                                                                 \
$Z                                      A2=$FiLeT.points                                                                                \
$Z                                      alpha=$_____Alpha beta=$_____Beta                                                               \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                            $formatI

$Z                  FilSTmpE            FiLeT