#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         E D I T I O N   D U   D I S Q U E   E T   D E   L A   F A C E   M O N T E E                                                 #
#         S U R   L E   D I S Q U E   V I D E O   B E T A - P A L  :                                                                  #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/disk_vidEo_P$Z |& $Mor                                                                                       #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/disk_vidEo_P$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       kill_DKVP=$EXIST
source    $Fdisk_video_P
unset     kill_DKVP

$xci/disk_video_P$X commande="initialisation"
                                        # Initialisation a priori du disque.                                                          #
if   ($status == $OK) then
     set  Rdisque=`$xci/disk_video_P$X commande="Blecture" a=$Idisque_DKVP lecture=VRAI`
                                        # Recuperation du disque reellement present (sous forme alphabetique).                        #
     set  Rface=`$xci/disk_video_P$X commande="Blecture" a=$Iface_DKVP lecture=VRAI`

     if   ("$Rface" != "$K_VIDE") then
          @    Rface = $Rface
                                        # Recuperation de la face reellement presente (sous forme numerique).                         #

          $xci/disk_video_P$X commande="recherche" a=$imageR_DKVP
                                        # Puis, a priori, on retourne a la premiere image.                                            #

          set  Disque=$Rdisque
          set  Face=$Rface

          if   (("$Disque" != "$K_VIDE") && ("$Face" != "$K_VIDE")) then
               set  disque=$xivP$K_sepS$Ndisk_DKVP$Disque$K_sepS$Nface_DKVP$Face
                                        # Definition du directory contenant les images du disque et de la face demandes.              #
               if   (-e $disque) then
                    echo "Support monte = "$disque
                    echo "-------------"
                    saut
                    set  sequences=`$FIN $disque $follow -type f ! -name $Fnota ! -name \*$Y ! -name \*$Z -print | $WC`
                    set  sequences=$sequences[$WC1]
                    if   ($sequences == 0) then
                         echo "(support vide)"
                         saut
                    else
                         echo "Sequence(s) enregistree(s) :"
                         echo "--------------------------"
                         saut
                         $FIN $disque $follow -type f ! -name $Fnota ! -name \*$Y ! -name \*$Z -print                                   \
                                                                                | $SE -e 's/^.*\/\([0-9][_0-9]*\)$/\1/'                 \
                                                                                | $SOR
                                        # ATTENTION, il y avait autrefois :                                                           #
                                        #                                                                                             #
                                        #         l -rt $disque | $R "$K_BLANC" "$K_NL" | $R "," "$K_BLANC" | $R "$limiteur_DKVP" "-" #
                                        #                                                                                             #
                                        # mais on risquait un debordement ("Arguments too long.")...                                  #
                         saut
                    endif
               else
                    EROR "Le nom du disque ou le numero de la face demande(s) n'existe(nt) pas."
               endif
          else
               EROR "Le nom du disque et le numero de la face sont obligatoires."
          endif
     else
          EROR "Le disque monte n'est problablement initialise : faire '"'$xci/disk_vIdeo_P$Z'" <nom_du_disque> <numero_de_la_face>'."
     endif
else
     EROR "Le disque 'PAL-Beta' n'est surement pas supporte par cette MACHINE."
endif