#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M A T I O N   D ' U N   H Y P E R - C U B E  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HCUB.21.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        $xci/gauss$X                                                                                                                  \
$Z                            R=$xTV/GAUSS                                                                                              \
$Z                                                                                                                      $formatI

$Z        $xci/dilate.01$X                                                                                                              \
$Z                            A=$xiio/KADRE                                                                                             \
$Z                            dilater=VRAI points=49                                                                                    \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/complement$X                                                                                                             \
$Z                            R=$xTV/CADRE                                                                                              \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/complement$X                                                                           \\\
$Z                                                   A=$_____ImageR$%s                                                                \\\
$Z                                                   R=$xTV/IMAGE.1$%s                                                                \\\
$Z                                                                                                                      $formatI)'    \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/filtre.01$X                                                                            \\\
$Z                                                   A=$xTV/IMAGE.1$%s                                                                \\\
$Z                                                   N=$xTV/GAUSS                                                                     \\\
$Z                                                   R=$xTV/IMAGE.2$%s                                                                \\\
$Z                                                   s=240                                                                            \\\
$Z                                                                                                                      $formatI)'    \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/distance.01$X                                                                          \\\
$Z                                                   A1=$xTV/IMAGE.1$%s                                                               \\\
$Z                                                   A2=$xTV/IMAGE.2$%s                                                               \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/and$X                                                                                  \\\
$Z                                                   A2=$xTV/CADRE                                                                    \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/acces$X                                                                                \\\
$Z                                                   r=VRAI                                                                           \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/substitue$X                                                                            \\\
$Z                                                   p=$xiP/gris.11                                                                   \\\
$Z                                                   substitution=L_SUBSTITUTION_ROUGE                                                \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/substitue$X                                                                            \\\
$Z                                                   p=$xiP/gris.11                                                                   \\\
$Z                                                   substitution=L_SUBSTITUTION_ROUGE                                                \\\
$Z                                                   R=$_____ImageR$%s                                                                \\\
$Z                                                                                                                      $formatI)'    \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`