#!/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   L A   L U M I N A N C E   D U   C A C H E  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/cache.21$Z     <nom_image_vraies_coul> <nom_masque_vraies_coul> <nom_resultat_vraies_coul>                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/cache.21$Z' :                                                                                               #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

if                  ($masqueA == $imageR) then
                                        # Test introduit le 20120925084439...                                                         #
                    EROR                "Le Masque et l'image Resultat ne peuvent etre identiques."
else
endif

FileTmpB            nomM

$xci/luminance.01$X AR=$masqueA$ROUGE AV=$masqueA$VERTE AB=$masqueA$BLEUE                                               $formatI        \
                                                            | $xci/seuil$X        seuil=$NOIR                           $formatI        \
                                                            | $xci/complement$X   R=$nomM                               $formatI
                                        # ATTENTION a la difference avec 'v $xci/cache.31$Z' prenant en compte qu'en toute generalite #
                                        # deux palettes differentes ne correspondent evidemment pas a la meme luminance. Dans le      #
                                        # cas, par exemple, d'une image 'IMAGE' qui est passee en vraies couleurs via deux palettes   #
                                        # '1' et '2' pour donner deux images 'IMAGE1' et 'IMAGE2', ces deux dernieres n'auront pas    #
                                        # la meme luminance. Cela s'est vu en generant 'v $xiirv/STRU.bas.22$Z_BUFFER' pour laquelle  #
                                        # 'PaLeTtE_3=$xiP/bleue.01' alors que pour generer 'v $xiirv/STRU.bas.22' on avait utilise    #
                                        # 'PaLeTtE_3=$xiP/gris.01'. Les masques correspondant aux images '$xTV/EPAISSEUR.24.3' et     #
                                        # '$xTV/CHAMP.24.3' calcules via '$xci/luminance.01$X' etaient donc differents. Ces           #
                                        # experiences ont ete conduites aux environs du 20090529113226...                             #

execRVB   $xci/and$X          A1=$imageA%s A2=$nomM R=$imageR%s                                                         $formatI
                                        # Masquage via la luminance de '$masqueA'.                                                    #
#20080911142301____:$xci/cache.11$Z     $imageR $masqueA $imageR                                                                      #
execRVB   $xci/or_02$X        A1=$imageR%s A2=$masqueA%s R=$imageR%s                                                    $formatI
                                        # Et enfin, "cachement"...                                                                    #
                                        #                                                                                             #
                                        # La modification du 20080911142301 est destinee a corriger un defaut qui peut intervenir     #
                                        # et qui est du au fait que la luminance d'un point peut etre nulle (en mode "standard=VRAI") #
                                        # alors que l'un ou plusieurs des niveaux {$ROUGE, $VERTE,$BLEUE} ne le sont pas. L'appel de  #
                                        # '$xci/cache.11$Z' provoquait dans ce cas des anomalies chromatiques sur les composantes     #
                                        # correspondantes...                                                                          #

FileTmpE            nomM