#!/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.41$Z     <nom_image_vraies_C> <nom_masque_vraies_C> <nom_resultat_vraies_C> [<NPoints> [<EvN> [<Circul>]]]  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/cache.41$Z' :                                                                                               #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20100423085632).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       masqueA=$2
set       imageR=$3
set       NombrePoints=$4
set       EviterNoir=$5
set       Circulaire=$6

setArgum  NombrePoints                  81

setArgum  EviterNoir                    FAUX
                                        # Parametre introduit le 20200704101915...                                                    #

setArgum  Circulaire                    VRAI
                                        # Parametre introduit le 20240902113838...                                                    #

FileTmpB  nomM

$xci/luminance.01$X                                                                                                                     \
                    AR=$masqueA$ROUGE AV=$masqueA$VERTE AB=$masqueA$BLEUE                                                               \
                    eviter_apparition_NOIR=$EviterNoir                                                                                  \
                                                                                                                        $formatI        \
                                                            | $xci/seuil$X                                                              \
                                                                                  seuil=$NOIR                                           \
                                                                                                                        $formatI        \
                                                            | $xci/convol.01$X                                                          \
                                                                                  circulaire=$Circulaire                                \
                                                                                  circulaire_optimale=$Circulaire                       \
                                                                                  points=$NombrePoints                                  \
                                                                                  R=$nomM                                               \
                                                                                                                        $formatI

execRVB   $xci/interpole.02$X A1=$masqueA%s A2=$imageA%s P=$nomM R=$imageR%s                                            $formatI
                                        # Et enfin, "cachement"...                                                                    #

FileTmpE  nomM