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

$Z                  setParam            _____AGauss                   1

$Z                  setParam            _____TGauss                   0

$Z                  setParam            _____Facteur                  0.05

$Z                  setParam            _____Alpha                    0.7

$Z                  setParam            _____Beta                     0.3

$Z                  setParam            _____Points                   20000

$Z                  setParam            _____Convolution              1

$Z                  Pal

$Z                  $xci/init$X                                                                                                         \
$Z                                      n=$BLANC                                                                                        \
$Z                                      R=$xTV/TEXTURE                                                                                  \
$Z                                                                                                                      $formatI

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      amplificateur=$_____AGauss                                                                      \
$Z                                      translateur=$_____TGauss                                                                        \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/random.03$X                                                                                                    \
$Z                                      facteur=$_____Facteur                                                                           \
$Z                                      R=$xTV/RANDOM                                                                                   \
$Z                                                                                                                      $formatI
$Z                                      # En faisant :                                                                                #
$Z                                      #                                                                                             #
$Z                                      #                   _____AGauss = 0                                                           #
$Z                                      #                   _____TGauss = $BLANC                                                      #
$Z                                      #                                                                                             #
$Z                                      # la suite a lieu comme s'il n'y avait pas de champ gaussien de contrainte de                 #
$Z                                      # '$xci/random.03$X'.                                                                         #

$Z                  $xci/craque$X                                                                                                       \
$Z                                      A1=$xTV/TEXTURE                                                                                 \
$Z                                      A2=$xTV/RANDOM                                                                                  \
$Z                                      alpha=$_____Alpha                                                                               \
$Z                                      beta=$_____Beta                                                                                 \
$Z                                      points=$_____Points                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/convol.01$X                                                                                                    \
$Z                                      points=$_____Convolution                                                                        \
$Z                                      R=$_____imagesR                                                                                 \
$Z                                                                                                                      $formatI

$Z                  ro                  $_____imagesR
$Z                  unite               $_____imagesR