#######################################################################################################################################
#                                                                                                                                     #
#         R O T A T I O N   D ' U N E   L I S T E   D E   P O I N T S  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.D1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20090408174410).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE   $xTV/ROTATION*                                                                            >& $nul
                                        # On doit detruire le fichier '$xTV/ROTATION' au cas ou il prexisterait, mais aussi son       #
                                        # eventuel '$VERROU' au cas, comme cela s'est vu, ce programme serait aborte, puis relance... #

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Oangle    _____DRotationOY
$c                  #define   Eangle    _____ARotationOY
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    angle=((Eangle*(n-N0))+(Oangle*(N-n)))/(N-N0);
$c
$c                                      printf("echo      %c$xrv/particule.10$X
$c                                                                  np=1 iterations=$NPointsXYZ
$c                                                                  LISTE_X=$xTV/COORDONNEES$COORD_X
$c                                                                  LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c                                                                  AZ=1 BZ=+0.5
$c                                                                  coordonnees_dans_0_1=VRAI
$c                                                                  LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c                                                                  Ar=2.4
$c                                                                  LISTE_RAYON=$xTV/RAYONS
$c                                                                  LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c                                                                  LISTE_VERTE=$xTV/COULEURS$VERTE
$c                                                                  LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c                                                                  Zminimum=0.4 Zmaximum=1.0 ZminimumT=0.4 ZmaximumT=1.0
$c                                                                  Lz=1000
$c                                                                  ROTATION_OX=$_____RotationOX
$c                                                                  ROTATION_OY=%f
$c                                                                  ROTATION_OZ=$_____RotationOZ
$c                                                                  ZOOM=$_____Zoom
$c                                                                  isoles=VRAI chainer=FAUX
$c                                                                  RVB=VRAI
$c                                                                  N_AU_CARRE=$N_Au_CaRrE
$c                                                                  $_____ParticulePara1
$c                                                                  R=$_____images.%04d
$c                                                                  chiffres=0
$c                                                                  CAL1=FAUX
$c                                                                                                  $formatI%c >>! $xTV/ROTATION\n"
$c                                            ,'"'
$c                                            ,angle
$c                                            ,n
$c                                            ,'"'
$c                                             );
$c                                      }
$c                            }

$Z                  execPar_V           $xTV/ROTATION

$Z                  $DELETE   $xTV/ROTATION