#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   B I - C U B I Q U E   P O U R   L I S S E R   U N E   I M A G E                                 #
#         C A L C U L E E   A V E C   U N   S O U S - E C H A N T I L L O N N A G E   Q U E L C O N Q U E  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/lisse_c_XY$Z   <imageA> <imageR> <mailleX> <mailleY>                                                         #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/lisse_c_XY$Z' :                                                                                             #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set                 nomA=$1
set                 nomR=$2
set                 MailleX=$3
set                 MailleY=$4

set                 mailleX=`$xcg/scale$X x=1 d=$dimX m=$MailleX`
                                        # Definition de la maille $MailleX/$dimX.                                                     #
set                 mailleY=`$xcg/scale$X x=1 d=$dimY m=$MailleY`
                                        # Definition de la maille $MailleY/$dimY.                                                     #

$xci/fract_2D.01$X  S=$nomA source=VRAI mx=$mailleX my=$mailleY niveau=1 R=$nomR $formatI
                                        # Et on utilise la generation fractale bidimensionnelle qui fait une interpolation bicubique. #