#######################################################################################################################################
#                                                                                                                                     #
#         C L U S T E R    D E   N I V E A U   1   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.A1.1.1.$U' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230923110608).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Grossissement            1.5

#20231006115005____:$Z                  setParam            _____QPalette                 $xiP/gris.01                                #
$Z                  setParam            _____QPalette                 $xiP/cercle.35

$Z                  $DELETE             $FSpEcTrE.1*                            >&  $nul

$Z                  $CA                 $FSpEcTrE.0                                                                               |     \
$Z                  $GRE                "Niveau=$NiVeAu_SeLeCtIoNnE"                                                              |     \
$Z                  $SE                 -e 's/[{},]/ /g'                                                                                \
$Z                                      -e 's/[XY]=//g'                                                                                 \
$Z                                      -e 's/Niveau=//g'                                                                         |     \
$Z                  $AW                 ' { print $3 " " $4 " " $6 " " $7 " " $8 } '                                              |     \
$Z                  $SOR                -u                                                                                              \
$Z                                                                              >   $FSpEcTrE.1

$Z                  $CA                 $FSpEcTrE.1                                                                               |     \
$Z                  $AW                 ' { print $1 "\n" $3 } '                                                                        \
$Z                                                                              >   $FSpEcTrE.1$COORD_X

$Z                  $CA                 $FSpEcTrE.1                                                                               |     \
$Z                  $AW                 ' { print $2 "\n" $4 } '                                                                        \
$Z                                                                              >   $FSpEcTrE.1$COORD_Y

$Z                  $CA                 $FSpEcTrE.1                                                                               |     \
$Z                  $AW                 ' { print $5 "\n" $5 } '                                                                        \
$Z                                                                              >   $FSpEcTrE.1$NIVEAU

$Z                  $CA                 $FSpEcTrE.1                                                                               |     \
$Z                  $AW                 ' { print $5 "\n" $5 } '                                                                  |     \
$Z                  $SE                 -e "s/^$_____Niveau___"'$'"/$_____Rayon___/"                                                    \
$Z                                      -e "s/^$_____Niveau_S0"'$'"/$_____Rayon_S0/"                                                    \
$Z                                      -e "s/^$_____Niveau_S1"'$'"/$_____Rayon_S1/"                                                    \
$Z                                                                              >   $FSpEcTrE.1$RAYON

$Z                  set       NpartX=`$CA $FSpEcTrE.1$COORD_X | $WCl`
$Z                  set       NpartY=`$CA $FSpEcTrE.1$COORD_Y | $WCl`
$Z                  set       Npart_=`$xcg/MIN2.01$X x=$NpartX y=$NpartY`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      iterations=$Npart_                                                                              \
$Z                                      $PPaRaMeTrEs                                                                                    \
$Z                                      p=$_____QPalette                                                                                \
$Z                                      LISTE_NIVEAU=$FSpEcTrE.1$NIVEAU                                                                 \
$Z                                      LISTE_RAYON=$FSpEcTrE.1$RAYON                                                                   \
$Z                                      grossissement=$_____Grossissement                                                               \
$Z                                      fond=VRAI F=$xTV/SMIT.31.4                                                                      \
$Z                                      R=$xTV/SMIT.31.4                                                                                \
$Z                                                                                        $formatI