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

$Z                  setParam            _____FacteurLog               5

$Z                  set                 Numero=$Premiere

$Z                  set                 Liste=`$xci/nombres$X A="$K_VIDE" premiere=$Premiere derniere=$Derniere`

$Z                  foreach             NumeroA   ($Liste)
$Z                                      set       TDebut=`$CA $_____Fnombres | $GRE "image $NumeroA " | $HEA -1`
$Z                                      set       TDebut=`echo "$TDebut" | $SE -e "s/^.* Temps=//" -e 's/ .*$//'`
$Z                                      set       TFin__=`$CA $_____Fnombres | $GRE "image $NumeroA " | $TAI -1`
$Z                                      set       TFin__=`echo "$TFin__" | $SE -e "s/^.* Temps=//" -e 's/ .*$//'`
$Z
$Z                                      if        (("$TDebut" != "$K_VIDE") && ("$TFin__" != "$K_VIDE")) then
$Z                                                set       TDuree=`$xcg/SOUS.01$X a=$TFin__ b=$TDebut`
$Z                                                set       LogTDuree=`$xcg/LOGX.01$X x=$TDuree entier=VRAI`
$Z                                                set       Duplication=`$xcg/DIVZ.01$X a=$LogTDuree b=$_____FacteurLog entier=VRAI`
$Z                                                set       Duplication=`$xcg/MAX2.01$X a=$Duplication b=1 entier=VRAI signe="$K_VIDE"`
$Z                                      else
$Z                                                set       Duplication=1
$Z                                      # En general cas de la premiere image (qui montre les conditions initiales...).               #
$Z                                      endif
$Z
$Z                                      set       Compteur=$Duplication
$Z
$Z                                      while     ($Compteur > 0)
$Z                                                set       NumeroR=`$xci/nombres$X A="$K_VIDE" premiere=$Numero derniere=$Numero`
$Z
$Z                                                $xci/neutre$X                                                                         \
$Z                                                          A=$_____imagesA.$NumeroA                                                    \
$Z                                                          R=$_____images.$NumeroR                                                     \
$Z                                                                                                                      $formatI
$Z
$Z                                                @         Numero = $Numero + 1
$Z                                                @         Compteur = $Compteur - 1
$Z                                      end
$Z                  end

$Z                  @                   Derniere = $Numero - 1