#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D U P L I C A T I O N   D ' U N E   C O L O N N E   D ' U N E   I M A G E  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/DuplColon.01$Z <imageA> <imageR> [<NumeroColonne>]                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/DuplColon.01$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081127104521).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageR=$2
set       NumeroColonne=$3

setArgum  NumeroColonne                 $Xmin

set       PaRaM="$K_VIDE"
set       PaRaM="$PaRaM"" normaliser=VRAI"
set       PaRaM="$PaRaM"" abscisse=VRAI"
set       PaRaM="$PaRaM"" ordonnee=FAUX"
set       PaRaM="$PaRaM"" profondeur=FAUX"
set       PaRaM="$PaRaM"" niveau=FAUX"
set       PaRaM="$PaRaM"" signe=$K_VIDE"

set       NumeroColonneN=`$xci/coordonnees$X $PaRaM x=$NumeroColonne`

FileTmpB  DeFoRmAtIoN
                                        # Image de manoeuvre...                                                                       #

set       Un_PlUs_Epsilon=`$xcg/INVZ.01$X x=$dimY`
set       Un_PlUs_Epsilon=`$xcg/AXPB.01$X a=0.1 x=$Un_PlUs_Epsilon b=1`
                                        # Introduit le 20081129104256 en remplacement de la valeur arbitraire '1.00000001'...         #

$xci/init$X                                                                                                                             \
                    v=$NumeroColonneN                                                                                                   \
                    standard=FAUX                                                                                                       \
                    R=$DeFoRmAtIoN$COORD_X                                                                                              \
                                                                                                    $formatI
                                        # Generation d'une image uniforme codant l'abscisse (il s'agit alors de la '$COORD_X').       #
$xci/lineaire$X                                                                                                                         \
                    A=0 B=1 C=0                                                                                                         \
                    standard=FAUX                                                                                                       \
                                                                                                    $formatI                      |     \
$xci/normalise.01$X                                                                                                                     \
                    origine=0 extremite=$Un_PlUs_Epsilon                                                                                \
                    R=$DeFoRmAtIoN$COORD_Y                                                                                              \
                                                                                                    $formatI
                                        # Generation d'une mire de barres horizontales (il s'agit alors de la '$COORD_Y').            #
                                        #                                                                                             #
                                        # Le 20081129101340 le segment de normalisation est passee de [0,1] a [0,1+epsilon] par       #
                                        # "symetrie" avec 'v $xci/DuplLigne.01$Z 20081129101340'...                                   #

$xci/acces$X                                                                                                                            \
                    A=$imageA                                                                                                           \
                    convertir=VRAI                                                                                                      \
                                                                                                    $formatI                      |     \
$xci/deformi.01$X                                                                                                                       \
                    DX=$DeFoRmAtIoN$COORD_X DY=$DeFoRmAtIoN$COORD_Y                                                                     \
                    lineaire=VRAI                                                                                                       \
                    interpoler=FAUX                                                                                                     \
                                                                                                    $formatI                      |     \
$xci/acces$X                                                                                                                            \
                    standard=FAUX brutal=VRAI                                                                                           \
                    R=$imageR                                                                                                           \
                                                                                                    $formatI
                                        # Ainsi, '$xci/deformi.01$X' duplique la colonne d'abscisse '$NumeroColonne' sur toute        #
                                        # l'image permettant ainsi a '$xci/comptage$X' de s'appliquer...                              #

FileTmpE  DeFoRmAtIoN
                                        # Image de manoeuvre...                                                                       #