#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   E N T R E   D E U X   C H A M P S   T R I D I M E N S I O N N E L S  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRU.81B2.1.$U' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20080929092642).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if        ($?Premiere == $NEXIST) then
$Z                            SET       Premiere=1
$Z                  else
$Z                  endif

$Z                  if        ($?Derniere == $NEXIST) then
$Z                            SET       Derniere=16
$Z                  else
$Z                  endif

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Olambda   0.0
$c                  #define   Elambda   1.0
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    lambda=((Elambda*(n-N0))+(Olambda*(N-n)))/(N-N0);
$c
$c                                      printf("eval      `$xci/genere$X
$c                                                         commande='($xci/interpole.01$X
$c                                                                               standard=FAUX
$c                                                                               alpha=%f
$c                                                                               A1=$xTV/SURFACE.1%%s
$c                                                                               beta=%f
$c                                                                               A2=$xTV/SURFACE.2%%s
$c                                                                                                            $formatI            |
$c                                                                    $xci/normalise.01$X
$c                                                                               origine=-1 extremite=+1
$c                                                                               R=$_____imagesS%%s.%04d
$c                                                                                                            $formatI)'
$c                                                         en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`\n"
$c                                            ,1-lambda,lambda
$c                                            ,n
$c                                             );
$c                                      /* Interpolation entre les deux champs tridimensionnels...                                   */
$c                                      }
$c                            }