#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   D ' U N   F I C H I E R  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xrv/interpole.11$Z <FichierA> <FichierR> <LFichierR> [<Mode>]                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrv/interpole.11$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170923090754).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 FichierA=$1
set                 FichierR=$2
set                 LFichierR=$3
set                 Mode=$4

setArgum            Mode                          1

if                  (-e $FichierA) then
                    SIZE                $FichierA

                    @                   XminA = $Xmin
                    @                   XmaxA = $Fsize - 1

                    @                   YminA = $Ymin
                    @                   YmaxA = $Ymin

                    XYmaxNe             $XminA $XmaxA $YminA $YmaxA
                                        # Definition de '$FichierA'...                                                                #

                    @                   XminR = $Xmin
                    @                   XmaxR = $LFichierR - 1

                    @                   YminR = $YminA
                    @                   YmaxR = $YmaxA

                    FilSTmpB            ImAgER

                    $xci/format.01$X                                                                                                    \
                                        A=$FichierA                                                                                     \
                                                                                                    $formatI                            \
                                        mode=$Mode                                                                                      \
                                        prolonger_X=VRAI                                                                                \
                                        R=$ImAgER                                                                                       \
                                                                                                    XminR=$XminR XmaxR=$XmaxR           \
                                                                                                    YminR=$YminR YmaxR=$YmaxR
                                        # Le parametre "prolonger_X=VRAI" a ete introduit le 20170923125311 afin d'eviter aux         #
                                        # "extremites" de l'axe 'OX' (qui correspond en fait au fichier '$FichierA") de malheureuses  #
                                        # interpolations avec le niveau hors-ecran...                                                 #

                    XYmaxNe             $XminR $XmaxR $YminR $YmaxR
                                        # Definition de '$FichierR'...                                                                #

                    $xci/niveau$X                                                                                                       \
                                        A=$ImAgER                                                                                       \
                                        X=$XminR Y=$YminR                                                                               \
                                        DX=$dimX DY=$dimY                                                                               \
                                        editer_les_messages_de_hors_image=FAUX                                                          \
                                                                                                    $formatI                      |&    \
                    $GRE                -v '^ *$'                                                                                 |     \
                    $SE                 -e "s/^ *//"                                                                                    \
                                                                                                                        >& $FichierR
else
                    EROR                "Le fichier '$FichierA' n'existe pas."
endif