#######################################################################################################################################
#                                                                                                                                     #
#         R E D U C T I O N   S A N S   E P A I S S I S S E M E N T   E T   A V E C   M O Y E N N A G E                               #
#         D ' U N E   S E Q U E N C E   E N   F A U S S E S   C O U L E U R S  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.LYAP.1.12.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____CalculerR16              VRAI

$Z                  SETParam            _____CalculerR64              VRAI

$Z        set       OpTiOnS_ReDuCtIoN="moyenne=VRAI dilater=FAUX"
$Z                                      # Options introduites sous cette forme le 20120305135723...                                   #

$Z        $xci/reduction_16$X A=$_____images. premiere=$Premiere derniere=$Derniere                                                     \
$Z                            calculer=$_____CalculerR16                                                                                \
$Z                            $OpTiOnS_ReDuCtIoN                                                                                        \
$Z                            R=$_____animation$R16                                                                                     \
$Z                            $formatI

#20120720181540____:$Z        ro                  $_____animation$R16                                                                 #
#20120720181540____:$Z        $xcg/unite$Z        $_____animation$R16                                                                 #

$Z        SET       Nombre=$UNDEF
$Z                                      # Pour eviter des problemes de generation avec 'listN' avec les 'if(...)' qui suivent...      #
$Z        @         Nombre = $Derniere - $Premiere
$Z        @         Nombre = $Nombre + 1

$Z        if        ($Nombre < 0) then
$Z                  @         Nombre = 0 - $Nombre
$Z        else
$Z        endif

$Z        if        ($Nombre >= 64) then
$Z                  $xci/reduction_64$X A=$_____images. premiere=$Premiere derniere=$Derniere                                           \
$Z                                      calculer=$_____CalculerR64                                                                      \
$Z                                      $OpTiOnS_ReDuCtIoN                                                                              \
$Z                                      R=$_____animation$R64                                                                           \
$Z                                      $formatI
$Z
#20120720181540____:$Z                  ro                  $_____animation$R64                                                       #
#20120720181540____:$Z                  $xcg/unite$Z        $_____animation$R64                                                       #
$Z        else
$Z        endif

$Z        unset     _____CalculerR64
$Z        unset     _____CalculerR16
$Z                                      # Introduit le 20200115100201 afin de permettre des usages successifs dans un meme '$Z'       #
$Z                                      # tel, par exemple, dans 'v $xiirv/$Fnota Debut_listG_STRX_21'...                             #