#######################################################################################################################################
#                                                                                                                                     #
#         D E F O R M A T I O N   D ' U N E   S E R I E   D ' I M A G E S  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirc/.JULJ.W5.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141227082336).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SETParam            _____Mdecimales               6

$Z        SETParam            _____Mxx                      1

$Z        SETParam            _____Myy                      1

$Z                  FilSTmpB            FDeFoRmI

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("echo      %c$xci/acces$X
$c                                                                    A=$_____ImageT1.%04d
$c                                                                    convertir=VRAI
$c                                                                                                                      $formatI  |
$c                                                             $xci/deformi.01$X
$c                                                                    DX=$xTV/DEFORMATION$COORD_X
$c                                                                    DY=$xTV/DEFORMATION$COORD_Y
$c                                                                    appliquer_une_matrice_de_transformation=VRAI
$c                                                                    mxx=%.*f  mxy=0     mxz=0
$c                                                                    myx=0     myy=%.*f  myz=0
$c                                                                    mzx=0     mzy=0     mzz=0
$c                                                                    tridimensionnelle=FAUX
$c                                                                    bilineaire=VRAI
$c                                                                                                                      $formatI  |
$c                                                             $xci/acces$X
$c                                                                    standard=FAUX brutal=VRAI
$c                                                                                                                      $formatI  |
$c                                                             $xci/seuil$X
$c                                                                    R=$_____ImageT2.%04d
$c                                                                                                                      $formatI%c
$c                                                                                                  >> $FDeFoRmI\n"
$c                                            ,'\''
$c                                            ,n
$c                                            ,_____Mdecimales,(double)_____Mxx
$c                                            ,_____Mdecimales,(double)_____Myy
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }

$Z                                      # Introduit le 20191021184201...                                                              #
$Z                  execPar_V           $FDeFoRmI

$Z                  FilSTmpE            FDeFoRmI