#######################################################################################################################################
# #
# O U E S T L ' U N I V E R S : #
# #
# #
# Author of '$xiirr/.UNIV.71.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140308110738). #
# #
#######################################################################################################################################
$Z setParam _____Expansion 0.6
$Z setParam _____Frayon 0.4
$Z setParam _____Z0 0.2
$Z setParam _____ZN 0.8
$Z FilSTmpB FGaLaXiEs
$Z $xrr/univers.10$X \
$Z np=1 \
$Z aleatoire=VRAI \
$Z siR=$GRIS_4 ssR=$GRIS_8 \
$Z siV=$GRIS_0 ssV=$GRIS_7 \
$Z siB=$GRIS_0 ssB=$GRIS_1 \
$Z fichier=$xie/galaxies.5015 \
$Z FACTEUR_D_EXPANSION=$_____Expansion \
$Z FACTEUR_DU_RAYON=$_____Frayon \
$Z chiffres=0 \
$Z R=$xTV/UNIVERS \
$Z lister_les_points=VRAI \
$Z lister_les_points_apres=VRAI \
$Z carre=VRAI petit_carre=VRAI \
$Z $formatI \
$Z >> $FGaLaXiEs
$Z # Les options "carre=VRAI petit_carre=VRAI" ont ete introduites le 20140314134452 afin de #
$Z # garantir la "sphericite" de l'Univers dans l'hyper-cube et ce quel que soit le format de #
$Z # l'image ('Pal', 'Sdu',...). #
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*X=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$COORD_X
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*Y=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$COORD_Y
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*Z=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== \
$Z origine=$_____Z0 extremite=$_____ZN | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$COORD_Z
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*ROUGE=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$ROUGE
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*VERTE=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$VERTE
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*BLEUE=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$BLEUE
$Z $CA $FGaLaXiEs | \
$Z $SE -e 's/^.*RAYON=\([^ ]*\) .*$/\1/' | \
$Z $xrv/neutre$X ne=0 fichier== \
$Z exemplaires=2 \
$Z > $_____FGcomplements$RAYON
$Z FilSTmpE FGaLaXiEs