#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         F I L T R A G E   D ' U N E   I M A G E   D E   T A I L L E   Q U E L C O N Q U E  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/filtre.02$Z    <image_a_filtrer> <filtre> <image_filtree> [seuil=<seuil>]                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/filtre.02$Z' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

if        (    ("$formatI" == "$format_Suq")                                                                                            \
          ||   ("$formatI" == "$format_Sud")                                                                                            \
          ||   ("$formatI" == "$format_Std")                                                                                            \
          ||   ("$formatI" == "$format_Sdu")                                                                                            \
           ) then
          $xci/filtre.01$X    A=$imageA                                                                                                 \
                              N=$filtre $seuil                                                                                          \
                              R=$imageR                                                                                                 \
                                                                                                    $formatI
                                        # Filtrage par FFT de l'image Argument.                                                       #
else
          FileTmpB  TimageA
          FileTmpB  Tfiltre
          FileTmpB  TimageR
                                        # Generation de deux images de manoeuvre.                                                     #

          set       NoError_DKVP=$EXIST
          S
          unset     NoError_DKVP

          $xci/format.01$X    A=$imageA                                                                                                 \
                              mode=7                                                                                                    \
                              $formatI                                                                                                  \
                              R=$TimageA                                                                                                \
                                                                                                    $formatR_Sdu
          $xci/format.01$X    A=$filtre                                                                                                 \
                              mode=7                                                                                                    \
                              $formatI                                                                                                  \
                              R=$Tfiltre                                                                                                \
                                                                                                    $formatR_Sdu
                                        # Changement de format des images {$imageA,$filtre}. ATTENTION, on notera qu'evidemment       #
                                        # le filtre '$Tfiltre' en mode 'Sdu' est le filtre Argument '$filtre' avec eventuellement     #
                                        # du NOIR autour...                                                                           #

          set                 formatR_Arg=`echo $formatI | $SE -e "s/\(=\)/R\1/g"`

          SformatI
          Sdu
                                        # Sauvegarde de '$formatI' et mise en mode 'Sdu'...                                           #

          $xci/filtre.01$X    A=$TimageA                                                                                                \
                              N=$Tfiltre $seuil                                                                                         \
                              R=$TimageR                                                                                                \
                                                                                                    $formatI
                                        # Filtrage par FFT de l'image Argument en mode 'Sdu'...                                       #

          $xci/format.01$X    A=$TimageR                                                                                                \
                              mode=7                                                                                                    \
                              $formatI                                                                                                  \
                              R=$imageR                                                                                                 \
                                                                                                    $formatR_Arg
                                        # Mise de l'image Resultat au bon format...                                                   #

          RformatI
                                        # Retour au '$formatI' Argument...                                                            #

          FileTmpE  TimageA
          FileTmpE  Tfiltre
          FileTmpE  TimageR
endif