#######################################################################################################################################
# #
# A U T O T R A N S F O R M A T I O N D Y N A M I Q U E : #
# #
# #
# Author of '$xiirs/.PROJ.J1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20060518112819). #
# #
#######################################################################################################################################
$Z setParam _____GenerateurR $_____Generateur
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z setParam _____GenerateurV $_____Generateur
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z setParam _____GenerateurB $_____Generateur
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z setParam _____Parametres "$K_VIDE"
$Z setParam _____ParametresR "$_____Parametres"
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z setParam _____ParametresV "$_____Parametres"
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z setParam _____ParametresB "$_____Parametres"
$Z # Parametre introduit le 20060521105258 pour permettre d'avoir trois generateurs differents. #
$Z SET Premiere=1
$Z SET Derniere=64
#20150610103201____:$Z Pal #
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Oangle 0.0
$c #define Eangle 2.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double angle=((Eangle*(n-N0))+(Oangle*(N-n)))/(N-N0);
$c
$c printf("$_____GenerateurR
$c ROTATION_OZ=%f
$c $_____ParametresR
$c R=$_____imagesR0.%04d$ROUGE
$c $formatI\n"
$c ,(1.0*angle)
$c ,n
$c );
$c printf("$_____GenerateurV
$c ROTATION_OZ=%f
$c $_____ParametresV
$c R=$_____imagesR0.%04d$VERTE
$c $formatI\n"
$c ,(2.0*angle)
$c ,n
$c );
$c printf("$_____GenerateurB
$c ROTATION_OZ=%f
$c $_____ParametresB
$c R=$_____imagesR0.%04d$BLEUE
$c $formatI\n"
$c ,(3.0*angle)
$c ,n
$c );
$c printf("$xci/SelfTrans.11$Z
$c $_____imagesR0.%04d
$c RVB
$c $_____imagesR1.%04d\n"
$c ,n
$c ,n
$c );
$c printf("$xci/SelfTrans.21$Z
$c $_____imagesR0.%04d
$c RVB
$c $_____imagesR2.%04d\n"
$c ,n
$c ,n
$c );
$c
$c printf("eval `$xci/genere$X
$c commande='($xci/minmax$X
$c A1=$_____imagesR1.%04d%%s
$c A2=$_____imagesR2.%04d%%s
$c R=$_____imagesR3.%04d%%s
$c $formatI)'
$c en_tete=FAUX RVB=VRAI XYZ=FAUX separateur=VRAI`\n"
$c ,n
$c ,n
$c ,n
$c );
$c }
$c }
$Z eval `$xci/genere$X \\\
$Z commande='($xci/accumule.01$X \\\
$Z A=$_____imagesR3. \\\
$Z postfixe=%s \\\
$Z premiere=$Premiere \\\
$Z derniere=$Derniere \\\
$Z inverser=FAUX \\\
$Z maximum=VRAI \\\
$Z lineaire=VRAI \\\
$Z depart=0.1 arrivee=1.0 \\\
$Z R=$xTV/ACCUMULE%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z
$Z $xci/luminance.01$X \
$Z A=$xTV/ACCUMULE \
$Z $formatI | \
$Z $xci/acces$X \
$Z renormaliser=VRAI \
$Z R=$xTV/LUMINANCE \
$Z $formatI
$Z
$Z $xci/vraies_C$X \
$Z A=$xTV/LUMINANCE \
$Z p=$_____Palette1 \
$Z RVB=VRAI \
$Z R=$xTV/COULEUR.1 \
$Z $formatI
$Z $xci/vraies_C$X \
$Z A=$xTV/LUMINANCE \
$Z p=$_____Palette2 \
$Z RVB=VRAI \
$Z R=$xTV/COULEUR.2 \
$Z $formatI
$Z
$Z $xci/gauss$X \
$Z c=16 \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z
$Z eval `$xci/genere$X \\\
$Z commande='($xci/interpole.02$X \\\
$Z A1=$xTV/COULEUR.1%s \\\
$Z A2=$xTV/COULEUR.2%s \\\
$Z P=$xTV/GAUSS \\\
$Z R=$_____imagesR%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI XYZ=FAUX separateur=VRAI`