#######################################################################################################################################
# #
# T R A N S F O R M A T I O N C O N F O R M E (4xO+1)/(1xO-1) P A R D E F A U T : #
# #
# #
# Author of '$xiirf/.MENG.67.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140927190354). #
# #
#######################################################################################################################################
$Z FilSTmpB FFrAcTaL
$Z SETParam _____Hpnt `GetParam $xci/o_homogra.81$X produit_non_theorique`
$Z # Parametre introduit le 20141226102710... #
$Z SETParam _____RA 4
$Z # Parametre introduit le 20170322105111 afin de permettre de parametrer la transformation. #
$Z SETParam _____RB 1
$Z # Parametre introduit le 20170322105111 afin de permettre de parametrer la transformation. #
$Z SETParam _____RC 1
$Z # Parametre introduit le 20170322105111 afin de permettre de parametrer la transformation. #
$Z SETParam _____RD -1
$Z # Parametre introduit le 20170322105111 afin de permettre de parametrer la transformation. #
$Z SETParam _____HJdecimales 6
$Z # Parametre introduit le 20141226102710... #
$Z SETParam _____OHJ -100.0
$Z # Parametre introduit le 20141226102710... #
$Z SETParam _____EHJ 0.0
$Z # Parametre introduit le 20141226102710... #
$Z SETParam _____Facteur 50000
$Z # Parametre introduit le 20140928093817... #
$Z SETParam _____Seuil `GetParam $xci/seuil$X seuil`
$Z # Parametre introduit le 20140928093817... #
$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 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/o_homogra.81$X
$c produit_non_theorique=%s
$c RA=%g RB=%g RC=%g RD=%g
$c facteur=%f
$c m2_IJ=1 m2_RJ=1
$c J=%.*f
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,n
$c ,_____Hpnt
$c ,(double)_____RA
$c ,(double)_____RB
$c ,(double)_____RC
$c ,(double)_____RD
$c ,(double)_____Facteur
$c ,_____HJdecimales,J
$c ,_____Seuil
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z # Optimisation introduite le 20150312103814... #
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL