#######################################################################################################################################
#                                                                                                                                     #
#         A N I M A T I O N   D ' U N   E N T R E L A C S  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRU.M2.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081009093023).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Structure                $xiirv/STRU.bas.11

$Z        setParam            _____Color                    $EXIST
$Z                                      # Introduit le 20081022100143...                                                              #

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/normalise.01$X
$c                                                                    A=$_____imagesS$COORD_X.%04d
$c                                                                    R=$_____imagesS2$COORD_X
$c                                                                                                                      $formatI\n"
$c                                            ,n
$c                                             );
$c                                      printf("$xci/normalise.01$X
$c                                                                    A=$_____imagesS$COORD_Y.%04d
$c                                                                    R=$_____imagesS2$COORD_Y
$c                                                                                                                      $formatI\n"
$c                                            ,n
$c                                             );
$c
$c                                      printf("execRVB     $xci/acces$X
$c                                                                              A=$_____Structure%%s
$c                                                                              convertir=VRAI
$c                                                                              R=$xTV/CHAMP%%s
$c                                                                                                                      $formatI\n"
$c                                             );
$c
$c                                      printf("execRVB   %c$xci/deformi.01$X
$c                                                                              A=$xTV/CHAMP%%s
$c                                                                              DX=$_____imagesS2$COORD_X
$c                                                                              DY=$_____imagesS2$COORD_Y
$c                                                                              bidimensionnelle=VRAI
$c                                                                              bilineaire=VRAI
$c                                                                                                                      $formatI  |
$c                                                          $xci/acces$X
$c                                                                              standard=FAUX
$c                                                                              brutal=VRAI
$c                                                                                                                      $formatI  |
$c                                                          $xci/pt_isole.01$X
$c                                                                              points=9
$c                                                                              seuil=0.05
$c                                                                              R=$xTV/STRUCTURE%%s
$c                                                                                                                      $formatI%c\n"
$c                                            ,'"','"'
$c                                             );
$c
$c                                      printf("if                    ($_____Color == $EXIST) then\n");
$c                                      printf("                      $xci/color_NB.01$Z
$c                                                                                          $xTV/STRUCTURE
$c                                                                                          $_____imagesS3.%04d\n"
$c                                            ,n
$c                                             );
$c                                      printf("else\n");
$c                                      printf("                      execRVB     $xci/neutre$X
$c                                                                                                    A=$xTV/STRUCTURE%%s
$c                                                                                                    R=$_____imagesS3.%04d%%s
$c                                                                                                                      $formatI\n"
$c                                            ,n
$c                                             );
$c                                      printf("endif\n");
$c                                      }
$c                            }