#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   S T E R E O S C O P I Q U E   L O R S                                                           #
#         D ' I N T E R P O L A T I O N   D E   P O I N T   D E   V U E                                                               #
#         ( A V E C   E L O I G N E M E N T   D U   S O L E I L   E T   R O T A T I O N )                                             #
#         D A N S   L E   S Y S T E M E   S O L A I R E  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.NCOR.u1.1.11.$U' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20090922184008).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____imagesN                  $xTV/NCOR
$Z                                      # Parametre introduit le 20090922215625 en ce qui concerne la valeur par defaut...            #

$Z                  SETParam            SPremiere                     1
$Z                                      # Parametre introduit le 20090922215229 en ce qui concerne la valeur par defaut...            #

$Z                  SETParam            SDerniere                     16
$Z                                      # Parametre introduit le 20090922215229 en ce qui concerne la valeur par defaut...            #

$Z                  SETParam            StereoD                       +0.8
$Z                                      # Parametre introduit le 20090923091732...                                                    #

$Z                  SETParam            StereoA                       -0.8
$Z                                      # Parametre introduit le 20090923091732...                                                    #

$Z                  xiak
$Z                  xlistN    Debut_listG_NCOR_uP Fin_listG_NCOR_uP $xTV/SCRIPT.NCOR_uP$Z

$Z                  $DELETE   $xTV/SCRIPT.1$Y
$Z                  listMN    $xTV/SCRIPT.NCOR_uP$Z Debut_listG_PaRaMeTrEs Fin_listG_PaRaMeTrEs                                         \
$Z                                                                                                            >  $xTV/SCRIPT.1$Y

$Z                  $DELETE   $xTV/SCRIPT.2$Y
$Z                  (listMN    $xTV/SCRIPT.NCOR_uP$Z Debut_listG______images_$_____numero Fin_listG______images_$_____numero)     |     \
$Z                  $SE       -e 's/\($_____images\)\.'"$_____numero/\1/"                                                               \
$Z                                                                                                            >  $xTV/SCRIPT.2$Y

$Z                  $DELETE   $xTV/SCRIPT$Y
$Z                  $CA       $xcs/csh$Y                                                                                                \
$Z                                                                                                            >  $xTV/SCRIPT$Y
$Z                  $CA       $xTV/SCRIPT.1$Y                                                                                           \
$Z                                                                                                            >> $xTV/SCRIPT$Y
$Z                  $CA       $xTV/SCRIPT.2$Y                                                                                           \
$Z                                                                                                            >> $xTV/SCRIPT$Y

$X                  echo      "neutre"
$X                                      # commande destinee uniquement a mettre a jour l'environnement 'env'...                       #

$c                  #include  <stdio.h>
$c
$c                  #define   N0        SPremiere
$c                  #define   N         SDerniere
$c                  #define   P         1
$c
$c                  #define   AD        StereoD
$c                  #define   AN        StereoA
$c
$c                  #define   Interpole(D,A,n,N0,N)         ((N==N0) ? (D) : (((double)((A*(n-N0))+(D*(N-n))))/((double)(N-N0))))
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n=n+P)
$c                                      {
$c                                      double    angle=Interpole(AD,AN,n,N0,N);
$c
$c                                      printf("set       _____Rotation_OY=%f\n"
$c                                            ,angle
$c                                             );
$c                                      printf("set       _____images=$_____imagesN.$_____numero.%04d\n"
$c                                            ,n
$c                                             );
$c
$c                                      printf("source    $xTV/SCRIPT$Y\n");
$c
$c                                      printf("unsetenv  ZoomD\n");
$c                                      printf("unsetenv  ZoomA\n");
$c                                      }
$c                            }