#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         P R E P A R A T I O N   D E S   A R G U M E N T S   E T   D E S   D O N N E E S                                             #
#         U T I L E S   A   U N   E F F E T   L A R S E N   N U M E R I Q U E  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/larsen.11$Y' :                                                                                              #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA=$1
set       nomR=$2
set       angle=$3
set       echelle=$4
set       translation_X=$5
set       translation_Y=$6
set       Alpha=$7
set       Beta=$8

if        ("$angle" == "$K_VIDE") then
          set       angle=0.02
else
endif
if        ("$echelle" == "$K_VIDE") then
          set       echelle=0.99
else
endif
if        ("$translation_X" == "$K_VIDE") then
          set       translation_X=0.5
else
endif
if        ("$translation_Y" == "$K_VIDE") then
          set       translation_Y=0.5
else
endif
if        ("$Alpha" == "$K_VIDE") then
          set       Alpha=0.9
                                        # "Poids" de l'image apres transformation affine...                                           #
else
endif
if        ("$Beta" == "$K_VIDE") then
          set       Beta=1.0
                                        # "Poids" de l'image Argument.                                                                #
else
endif

set       mxx=`$xci/valeurs_trig$X p=1 d=2 aD=$angle aA=$angle alpha=1 beta=0 rD=$echelle rA=$echelle`
set       mxx=$mxx[1]
set       mxy=`$xci/valeurs_trig$X p=1 d=2 aD=$angle aA=$angle alpha=0 beta=1 rD=-1 rA=-1`
set       mxy=$mxy[1]
set       myx=`$xci/valeurs_trig$X p=1 d=2 aD=$angle aA=$angle alpha=0 beta=1 rD=+1 rA=+1`
set       myx=$myx[1]
set       myy=`$xci/valeurs_trig$X p=1 d=2 aD=$angle aA=$angle alpha=1 beta=0 rD=$echelle rA=$echelle`
set       myy=$myy[1]
                                        # Definition de la matrice de transformation affine des coordonnees...                        #