#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         R E P E T I T I O N   D ' U N E   C O M M A N D E   P O U R                                                                 #
#         U N E   L I S T E   S E Q U E N T I E L L E   D ' I M A G E S  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/repeat.01$Z    <premiere> <derniere> <pas> '<commande>'                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Notations :                                                                                                                 #
#                                                                                                                                     #
#                     le numero d'image courante sera                                                                                 #
#                   accessible par '$n'.                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Exemple :                                                                                                                   #
#                                                                                                                                     #
#         $xci/repeat.01$Z    0 127 1 "$xci/acces$X A=$xiff/PAYSAGE.4"'$n'" $formatI | $xci/display$X p=$xiP/paysages.67 $formatI"    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/repeat.01$Z' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       premiere=$1
set       derniere=$2
set       pas=$3
set       commande="($4)"

set       liste=`$xci/nombres$X A=$K_VIDE premiere=$premiere derniere=$derniere pas=$pas`
                                        # Generation de la liste des numeros d'images Resultat.                                       #
foreach   n         ($liste)
          eval      $commande
                                        # Execution de la commande argument.                                                          #
          if        ($status != $OK) then
                    EROR      "Probleme d'execution (n=$n) : $commande"
                                        # Cas d'une erreur d'execution.                                                               #
          else
          endif
end