#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   E N T R E   D E U X   P A L E T T E S   S U I V A N T   U N   P O N D E R A T E U R  :          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xciP/interpole.02$Z                    <paletteA1> <paletteA2> <paletteP> <paletteR>                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xciP/interpole.02$Z' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 paletteA1=$1
set                 paletteA2=$2
set                 paletteP=$3
set                 paletteR=$4

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

FileTmpB            IpaletteA1
FileTmpB            IpaletteA2
FileTmpB            IpaletteP
FileTmpB            IpaletteR

$xci/init$X         niveau=$NOIR                                                                                        $formatI        \
                                        | $xci/mire$X         h=$hauteur                                                $formatI        \
                                        | $xci/vraies_C$X     p=$paletteA1 RVB=VRAI R=$IpaletteA1                       $formatI
$xci/init$X         niveau=$NOIR                                                                                        $formatI        \
                                        | $xci/mire$X         h=$hauteur                                                $formatI        \
                                        | $xci/vraies_C$X     p=$paletteA2 RVB=VRAI R=$IpaletteA2                       $formatI
$xci/init$X         niveau=$NOIR                                                                                        $formatI        \
                                        | $xci/mire$X         h=$hauteur                                                $formatI        \
                                        | $xci/vraies_C$X     p=$paletteP  RVB=VRAI R=$IpaletteP                        $formatI
                                        # Conversion des trois palettes en image.                                                     #

$xci/interpole.02$X A1=$IpaletteA1$ROUGE A2=$IpaletteA2$ROUGE P=$IpaletteP$ROUGE R=$IpaletteR$ROUGE                     $formatI
$xci/interpole.02$X A1=$IpaletteA1$VERTE A2=$IpaletteA2$VERTE P=$IpaletteP$VERTE R=$IpaletteR$VERTE                     $formatI
$xci/interpole.02$X A1=$IpaletteA1$BLEUE A2=$IpaletteA2$BLEUE P=$IpaletteP$BLEUE R=$IpaletteR$BLEUE                     $formatI
                                        # Interpolation des images vraies couleurs attachees aux palettes.                            #

$xciP/IMAGE$X       A=$IpaletteR$ROUGE pA=$xiP/gris.01 pR=$paletteR ROUGE=VRAI VERTE=FAUX BLEUE=FAUX                    $formatI
$xciP/IMAGE$X       A=$IpaletteR$VERTE pA=$xiP/gris.01 pR=$paletteR ROUGE=FAUX VERTE=VRAI BLEUE=FAUX                    $formatI
$xciP/IMAGE$X       A=$IpaletteR$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            IpaletteA1
FileTmpE            IpaletteA2
FileTmpE            IpaletteP
FileTmpE            IpaletteR