#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         I N I T I A L I S A T I O N   D ' U N E   F A C E   D ' U N   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_du_disque> <numero_de_la_face>                                                           #
#                                                                                                                                     #
#                                           E [0,9]           E [1,2]                                                                 #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/disk_vIdeo_P$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  Disque=$1
set  Face=$2

set       kill_DKVP=$EXIST
source    $Fdisk_video_P
unset     kill_DKVP

set  Disque=`Gdisk_DKVP $Disque`
set  Face=`Gface_DKVP $Face`

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.              #
     $xci/disk_video_P$X commande="Initialisation"
                                        # Initialisation a priori du disque.                                                          #
     if   ($status == $OK) then
          if   (-e $disque) then
               EROR      "Le nom du disque et le numero de la face demandes existent deja dans $xivP,"
               EROR      "ils ne sont donc pas recrees."
          else
#20010323114727____:               $MKDIR    $xivP$K_sepS$Ndisk_DKVP$Disque                         >& $nul                           #
#20010323114727____:               $MKDIR    $disque                                                >& $nul                           #
               if        (! -e $xivP$K_sepS$Ndisk_DKVP$Disque) then
                         mkdir     $xivP$K_sepS$Ndisk_DKVP$Disque
               else
               endif

               mkdir     $disque
                                        # Creation des directories associes au disque et a la face demandes sans aller creer          #
                                        # les directories miroirs. La creation des directories miroirs a ete introduite le            #
                                        # 20010323114727 afin de permettre la copie du '$Fnota' ci-apres...                           #

               cp        $xci/disk_vIdeo_P$D/$Fnota $disque/$Fnota
                                        # Initialisation du '$Fnota' associe au directory '$disque'...                                #
          endif

          $xci/disk_video_P$X commande="Benregistre" a=$Idisque_DKVP v=$Disque
                                        # Identification du disque.                                                                   #
          $xci/disk_video_P$X commande="Benregistre" a=$Iface_DKVP v=$Face
                                        # Identification de la face.                                                                  #
          $xci/disk_video_P$X commande="recherche" a=$imageR_DKVP
                                        # Puis, a priori, on retourne a la premiere image.                                            #
     else
          EROR "Le disque 'PAL-Beta' n'est surement pas supporte par cette MACHINE."
     endif
else
     EROR "Le nom du disque et le numero de la face sont obligatoires."
endif