#!/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   I N T E R P O L A T I O N  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/larsen.11$Z    <imageA> <imageR> [<angle> [<echelle> [<translationX> [<translationY> [<Alpha> [<Beta>]]]]]]  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/larsen.11$Z' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

source    $xci/larsen.11$Y

$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/interpole.01$X alpha=$Alpha beta=$Beta A2=$nomA R=$nomR                                    \
                                                                                                                         $formatI
                                        # Transformation affine de l'image Argument puis combinaison avec elle-meme. ATTENTION, la    #
                                        # fonction '$xci/affine.01$X' cree des trous dans l'image lorsque la transformation directe   #
                                        # est demandee ("inverse=FAUX") ou bien que qu'il n'y a pas d'interpolation avec la           #
                                        # transformation inverse ("inverse=VRAI interpoler=FAUX").                                    #