#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.IXEO.79.11.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        Pal

$Z        setParam            _____Facteur                  64000

$Z        setParam            _____Seuil                    224

$Z        setParam            _____Convol1                  0.03

$Z        setParam            _____Convol2                  0.10

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/tapisserie$X                                                                           \\\
$Z                                                   A=$xiirv/IXEO.78$%s                                                              \\\
$Z                                                   R=$xTV/TAPISSERIE$%s                                                             \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/un_sur_z.01$X                                                                          \\\
$Z                                                   A=$xTV/TAPISSERIE$%s                                                             \\\
$Z                                                   facteur=$_____Facteur                                                            \\\
$Z                                                   R=$xTV/CONFORME$%s                                                               \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

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

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/convol.02$X                                                                            \\\
$Z                                                   A=$xTV/CONFORME$%s                                                               \\\
$Z                                                   N=$xTV/GAUSS                                                                     \\\
$Z                                                   Facteur=$_____Convol1                                                            \\\
$Z                                                   V=$xTV/BLANC                                                                     \\\
$Z                                                   F=$xTV/BLANC                                                                     \\\
$Z                                                   CAL1=FAUX                                                                        \\\
$Z                                                   R=$xTV/CONVOLUE$%s                                                               \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/move$X                                                                                 \\\
$Z                                                   A=$xTV/CONVOLUE$%s                                                               \\\
$Z                                                   yR=0.5                                                                           \\\
$Z                                                   tvR=VRAI                                                                         \\\
$Z                                                   R=$xTV/CONVOLUE$%s                                                               \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        $xci/luminance.01$X                                                                                                           \
$Z                            AR=$xTV/CONVOLUE$ROUGE                                                                                    \
$Z                            AV=$xTV/CONVOLUE$VERTE                                                                                    \
$Z                            AB=$xTV/CONVOLUE$BLEUE                                                                                    \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/seuil$X                                                                                                                  \
$Z                            seuil=$_____Seuil                                                                                         \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/dilate.01$X                                                                                                              \
$Z                            points=225                                                                                                \
$Z                            R=$xTV/LUMINANCE                                                                                          \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/convol.02$X                                                                            \\\
$Z                                                   A=$xTV/CONVOLUE$%s                                                               \\\
$Z                                                   N=$xTV/LUMINANCE                                                                 \\\
$Z                                                   Facteur=$_____Convol2                                                            \\\
$Z                                                   V=$xTV/BLANC                                                                     \\\
$Z                                                   F=$xTV/BLANC                                                                     \\\
$Z                                                   CAL1=FAUX                                                                        \\\
$Z                                                   R=$_____images$%s                                                                \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`