#######################################################################################################################################
# #
# P A V A G E N O N P E R I O D I Q U E D E T Y P E " S P E C T R E " #
# A V E C C O L O R I A G E F O N C T I O N D U N I V E A U M A X I M A L D U F O N D : #
# #
# #
# Author of '$xiirv/.SMIT.71.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20230827095322). #
# #
#######################################################################################################################################
$Z setParam _____EchelleGlobale 9
$Z setParam _____NombreSpectres `GetParam $xrd/spectre.01$X nombre_maximal_spectres`
$Z setParam _____Rayon 0.020
$Z setParam _____Zoom 1.15
$Z setParam _____TranslationX +0.05
$Z setParam _____TranslationY +0.18
$Z setParam _____DistanceMini 0.0030
#20230828172424____:$Z setParam _____Couronne 1 #
$Z setParam _____Couronne 3
$Z setParam _____ParticulePara "$K_VIDE"
#20230828171358____:$Z setParam _____Palette $xiP/random.A5 #
$Z setParam _____Palette $xiP/Spectre.11
$Z FilSTmpB FSpEcTrE
$Z set S_PaRaMeTrEs="$K_VIDE"
$Z set S_PaRaMeTrEs="$S_PaRaMeTrEs"" editer_vecteurs=VRAI"
$Z set S_PaRaMeTrEs="$S_PaRaMeTrEs"" echelle=$_____EchelleGlobale"
$Z set S_PaRaMeTrEs="$S_PaRaMeTrEs"" nombre_maximal_spectres=$_____NombreSpectres"
$Z set S_PaRaMeTrEs="$S_PaRaMeTrEs"" niveau_rotation=VRAI niveau_rotation_absolue=VRAI"
$Z set S_PaRaMeTrEs="$S_PaRaMeTrEs"" numeroter_cotes=FAUX"
$Z $xrd/spectre.01$X \
$Z $S_PaRaMeTrEs \
$Z centre_gravite=FAUX \
$Z R=$xTV/SMIT.71.1.sansG \
$Z $formatI |& \
$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.sansG
$Z # Trace du 'Spectre' SANS le centre de Gravite... #
$Z $CA $FSpEcTrE.1.sansG | \
$Z $AW ' { print $1 "\n" $3 } ' \
$Z > $FSpEcTrE.1.sansG$COORD_X
$Z $CA $FSpEcTrE.1.sansG | \
$Z $AW ' { print $2 "\n" $4 } ' \
$Z > $FSpEcTrE.1.sansG$COORD_Y
$Z $CA $FSpEcTrE.1.sansG | \
$Z $AW ' { print $5 "\n" $5 } ' \
$Z > $FSpEcTrE.1.sansG$NIVEAU
$Z $xrd/spectre.01$X \
$Z $S_PaRaMeTrEs \
$Z centre_gravite=VRAI \
$Z R=$xTV/SMIT.71.1.avecG \
$Z $formatI |& \
$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.avecG
$Z $CA $FSpEcTrE.1.avecG | \
$Z $AW ' { print $1 "\n" $3 } ' \
$Z > $FSpEcTrE.1.avecG$COORD_X
$Z $CA $FSpEcTrE.1.avecG | \
$Z $AW ' { print $2 "\n" $4 } ' \
$Z > $FSpEcTrE.1.avecG$COORD_Y
$Z $CA $FSpEcTrE.1.avecG | \
$Z $AW ' { print $5 "\n" $5 } ' \
$Z > $FSpEcTrE.1.avecG$NIVEAU
$Z # Trace du 'Spectre' AVEC le centre de Gravite... #
$Z set P_PaRaMeTrEs="$K_VIDE"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" np=1"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" LISTE_Z=0"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" TRANSLATION_OX=$_____TranslationX"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" TRANSLATION_OY=$_____TranslationY"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" ZOOM=$_____Zoom"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" distance_minimale=$_____DistanceMini"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" siR=0 siV=0 siB=0"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" Lz=100"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" couronne=$_____Couronne"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" $_____ParticulePara"
$Z set P_PaRaMeTrEs="$P_PaRaMeTrEs"" chiffres=0"
$Z set Npart_sansG_X=`$CA $FSpEcTrE.1.sansG$COORD_X | $WCl`
$Z set Npart_sansG_Y=`$CA $FSpEcTrE.1.sansG$COORD_Y | $WCl`
$Z set Npart_sansG__=`$xcg/MIN2.01$X x=$Npart_sansG_X y=$Npart_sansG_Y`
$Z $xrv/particule.10$X \
$Z iterations=$Npart_sansG__ \
$Z $P_PaRaMeTrEs \
$Z LISTE_X=$FSpEcTrE.1.sansG$COORD_X \
$Z LISTE_Y=$FSpEcTrE.1.sansG$COORD_Y \
$Z LISTE_NIVEAU=$FSpEcTrE.1.sansG$NIVEAU \
$Z p=$_____Palette \
$Z LISTE_RAYON=`calcul $_____Rayon/2` \
$Z centre_des_spheres=VRAI \
$Z fond=FAUX \
$Z R=$xTV/SMIT.71.22.sansG \
$Z $formatI
$Z $xci/luminance.01$X \
$Z A=$xTV/SMIT.71.22.sansG \
$Z R=$xTV/SMIT.71.25.sansG \
$Z $formatI
$Z $xci/dilate.01$X \
$Z A=$xTV/SMIT.71.25.sansG \
$Z dilatation=VRAI \
$Z points=9 \
$Z R=$xTV/SMIT.71.23.sansG \
$Z $formatI
$Z # Trace des bords epaissis des 'Spectre's SANS les centres de Gravite... #
$Z set Npart_avecG_X=`$CA $FSpEcTrE.1.avecG$COORD_X | $WCl`
$Z set Npart_avecG_Y=`$CA $FSpEcTrE.1.avecG$COORD_Y | $WCl`
$Z set Npart_avecG__=`$xcg/MIN2.01$X x=$Npart_avecG_X y=$Npart_avecG_Y`
$Z $xrv/particule.10$X \
$Z iterations=$Npart_avecG__ \
$Z $P_PaRaMeTrEs \
$Z LISTE_X=$FSpEcTrE.1.avecG$COORD_X \
$Z LISTE_Y=$FSpEcTrE.1.avecG$COORD_Y \
$Z LISTE_NIVEAU=$FSpEcTrE.1.avecG$NIVEAU \
$Z p=$_____Palette \
$Z LISTE_RAYON=`calcul $_____Rayon/2` \
$Z centre_des_spheres=VRAI \
$Z fond=FAUX \
$Z R=$xTV/SMIT.71.22.avecG \
$Z $formatI
$Z $xci/luminance.01$X \
$Z A=$xTV/SMIT.71.22.avecG \
$Z R=$xTV/SMIT.71.25.avecG \
$Z $formatI
$Z # Trace des bords NON epaissis des 'Spectre's AVEC les centres de Gravite ponctuels... #
$Z $xci/maximum$X \
$Z A1=$xTV/SMIT.71.23.sansG \
$Z A2=$xTV/SMIT.71.25.avecG \
$Z R=$xTV/SMIT.71.23 \
$Z $formatI
$Z # Trace des bords epaissis des 'Spectre's AVEC les centres de Gravite ponctuels... #
$Z $xci/contours.22$X \
$Z A=$xTV/SMIT.71.23 \
$Z utiliser_niveau_maximal_point_isole=VRAI \
$Z R=$xTV/SMIT.71.26 \
$Z $formatI
$Z # Remplissage des bords avec le niveau des centres de Gravite ponctuels... #
$Z $xci/maximum$X \
$Z A1=$xTV/SMIT.71.26 \
$Z A2=$xTV/SMIT.71.25.avecG \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$_____Palette \
$Z R=$xTV/SMIT.71.24 \
$Z $formatI
$Z # Remplissage des centres de Gravite et coloriage... #
$Z $xrv/particule.10$X \
$Z iterations=$Npart_sansG__ \
$Z $P_PaRaMeTrEs \
$Z LISTE_X=$FSpEcTrE.1.sansG$COORD_X \
$Z LISTE_Y=$FSpEcTrE.1.sansG$COORD_Y \
$Z LISTE_NIVEAU=$FSpEcTrE.1.sansG$NIVEAU \
$Z LISTE_RAYON=$_____Rayon \
$Z fond=VRAI F=$xTV/SMIT.71.24 \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FSpEcTrE