#######################################################################################################################################
# #
# E X T R A C T I O N D E F I L A M E N T S : #
# #
# #
# Author of '$xiirf/.FRB3.o2.1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140820111159). #
# #
#######################################################################################################################################
$Z SETParam _____ConvolPoints 81
$Z SETParam _____NCarres 0
$Z # Parametre introduit le 20140827152729, la valeur nulle par defaut garantissant la #
$Z # compatibilite anterieure... #
$Z SETParam _____Seuil 240
$Z SETParam _____BouchePoints 81
$Z SETParam _____DilatePoints `calculINS pow(11,2)`
$Z SETParam _____SeuilMoyenne `GetParam $xci/dilate.01$X seuil_moyenne`
$Z # Parametre introduit le 20140904160715... #
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("echo %c$xci/convol.01$X
$c A=$_____ImageT2.%04d
$c points=%d
$c $formatI |
$c $xci/complement$X
$c $formatI |
$c $xci/multi_02.01$X
$c A2=$_____ImageT2.%04d
$c renormaliser=VRAI
$c $formatI |
$c $xci/multi_02.01$X
$c carre_image=VRAI nombre_carres=%d
$c renormaliser=VRAI
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c $formatI |
$c $xci/bouche_trou$X
$c points=%d
$c circulaire=VRAI circulaire_optimale=VRAI
$c $formatI |
$c $xci/dilate.01$X
$c eroder=VRAI
$c points=%d
$c circulaire=VRAI circulaire_optimale=VRAI
$c seuil_moyenne=%d
$c R=$_____ImageT1.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,n
$c ,_____ConvolPoints
$c ,n
$c ,_____NCarres
$c ,_____Seuil
$c ,_____BouchePoints
$c ,_____DilatePoints
$c ,_____SeuilMoyenne
$c ,n
$c ,'\''
$c );
$c /* Le '$xci/convol.01$X' est destine a lisser le champ et a acceder sumultanement aux */
$c /* extrema locaux. Le '$xci/complement$X', puis le '$xci/multi_02.01$X' permettent de */
$c /* remonter approximativement les maxima locaux au meme niveau (de meme pour les minima */
$c /* locaux). Ainsi, on obtient des lignes connexes correspondant aux maxima locaux (qui */
$c /* sont donc approximativement egaux au maximum global...). */
$c }
$c }
$Z # Introduit le 20191021183438... #
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL