#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         F I L T R A G E   D ' U N E   I M A G E   E N   V R A I E S   C O U L E U R S   E N   I M P O S A N T                       #
#         L A   M E M E   N O R M A L I S A T I O N   A U X   T R O I S   C O M P O S A N T E S  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/filtre.11$Z    <imageA standard> <imageR standard> [<seuil> [<noyau>]]                                       #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/filtre.11$Z' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageR=$2
set                 seuil=$3
set                 noyau=$4

if        (    ("$formatI" == "$format_Suq")                                                                                            \
          ||   ("$formatI" == "$format_Sud")                                                                                            \
          ||   ("$formatI" == "$format_Std")                                                                                            \
          ||   ("$formatI" == "$format_Sdu")                                                                                            \
           ) then
          FileTmpB            imageT

          if        ("$seuil" == "$K_VIDE") then
                    set       Seuil=$seuil
                                        # Utilisation du seuil par defaut.                                                            #
          else
                    set       Seuil="seuil=$seuil"
                                        # Forcage du seuil...                                                                         #
          endif

          if        ("$noyau" == "$K_VIDE") then
#20111214173208____:                    set                 noyau=$imageT                                                             #
                    SET1s               noyau = $imageT

                    $xci/gauss$X        R=$noyau                                                                        $formatI
                                        # Generation d'un filtre gaussien...                                                          #
          else
          endif

          set                 Arguments="standard=FAUX N=$noyau $Seuil"

          $xci/filtre.01$X    A=$imageA$ROUGE $Arguments                                  R=$imageT$ROUGE               $formatI
          $xci/filtre.01$X    A=$imageA$VERTE $Arguments                                  R=$imageT$VERTE               $formatI
          $xci/filtre.01$X    A=$imageA$BLEUE $Arguments                                  R=$imageT$BLEUE               $formatI
                                        # Filtrage des trois composantes.                                                             #

          $xci/acces_RVB.12$Z $imageT $imageR
                                        # Et conversion avec renormalisation "homogene" sur les trois composantes...                  #

          FileTmpE            imageT
else
          EROR      "A cause du programme '"'$xci/filtre.01$X'"', les seuls formats d'image reconnus sont \c"
          ECHO      "{Suh,Suq,Sud,Std,Sdu} (carree et puissance de 2)."
endif