#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S F I L A M E N T S D E L ' U N I V E R S : #
# #
# #
# Author of '$xiirv/.CARB.D1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20160107131938). #
# #
#######################################################################################################################################
$Z setParam _____Exemplaires 4
$Z setParam _____GraineX 1789
$Z setParam _____MinimumX 0
$Z setParam _____MaximumX 0.010
$Z setParam _____GraineY 1947
$Z setParam _____MinimumY 0
$Z setParam _____MaximumY 0.010
$Z setParam _____GraineZ 2001
$Z setParam _____MinimumZ 0
$Z setParam _____MaximumZ 0.010
$Z setParam _____RayonMin 0.0006
$Z setParam _____RayonMax 0.0028
$Z setParam _____GraineR 1940
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z setParam _____Redirection2 "$K_VIDE"
$Z # Parametre introduit le 20160109102600... #
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*X=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== \
$Z exemplaires=$_____Exemplaires \
$Z > $LiStEPoInTs$COORD_X
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Y=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== \
$Z exemplaires=$_____Exemplaires \
$Z > $LiStEPoInTs$COORD_Y
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Z=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== \
$Z exemplaires=$_____Exemplaires \
$Z > $LiStEPoInTs$COORD_Z
$Z set NpartX=`$CA $LiStEPoInTs$COORD_X | $WCl` \
$Z set NpartY=`$CA $LiStEPoInTs$COORD_Y | $WCl` \
$Z set NpartZ=`$CA $LiStEPoInTs$COORD_Z | $WCl` \
$Z set NpartXYZ=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z echo "Nombre de galaxies : $NpartXYZ"
$Z # Edition introduite le 20160109100637... #
$Z $xrv/val_alea.01$X ne=$NpartXYZ \
$Z graine=$_____GraineX \
$Z LISTE_BORNES_INFERIEURES=$_____MinimumX \
$Z LISTE_BORNES_SUPERIEURES=$_____MaximumX \
$Z > $LiStEPoInTs.1$COORD_X
$Z $xrv/val_alea.01$X ne=$NpartXYZ \
$Z graine=$_____GraineY \
$Z LISTE_BORNES_INFERIEURES=$_____MinimumY \
$Z LISTE_BORNES_SUPERIEURES=$_____MaximumY \
$Z > $LiStEPoInTs.1$COORD_Y
$Z $xrv/val_alea.01$X ne=$NpartXYZ \
$Z graine=$_____GraineZ \
$Z LISTE_BORNES_INFERIEURES=$_____MinimumZ \
$Z LISTE_BORNES_SUPERIEURES=$_____MaximumZ \
$Z > $LiStEPoInTs.1$COORD_Z
$Z # Definition des perturbations aleatoires des coordonnees {X,Y,Z}. #
$Z $xrv/ADD2.11$X ne=$NpartXYZ \
$Z fichier1=$LiStEPoInTs$COORD_X \
$Z fichier2=$LiStEPoInTs.1$COORD_X \
$Z > $LiStEPoInTs.2$COORD_X
$Z $xrv/ADD2.11$X ne=$NpartXYZ \
$Z fichier1=$LiStEPoInTs$COORD_Y \
$Z fichier2=$LiStEPoInTs.1$COORD_Y \
$Z > $LiStEPoInTs.2$COORD_Y
$Z $xrv/ADD2.11$X ne=$NpartXYZ \
$Z fichier1=$LiStEPoInTs$COORD_Z \
$Z fichier2=$LiStEPoInTs.1$COORD_Z \
$Z > $LiStEPoInTs.2$COORD_Z
$Z # Perturbations aleatoires des coordonnees {X,Y,Z}. #
$Z $xrv/val_alea.01$X ne=$NpartXYZ \
$Z graine=$_____GraineR \
$Z LISTE_BORNES_INFERIEURES=$_____RayonMin \
$Z LISTE_BORNES_SUPERIEURES=$_____RayonMax \
$Z > $LiStEPoInTs.2$RAYON
$Z # Les rayons sont aleatoires. #
$Z $xrv/normalise.01$X ne=$NpartXYZ \
$Z fichier=$LiStEPoInTs.2$COORD_Z \
$Z origine=$NOIR_PLANCHER \
$Z extremite=$BLANC \
$Z > $LiStEPoInTs.2$NIVEAU
$Z # Les couleurs sont proportionnelles a la profondeur 'Z'... #
$Z eval $xrv/particule.10$X np=1 iterations=$NpartXYZ \
$Z dernier_premier=VRAI \
$Z LISTE_X=$LiStEPoInTs.2$COORD_X \
$Z LISTE_Y=$LiStEPoInTs.2$COORD_Y \
$Z LISTE_Z=$LiStEPoInTs.2$COORD_Z \
$Z LISTE_RAYON=$LiStEPoInTs.2$RAYON \
$Z LISTE_NIVEAU=$LiStEPoInTs.2$NIVEAU \
$Z p=$_____Palette \
$Z Lz=1000 \
$Z $ZoOm \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z TRANSLATION_OX=$_____TranslationX \
$Z TRANSLATION_OY=$_____TranslationY \
$Z TRANSLATION_OZ=$_____TranslationZ \
$Z isoles=VRAI \
$Z dernier_premier=FAUX \
$Z RVB=VRAI \
$Z N_AU_CARRE=$_____NAuCarre \
$Z editer_extrema_hors=FAUX \
$Z editer_mauvais_encadrement_niveaux_interpoles=FAUX \
$Z $_____Fond \
$Z $_____ParticulePara2 \
$Z R=$_____ImageR \
$Z chiffres=0 \
$Z $formatI \
$Z $_____Redirection2