#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         S O L A R I S A T I O N   D ' U N E   I M A G E  :                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/solarise.12$Z  <imageA> <imageR> [<seuil> [<horizontal> [<vertical>]]]                                       #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/solarise.12$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       nomR=$2
set       seuil=$3
set       horizontal=$4
set       vertical=$5

setArgum  seuil                         $GRIS_4

setArgum  horizontal                    1.0

setArgum  vertical                      1.0

FileTmpB  nomT

$xci/seuil$X        A=$nomA                                                                                                             \
                    seuil=$seuil                                                                                                        \
                    R=$nomT                                                                                                             \
                                                                                                                        $formatI
                                        # Binarisation de l'image Argument.                                                           #

$xci/convol.01$X    A=$nomT                                                                                                             \
                    points=9 n1=0 n2=-$horizontal n3=0 n4=-$vertical n5=0 n6=1 n7=0 n8=1 n9=0 normaliser=FAUX                           \
                    renormaliser=VRAI                                                                                                   \
                                                                                                                        $formatI  |     \
$xci/multi_02.01$X             A2=$nomT                                                                                                 \
                    R=$nomR                                                                                                             \
                                                                                                                        $formatI
                                        # Et produit entre la derivee (donnee par '$xci/convol.01$X') et le champ binarise...         #

FileTmpE  nomT
                                        # Puis grand nettoyage...                                                                     #