#######################################################################################################################################
# #
# R E D U C T I O N A V E C 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 V R A I E S C O U L E U R S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.f.14.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____CalculerR16 $EXIST
$Z # Parametre introduit le 20110119105348... #
$Z SETParam _____CalculerR64 $EXIST
$Z # Parametre introduit le 20110119105348... #
$Z if ($_____CalculerR16 == $EXIST) then
$Z # Test introduit le 20110119105537... #
$Z $xci/reduction_16$Z $_____images. $_____animation $Premiere $Derniere VRAI VRAI VRAI
$Z else
$Z endif
$Z if ($_____CalculerR64 == $EXIST) then
$Z # Test introduit le 20110119105537... #
$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 # Ce test a ete ajoute le 20010529172735 pour ne pas generer l'image '$xias/CAYA.11.1$R64' #
$Z # ('v $xias/$Fnota Debut_listG_CAYA_11_1'). #
$Z $xci/reduction_64$Z $_____images. $_____animation $Premiere $Derniere VRAI VRAI VRAI
$Z else
$Z endif
$Z else
$Z endif
$Z unset _____CalculerR64
$Z unset _____CalculerR16
$Z # Introduit le 20200115100355 afin de permettre des usages successifs dans un meme '$Z' #
$Z # tel, par exemple, dans 'v $xiirv/$Fnota Debut_listG_STRX_21'... #