#######################################################################################################################################
# #
# 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 " #
# T R A N S P O R T E D A N S L ' E S P A C E T R I DI M E N S I O N N E L F R A C T A L E M E N T : #
# #
# #
# Author of '$xiirv/.SMIT.G1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20230831103535). #
# #
#######################################################################################################################################
$Z setParam _____EchelleGlobale 9
$Z setParam _____NombreSpectres `GetParam $xrd/spectre.01$X nombre_maximal_spectres`
$Z setParam _____Rayon 0.006
$Z setParam _____Zoom 1.15
$Z setParam _____FIterations `GetParam $xci/fract_2D.01$X iterations`
$Z setParam _____Mx `GetParam $xci/fract_2D.01$X mx`
$Z setParam _____My `GetParam $xci/fract_2D.01$X my`
$Z setParam _____Graine `GetParam $xci/fract_2D.01$X graine`
$Z setParam _____TranslationX +0.05
$Z setParam _____TranslationY +0.18
$Z setParam _____DistanceMini 0.005
$Z setParam _____ParticulePara "$K_VIDE"
$Z setParam _____FPalette $xiP/random.A5
$Z FilSTmpB FSpEcTrE
$Z $xrd/spectre.01$X editer_vecteurs=VRAI \
$Z echelle=$_____EchelleGlobale \
$Z nombre_maximal_spectres=$_____NombreSpectres \
$Z numeroter_cotes=FAUX \
$Z niveau_rotation=VRAI \
$Z R=$xTV/SMIT.31.1 \
$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
$Z $CA $FSpEcTrE.1 | \
$Z $AW ' { print $1 "\n" $3 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z > $FSpEcTrE.1$COORD_X
$Z $CA $FSpEcTrE.1 | \
$Z $AW ' { print $2 "\n" $4 } ' | \
$Z $xrv/normalise.01$X \
$Z ne=0 \
$Z fichier== \
$Z > $FSpEcTrE.1$COORD_Y
$Z $CA $FSpEcTrE.1 | \
$Z $AW ' { print $5 "\n" $5 } ' \
$Z > $FSpEcTrE.1$NIVEAU
$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 $xci/fract_2D.01$X standard=FAUX \
$Z iterations=$_____FIterations \
$Z mx=$_____Mx \
$Z my=$_____My \
$Z graine=$_____Graine \
$Z renormaliser=VRAI \
$Z R=$xTV/SMIT.G1.1 \
$Z $formatI
$Z $xrv/load_image$X \
$Z ne=$Npart_ \
$Z A=$xTV/SMIT.G1.1 \
$Z standard=FAUX \
$Z LISTE_X=$FSpEcTrE.1$COORD_X \
$Z Xnormalisees=VRAI \
$Z LISTE_Y=$FSpEcTrE.1$COORD_Y \
$Z Ynormalisees=VRAI \
$Z > $FSpEcTrE.1$COORD_Z
$Z set PaRaMeTrEs="$K_VIDE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" np=1"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" iterations=$Npart_"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_X=$FSpEcTrE.1$COORD_X"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Y=$FSpEcTrE.1$COORD_Y"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Z=$FSpEcTrE.1$COORD_Z"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_NIVEAU=$FSpEcTrE.1$NIVEAU"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" p=$_____FPalette"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" TRANSLATION_OX=$_____TranslationX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" TRANSLATION_OY=$_____TranslationY"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" ZOOM=$_____Zoom"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" isoles=FAUX chainer=FAUX ajuster_points=VRAI equidistance=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" distance_minimale=$_____DistanceMini"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" Lz=100"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" $_____ParticulePara"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" chiffres=0"
$Z $xrv/particule.10$X \
$Z $PaRaMeTrEs \
$Z LISTE_RAYON=$_____Rayon \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FSpEcTrE