#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         E F F E T   L A R S E N   N U M E R I Q U E   A V E C                                                                       #
#         C O M B I N A I S O N   F I N A L E   D E S   I M A G E S   P A R   R E C H E R C H E   D U   M A X I M U M  :              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/larsen.13$Z    <imageA> <imageR> [<angle> [<echelle> [<translationX> [<translationY>]]]]                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/larsen.13$Z' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

source    $xci/larsen.11$Y

unset     Alpha
unset     Beta

$xci/affine.01$X    A=$nomA                                                                                                             \
                    mxx=$mxx mxy=$mxy myx=$myx myy=$myy                                                                                 \
                    TxA=$translation_X TyA=$translation_Y                                                                               \
                    TxR=$translation_X TyR=$translation_Y                                                                               \
                    inverse=VRAI interpoler=VRAI                                                                                        \
                                                                                                                         $formatI |     \
                                        $xci/maximum$X A2=$nomA R=$nomR                                                                 \
                                                                                                                         $formatI
                                        # Transformation affine de l'image Argument puis combinaison avec elle-meme a l'aide d'une    #
                                        # recherche de maximum...                                                                     #