#######################################################################################################################################
# #
# 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 A L E A T O I R E : #
# #
# #
# Author of '$xiirv/.SMIT.I1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240103112909). #
# #
#######################################################################################################################################
$Z setParam _____Selecteur ($K_VIDE)
$Z # Parametre introduit le 20230902123833... #
$Z setParam _____EchelleGlobale 9
$Z # Parametre introduit le 20230815120259 pour assurer la compatibilite anterieure... #
$Z setParam _____NombreSpectres `GetParam $xrd/spectre.12$X nombre_maximal_spectres`
$Z # Parametre introduit le 20230802182102... #
$Z setParam _____Rouge $GRIS_3
$Z setParam _____Verte $GRIS_3
$Z setParam _____Bleue $GRIS_3
$Z setParam _____Rayon 0.010
$Z setParam _____Grossissement 1.5
$Z setParam _____Zoom 1.15
$Z setParam _____TranslationX +0.05
$Z setParam _____TranslationY +0.18
$Z setParam _____DistanceMini 0.005
$Z setParam _____ParticulePara "$K_VIDE"
$Z setParam _____Graine 1789
$Z setParam _____Palette $xiP/random.A5
$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.12$X $SPaRaMeTrEs \
$Z nombre_maximal_spectres=$_____NombreSpectres \
$Z R=$xTV/SMIT.31.0 \
$Z $formatI \
$Z >& $FSpEcTrE.0
$Z # Alors que ce code vient de 'v $xiirv/.SMIT.31.1.$U .xrd.spectre.01.X', il convenient #
$Z # d'utiliser 'v $xrd/spectre.12$K' et non pas 'v $xrd/spectre.01$K' et ce afin de pouvoir #
$Z # disposer de 'v $xrd/spectre.12$K NE_PAS_FAIRE_UNE_SYMETRIE_D_AXE_OY' qui est donc #
$Z # compatible avec 'v $xiirv/.SMIT.A1.1.$U .xrd.spectre.12.X'... #
$Z if ($#_____Selecteur > 0) then
$Z $xrd/spectre.12$X $SPaRaMeTrEs \
$Z nombre_maximal_spectres=1 \
$Z R=$xTV/SMIT.31.0 \
$Z $formatI \
$Z >& $FSpEcTrE.2
$Z set NoMbRe_LiGnEs=`$CA $FSpEcTrE.2 | $WCl`
$Z $DELETE $FSpEcTrE.2
$Z $MV $FSpEcTrE.0 $FSpEcTrE.2
$Z foreach SeLeCtEuR ($_____Selecteur)
$Z set DeBuT=`calculINS (($SeLeCtEuR-1)*$NoMbRe_LiGnEs)+1`
$Z set FiN__=`calculINS $DeBuT+($NoMbRe_LiGnEs-1)`
$Z (listMN $FSpEcTrE.2 $DeBuT $FiN__) \
$Z >>! $FSpEcTrE.0
$Z end
$Z else
$Z endif
$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 $CA $FSpEcTrE.1 | \
$Z $AW ' { print $5 "\n" $5 } ' \
$Z > $FSpEcTrE.1$NIVEAU
$Z # A priori, ne sert a rien, mais au cas ou (introduit le 20230823120551)... #
$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"" iterations=$Npart_"
$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 $PPaRaMeTrEs \
$Z LISTE_ROUGE=$_____Rouge \
$Z LISTE_VERTE=$_____Verte \
$Z LISTE_BLEUE=$_____Bleue \
$Z LISTE_RAYON=`calcul $_____Rayon/2` \
$Z grossissement=$_____Grossissement \
$Z fond=VRAI F=$_____ImageA \
$Z R=$_____ImageR \
$Z $formatI
$Z FilSTmpE FSpEcTrE