#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M A T I O N   C O N F O R M E   (4xO+1)/(1xO-1)  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRB3.s7.5.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141003180433).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            FFrAcTaL

$Z        SETParam            _____Facteur                  50000

$Z        SETParam            _____Seuil                    $GRIS_6

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   OJ        -100.0
$c                  #define   EJ        0.0
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0);
$c
$c                                      printf("echo      %c$xci/tapisserie$X
$c                                                                    A=$_____ImageT2.%04d
$c                                                                                                                      $formatI  |
$c                                                          $xci/o_homogra.81$X
$c                                                                    RA=4 RB=1 RC=1 RD=-1
$c                                                                    facteur=%f
$c                                                                    m2_IJ=1 m2_RJ=1
$c                                                                    J=%f
$c                                                                                                                      $formatI  |
$c                                                          $xci/seuil$X
$c                                                                    seuil=%d
$c                                                                    R=$_____ImageT1.%04d
$c                                                                                                                      $formatI%c
$c                                                                                                  >> $FFrAcTaL\n"
$c                                            ,'\''
$c                                            ,n
$c                                            ,(double)_____Facteur
$c                                            ,J
$c                                            ,_____Seuil
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }

$Z                                      # Introduit le 20191021183604...                                                              #
$Z                  execPar_V           $FFrAcTaL

$Z                  FilSTmpE            FFrAcTaL