#######################################################################################################################################
#                                                                                                                                     #
#         M O T I F   D E   B A S E   D E S   P A V A G E S   N O N   P E R I O D I Q U E S                                           #
#         D E   T Y P E   " S P E C T R E "  :                                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SMIT.21.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240130081921).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam  _____Rayon1         0.005

$Z                  setParam  _____NiveauROUGE    $GRIS_8
$Z                  setParam  _____NiveauVERTE    $GRIS_8
$Z                  setParam  _____NiveauBLEUE    $GRIS_8
$Z                                      # Parametres introduits le 20240130132533....                                                 #

$Z                  set       ArGs="$K_VIDE"
$Z                  set       ArGs="$ArGs"" ne=0"
$Z                  set       ArGs="$ArGs"" fichier=="

$Z                  set       MiNX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs ms=VRAI`
$Z                  set       MaXX=`$CA $FPoLyGoNeS.2$COORD_X | $xrv/extrema.01$X $ArGs Ms=VRAI`

$Z                  set       MiNY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs ms=VRAI`
$Z                  set       MaXY=`$CA $FPoLyGoNeS.2$COORD_Y | $xrv/extrema.01$X $ArGs Ms=VRAI`

$Z                  set       MiNZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs ms=VRAI`
$Z                  set       MaXZ=`$CA $FPoLyGoNeS.2$COORD_Z | $xrv/extrema.01$X $ArGs Ms=VRAI`

$Z                  set       TrAnSX=`calcul 0.5-((($MaXX)+($MiNX))/2)`
$Z                  set       TrAnSY=`calcul 0.5-((($MaXY)+($MiNY))/2)`
$Z                  set       TrAnSZ=0

$Z                  set       ArGs_P="$K_VIDE"
$Z                  set       ArGs_P="$ArGs_P"" Lz=1000 ZOOM=0.7"
$Z                  set       ArGs_P="$ArGs_P"" ROTATION_OZ=-$pis2"
$Z                  set       ArGs_P="$ArGs_P"" isoles=FAUX chainer=VRAI"
$Z                  set       ArGs_P="$ArGs_P"" ajuster_points=VRAI"
$Z                  set       ArGs_P="$ArGs_P"" equidistance=VRAI distance_minimale=0.005"
$Z                  set       ArGs_P="$ArGs_P"" couronne=2"
$Z                  set       ArGs_P="$ArGs_P"" RVB=VRAI"
$Z                  set       ArGs_P="$ArGs_P"" editer_extrema_hors=FAUX"

$Z                  set       _____Grossissement=2
$Z                  set       FoNd=$xTV/SMIT.11

$Z                  $xrv/particule.10$X np=1 iterations=$Npart_                                                                         \
$Z                                      LISTE_X=$FPoLyGoNeS.2$COORD_X                                                                   \
$Z                                      BX=$TrAnSX                                                                                      \
$Z                                      LISTE_Y=$FPoLyGoNeS.2$COORD_Y                                                                   \
$Z                                      BY=$TrAnSY                                                                                      \
$Z                                      LISTE_Z=$FPoLyGoNeS.2$COORD_Z                                                                   \
$Z                                      BZ=$TrAnSZ                                                                                      \
$Z                                      LISTE_RAYON=$_____Rayon1                                                                        \
$Z                                      LISTE_ROUGE=$_____NiveauROUGE                                                                   \
$Z                                      LISTE_VERTE=$_____NiveauVERTE                                                                   \
$Z                                      LISTE_BLEUE=$_____NiveauBLEUE                                                                   \
$Z                                      $ArGs_P                                                                                         \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$FoNd                                                                                         \
$Z                                                                    $formatI

$Z                  FilSTmpE            FPoLyGoNeS