#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   E N   P L A C E   D ' U N   F O N D   E N   V R A I E S   C O U L E U R S                                         #
#         D E R R I E R E   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/FondQuelconque.11$Z      <ImageArgument> <ImageFond> <ImageResultat> [<NPointsDilat> [<NPointsConvol>]]      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/FondQuelconque.11$Z' :                                                                                      #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20131119130204).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       ImageArgument=$1
set       ImageFond=$2
set       ImageResultat=$3
set       NPointsD=$4
set       NPointsC=$5

setArgum  NPointsD                      25
setArgum  NPointsC                      25

FilSTmpB  MaSqUe
FilSTmpB  FoNd

@         SeUiL = $BLANC - 1

$xci/luminance.01$X                                                                                                                     \
                    A=$ImageArgument                                                                                                    \
                                                                                                              $formatI            |     \
$xci/complement$X                                                                                                                       \
                                                                                                              $formatI            |     \
$xci/seuil$X                                                                                                                            \
                    seuil=$SeUiL                                                                                                        \
                                                                                                              $formatI            |     \
$xci/dilate.01$X                                                                                                                        \
                    eroder=VRAI                                                                                                         \
                    points=$NPointsD                                                                                                    \
                    R=$MaSqUe                                                                                                           \
                                                                                                              $formatI
execRVB   $xci/and$X                                                                                                                    \
                              A1=$ImageFond%s                                                                                           \
                              A2=$MaSqUe                                                                                                \
                              R=$FoNd%s                                                                                                 \
                                                                                                                        $formatI
execRVB   $xci/convol.01$X                                                                                                              \
                              A=$FoNd%s                                                                                                 \
                              circulaire=VRAI circulaire_optimale=VRAI                                                                  \
                              points=$NPointsC                                                                                          \
                              R=$FoNd%s                                                                                                 \
                                                                                                                        $formatI
execRVB   $xci/or_02$X                                                                                                                  \
                              A1=$ImageArgument%s                                                                                       \
                              A2=$FoNd%s                                                                                                \
                              R=$ImageResultat%s                                                                                        \
                                                                                                                        $formatI

FilSTmpE  FoNd
FilSTmpE  MaSqUe