#######################################################################################################################################
#                                                                                                                                     #
#         R O T A T I O N   D E S   B R O N C H I O L E S   T E R M I N A L E S   D E S   P O U M O N S  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.ACIN.3.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Fdimension               6

$Z                  setParam            _____Fgraine                  1234

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

$Z                  Pal

$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   RotX0     0.0
$c                  #define   RotXN     6.283185307179586
$c
$c                  #define   RotY0     0.0
$c                  #define   RotYN     6.283185307179586
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    RotX=((RotXN*(n-N0))+(RotX0*(N-n)))/(N-N0);
$c                                      double    RotY=((RotYN*(n-N0))+(RotY0*(N-n)))/(N-N0);
$c
$c                                      printf("setenv    Acinus_Rot_OX       %f\n"
$c                                            ,RotX
$c                                             );
$c                                      printf("setenv    Acinus_Rot_OY       %f\n"
$c                                            ,RotY
$c                                             );
$c
$c                                      printf("$xu/Felici.M/GenImages.01$Z
$c                                                          $_____images.%04d
$c                                                          $_____Fdimension $_____Fdimension $_____Fdimension
$c                                                          0 0 0
$c                                                          $xiP/trou_noir.84
$c                                                          $_____Fgraine\n"
$c                                            ,n
$c                                             );
$c                                      }
$c                            }