#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   E N   M O N T A G N E   A V E C   V U E   D ' A V I O N                                                           #
#         D ' U N E   I M A G E   E N   F A U S S E S   C O U L E U R S                                                               #
#         A V E C   R E D I M E N S I O N N E M E N T  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/montagne.01$Z  <imageA> <imageT> <imageR> [<Arguments>]                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/montagne.01$Z' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20090131190810).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 imageA=$1
set                 imageT=$2
set                 imageR=$3
set                 Arguments="$4"

set                 Arguments=`echo "$Arguments" | $SE -e "s/=v /=VRAI /g" -e 's/=v$/=VRAI/' -e "s/=f /=FAUX /g" -e 's/=f$/=FAUX/'`
                                        # En effet, dans un '$Z' les valeurs logiques {f,v} sont interdites ; seules {FAUX,VRAI}      #
                                        # sont autorisees...                                                                          #

set                 VaLiDe=`echo "$Arguments" | $GRE "standard=[^ ]*"`

if                  ("$VaLiDe" != "$K_VIDE") then
                    set                 StAnDaRd=`echo "$Arguments" | $SE -e "s/^.*\(standard=[^ ]*\).*"'$/\1/'`
                                        # Recuperation du mode eventuellement...                                                      #
else
                    set                 StAnDaRd="$K_VIDE"
endif

if                  ("$StAnDaRd" == "standard=FAUX") then
                    set                 MoDeA=2
                                        # Mode de redimensionnement interpolant pour les images 'Argument's "standard=FAUX".          #
else
                    set                 MoDeA=1
                                        # Mode de redimensionnement interpolant pour les images 'Argument's "standard=VRAI". On       #
                                        # notera que l'on prend l'interpolation bilineaire (1) et non pas l'interpolation bicubique   #
                                        # (2) afin de minimiser les artefacts visuels...                                              #
endif

set                 MoDeR=7
                                        # Mode de redimensionnement supprimant des points pour l'image Resultat.                      #

FileTmpB            Tmp_imageA
FileTmpB            Tmp_imageT
FileTmpB            Tmp_imageR

SformatI

@                   RXmin = $Xmin + 0
@                   RXmax = $Xmax + 0

@                   RYmin = $Ymin + 0
#20090202104511____:@                   RYmax = $Ymax + 2 + 2                                                                         #
@                   RYmax = $Ymax + 1 + 1
                                        # Definition d'un format d'image identique pour 'OX' et possedant 4 (2+2) lignes de plus      #
                                        # (2 en bas et 2 en haut).                                                                    #
                                        #                                                                                             #
                                        # La modification du 20090202104511 eut lieu grace a 'v $xiii/montagnes$FON 20090202103137'.  #

set                 FoRmAtI_R1="XminR=$RXmin XmaxR=$RXmax YminR=$RYmin YmaxR=$RYmax"
set                 FoRmAtI_R2="XminR=$sXmin XmaxR=$sXmax YminR=$sYmin YmaxR=$sYmax"

$xci/format.01$X    $StAnDaRd                                                                                                           \
                    A=$imageA                                                                                                           \
                                                                                                                        $formatI        \
                    mode=$MoDeA                                                                                                         \
                    R=$Tmp_imageA                                                                                                       \
                                                                                                                        $FoRmAtI_R1
$xci/format.01$X    $StAnDaRd                                                                                                           \
                    A=$imageT                                                                                                           \
                                                                                                                        $formatI        \
                    mode=$MoDeA                                                                                                         \
                    R=$Tmp_imageT                                                                                                       \
                                                                                                                        $FoRmAtI_R1
                                        # Redimensionnement des images '$imageA' et '$imageT'.                                        #

XYmaxNe             $RXmin $RXmax $RYmin $RYmax
                                        # Mise en place du '$formatI' provisoire...                                                   #

$xci/montagne.01$X  $StAnDaRd                                                                                                           \
                    A=$Tmp_imageA                                                                                                       \
                    T=$Tmp_imageT                                                                                                       \
                    compatibilite_20090130=FAUX                                                                                         \
                    avion=VRAI                                                                                                          \
                    $Arguments                                                                                                          \
                    R=$Tmp_imageR                                                                                                       \
                                                                                                                        $formatI
                                        # Mise en montagne de l'image argument redimensionnee afin d'eliminer le probleme decrit      #
                                        # dans 'v $xiii/montagnes$FON Imontagnes_precises_____compatibilite_20090130'...              #
                                        #                                                                                             #
                                        # Le 20090201110007 je note qu'il reste en haut une bande noire qui resulte d'une part d'une  #
                                        # forte discontinuite dans la definition de la surface (puisque du "zero" a ete ajoute en     #
                                        # haut de la surface Argument) et d'autre part de la texture Argument qui elle-aussi a vu     #
                                        # du NOIR s'ajouter en haut...                                                                #
                                        #                                                                                             #
                                        # Le 20090201131407 la solution consistant a utiliser la methode '2' pour les images          #
                                        # 'Argument's (surface et texture) a resolu le probleme, sauf qu'en mode "standard=VRAI",     #
                                        # elle introduit des artefacts visibles, d'ou la methode '1' dans ce cas...                   #

$xci/format.01$X    $StAnDaRd                                                                                                           \
                    A=$Tmp_imageR                                                                                                       \
                                                                                                                        $formatI        \
                    mode=$MoDeR                                                                                                         \
                    R=$imageR                                                                                                           \
                                                                                                                        $FoRmAtI_R2
                                        # Redimensionnement de l'image '$imageR'.                                                     #

RformatI

FileTmpE            Tmp_imageR
FileTmpE            Tmp_imageT
FileTmpE            Tmp_imageA