#######################################################################################################################################
# #
# T R A N S F O R M A T I O N D U T Y P E ' E N T R E L A C S ' D ' U N A L B U M : #
# #
# #
# Author of '$xiirf/.MENG.y1.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20180925093658). #
# #
#######################################################################################################################################
$Z SETParam _____OMxx 1.0
$Z SETParam _____EMxx 8.0
$Z SETParam _____Mxy 0
$Z SETParam _____Mxz 0
$Z SETParam _____Myx 0
$Z SETParam _____OMyy 1.0
$Z SETParam _____EMyy 8.0
$Z SETParam _____Myz 0
$Z SETParam _____Mzx 0
$Z SETParam _____Mzy 0
$Z SETParam _____Mzz 0
$Z SETParam _____Seuil `GetParam $xci/seuil$X seuil`
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c #define OJ _____OHJ
$c #define EJ _____EHJ
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double mxx_____________=((_____EMxx*(n-N0))+(_____OMxx*(N-n)))/(N-N0);
$c double myy_____________=((_____EMyy*(n-N0))+(_____OMyy*(N-n)))/(N-N0);
$c
$c printf("echo %c$xci/acces$X
$c A=$_____ImageT2.%04d
$c convertir=VRAI
$c $formatI |
$c $xci/deformi.01$X
$c DX=$_____ImageD$COORD_X
$c DY=$_____ImageD$COORD_Y
$c appliquer_une_matrice_de_transformation=VRAI
$c mxx=%f mxy=%f mxz=%f
$c myx=%f myy=%f myz=%f
$c mzx=%f mzy=%f mzz=%f
$c tridimensionnelle=FAUX
$c bilineaire=VRAI
$c $formatI |
$c $xci/acces$X
$c standard=FAUX
$c brutal=VRAI
$c $formatI |
$c $xci/pt_isole.01$X
$c points=9
$c seuil=0.05
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,n
$c ,mxx_____________,(double)_____Mxy,(double)_____Mxz
$c ,(double)_____Myx,myy_____________,(double)_____Myz
$c ,(double)_____Mzx,(double)_____Mzy,(double)_____Mzz
$c ,_____Seuil
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL