#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E D E C A L A B I - Y A U : #
# #
# #
# Author of '$xivP/disk.000000006/face.1/.CAYA.21.3.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern double atof();
$c extern char *getenv();
$c
$c #define N0 (atoi(getenv("PremiereA")))
$c #define N (atoi(getenv("DerniereA")))
$c
$c #define Trans0 0.0
$c #define TransN 1.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double translation = ((TransN*(n-N0))+(Trans0*(N-n)))/(N-N0);
$c
$c printf("$xci/move$X
$c A=$xTV/TEXTURE$ROUGE
$c yR=%f
$c tvR=VRAI
$c R=$xTV/TEXTURE_T$ROUGE
$c $formatI\n"
$c ,translation
$c );
$c printf("$xci/move$X
$c A=$xTV/TEXTURE$VERTE
$c yR=%f
$c tvR=VRAI
$c R=$xTV/TEXTURE_T$VERTE
$c $formatI\n"
$c ,translation
$c );
$c printf("$xci/move$X
$c A=$xTV/TEXTURE$BLEUE
$c yR=%f
$c tvR=VRAI
$c R=$xTV/TEXTURE_T$BLEUE
$c $formatI\n"
$c ,translation
$c );
$c
$c printf("$xrs/CalabiYau.12$X
$c np=1
$c PARAMETRE_N1=$_____Param_N1
$c PARAMETRE_N2=$_____Param_N2
$c TR=$xTV/TEXTURE_T$ROUGE
$c TV=$xTV/TEXTURE_T$VERTE
$c TB=$xTV/TEXTURE_T$BLEUE
$c Zminimum=0.4 Zmaximum=1.0 ZminimumT=0.4 ZmaximumT=1.0
$c r=$_____Rayon
$c N2=FAUX
$c Lz=1000
$c ZOOM=$_____Zoom
$c ROTATION_OX=$_____RotationOX
$c ROTATION_OY=$_____RotationOY
$c TRANSLATION_OX=$_____Tx
$c TRANSLATION_OY=$_____Ty
$c R=$xTV/CAYA.1.
$c $formatI\n"
$c );
$c
$c printf("$CP
$c $xTV/CAYA.1.%04d$ROUGE
$c $_____images.%04d$ROUGE\n"
$c ,N0,n
$c );
$c printf("$CP
$c $xTV/CAYA.1.%04d$VERTE
$c $_____images.%04d$VERTE\n"
$c ,N0,n
$c );
$c printf("$CP
$c $xTV/CAYA.1.%04d$BLEUE
$c $_____images.%04d$BLEUE\n"
$c ,N0,n
$c );
$c }
$c }