#######################################################################################################################################
#                                                                                                                                     #
#         R O T A T I O N   D E   L A   P H A S E   D ' U N E   T R A N S F O R M E E   E N   O N D E L E T T E S  :                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.2/.MORL.1.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20030415170723).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SET       Premiere=1
$Z        SET       Derniere=512

$Z        setParam            _____Dilatation               0.06

$Z        Std

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$_____imageA                                                                                            \
$Z                            convertir=VRAI                                                                                            \
$Z                            R=$xTV/CHAMP                                                                                              \
$Z                                                                                                                      $formatI

$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Angle0    0.0
$c                  #define   AngleN    6.283185307179586
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    Angle=((AngleN*(n-N0))+(Angle0*(N-n)))/(N-N0);
$c
$c                                      printf("$xci/morlet.02$Z
$c                                                          $xTV/CHAMP
$c                                                          $xTV/MORLET
$c                                                          $_____Dilatation
$c                                                          %f\n"
$c                                            ,Angle
$c                                             );
$c
$c                                      printf("$xci/acces$X
$c                                                          A=$xTV/MORLET$Ph
$c                                                          standard=FAUX zero=FAUX
$c                                                          R=$_____imagesR.%04d
$c                                                                    $formatI\n"
$c                                            ,n
$c                                             );
$c                                      }
$c                            }