#######################################################################################################################################
# #
# C L U S T E R D E N I V E A U 3 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.D1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20231005091644). #
# #
#######################################################################################################################################
$Z setParam _____ClusterA_1 `GetParam $xrd/spectre.14$X cluster_2_1`
$Z setParam _____ClusterA_2 `GetParam $xrd/spectre.14$X cluster_2_2`
$Z setParam _____ClusterA_3 `GetParam $xrd/spectre.14$X cluster_2_3`
$Z setParam _____ClusterA_4 `GetParam $xrd/spectre.14$X cluster_2_4`
$Z setParam _____ClusterA_5 `GetParam $xrd/spectre.14$X cluster_2_5`
$Z setParam _____ClusterA_6 `GetParam $xrd/spectre.14$X cluster_2_6`
$Z setParam _____ClusterA_7 `GetParam $xrd/spectre.14$X cluster_2_7`
$Z setParam _____ClusterA_8 `GetParam $xrd/spectre.14$X cluster_2_8`
$Z setParam _____ClusterB_1 `GetParam $xrd/spectre.14$X cluster_2_1`
$Z setParam _____ClusterB_2 `GetParam $xrd/spectre.14$X cluster_2_2`
$Z setParam _____ClusterB_3 `GetParam $xrd/spectre.14$X cluster_2_3`
$Z setParam _____ClusterB_4 `GetParam $xrd/spectre.14$X cluster_2_4`
$Z setParam _____ClusterB_5 `GetParam $xrd/spectre.14$X cluster_2_5`
$Z setParam _____ClusterB_6 `GetParam $xrd/spectre.14$X cluster_2_6`
$Z setParam _____ClusterB_7 `GetParam $xrd/spectre.14$X cluster_2_7`
$Z setParam _____ClusterB_8 `GetParam $xrd/spectre.14$X cluster_2_8`
$Z setParam _____Squelette0 FAUX
$Z setParam _____Squelette1 FAUX
$Z setParam _____Squelette2 VRAI
$Z setParam _____Squelette3 VRAI
$Z setParam _____EchelleGlobale 9
$Z setParam _____Niveau___ $GRIS_8
$Z setParam _____Niveau_S0 $GRIS_3
$Z setParam _____Niveau_S1 $GRIS_5
#20231006120949____:$Z setParam _____Niveau_S2 $GRIS_6 #
$Z setParam _____Niveau_S2 $GRIS_2
#20231006120949____:$Z setParam _____Niveau_S3 $GRIS_7 #
$Z setParam _____Niveau_S3 $GRIS_4
$Z setParam _____Graine 1947
$Z # Cette valeur par defaut permet d'eviter que certains spectres se retrouvent colories #
$Z # en NOIR (ce qui s'est rencontre avec 'v $xci/contours.22$K 1789'...). #
$Z setParam _____Rayon___ 0.036
$Z setParam _____Rayon_S0 0.012
$Z setParam _____Rayon_S1 0.020
$Z setParam _____Rayon_S2 0.030
$Z setParam _____Rayon_S3 0.032
$Z setParam _____Zoom 0.09
$Z setParam _____TranslationX +1.500
$Z setParam _____TranslationY -3.920
$Z setParam _____DistanceMini 0.005
$Z setParam _____ParticulePara "$K_VIDE"
$Z setParam _____Palette $xiP/random.E5
$Z FilSTmpB FSpEcTrE
$Z set SPaRaMeTrEs="$K_VIDE"
$Z set SPaRaMeTrEs="$SPaRaMeTrEs"" editer_vecteurs=VRAI"
$Z set SPaRaMeTrEs="$SPaRaMeTrEs"" echelle=$_____EchelleGlobale"
$Z set SPaRaMeTrEs="$SPaRaMeTrEs"" numeroter_cotes=FAUX"
$Z $xrd/spectre.14$X $SPaRaMeTrEs \
$Z cluster_2_1=$_____ClusterA_1 \
$Z cluster_2_2=$_____ClusterA_2 \
$Z cluster_2_3=$_____ClusterA_3 \
$Z cluster_2_4=$_____ClusterA_4 \
$Z cluster_2_5=$_____ClusterA_5 \
$Z cluster_2_6=$_____ClusterA_6 \
$Z cluster_2_7=$_____ClusterA_7 \
$Z cluster_2_8=$_____ClusterA_8 \
$Z squelette_0=FAUX \
$Z squelette_1=FAUX \
$Z squelette_2=FAUX \
$Z squelette_3=FAUX \
$Z R=$xTV/SMIT.31.0 \
$Z $formatI \
$Z >& $FSpEcTrE.0
$Z $CA $FSpEcTrE.0 | \
$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 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 set PPaRaMeTrEs="$K_VIDE"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" np=1"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" LISTE_X=$FSpEcTrE.1$COORD_X"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" LISTE_Y=$FSpEcTrE.1$COORD_Y"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" LISTE_Z=0"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" TRANSLATION_OX=$_____TranslationX"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" TRANSLATION_OY=$_____TranslationY"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" ZOOM=$_____Zoom"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" distance_minimale=$_____DistanceMini"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" Lz=100"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" $_____ParticulePara"
$Z set PPaRaMeTrEs="$PPaRaMeTrEs"" chiffres=0"
$Z $xrv/particule.10$X \
$Z iterations=$Npart_ \
$Z $PPaRaMeTrEs \
$Z LISTE_RAYON=`calcul $_____Rayon___/2` \
$Z fond=FAUX \
$Z R=$xTV/SMIT.31.2 \
$Z $formatI
$Z $xci/luminance.01$X \
$Z A=$xTV/SMIT.31.2 \
$Z R=$xTV/SMIT.31.3 \
$Z $formatI
$Z $xci/contours.22$X \
$Z A=$xTV/SMIT.31.3 \
$Z optimiser=VRAI \
$Z niveau_aleatoire=VRAI \
$Z graine=$_____Graine \
$Z optimiser_increment=VRAI \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$_____Palette \
$Z R=$xTV/SMIT.31.4 \
$Z $formatI
$Z $DELETE $FSpEcTrE.*
$Z $xrd/spectre.14$X $SPaRaMeTrEs \
$Z cluster_2_1=$_____ClusterB_1 \
$Z cluster_2_2=$_____ClusterB_2 \
$Z cluster_2_3=$_____ClusterB_3 \
$Z cluster_2_4=$_____ClusterB_4 \
$Z cluster_2_5=$_____ClusterB_5 \
$Z cluster_2_6=$_____ClusterB_6 \
$Z cluster_2_7=$_____ClusterB_7 \
$Z cluster_2_8=$_____ClusterB_8 \
$Z niveau_1=$_____Niveau___ \
$Z niveau_2=$_____Niveau___ \
$Z niveau_3=$_____Niveau___ \
$Z niveau_4=$_____Niveau___ \
$Z niveau_5=$_____Niveau___ \
$Z niveau_6=$_____Niveau___ \
$Z niveau_7=$_____Niveau___ \
$Z niveau_8=$_____Niveau___ \
$Z squelette_0=$_____Squelette0 niveau_squelette_0=$_____Niveau_S0 \
$Z squelette_1=$_____Squelette1 niveau_squelette_1=$_____Niveau_S1 \
$Z squelette_2=$_____Squelette2 niveau_squelette_2=$_____Niveau_S2 \
$Z squelette_3=$_____Squelette3 niveau_squelette_3=$_____Niveau_S3 \
$Z R=$xTV/SMIT.31.0 \
$Z $formatI \
$Z >& $FSpEcTrE.0
$Z set NiVeAu_SeLeCtIoNnE=$_____Niveau___
$m4 _____include(_____xiirv/.SMIT.D1.1.1._____U)
#20230926133817____:$Z IfBasic ($_____Squelette0 == VRAI) ThenBasic #
#20230925143030____:$Z set NiVeAu_SeLeCtIoNnE=$_____Niveau_S0 #
#20230925143030____:$m4 _____include(_____xiirv/.SMIT.D1.1.1._____U) #
#20230926133817____:$Z ElseBasic #
#20230926133817____:$Z EndifBasic #
#20231005091644____:$Z IfBasic ($_____Squelette1 == VRAI) ThenBasic #
#20231005091644____:$Z set NiVeAu_SeLeCtIoNnE=$_____Niveau_S1 #
#20231005091644____:$m4 _____include(_____xiirv/.SMIT.D1.1.1._____U) #
#20231005091644____:$Z ElseBasic #
#20231005091644____:$Z EndifBasic #
$Z IfBasic ($_____Squelette2 == VRAI) ThenBasic
$Z set NiVeAu_SeLeCtIoNnE=$_____Niveau_S2
$m4 _____include(_____xiirv/.SMIT.D1.1.1._____U)
$Z ElseBasic
$Z EndifBasic
$Z IfBasic ($_____Squelette3 == VRAI) ThenBasic
$Z set NiVeAu_SeLeCtIoNnE=$_____Niveau_S3
$m4 _____include(_____xiirv/.SMIT.D1.1.1._____U)
$Z ElseBasic
$Z EndifBasic
$Z FilSTmpE FSpEcTrE
$Z execRVB $xci/neutre$X \
$Z A=$xTV/SMIT.31.4%s \
$Z R=$_____ImageR%s \
$Z $formatI