#######################################################################################################################################
#                                                                                                                                     #
#         A N I M A T I O N   D ' U N E   M O N T A G N E   A V E C   N U A G E S  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiaf/.PAYS.63.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210110115511).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=1234                                                                                     \
$Z                                      R=$xTV/ALTITUDE                                                                                 \
$Z                                      $formatI
$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$BLANC                                                                                   \
$Z                                      R=$xTV/TEXTURE                                                                                  \
$Z                                      $formatI

$c                  #define   N0        Premiere
$c                  #define   N         Derniere

$c                  int       main()
$c                            {
$c                            int       n;

$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/substitue$X
$c                                                        A=$xiff/NUAG.1.%04d
$c                                                        substitution=L_SUBSTITUTION_ROUGE
$c                                                        p=$xiP/gris.02
$c                                                        R=$xTV/INTERPOLATEUR
$c                                                                              $formatI\n"
$c                                            ,n
$c                                             );

$c                                      printf("$xci/Sx$X
$c                                                        A=$xiff/NUAG.1.%04d
$c                                                                              $formatI  |
$c                                              $xci/vraies_C$X
$c                                                        p=$xiP/nuages.02
$c                                                        RVB=VRAI
$c                                                        R=$xTV/BACKGROUND
$c                                                                              $formatI\n"
$c                                            ,n
$c                                             );
$c                                      printf("execRVB   $xci/montagne.01$X
$c                                                                  A=$xTV/ALTITUDE
$c                                                                  T=$xTV/TEXTURE
$c                                                                  fond=VRAI
$c                                                                  F=$xTV/BACKGROUND%%s
$c                                                                  avion=FAUX
$c                                                                  R=$xTV/MONTAGNE%%s
$c                                                                              $formatI\n"
$c                                             );
$c                                      printf("execRVB   $xci/interpole.02$X
$c                                                        A1=$xiff/NUAG.1.%04d
$c                                                        A2=$xTV/MONTAGNE%%s
$c                                                        P=$xTV/INTERPOLATEUR
$c                                                        R=$_____images.%04d%%s
$c                                                                              $formatI\n"
$c                                            ,n,n
$c                                             );
$c                                      }
$c                            }