#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   T E X T U R E   O M B R A G E E  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.REFM.m1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220618082536).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   TN0       _____PremiereT
$c                  #define   TN        _____DerniereT
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c                            int       tn;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      tn = ((int)(((double)(n-N0)) * (((double)(TN-TN0+1))/((double)(N-N0+1))))) + TN0;
$c
$c                                      printf("$xci/format.01$X
$c                                                     A=$_____ImageT%c%c%04d
$c                                                                              $_____FormatT
$c                                                     R=$xTV/TEXTURE
$c                                                                              $formatIR\n"
$c                                            ,'"'
$c                                            ,'"'
$c                                            ,tn
$c                                            ,n
$c                                             );
$c
$c                                      printf("$xci/vraies_C$X
$c                                                     A=$xTV/TEXTURE
$c                                                     p=$_____PaletteT
$c                                                     R=$xTV/TEXTURE
$c                                                                              $formatI\n"
$c                                             );
$c
$c                                      printf("execRVB     $xci/multi_02.01$X
$c                                                                    A1=$_____ImageTo.%04d
$c                                                                    A2=$xTV/TEXTURE%%s
$c                                                                    message_extrema=FAUX
$c                                                                    R=$_____ImageTo.%04d%%s
$c                                                                                                  $formatI\n"
$c                                            ,n
$c                                            ,n
$c                                             );
$c                                      }
$c                            }