#######################################################################################################################################
# #
# A N I M A T I O N P A R A U T O - T R A N S F O R M A T I O N : #
# #
# #
# Author of '$xiird/.SELF.C1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20061003131405). #
# #
#######################################################################################################################################
$Z setParam _____Parametres "$K_VIDE"
$Z Pal
$Z SET Premiere=1
$Z SET Derniere=64
$Z Pal
$c #include <math.h>
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Orayon 0.0
$c #define Erayon 0.2
$c
$c #define DPIS3 ((2*3.14159265358979312)/3)
$c #define Xcentre 0.5
$c #define Ycentre 0.5
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double rayon=((Erayon*(n-N0))+(Orayon*(N-n)))/(N-N0);
$c
$c printf("$_____Generateur
$c $_____Parametres
$c standard=VRAI
$c Tx=%f Ty=%f
$c R=$xTV/GAUSS$ROUGE
$c $formatI\n"
$c ,Xcentre+(rayon*cos(0*DPIS3)),Ycentre+(rayon*sin(0*DPIS3))
$c );
$c printf("$_____Generateur
$c $_____Parametres
$c standard=VRAI
$c Tx=%f Ty=%f
$c R=$xTV/GAUSS$VERTE
$c $formatI\n"
$c ,Xcentre+(rayon*cos(1*DPIS3)),Ycentre+(rayon*sin(1*DPIS3))
$c );
$c printf("$_____Generateur
$c $_____Parametres
$c standard=VRAI
$c Tx=%f Ty=%f
$c R=$xTV/GAUSS$BLEUE
$c $formatI\n"
$c ,Xcentre+(rayon*cos(2*DPIS3)),Ycentre+(rayon*sin(2*DPIS3))
$c );
$c
$c printf("$xci/SelfTrans.11$Z
$c $xTV/GAUSS
$c RVB
$c $xTV/SELF\n"
$c );
$c printf("$xci/SelfTrans.11$Z
$c $xTV/SELF
$c RVB
$c $_____imagesR1.%04d\n"
$c ,n
$c );
$c
$c printf("$xci/SelfTrans.21$Z
$c $xTV/SELF
$c RVB
$c $_____imagesR2.%04d\n"
$c ,n
$c );
$c }
$c }