#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         F I L T R A G E   D ' U N E   I M A G E   N O N   P E R I O D I Q U E  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/filtre.01$Z    <image_a_filtrer> <filtre> <image_filtree> [seuil=<seuil>]                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/filtre.01$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
          FileTmpB  imageT1
          FileTmpB  imageT2
                                        # Generation de deux images de manoeuvre.                                                     #

          $xci/kaleidoscope$X A=$imageA R=$imageT1 $formatI
                                        # Symetrisation spatiale dans les deux directions de l'image Argument.                        #
          $xci/filtre.01$X    A=$imageT1 N=$filtre $seuil R=$imageT2 $formatI
                                        # Filtrage par FFT (de l'image symetrisee), ce qui filtre l'image Argument,                   #
                                        # mais avec une resolution 2x2 fois moindre.                                                  #
          $xci/doublement$X   A=$imageT2 R=$imageR fenetre=HG $formatI
                                        # Et enfin recuperation d'un quart du resultat filtree et doublement dans la fenetre          #
                                        # 'HAUT-GAUCHE' qui correspond (de par le principe de '$xci/kaleidoscope$K') a la "bonne"     #
                                        # version de l'image.                                                                         #

          FileTmpE  imageT2
          FileTmpE  imageT1
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