#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F E R T   D E S   P A L E T T E S   S O L A R   P A R   B A N D E   M A G N E T I Q U E  :                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xciP/TRANSFERT$Z   <palette>                                                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xciP/TRANSFERT$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set  palette=$1

if   (-e $palette) then
     EROR "ATTENTION : la PALETTE "$palette" existe deja."
else
     if   (-e $xT/$palette$w) then
          $DELETE   $xT/$palette$w
     else
     endif
     if   (-e $xT/$palette$W) then
          $DELETE   $xT/$palette$W
     else
     endif
     if   (-e $palette) then
          $DELETE   $palette
     else
     endif
     echo '1s/>("-//' >  $xT/$palette$W
     echo '257,$d'    >> $xT/$palette$W
     echo 'w'         >> $xT/$palette$W
     echo 'q'         >> $xT/$palette$W
     dd   if=$bandeSR | $R "$K_BLANC" "$K_NL" > $xT/$palette$w
                                        # Premiere partie de la recuperation d'une palette SOLAR.                                     #
     $E   $xT/$palette$w < $xT/$palette$W
     $CA  $xT/$palette$w | $AW '{printf "          PALETTE(#"$1"#);\n"}' | $R '#' '"' > $palette
                                        # Deuxieme partie de la recuperation d'une palette SOLAR.                                     #
     ro   $palette
                                        # Et protection.                                                                              #
     if   (-e $xT/$palette$w) then
          $DELETE   $xT/$palette$w
     else
     endif
     if   (-e $xT/$palette$W) then
          $DELETE   $xT/$palette$W
     else
     endif
endif