#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   A N I M A T I O N                                                                         #
#         D U   G E N E R A T E U R   D E   C O T E S   T R I D I M E N S I O N N E L L E S   E T   E R O S I O N  :                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT3.21.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  @                   NuMeRo_TeRrE = $NuMeRo_MeR + 1
$Z                                      # L'image qui correspondait initialement a la mer ('$NuMeRo_MeR') n'est pas a traiter car,    #
$Z                                      # en effet, son contenu est d'une nature differente de celui des images suivantes qui         #
$Z                                      # donnent l'historique de l'erosion grace a {$_____PointsErodes,$_____DPointsErodes}.         #
$Z                                      #                                                                                             #
$Z                                      # ATTENTION : '$NuMeRo_TeRrE' est un index dans '$LiStE_ImAgEs' et non pas un numero d'image. #

$Z                  while               ($NuMeRo_TeRrE <= $#LiStE_ImAgEs)
$Z                                      $xci/neutre$X                                                                                   \
$Z                                                          A=$xTV/COT3.1.$LiStE_ImAgEs[$NuMeRo_TeRrE]                                  \
$Z                                                          R=$_____images.$LiStE_ImAgEs[$NuMeRo_TeRrE]                                 \
$Z                                                                                                                      $formatI
$Z
$Z                                      @                   NuMeRo_TeRrE = $NuMeRo_TeRrE + 1
$Z                  end