#######################################################################################################################################
# #
# G L I S S E M E N T D E L A G R I L L E D ' U N #
# " R U B A N D E M O B I U S " T R I D I M E N S I O N N E L : #
# #
# #
# Author of '$xivP/disk.000000006/face.1/.MOB3.1.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20040330140602). #
# #
#######################################################################################################################################
$Z SET Premiere=1
$Z SET Derniere=64
$Z Pal
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define TRANS_v_0 0
$c
$c #define DIVISEUR (N-N0+1)
$c
$c int main()
$c {
$c int n;
$c int translation_v=TRANS_v_0;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xrs/Mobius3D.11$X
$c np=1
$c brume=VRAI
$c eu=%d teu=%d dpu=%d
$c ev=%d tev=%d dpv=%d
$c ew=%d tew=%d dpw=%d
$c ROTATION_OX=$pi
$c Lz=100
$c N_AU_CARRE=FAUX
$c R=$xTV/MOB3.11.
$c $formatI\n"
$c ,DIVISEUR/2,0,DIVISEUR
$c ,DIVISEUR/2,translation_v,DIVISEUR
$c ,DIVISEUR/2,0,DIVISEUR
$c );
$c
$c printf("$xci/neutre$X
$c A=$xTV/MOB3.11.%04d$ROUGE
$c R=$_____images.%04d$ROUGE
$c $formatI\n"
$c ,N0
$c ,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/MOB3.11.%04d$VERTE
$c R=$_____images.%04d$VERTE
$c $formatI\n"
$c ,N0
$c ,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/MOB3.11.%04d$BLEUE
$c R=$_____images.%04d$BLEUE
$c $formatI\n"
$c ,N0
$c ,n
$c );
$c
$c translation_v++;
$c }
$c }