#######################################################################################################################################
# #
# T R A N S F O R M A T I O N C O N F O R M E 1/O : #
# #
# #
# Author of '$xiirf/.MENG.65.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140927190208). #
# #
#######################################################################################################################################
$Z FilSTmpB FFrAcTaL
$Z SETParam _____OJ -100.0
$Z # Parametre introduit le 20191125131731... #
$Z SETParam _____EJ 0
$Z # Parametre introduit le 20191125131731... #
$Z SETParam _____Facteur 400000
$Z # Parametre introduit le 20140928093833... #
$Z SETParam _____Seuil `GetParam $xci/seuil$X seuil`
$Z # Parametre introduit le 20140928093833... #
$Z setenvParam _____Param_un_sur_o "$K_VIDE"
$Z # Parametre introduit le 20191124093559... #
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c #define OJ _____OJ
$c #define EJ _____EJ
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0);
$c
$c printf("echo %c$xci/tapisserie$X
$c A=$_____ImageT2.%04d
$c $formatI |
$c $xci/un_sur_o.81$X
$c facteur=%f
$c m2_IJ=1 m2_RJ=1
$c J=%f
$c $_____Param_un_sur_o
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,n
$c ,(double)_____Facteur
$c ,J
$c ,_____Seuil
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z # Introduit le 20191018204600... #
$Z execPar_V $FFrAcTaL
$Z # Introduit le 20191021175759 car, en effet, il manquait... #
$Z FilSTmpE FFrAcTaL