#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D I S P L A Y   S T A N D A R D   D ' U N E   L I S T E   D ' I M A G E S   D A N S   ' C W D '  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/display$Z      <nom_de_la_racine_dans_CWD> [<palette> [<duree>]]                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/display$Z' :                                                                                                #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  racine=$1
set  Palette=$2
set  Duree=$3

if   ("$Palette" == "$K_VIDE") then
     set  palette="$xiP/gris.01"
                                        # Dans le cas ou aucune palette n'est demandee, on fixe "gris.01" afin qu'elle soit           #
                                        # adaptee aussi bien pour les images 2D que pour les images 3D.                               #
else
     set  palette=$Palette
                                        # Sinon, on prend la palette demandeee.                                                       #
endif
if   ("$Duree" == "$K_VIDE") then
     set  duree=4
                                        # Dans le cas ou aucune duree n'est demandee, on fixe 4 secondes.                             #
else
     set  duree=$Duree
                                        # Sinon, on prend la duree demandeee.                                                         #
endif

set  liste=`$FINDc $follow $ExclusionFINDc -type f -name $racine\* -print`
                                        # Recuperation de la liste des images a visualiser.                                           #
foreach   image     ($liste)
     $xci/display$X A=$image p=$palette d=$duree $formatI
                                        # Display de l'image courante.                                                                #
end