#######################################################################################################################################
# #
# 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 '$xiirf/.PAYT.F.21.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20040302151140). #
# #
#######################################################################################################################################
$Z SETParam _____Montagnes $EXIST
$Z # Definition passee de 'set' a 'SET' le 20150611133727 a cause du fait que cette variable #
$Z # figure dans deux 'if(...)'s successifs separes par un '$c'. Il faut donc propager cette #
$Z # definition (la faire passer "par dessus" le '$c'... #
$Z SET Premiere=1
$Z SET Derniere=128
$Z Pal
$Z $xci/normalise.01$X \
$Z A=$xTV/CHAMP \
$Z R=$xTV/CHAMP.01 \
$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/CHAMP.01
$c A2=$xTV/CHAMP.01
$c TM=$xTV/CHAMP.01
$c avertir=FAUX
$c fX=%f
$c R=$xTV/MUL4.%04d
$c $formatI\n"
$c ,FacteurX
$c ,n
$c );
$c }
$c }
$Z $xci/accumule.01$X \
$Z standard=FAUX \
$Z A=$xTV/MUL4. \
$Z premiere=$Premiere derniere=$Derniere \
$Z attenuation=1 \
$Z maximum=FAUX \
$Z R=$xTV/ACCUMULATION \
$Z $formatI
$Z if ($_____Montagnes == $EXIST) then
$Z $xci/init$X \
$Z n=$BLANC \
$Z $formatI | \
$Z $xci/montagne.01$X \
$Z A=$xTV/ACCUMULATION \
$Z standard=FAUX zero=FAUX \
$Z avion=VRAI \
$Z R=$_____ImagesR \
$Z $formatI
$Z else
$Z $xci/acces$X \
$Z A=$xTV/ACCUMULATION \
$Z standard=FAUX zero=FAUX \
$Z convertir_non_standard=VRAI \
$Z R=$_____ImagesR \
$Z $formatI
$Z endif