#######################################################################################################################################
# #
# C O N S T R U C T I O N D E L ' A T T R A C T E U R #
# D E L A D Y N A M I Q U E D E V E R H U L S T : #
# #
# #
# Author of '$xivP/disk.000000010/face.2/.VERH.4.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam Premiere 1
$Z SETParam Derniere 128
$Z setParam _____NCorps 10000
$Z setParam _____TauxCroissance 3.0
$Z setParam _____TranlationX -0.34
$Z setParam _____TranlationY -0.32
$Z setParam _____Palette "$xiP/cercle.35"
$Z setParam _____Rayon 0.020
$Z @ Nimages = $Derniere - $Premiere
$Z @ Nimages = $Nimages + 1
$Z set NcorpsS=$_____NCorps
$Z set Part0=1
$Z set PartN=$NcorpsS
$Z Gen $xTV/NIVEAU $NOIR_PLANCHER $BLANC entiers=VRAI cubique=FAUX
$Z
$Z set CouleursVerhulst="$K_VIDE"
$Z set CouleursVerhulst="$CouleursVerhulst"" paletteA=$_____Palette"
$Z set CouleursVerhulst="$CouleursVerhulst"" LISTE_NIVEAU=$xTV/NIVEAU"
$Z unalias GenR
$Z alias GenR 'set Fi="\!*" ; \\
$Z $DELETE $Fi ; \\
$Z set Part0=1 ; \\
$Z @ PartN = $Part0 + $NcorpsS ; @ PartN = $PartN - 1 ; @ PartN = $PartN + $Nimages ; \\
$Z $xci/valeurs_chao$X p=$Part0 d=$PartN taux=$_____TauxCroissance > $Fi ; \\
$Z unset Fi Part0 PartN'
$Z
$Z GenR $xTV/COORDONNEES
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z Pal
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define NPAS (N-N0+1)
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xrv/particule.10$X
$c npoints=$NcorpsS
$c np=1
$c Ftete=0 LISTE_X=$xTV/COORDONNEES
$c Ftete=%d LISTE_Y=$xTV/COORDONNEES
$c TRANSLATION_OX=$_____TranlationX
$c TRANSLATION_OY=$_____TranlationY
$c Ftete=0 $CouleursVerhulst
$c Vrayon=$_____Rayon
$c Lz=1000
$c R=$xTV/VERH.Wa.
$c $formatI\n"
$c ,n-N0
$c );
$c
$c printf("$MV $xTV/VERH.Wa.%04d$ROUGE
$c $_____images.%04d$ROUGE\n"
$c ,N0,n
$c );
$c printf("$MV $xTV/VERH.Wa.%04d$VERTE
$c $_____images.%04d$VERTE\n"
$c ,N0,n
$c );
$c printf("$MV $xTV/VERH.Wa.%04d$BLEUE
$c $_____images.%04d$BLEUE\n"
$c ,N0,n
$c );
$c }
$c }