#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C A C H E M E N T   D ' U N E   I M A G E   A   T R A V E R S   U N E   A U T R E   E N   V R A I E S   C O U L E U R S     #
#         V I A   U N E   I N T E R P O L A T I O N   U T I L I S A N T   L A   L U M I N A N C E   D U   C A C H E  :                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/cache.22$Z     <nom_image_vraies_coul> <nom_masque_vraies_coul> <nom_resultat_vraies_coul>                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/cache.22$Z' :                                                                                               #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 masqueA=$2
set                 imageR=$3

FileTmpB            nomM

set                 Palette=$xiP/gris.01
                                        # Palette des generation du masque d'interpolation '$nomM'.                                   #

$xci/luminance.01$X AR=$masqueA$ROUGE AV=$masqueA$VERTE AB=$masqueA$BLEUE                                               $formatI        \
                                                            | $xci/acces$X        renormaliser=VRAI                                     \
                                                                                                                        $formatI        \
                                                            | $xci/substitue$X    p=$Palette                                            \
                                                                                  substitution=L_SUBSTITUTION_ROUGE                     \
                                                                                  R=$nomM                               $formatI

execRVB   $xci/interpole.02$X A1=$masqueA%s P=$nomM A2=$imageA%s R=$imageR%s                                            $formatI
                                        # Masquage via la luminance de '$masqueA'.                                                    #

FileTmpE            nomM