#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A L B U M   D E   T E X T U R E  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRX.21.1$ROUGE.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20200113114040).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setenvParam         _____Param_Genere_R           "c=64 cy2=0"

$Z        setenvParam         _____Seuil_R                  5

$Z        setenvParam         _____Palette_R                $xiP/rouge.01

$Z                  FilSTmpB            FGeNeRe

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   PI        3.14159265358979312
$c
$c                  #define   OROTATION 0
$c                  #define   EROTATION (OROTATION+(1*PI))
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    ROTATION=+(((EROTATION*(n-N0))+(OROTATION*(N-n)))/(N-N0));
$c
$c                                      printf("echo      %c$xci/gauss$X
$c                                                                         standard=FAUX
$c                                                                         $_____Param_Genere_R
$c                                                                         ROTATION_OZ=%f
$c                                                                                                  $formatI                      |
$c                                                          $xci/acces$X
$c                                                                         standard=FAUX zero=FAUX
$c                                                                                                  $formatI                      |
$c                                                          $xci/passe_bande$X
$c                                                                         seuil_inferieur=$_____Seuil_R
$c                                                                         niveau_inferieur=$_____Seuil_R
$c                                                                         seuil_superieur=$BLANC
$c                                                                         niveau_superieur=$BLANC
$c                                                                                                  $formatI                      |
$c                                                          $xci/acces$X
$c                                                                         renormaliser=VRAI
$c                                                                         NOIR_unique=VRAI
$c                                                                                                  $formatI                      |
$c                                                          $xci/tapisserie$X
$c                                                                                                  $formatI                      |
$c                                                          $xci/vraies_C$X
$c                                                                         p=$_____Palette_R
$c                                                                         R=$_____ImageT1.1$ROUGE.%04d
$c                                                                                                  $formatI%c
$c                                                                                                  >> $FGeNeRe\n"
$c                                            ,'\''
$c                                            ,ROTATION
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }

$Z                  execPar_V           $FGeNeRe

$Z                  FilSTmpE            FGeNeRe