#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D ' U N E   S E Q U E N C E   E N R E G I S T R 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 <nom_de_la_sequence> <nombre_de_repetitions>                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/disk_viDeo_P$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  Sequence=$1
set  Repetitions=$2

set       kill_DKVP=$EXIST
source    $Fdisk_video_P
unset     kill_DKVP

if   ("$Repetitions" == "$K_VIDE") then
     set  repetitions=1
else
     set  repetitions=$Repetitions
endif

$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`
                                        # Recuperation du disque reellement present (sous forme alphabetique).                        #
     set  Rface=`$xci/disk_video_P$X commande="Blecture" a=$Iface_DKVP`
     @    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
               CD   $disque
                                        # Positionnement dans le directory des images du disque et de la face montes.                 #
               if   (-e $Sequence) then
                    set  sequence=`echo $Sequence | $R "$limiteur_DKVP" "$K_BLANC"`
                    set  debut=$sequence[$debut_DKVP]
                    set  fin=$sequence[$fin_DKVP]
                                        # Recuperation des images de debut et de fin.                                                 #
                    $xci/disk_video_P$X commande="recherche" adresse=$debut
                                        # Positionnement.                                                                             #
                    $xci/disk_video_P$X commande="sequence+N" debut=$debut fin=$fin repetitions=$repetitions
                                        # Puis visualisation de la sequence.                                                          #
               else
                    EROR "La sequence demandee n'existe pas."
               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 'PAL-Beta' n'est surement pas supporte par cette MACHINE."
endif