#!/bin/csh

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

set       imageA=$1
set       imageR=$2

FileTmpB  DeFoRmAtIoN
                                        # Image de manoeuvre...                                                                       #

$xci/lineaire$X                                                                                                                         \
                    A=0 B=1 C=0                                                                                                         \
                    standard=FAUX                                                                                                       \
                                                                                                    $formatI                      |     \
$xci/normalise.01$X                                                                                                                     \
                    R=$DeFoRmAtIoN$COORD_X                                                                                              \
                                                                                                    $formatI
                                        # Generation d'une mire de barres horizontales (habituellement, il s'agit alors de la         #
                                        # '$COORD_Y', mais ainsi en permuttant 'X' et 'Y' il y aura bien transposition...).           #
$xci/lineaire$X                                                                                                                         \
                    A=1 B=0 C=0                                                                                                         \
                    standard=FAUX                                                                                                       \
                                                                                                    $formatI                      |     \
$xci/normalise.01$X                                                                                                                     \
                    R=$DeFoRmAtIoN$COORD_Y                                                                                              \
                                                                                                    $formatI
                                        # Generation d'une mire de barres verticales (habituellement, il s'agit alors de la           #
                                        # '$COORD_X', mais ainsi en permuttant 'X' et 'Y' il y aura bien transposition...).           #

$xci/acces$X                                                                                                                            \
                    A=$imageA                                                                                                           \
                    convertir=VRAI                                                                                                      \
                                                                                                    $formatI                      |     \
$xci/deformi.01$X                                                                                                                       \
                    DX=$DeFoRmAtIoN$COORD_X DY=$DeFoRmAtIoN$COORD_Y                                                                     \
                    lineaire=VRAI                                                                                                       \
                                                                                                    $formatI                      |     \
$xci/acces$X                                                                                                                            \
                    standard=FAUX brutal=VRAI                                                                                           \
                    R=$imageR                                                                                                           \
                                                                                                    $formatI
                                        # L'option "lineaire=VRAI" est utilisee pour eviter les "rebonds" d'interpolation...          #

FileTmpE  DeFoRmAtIoN
                                        # Image de manoeuvre...                                                                       #