#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   B O U T E I L L E   D E   K L E I N   S U R   U N   F O N D  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.BKLN.52.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20040513141243).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ParametreM               4

$Z                  setParam            _____Zoom                     1.20

$Z                  setParam            _____RotationX                0.8

$Z                  Pal
$Z                                      # Introduit le 20041110095011 car, en effet, il manquait...                                   #

$Z                  set                 Parametres="$K_VIDE"
$Z                  set                 Parametres="$Parametres"" np=1"
$Z                  set                 Parametres="$Parametres"" brume=FAUX"
$Z                  set                 Parametres="$Parametres"" pu=0.06283185307179585 pv=0.06283185307179587"
$Z                  set                 Parametres="$Parametres"" eu=20                  ev=40"
$Z                  set                 Parametres="$Parametres"" dpu=20                 dpv=10"
$Z                  set                 Parametres="$Parametres"" PARAMETRE_M=$_____ParametreM"
$Z                  set                 Parametres="$Parametres"" ZOOM=$_____Zoom"
$Z                  set                 Parametres="$Parametres"" ROTATION_OX=$_____RotationX"
$Z                  set                 Parametres="$Parametres"" Lz=100"
$Z                  set                 Parametres="$Parametres"" rayon_de_visualisation=0.08"
$Z                  set                 Parametres="$Parametres"" N_AU_CARRE=FAUX"

$Z                  $xrs/bKlein.61$X                                                                                                    \
$Z                                      fond=FAUX                                                                                       \
$Z                                      $Parametres                                                                                     \
$Z                                      R=$xTV/BKLN.52                                                                                  \
$Z                                      chiffres=0                                                                                      \
$Z                                                                                                                      $formatI

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

$Z                  $xci/luminance.01$X                                                                                                 \
$Z                                      AR=$xTV/BKLN.52$ROUGE                                                                           \
$Z                                      AV=$xTV/BKLN.52$VERTE                                                                           \
$Z                                      AB=$xTV/BKLN.52$BLEUE                                                                           \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      p=$xiP/masque                                                                                   \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      R=$xTV/LUMINANCE                                                                                \
$Z                                                                                                                      $formatI

$Z                  $xci/filtre.01$X                                                                                                    \
$Z                                      A=$xTV/LUMINANCE                                                                                \
$Z                                      N=$xTV/GAUSS                                                                                    \
$Z                                      seuil=253                                                                                       \
$Z                                      R=$xTV/FILTRAGE                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/complement$X                                                                                                   \
$Z                                      A=$xTV/FILTRAGE                                                                                 \
$Z                                      R=$xTV/FILTRAGE                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$_____imagesF$ROUGE                                                                          \
$Z                                      A2=$xTV/FILTRAGE                                                                                \
$Z                                      R=$xTV/FOND$ROUGE                                                                               \
$Z                                                                                                                      $formatI
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$_____imagesF$VERTE                                                                          \
$Z                                      A2=$xTV/FILTRAGE                                                                                \
$Z                                      R=$xTV/FOND$VERTE                                                                               \
$Z                                                                                                                      $formatI
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$_____imagesF$BLEUE                                                                          \
$Z                                      A2=$xTV/FILTRAGE                                                                                \
$Z                                      R=$xTV/FOND$BLEUE                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xrs/bKlein.61$X                                                                                                    \
$Z                                      fond=VRAI F=$xTV/FOND                                                                           \
$Z                                      $Parametres                                                                                     \
$Z                                      R=$_____imagesR                                                                                 \
$Z                                      chiffres=0                                                                                      \
$Z                                                                                                                      $formatI