#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D O U B L E M E N T   D ' U N E   P A L E T T E  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xciP/doublement$Z  <paletteA> <paletteR>                                                                         #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xciP/doublement$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 paletteA=$1
set                 paletteR=$2

source              $xciP/XYmaxNe$Y
                                        # Choix d'un mode ou l'image est petite et suffisante...                                      #

FileTmpB            Imire
FileTmpB            ImireG
FileTmpB            ImireD
FileTmpB            Ipalette

$xci/init$X         niveau=$NOIR                                                                                        $formatI        \
                                        | $xci/mire$X         h=$hauteur R=$Imire                                       $formatI
$xci/affine.01$X    A=$Imire mxx=0.5 mxy=0.0 myx=0.0 myy=1.0 TxR=0.25    R=$ImireG                                      $formatI
$xci/affine.01$X    A=$Imire mxx=0.5 mxy=0.0 myx=0.0 myy=1.0 TxR=0.75    R=$ImireD                                      $formatI
$xci/or_02$X        A1=$ImireG A2=$ImireD                                                                               $formatI        \
                                        | $xci/vraies_C$X     p=$paletteA RVB=VRAI R=$Ipalette                          $formatI
                                        # Conversion de la palette en une image...                                                    #

$xciP/IMAGE$X       A=$Ipalette$ROUGE pA=$xiP/gris.01 pR=$paletteR ROUGE=VRAI VERTE=FAUX BLEUE=FAUX                     $formatI
$xciP/IMAGE$X       A=$Ipalette$VERTE pA=$xiP/gris.01 pR=$paletteR ROUGE=FAUX VERTE=VRAI BLEUE=FAUX                     $formatI
$xciP/IMAGE$X       A=$Ipalette$BLEUE pA=$xiP/gris.01 pR=$paletteR ROUGE=FAUX VERTE=FAUX BLEUE=VRAI                     $formatI
                                        # Puis enfin, reconversion de l'image en une palette...                                       #

ro                  $paletteR$ROUGE
ro                  $paletteR$VERTE
ro                  $paletteR$BLEUE
                                        # Enfin, protection...                                                                        #

FileTmpE            Imire
FileTmpE            ImireG
FileTmpE            ImireD
FileTmpE            Ipalette