#!/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.11$Z  <imageA> <imageR> [<seuil>]                                                                   #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/solarise.11$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       nomR=$2
set       seuil=$3

setArgum  seuil                         $GRIS_4

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=-1 n3=0 n4=0 n5=0 n6=1 n7=0 n8=0 n9=0 normaliser=FAUX                                              \
                    renormaliser=VRAI                                                                                                   \
                    R=$nomT$W                                                                                                           \
                                                                                                                        $formatI
                                        # Calcul de la derivee "horizontale" du champ Argument binarise.                              #
$xci/convol.01$X    A=$nomT                                                                                                             \
                    points=9 n1=0 n2=0 n3=0 n4=-1 n5=0 n6=0 n7=0 n8=1 n9=0 normaliser=FAUX                                              \
                    renormaliser=VRAI                                                                                                   \
                    R=$nomT$w                                                                                                           \
                                                                                                                        $formatI
                                        # Calcul de la derivee "verticale" du champ Argument binarise.                                #

$xci/multi_02.01$X  A1=$nomT$W A2=$nomT$w                                                                                               \
                                                                                                                        $formatI  |     \
$xci/multi_02.01$X             A2=$nomT                                                                                                 \
                    R=$nomR                                                                                                             \
                                                                                                                        $formatI
                                        # Et produit entre les deux derivees et le champ binarise...                                  #

FileTmpE  nomT
                                        # Puis grand nettoyage...                                                                     #