#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   C O M P O S A N T E S   C O N N E X E S                                                       #
#         D ' U N   F R A C T A L   " C A R R E "   ( V E R S I O N   2 )  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRC2.62.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231205110119).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NDilat          25
$Z                                      # Parametre introduit le 20231205140630...                                                    #

$Z                  setParam            _____LBande          8

$Z                  setParam            _____PaletteTexture  $xiP/random.D3

$Z                  setParam            _____Niveau0         `GetParam $xci/contours.32$X niveau_initial`
$Z                  setParam            _____NiveauP         `GetParam $xci/contours.32$X increment_niveau`

$Z                  setParam            _____ArgContours     "$K_VIDE"
$Z                                      # Parametre introduit le 20231205170328...                                                    #

$Z                  set                 ImAgE_T1=$_____ImageR.T1
$Z                  set                 ImAgE_T2=$_____ImageR.T2

$Z   execALB_F $cPremiere $cDerniere    $xci/dilate.01$X A=$_____ImageR.%04d dilater=VRAI points=$_____NDilat R=$ImAgE_T1.%04d $formatI
$Z   execALB_F $cPremiere $cDerniere    $xci/seuil$X A=$ImAgE_T1.%04d R=$ImAgE_T1.%04d $formatI
$Z                                      # Afin de rendre jointif les cubes elementaires constitutifs...                               #

$Z                  $xci/contours.32$X  A=$ImAgE_T1.                                                                                    \
$Z                                      premiere=$cPremiere                                                                             \
$Z                                      complementer=VRAI                                                                               \
$Z                                      optimiser=FAUX                                                                                  \
$Z                                      niveau_initial=$_____Niveau0                                                                    \
$Z                                      increment_niveau=$_____NiveauP                                                                  \
$Z                                      $_____ArgContours                                                                               \
$Z                                      R=$ImAgE_T2.                                                                                    \
$Z                                                                                                  Zmin=$_____Zmin Zmax=$_____Zmax     \
$Z                                                                                                                      $formatI

$Z        execALB_F $cPremiere $cDerniere         $xci/seuil$X A=$ImAgE_T2.%04d R=$_____ImageR.%04d $formatI

$Z                  set                 ArGsV="A=$ImAgE_T2.%04d p=$_____PaletteTexture"

$Z        execALB_F $cPremiere $cDerniere         $xci/vraies_C$X $ArGsV RR=$_____ImageR$ROUGE.%04d gR=VRAI gV=FAUX gB=FAUX $formatI
$Z        execALB_F $cPremiere $cDerniere         $xci/vraies_C$X $ArGsV RV=$_____ImageR$VERTE.%04d gR=FAUX gV=VRAI gB=FAUX $formatI
$Z        execALB_F $cPremiere $cDerniere         $xci/vraies_C$X $ArGsV RB=$_____ImageR$BLEUE.%04d gR=FAUX gV=FAUX gB=VRAI $formatI