#######################################################################################################################################
#                                                                                                                                     #
#         A C C U M U L A T I O N S   D ' U N E   S E Q U E N C E   D ' I M A G E S                                                   #
#         A V E C   C H A N G E M E N T   D E   F O R M A T  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.MORL.42.2.11.$U' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20030512100714).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Inverser                 FAUX

$Z                  setParam            _____Inferieur                $GRIS_3

$Z                  setParam            _____Superieur                $GRIS_5

$Z                  setParam            _____Cache                    "="
$Z                                      # Image "cache" (ATTENTION : au format 'Sdu') introduite le 20030515145224 ; elle permet      #
$Z                                      # de cacher une partie de chaque image '$_____imageA.????'.                                   #

$Z                  setParam            _____NCache                   0
$Z                                      # Nombre de chiffres de la sequence '$_____Cache' (introduit le 20030526110546). La valeur    #
$Z                                      # par defaut fait que cette sequence est reduite a une image...                               #

$Z                  setParam            _____TranslationX             0.001
$Z                                      # Parametre introduit le 20030515140610...                                                    #

$Z                  setParam            _____TranslationY             0.0005
$Z                                      # Parametre introduit le 20030515140610...                                                    #

$Z                  SET                 Premiere=1
$Z                  SET                 Derniere=128

$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/format.01$X
$c                                                             A=$_____imageA.%04d
$c                                                                                                $formatI
$c                                                             mode=7
$c                                                             R=$xTV/SEQUENCE.%04d
$c                                                                                                $formatR_Sdu\n"
$c                                            ,n
$c                                            ,n
$c                                             );
$c                                      }
$c                            }

$Z                  Sdu

$Z                  $xci/accumule.02$X                                                                                                  \
$Z                                      A=$xTV/SEQUENCE.                                                                                \
$Z                                      premiere=$Premiere derniere=$Derniere inverser=$_____Inverser                                   \
$Z                                      filtrage=VRAI inf=$_____Inferieur sup=$_____Superieur                                           \
$Z                                      C=$_____Cache chiffresC=$_____NCache                                                            \
$Z                                      trx=$_____TranslationX try=$_____TranslationY                                                   \
$Z                                      R=$xTV/ACCUMULE                                                                                 \
$Z                                                                                                  $formatI

$Z                  $xci/format.01$X                                                                                                    \
$Z                                      A=$xTV/ACCUMULE                                                                                 \
$Z                                                                                                  $formatI                            \
$Z                                      mode=7                                                                                          \
$Z                                      R=$_____imageR                                                                                  \
$Z                                                                                                  $formatR_Pal