#######################################################################################################################################
#                                                                                                                                     #
#         T E X T U R A G E   D ' U N E   V A R I E T E   D E   C A L A B I - Y A U  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.A1.2.6.$U' :                                                                                        #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20091103142631).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        Std

$Z        set                 SeUiL=225

$Z        $xci/seuil$X                                                                                                                  \
$Z                            A=$xiio/SPIRALE                                                                                           \
$Z                            seuil=$SeUiL                                                                                              \
$Z                            R=$xTV/TEXTURE.1                                                                                          \
$Z                                                                                                                      $formatI
$Z        $xci/format.01$X                                                                                                              \
$Z                            A=$xTV/TEXTURE.1                                                                                          \
$Z                                                                                                                      $formatI        \
$Z                            methode=0                                                                                                 \
$Z                            R=$xTV/TEXTURE.1                                                                                          \
$Z                                                                                                                      $formatR_Pal

$Z        Pal

$Z        set                 InF=20
$Z        set                 SuP=35
$Z        set                 NiVeAuF=0
$Z        set                 NiVeAuB=55

$Z        $xci/lineaire$X                                                                                                               \
$Z                            A=1 B=0 C=0                                                                                               \
$Z                            standard=FAUX                                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/acces$X                                                                                                                  \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/passe_bande$X                                                                                                            \
$Z                            forcer_niveau_intermediaire=VRAI niveau_intermediaire=$NiVeAuB                                            \
$Z                            inf=$InF ninf=$NiVeAuF                                                                                    \
$Z                            sup=$SuP nsup=$NiVeAuF                                                                                    \
$Z                            R=$xTV/TEXTURE.VP                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/vraies_C$X                                                                                                               \
$Z                            A=$xTV/TEXTURE.VP                                                                                         \
$Z                            p=$_____Palette                                                                                           \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/TEXTURE.VP                                                                                         \
$Z                                                                                                                      $formatI

$Z        $xci/neutre$X                                                                                                                 \
$Z                            A=$xTV/TEXTURE.VP$ROUGE                                                                                   \
$Z                            R=$xTV/TEXTURE.V$VERTE                                                                                    \
$Z                                                                                                                      $formatI
$Z        $xci/neutre$X                                                                                                                 \
$Z                            A=$xTV/TEXTURE.VP$VERTE                                                                                   \
$Z                            R=$xTV/TEXTURE.V$ROUGE                                                                                    \
$Z                                                                                                                      $formatI
$Z        $xci/neutre$X                                                                                                                 \
$Z                            A=$xTV/TEXTURE.VP$BLEUE                                                                                   \
$Z                            R=$xTV/TEXTURE.V$BLEUE                                                                                    \
$Z                                                                                                                      $formatI

$Z        $xci/lineaire$X                                                                                                               \
$Z                            A=0 B=1 C=0                                                                                               \
$Z                            standard=FAUX                                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/acces$X                                                                                                                  \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/passe_bande$X                                                                                                            \
$Z                            forcer_niveau_intermediaire=VRAI niveau_intermediaire=$NiVeAuB                                            \
$Z                            inf=$InF ninf=$NiVeAuF                                                                                    \
$Z                            sup=$SuP nsup=$NiVeAuF                                                                                    \
$Z                            R=$xTV/TEXTURE.H                                                                                          \
$Z                                                                                                                      $formatI

$Z        $xci/vraies_C$X                                                                                                               \
$Z                            A=$xTV/TEXTURE.H                                                                                          \
$Z                            p=$_____Palette                                                                                           \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/TEXTURE.H                                                                                          \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/maximum$X                                                                                                      \
$Z                                      A1=$xTV/TEXTURE.V%s                                                                             \
$Z                                      A2=$xTV/TEXTURE.H%s                                                                             \
$Z                                      R=$xTV/TEXTURE.2%s                                                                              \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/cache$X                                                                                                        \
$Z                                      A=$xTV/TEXTURE.2%s                                                                              \
$Z                                      M=$xTV/TEXTURE.1                                                                                \
$Z                                      R=$xTV/TEXTURE.3%s                                                                              \
$Z                                                                                                                      $formatI

$Z        set       GrIs=80

$Z        execRVB   $xci/cache$X                                                                                                        \
$Z                                      A=$GrIs                                                                                         \
$Z                                      M=$xTV/TEXTURE.3%s                                                                              \
$Z                                      R=$xTV/TEXTURE%s                                                                                \
$Z                                                                                                                      $formatI