#######################################################################################################################################
#                                                                                                                                     #
#         I N T E R P O L A T I O N   E N T R E   L E S   N - B O U T E I L L E S   D E   K L E I N                                   #
#         " V E R S I O N   1 "   S I M P L I F I E E   E T   " V E R S I O N   2 "  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.1/.BKLN.6.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20040503140239).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        Pal

$Z        SET       Premiere=1
$Z        SET       Derniere=128
$Z
$Z        @         Nimages   = $Derniere - $Premiere
$Z        @         Nimages   = $Nimages + 1

$Z        setParam            _____ParametreS5              4.0

$Z        setParam            _____ParametreT5              6.0

$Z        setParam            _____ParametreM6              4.0

$Z        setParam            _____ParametreT6              1.5

$Z        setParam            _____Zoom                     1.0

$Z        setParam            _____RotationOX               0.0

$Z        set                 FPonderation_5=`GetXTmp`

$Z        $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere                                                                     \
$Z                            vD=1 vA=0                                                                                                 \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                  > $FPonderation_5

$Z        set                 FPonderation_6=`GetXTmp`

$Z        $xci/valeurs_inte$X premiere=$Premiere derniere=$Derniere                                                                     \
$Z                            vD=0 vA=1                                                                                                 \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                  > $FPonderation_6


$Z        $xrs/bKlein.51_61$X                                                                                                           \
$Z                            np=$Nimages                                                                                               \
$Z                            pu=0.06283185307179585 pv=0.06283185307179587                                                             \
$Z                            eu=20                  ev=40                                                                              \
$Z                            dpu=20                 dpv=10                                                                             \
$Z                            PARAMETRE_S_5=$_____ParametreS5                                                                           \
$Z                            PARAMETRE_T_5=$_____ParametreT5                                                                           \
$Z                            PARAMETRE_M_6=$_____ParametreM6                                                                           \
$Z                            PARAMETRE_T_6=$_____ParametreT6                                                                           \
$Z                            PONDERATION_DE_LA_BouteilleDeKlein_5=$FPonderation_5                                                      \
$Z                            PONDERATION_DE_LA_BouteilleDeKlein_6=$FPonderation_6                                                      \
$Z                            extrema_differentielles_calcules=VRAI                                                                     \
$Z                            brume=FAUX                                                                                                \
$Z                            ZOOM=$_____Zoom                                                                                           \
$Z                            ROTATION_OX=$_____RotationOX                                                                              \
$Z                            Lz=100                                                                                                    \
$Z                            rayon_de_visualisation=0.08                                                                               \
$Z                            N_AU_CARRE=FAUX                                                                                           \
$Z                            R=$_____images.                                                                                           \
$Z                                                                                                                      $formatI

$Z        $DELETE             $FPonderation_5
$Z        $DELETE             $FPonderation_6