#######################################################################################################################################
# #
# G E N E R A T I O N D E S I M A G E S D U S Y S T E M E S O L A I R E #
# E T V I S U A L I S A T I O N D E L A T R A N S F O R M A T I O N #
# N O N L I N E A I R E D E S C O O R D O N N E E S : #
# #
# #
# Author of '$xivP/disk.000000010/face.2/.NCOR.2.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20050330095950). #
# #
#######################################################################################################################################
$Z SETParam _____Npremiere 1
$Z SETParam _____Nderniere 64
$Z
$Z set NcorpsS=10
$Z
$Z alias genere 'set Fl=\!:1 ; set Li=(\!:2*) ; \\
$Z $DELETE $Fl ; \\
$Z echo "$Li" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $Fl ; \\
$Z unset Fl Li'
$Z
$Z
$Z genere $xTV/MASSES \
$Z +2.0e30 +3.3e23 +48.7e23 \
$Z +60.5e23 \
$Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21
$Z genere $xTV/RAYONS \
$Z +30e10 +18e10 +18e10 \
$Z +18e10 \
$Z +18e10 +23e10 +23e10 +21e10 +21e10 +18e10
$Z genere $xTV/COULEURS$ROUGE \
$Z $GRIS_8 $GRIS_8 $GRIS_8 \
$Z $GRIS_0 \
$Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7
$Z genere $xTV/COULEURS$VERTE \
$Z $GRIS_8 $GRIS_6 $GRIS_4 \
$Z $GRIS_6 \
$Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7
$Z genere $xTV/COULEURS$BLEUE \
$Z $GRIS_0 $GRIS_2 $GRIS_0 \
$Z $GRIS_8 \
$Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8
$Z
$Z Pal
$c #define N0 _____Npremiere
$c #define N _____Nderniere
$c
$c #define K 8
$c
$c #define NPAS (K*(N-N0+1))
$c
$c int main()
$c {
$c int n;
$c
$c double XcentreS=+1e3;
$c double XcentreD=-392e+10;
$c
$c double YcentreS=+1e3;
$c double YcentreD=+307e+10;
$c
$c double ZcentreS=+1e3;
$c double ZcentreD=+216e+10;
$c
$c double XvitessD=-2.27e+3;
$c
$c double YvitessD=-4.53e+3;
$c
$c double ZvitessD=-7.39e+2;
$c
$c double ExposantD=1.0;
$c double ExposantA=0.4;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("genere
$c $xTV/COORDONNEES$COORD_X
$c %+g +514e+8 +213e+8
$c -203e+8
$c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10
$c %+g\n"
$c ,XcentreS,XcentreD
$c );
$c printf("genere
$c $xTV/COORDONNEES$COORD_Y
$c %+g +682e+7 +967e+8
$c +133e+9
$c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10
$c %+g\n"
$c ,YcentreS,YcentreD
$c );
$c printf("genere
$c $xTV/COORDONNEES$COORD_Z
$c %+g -163e+7 +422e+8
$c +579e+8
$c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9
$c %+g\n"
$c ,ZcentreS,ZcentreD
$c );
$c
$c printf("genere
$c $xTV/VITESSES$COORD_X
$c 0 -1.46e+4 -3.44e+4
$c -2.99e+4
$c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3
$c %+g\n"
$c ,XvitessD
$c );
$c printf("genere
$c $xTV/VITESSES$COORD_Y
$c 0 +4.43e+4 +5.39e+3
$c -3.88e+3
$c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3
$c %+g\n"
$c ,YvitessD
$c );
$c printf("genere
$c $xTV/VITESSES$COORD_Z
$c 0 +2.52e+4 +4.60e+3
$c -1.68e+3
$c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3
$c %+g\n"
$c ,ZvitessD
$c );
$c
$c printf("$xrr/N_corps.11$X
$c corps=$NcorpsS
$c np=%d
$c LISTE_X=$xTV/COORDONNEES$COORD_X
$c LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c LISTE_VX=$xTV/VITESSES$COORD_X
$c LISTE_VY=$xTV/VITESSES$COORD_Y
$c LISTE_VZ=$xTV/VITESSES$COORD_Z
$c LISTE_MASSE=$xTV/MASSES
$c LISTE_RAYON=$xTV/RAYONS
$c LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c LISTE_VERTE=$xTV/COULEURS$VERTE
$c LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c centrer=FAUX reference=1
$c extension=5
$c dct=15000
$c 2_a_2=FAUX source=1
$c nombre=1000
$c ensemble=VRAI
$c acceptable=0.5
$c Ranterieurs=1.0
$c trainees=FAUX
$c renormaliser=FAUX
$c lineaire=FAUX exposant=%f
$c Lz=1.0e13
$c TRANSLATION_OX=0
$c TRANSLATION_OY=0
$c ROTATION_OX=0
$c ZOOM=0.60
$c fond=FAUX
$c pV=%d
$c R=$xTV/NCOR.Wa.
$c $formatI\n"
$c ,NPAS
$c ,((ExposantD*(N-n))+(ExposantA*(n-N0)))/(N-N0)
$c ,NPAS
$c );
$c printf("$MV $xTV/NCOR.Wa.%04d$ROUGE
$c $_____images.%04d$ROUGE\n"
$c ,K*N,n
$c );
$c printf("$MV $xTV/NCOR.Wa.%04d$VERTE
$c $_____images.%04d$VERTE\n"
$c ,K*N,n
$c );
$c printf("$MV $xTV/NCOR.Wa.%04d$BLEUE
$c $_____images.%04d$BLEUE\n"
$c ,K*N,n
$c );
$c
$c printf("$DELETE $xTV/COORDONNEES$COORD_X\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n");
$c
$c printf("$DELETE $xTV/VITESSES$COORD_X\n");
$c printf("$DELETE $xTV/VITESSES$COORD_Y\n");
$c printf("$DELETE $xTV/VITESSES$COORD_Z\n");
$c }
$c }
$Z $DELETE $xTV/MASSES
$Z $DELETE $xTV/RAYONS
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z
$Z $DELETE $xTV/ROTATION$COORD_X
$Z $xci/reduction_16$Z $_____images. $_____animation $_____Npremiere $_____Nderniere VRAI VRAI VRAI VRAI
$Z $xci/reduction_64$Z $_____images. $_____animation $_____Npremiere $_____Nderniere VRAI VRAI VRAI VRAI
$X $xci/genere$X c='ro $_____animation$R16$%s' RVB=VRAI postfixes_RVB=FAUX
$X $xci/genere$X c='ro $_____animation$R64$%s' RVB=VRAI postfixes_RVB=FAUX
$X
$X $xci/genere$X c='$xcg/unite$Z $_____animation$R16$%s' RVB=VRAI postfixes_RVB=FAUX
$X $xci/genere$X c='$xcg/unite$Z $_____animation$R64$%s' RVB=VRAI postfixes_RVB=FAUX