#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A L B U M   D E   C O O R D O N N E E S   ' Z '  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRX.11.1$COORD_Z.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200108115929).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$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   OCX2      1.0
$c                  #define   ECX2      8.0
$c
$c                  #define   OCY2      8.0
$c                  #define   ECY2      1.0
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    CX2=((ECX2*(n-N0))+(OCX2*(N-n)))/(N-N0);
$c                                      double    CY2=((ECY2*(n-N0))+(OCY2*(N-n)))/(N-N0);
$c
$c                                      printf("echo      %c$xci/gauss$X
$c                                                                    standard=FAUX
$c                                                                    c=1
$c                                                                    cx2=%f
$c                                                                    cy2=%f
$c                                                                    renormaliser=VRAI
$c                                                                    R=$_____ImageT1$COORD_Z.%04d
$c                                                                                                  $formatI%c
$c                                                                                                  >> $FGeNeRe\n"
$c                                            ,'\''
$c                                            ,CX2
$c                                            ,CY2
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }

$Z                  execPar_V           $FGeNeRe

$Z                  FilSTmpE            FGeNeRe