#!/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                                 #
#         E N   T R A N S P O S A N T   A U S S I   L E   F O R M A T  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xci/transpose.01$Z <imageA> <imageR>                                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/transpose.02$Z' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150503112039).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       imageA=$1
set       imageR=$2

FileTmpB  TrAnSpOsEe
                                        # Image de manoeuvre...                                                                       #

Format    $imageA
eval      "$Format"
                                        # Mise en place du format de '$imageA'...                                                     #

set       MaximunXY=`$xcg/MAX2.01$X x=$Xmax y=$Ymax signe="$K_VIDE"`

$xci/format.01$X                                                                                                                        \
                    A=$imageA                                                                                                           \
                                                                                                    $formatI                            \
                    mode=7                                                                                                              \
                    R=$TrAnSpOsEe                                                                                                       \
                                                                                                    XminR=$Xmin XmaxR=$MaximunXY        \
                                                                                                    YminR=$Ymin YmaxR=$MaximunXY
                                        # On place '$imageA' dans la plus petite image carree la contenant.                           #

SformatI

XYmaxNe   $MaximunXY $MaximunXY

$xci/transpose$X                                                                                                                        \
                    A=$TrAnSpOsEe                                                                                                       \
                    R=$TrAnSpOsEe                                                                                                       \
                                                                                                    $formatI
                                        # L'image '$TrAnSpOsEe' etant carre, on peut la transposer...                                 #

$xci/format.01$X                                                                                                                        \
                    A=$TrAnSpOsEe                                                                                                       \
                                                                                                    $formatI                            \
                    mode=7                                                                                                              \
                    R=$imageR                                                                                                           \
                                                                                                    XminR=$sXmin XmaxR=$sYmax           \
                                                                                                    YminR=$sYmin YmaxR=$sXmax
                                        # Et enfin, retour au format initial, mais transpose...                                       #

RformatI

FileTmpE  TrAnSpOsEe
                                        # Image de manoeuvre...                                                                       #