#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   E N   P L A C E   D ' U N   F O N D   B L A N C   D E G R A D E                                                   #
#         P O U R   U N E   I M A G E   E N   V R A I E S   C O U L E U R S  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/FondBlanc.01$Z <imageA> <imageR> [<NPointsDilate> [<NPointsConvol> [<Seuil>]]]                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/FondBlanc.01$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20151211095921).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageR=$2
set       NPointsDilate=$3
set       NPointsConvol=$4
set       Seuil=$5

if        ("$NPointsDilate" == "$K_VIDE") then
#20151211134444____:          set       NPointsDilate=`$xcg/MUL2.01$X a=15 b=15`                                                      #
          set       NPointsDilate=`$xcg/MUL2.01$X a=17 b=17`
else
endif

setArgum  NPointsConvol                 `$xcg/MUL2.01$X a=15 b=15`
                                        # A priori, il est preferable de convoluer moins que l'on dilate afin d'etre sur d'avoir      #
                                        # du NOIR entre le fond BLANC et l'objet lui-meme. Il faut donc en general :                  #
                                        #                                                                                             #
                                        #                   $NPointsConvol < $NPointsDilate                                           #
                                        #                                                                                             #

setArgum  Seuil                         `$xcg/SOUS.01$X a=$BLANC b=1`
                                        # Argument introduit le 20151211135735.                                                       #

FilSTmpB  FoNd

set       ArGuMeNtS="$K_VIDE"
set       ArGuMeNtS="$ArGuMeNtS"" circulaire=VRAI"
set       ArGuMeNtS="$ArGuMeNtS"" circulaire_optimale=VRAI"

$xci/luminance.01$X                                                                                                                     \
                    A=$imageA                                                                                                           \
                                                                                                    $formatI                      |     \
$xci/complement$X                                                                                                                       \
                                                                                                    $formatI                      |     \
$xci/seuil$X                                                                                                                            \
                    seuil=$Seuil                                                                                                        \
                                                                                                    $formatI                      |     \
$xci/dilate.01$X                                                                                                                        \
                    eroder=VRAI                                                                                                         \
                    $ArGuMeNtS                                                                                                          \
                    points=$NPointsDilate                                                                                               \
                                                                                                    $formatI                      |     \
$xci/convol.01$X                                                                                                                        \
                    $ArGuMeNtS                                                                                                          \
                    points=$NPointsConvol                                                                                               \
                    R=$FoNd                                                                                                             \
                                                                                                    $formatI

execRVB             $xci/cache$X                                                                                                        \
                                        A=$imageA%s                                                                                     \
                                        M=$FoNd                                                                                         \
                                        R=$imageR%s                                                                                     \
                                                                                                                        $formatI

FilSTmpE  FoNd