#######################################################################################################################################
# #
# M O D U L E : #
# #
# #
# Author of '$xivP/disk.000000006/face.1/.IXEO.7.25.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define ORIGINE 0.0
$c #define EXTREMITE 20.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double facteur=((EXTREMITE*(n-N0))+(ORIGINE*(N-n)))/(N-N0);
$c
$c printf("$xrv/particule.10$X
$c np=1 iterations=$Nparticules
$c LISTE_X=$xTV/COORDONNEES$COORD_X
$c LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c LISTE_RAYON=$xTV/RAYON
$c LISTE_ROUGE=$xTV/COULEUR$ROUGE
$c LISTE_VERTE=$xTV/COULEUR$VERTE
$c LISTE_BLEUE=$xTV/COULEUR$BLEUE
$c Lz=1000 ZOOM=0.50
$c isoles=FAUX points=$NConnexions
$c cubique=VRAI
$c LISTE_dX=$xTV/DERIVEES$COORD_X
$c LISTE_dY=$xTV/DERIVEES$COORD_Y
$c LISTE_dZ=$xTV/DERIVEES$COORD_Z
$c AdXYZ=%f
$c RVB=VRAI
$c TRANSLATION_OX=1
$c TRANSLATION_OY=1
$c R=$xTV/IXEO.1.
$c $formatI\n"
$c ,facteur
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/IXEO.1.%04d$ROUGE
$c R=$xiim/IXEO.1.%04d$ROUGE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/IXEO.1.%04d$VERTE
$c R=$xiim/IXEO.1.%04d$VERTE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/acces$X
$c A=$xTV/IXEO.1.%04d$BLEUE
$c R=$xiim/IXEO.1.%04d$BLEUE
$c $formatI\n"
$c ,N0,n
$c );
$c }
$c }
$Z unset Nparticules
$Z $DELETE $xTV/l2
$Z $DELETE $xTV/l0.1
$Z $DELETE $xTV/l0.2
$Z $DELETE $xTV/l0.3
$Z $DELETE $xTV/lX2000
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/DERIVEES$COORD_X
$Z $DELETE $xTV/DERIVEES$COORD_Y
$Z $DELETE $xTV/DERIVEES$COORD_Z
$Z $DELETE $xTV/RAYON
$X $xci/genere$X RVB=VRAI postfixes_RVB=FAUX \
$X C='$DELETE $xTV/COULEUR$%s'
$Z unset R_2000
$Z unset V_2000
$Z unset B_2000
$Z unset Rayon_2000
$Z unset Z_2000
$Z unset _____R_2000
$Z unset _____V_2000
$Z unset _____B_2000
$Z unset _____Rayon_2000
$Z unset _____Z_2000