#######################################################################################################################################
# #
# Z O O M S U R L E M O D U L E D ' U N E T R A N S F O R M E E E N O N D E L E T T E S : #
# #
# #
# Author of '$xivP/disk.000000006/face.2/.MORL.2.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20030430121114). #
# #
#######################################################################################################################################
$Z SET Premiere=1
$Z SET Derniere=128
$Z setParam _____Angle 0
$Z Std
$Z $xci/acces$X \
$Z A=$_____imageA \
$Z convertir=VRAI \
$Z R=$xTV/CHAMP \
$Z $formatI
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Dilat0 0.01
$c /* Cette valeur doit etre superieure a N/512 ou '512' est sensee etre la dimension de */
$c /* l'image '$xTV/CHAMP' et 'N' un nombre entier plus grand que 1 ; ainsi, l'ondelette */
$c /* couvre plus d'un point... */
$c #define DilatN 1.000
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double Dilat=((DilatN*(n-N0))+(Dilat0*(N-n)))/(N-N0);
$c
$c printf("$xci/morlet.02$Z
$c $xTV/CHAMP
$c $xTV/MORLET.%04d
$c %f
$c $_____Angle\n"
$c ,n
$c ,Dilat
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/MORLET.%04d$Mo
$c standard=FAUX zero=FAUX
$c R=$_____imagesR.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c }
$c }