#!/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                                                                   #
#         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                                                           #
#         ( B E A U C O U P   M O I N S   B O N   Q U E   'v $xci/FondBlanc.01$Z' )  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/FondBlancLisere.11$Z     <ImageArgument> <ImageResultat> [<NPoints>]                                         #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/FondBlancLisere.11$Z' :                                                                                     #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20131119130204).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       ImageArgument=$1
set       ImageResultat=$2
set       NPoints=$3

setArgum  NPoints                       9

FilSTmpB  FoNd

echo      "Il est suggere d'utiliser plutot la commande '"'v $xci/FondBlanc.01$Z'"' de bien meilleure qualite."
                                        # Message introduit le 20151214164523...                                                      #

$xci/luminance.01$X                                                                                                                     \
                    A=$ImageArgument                                                                                                    \
                                                                                                              $formatI            |     \
$xci/seuil$X                                                                                                                            \
                    seuil=$NOIR                                                                                                         \
                                                                                                              $formatI            |     \
$xci/complement$X                                                                                                                       \
                                                                                                              $formatI            |     \
$xci/convol.01$X                                                                                                                        \
                    circulaire=VRAI circulaire_optimale=VRAI                                                                            \
                    points=$NPoints                                                                                                     \
                    R=$FoNd                                                                                                             \
                                                                                                              $formatI
execRVB   $xci/cache$X                                                                                                                  \
                              A=$FoNd                                                                                                   \
                              M=$ImageArgument%s                                                                                        \
                              R=$ImageResultat%s                                                                                        \
                                                                                                                        $formatI
                                        # Enfin, generation du fond blanc avec lisere noir...                                         #

FilSTmpE  FoNd