#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N M I L I E U E V O L U T I F C I R C U L A I R E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.E.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z S
$Z SETENV FacXY_1 $FacXY
$Z SETParam _____FacXY_N 0.85
$Z SETENV FacXY_N $_____FacXY_N
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'. Celle-ci a ete #
$X # introduite le 20030224114515 car elle manquait (sans provoquer de degats, ce qui est #
$X # assez bizarre...). #
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern double atof();
$c extern char *getenv();
$c
$c #define NA0 (atoi(getenv("PremiereA")))
$c #define NA (atoi(getenv("DerniereA")))
$c
$c #define FacXY_1 (atof(getenv("FacXY_1")))
$c #define FacXY_N (atof(getenv("FacXY_N")))
$c
$c #define GRIS_8 (atoi(getenv("GRIS_8")))
$c
$c int main()
$c {
$c int n;
$c double facteur_1=FacXY_1;
$c double facteur_N=FacXY_N;
$c
$c for (n=NA0 ; n<=NA ; n++)
$c {
$c double facteur;
$c int SeuilBOITE;
$c
$c facteur=((facteur_N*(n-NA0))+(facteur_1*(NA-n)))/(NA-NA0);
$c SeuilBOITE=(int)((1.0-facteur)*(double)GRIS_8);
$c
$c printf("$xci/module$X
$c amplificateur=$_____AModule
$c $formatI |
$c $xci/complement$X
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c R=$xTV/BOITE.1
$c $formatI\n"
$c ,SeuilBOITE
$c );
$c
$c printf("$xci/scale$X
$c A=$xTV/BOITE.1
$c a=1.00
$c R=$xTV/BOITE.2.%04d
$c $formatI\n"
$c ,n
$c );
$c /* Definition du milieu "dynamique" dans '$xTV/BOITE.2.????'. */
$c printf("$xci/complement$X
$c A=$xTV/BOITE.1
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$ROUGE
$c $formatI\n"
$c
$c ,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BOITE.1
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$VERTE
$c $formatI\n"
$c
$c ,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BOITE.1
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$BLEUE
$c $formatI\n"
$c
$c ,n
$c );
$c /* Definition du decor "dynamique" dans '$xTV/BOITE.3.????.?'. */
$c }
$c }