#######################################################################################################################################
#                                                                                                                                     #
#         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.52.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231202090706).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

$Z                  setParam            _____LBande          8

$Z                  setParam            _____PaletteTexture  $xiP/cercle.35

#20231203133604____:$Z                  setParam            _____Niveau0         $GRIS_4                                              #
$Z                  setParam            _____Niveau0         $GRIS_2
#20231203133604____:$Z                  setParam            _____NiveauP         100                                                  #
$Z                  setParam            _____NiveauP         40

$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 jointifs les cubes elementaires constitutifs...                              #
$Z                                      #                                                                                             #
$Z                                      # Mais du coup, ATTENTION, cela risque de creer de la fausse connexite...                     #

$Z                  $xci/mire$X                                                                                                         \
$Z                                      A=$NOIR                                                                                         \
$Z                                      absolue=FAUX h=1                                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/passe_bande$X                                                                                                  \
$Z                                      inf=`calculI $GRIS_4-$_____LBande`                                                              \
$Z                                      sup=`calculI $GRIS_4+$_____LBande`                                                              \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                      R=$xTV/BANDE                                                                                    \
$Z                                                                                                                      $formatI

$Z                  $xci/transpose$X    A=$xTV/BANDE                                                                                    \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/and$X                                                                                                          \
$Z                                      A1=$xTV/BANDE                                                                                   \
$Z                                      R=$xTV/BANDE                                                                                    \
$Z                                                                                                                      $formatI
$Z                                      # En utilisant 'v $xci/transpose$K', on fait l'hypothese que les images sont carrees...       #

$Z        execALB_F $cPremiere $cDerniere         $xci/and$X A1=$ImAgE_T1.%04d A2=$xTV/BANDE R=$ImAgE_T1.%04d $formatI
$Z                                      # Cette bande est destinee a couper en deux le fractal pour ainsi etre surs d'avoir au        #
$Z                                      # moins deux composantes connexes...                                                          #

$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