#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E M O N T A G N E A V E C A U T O - P R O D U I T G E N E R A L I S E : #
# #
# #
# Author of '$xivP/disk.000000007/face.2/.PAYT.2.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20040301110155). #
# #
#######################################################################################################################################
$Z setParam _____mX 0.5
$Z setParam _____mY 0.5
$Z SET Premiere=1
$Z SET Derniere=128
$Z Pal
$Z $xci/fract_2D.01$X \
$Z standard=FAUX \
$Z OX=0 EX=1 mX=$_____mX \
$Z OY=0 EY=1 mY=$_____mX \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/FRACTAL.01 \
$Z $formatI
$Z $xci/init$X \
$Z n=$BLANC \
$Z R=$xTV/TEXTURE \
$Z $formatI
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define FacteurX0 1.0
$c #define FacteurXN 2.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double FacteurX=((FacteurXN*(n-N0))+(FacteurX0*(N-n)))/(N-N0);
$c
$c printf("$xci/multi_02.04$X
$c standard=FAUX
$c A1=$xTV/FRACTAL.01
$c A2=$xTV/FRACTAL.01
$c TM=$xTV/FRACTAL.01
$c avertir=FAUX
$c fX=%f
$c $formatI |
$c $xci/montagne.01$X
$c standard=FAUX
$c zero=FAUX
$c T=$xTV/TEXTURE
$c avion=VRAI
$c R=$_____images.%04d
$c $formatI\n"
$c ,FacteurX
$c ,n
$c );
$c }
$c }