#######################################################################################################################################
# #
# 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 #
# A C O U R B U R E N E G A T I V E P U I S P O S I T I V E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.E.12.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z $DELETE $xTV/INTER_0_1.1
$Z $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere \
$Z vD=0 vA=1 \
$Z cubique=FAUX \
$Z > $xTV/INTER_0_1.1
$Z SETParam _____EInterpole 5.3
$Z $DELETE $xTV/INTER_0_1.2
$Z $xrv/PUIX.01$X \
$Z ne=0 \
$Z fichier=$xTV/INTER_0_1.1 \
$Z exposant=$_____EInterpole \
$Z > $xTV/INTER_0_1.2
$Z SETParam _____A_tc 98.5
$Z SETParam _____B_tc 1.5
$Z $DELETE $xTV/PARAMETRE_tc
$Z $xrv/AXPB.01$X \
$Z ne=0 \
$Z fichier=$xTV/INTER_0_1.2 \
$Z a=$_____A_tc \
$Z b=$_____B_tc \
$Z > $xTV/PARAMETRE_tc
$Z SETParam _____A_Exy 23.64
$Z SETParam _____B_Exy 0.7
$Z $DELETE $xTV/PARAMETRE_Exy
$Z $xrv/AXPB.01$X \
$Z ne=0 \
$Z fichier=$xTV/INTER_0_1.2 \
$Z a=$_____A_Exy \
$Z b=$_____B_Exy \
$Z > $xTV/PARAMETRE_Exy
$Z $DELETE $xTV/PARAMETRES.1
$Z $PAST \
$Z $xTV/PARAMETRE_tc \
$Z $xTV/PARAMETRE_Exy \
$Z $xTV/PARAMETRE_Exy | \
$Z $R \
$Z "$K_TAB" "$K_BLANC" | \
$Z $AW \
$Z ' { print "tc=" $1 " Ex=" $2 " Ey=" $3 } ' | \
$Z $SE \
$Z -e 's+^+$xci/trefle$X +' \
$Z > $xTV/PARAMETRES.1
$Z SETParam _____STrefle 250
$Z $DELETE $xTV/PARAMETRES.2
$Z $xci/genere$X RVB=FAUX en_tete=FAUX \
$Z premiere=$Premiere derniere=$Derniere \
$Z C=' \\\
$Z standard=FAUX \\\
$Z $formatI | \\\
$Z $xci/acces$X \\\
$Z standard=FAUX \\\
$Z zero=FAUX \\\
$Z $formatI | \\\
$Z $xci/seuil$X \\\
$Z seuil=$_____STrefle \\\
$Z $formatI | \\\
$Z $xci/complement$X \\\
$Z R=$xTV/BOITE.2.%04d \\\
$Z $formatI' \
$Z > $xTV/PARAMETRES.2
$Z $DELETE $xTV/PARAMETRES$Y
$Z $CA $xcs/csh$Y \
$Z > $xTV/PARAMETRES$Y
$Z $PAST \
$Z $xTV/PARAMETRES.1 \
$Z $xTV/PARAMETRES.2 | \
$Z $R \
$Z "$K_TAB" "$K_BLANC" \
$Z >>! $xTV/PARAMETRES$Y
$Z source $xTV/PARAMETRES$Y
$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 int main()
$c {
$c int n;
$c
$c for (n=NA0 ; n<=NA ; n++)
$c {
$c printf("$xci/complement$X
$c A=$xTV/BOITE.2.%04d
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$ROUGE
$c $formatI\n"
$c
$c ,n,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BOITE.2.%04d
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$VERTE
$c $formatI\n"
$c
$c ,n,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BOITE.2.%04d
$c $formatI |
$c $xci/scale$X
$c a=0.50
$c R=$xTV/BOITE.3.%04d$BLEUE
$c $formatI\n"
$c
$c ,n,n
$c );
$c /* Definition du decor "dynamique" dans '$xTV/BOITE.3.????.?'. */
$c }
$c }
$Z $DELETE $xTV/INTER_0_1.1
$Z $DELETE $xTV/INTER_0_1.2
$Z $DELETE $xTV/PARAMETRE_tc
$Z $DELETE $xTV/PARAMETRE_Exy
$Z $DELETE $xTV/PARAMETRES.1
$Z $DELETE $xTV/PARAMETRES.2
$Z $DELETE $xTV/PARAMETRES$Y