#######################################################################################################################################
#                                                                                                                                     #
#         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.12.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Attenuation              0.8

$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/scale$X
$c                                                             A=$_____imagesS.%04d$ROUGE
$c                                                             a=$_____Attenuation b=0
$c                                                             R=$xTV/SURFACE$ROUGE
$c                                                                                                $formatI\n"
$c                                            ,n
$c                                             );
$c                                      printf("$xci/scale$X
$c                                                             A=$_____imagesS.%04d$VERTE
$c                                                             a=$_____Attenuation b=0
$c                                                             R=$xTV/SURFACE$VERTE
$c                                                                                                $formatI\n"
$c                                            ,n
$c                                             );
$c                                      printf("$xci/scale$X
$c                                                             A=$_____imagesS.%04d$BLEUE
$c                                                             a=$_____Attenuation b=0
$c                                                             R=$xTV/SURFACE$BLEUE
$c                                                                                                $formatI\n"
$c                                            ,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                            }