#######################################################################################################################################
# #
# M I S E D E S P A R T I C U L E S D A N S L E M I L I E U " F A N T O M A T I Q U E " #
# D U M I L I E U D E P R O P A G A T I O N C O R R E S P O N D A N T #
# A L A C A R T E D E D E N S I T E T R I D I M E N S I O N N E L L E #
# D E S B R O N C H I O L E S T E R M I N A L E S D E S P O U M O N S #
# A V E C A J U S T E M E N T A U T O M A T I Q U E : #
# #
# #
# Author of '$xiird/.ACIN.F.13.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Seuil $GRIS_4
$Z SETParam _____Attenuation 0.5
$Z SET Premiere=1
$Z SET Derniere=512
$Z Pal
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/complement$X
$c A=$_____imagesS.%04d$ROUGE
$c R=$xTV/COMPLEMENT
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/seuil$X
$c A=$xTV/COMPLEMENT
$c seuil=$_____Seuil
$c $formatI |
$c $xci/scale$X
$c a=$_____Attenuation b=0
$c R=$xTV/SURFACE
$c $formatI\n"
$c );
$c printf("$xci/cache$X
$c A=$xTV/COMPLEMENT
$c M=$xTV/SURFACE
$c R=$xTV/SURFACE$ROUGE
$c $formatI\n"
$c );
$c printf("$xci/complement$X
$c A=$_____imagesS.%04d$VERTE
$c R=$xTV/COMPLEMENT
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/seuil$X
$c A=$xTV/COMPLEMENT
$c seuil=$_____Seuil
$c $formatI |
$c $xci/scale$X
$c a=$_____Attenuation b=0
$c R=$xTV/SURFACE
$c $formatI\n"
$c );
$c printf("$xci/cache$X
$c A=$xTV/COMPLEMENT
$c M=$xTV/SURFACE
$c R=$xTV/SURFACE$VERTE
$c $formatI\n"
$c );
$c printf("$xci/complement$X
$c A=$_____imagesS.%04d$BLEUE
$c R=$xTV/COMPLEMENT
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/seuil$X
$c A=$xTV/COMPLEMENT
$c seuil=$_____Seuil
$c $formatI |
$c $xci/scale$X
$c a=$_____Attenuation b=0
$c R=$xTV/SURFACE
$c $formatI\n"
$c );
$c printf("$xci/cache$X
$c A=$xTV/COMPLEMENT
$c M=$xTV/SURFACE
$c R=$xTV/SURFACE$BLEUE
$c $formatI\n"
$c );
$c
$c printf("$xci/vitre.53$Z
$c $_____imagesA.%04d
$c $xTV/SURFACE
$c $_____images.%04d\n"
$c ,n,n
$c );
$c }
$c }