#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E F A M I L L E D E T R A N S F O R M A T I O N S : #
# #
# #
# Author of '$xiav/.STRV.a1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20130912150745). #
# #
#######################################################################################################################################
$Z setParam _____Facteur 1.0
$Z execRVB $xci/acces$X \
$Z A=$Structure%s \
$Z convertir=VRAI \
$Z R=$xTV/CHAMP%s \
$Z $formatI
$Z SET Rapport=`calcul $cDerniere/$Derniere`
$Z SET Translation=`calcul $cDerniere/2`
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define RAPPORT Rapport
$c #define TRANSLATE Translation
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/acces$X
$c A=$_____ImageT2.%04d
$c convertir=VRAI
$c $formatI |
$c $xci/normalise.01$X
$c R=$_____imagesD$COORD_X.%04d
$c $formatI\n"
$c ,(RAPPORT*n)/2+0
$c ,n
$c );
$c printf("$xci/acces$X
$c A=$_____ImageT2.%04d
$c convertir=VRAI
$c $formatI |
$c $xci/normalise.01$X
$c R=$_____imagesD$COORD_Y.%04d
$c $formatI\n"
$c ,(RAPPORT*n)/2+TRANSLATE
$c ,n
$c );
$c
$c printf("execRVB %c$xci/deformi.01$X
$c A=$xTV/CHAMP%%s
$c DX=$_____imagesD$COORD_X.%04d
$c DY=$_____imagesD$COORD_Y.%04d
$c appliquer_une_matrice_de_transformation=VRAI
$c mxx=$_____Facteur mxy=0 mxz=0
$c myx=0 myy=$_____Facteur myz=0
$c mzx=0 mzy=0 mzz=0
$c tridimensionnelle=FAUX
$c bilineaire=VRAI
$c $formatI |
$c $xci/acces$X
$c standard=FAUX brutal=VRAI
$c R=$_____imagesT.%04d%%s
$c $formatI%c\n"
$c ,'"'
$c ,n
$c ,n
$c ,n
$c ,'"'
$c );
$c }
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/acces$X
$c A=$_____imagesD$COORD_X.%04d
$c standard=FAUX zero=FAUX
$c R=$_____imagesD$COORD_X.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c printf("$xci/acces$X
$c A=$_____imagesD$COORD_Y.%04d
$c standard=FAUX zero=FAUX
$c R=$_____imagesD$COORD_Y.%04d
$c $formatI\n"
$c ,n
$c ,n
$c );
$c }
$c }