#######################################################################################################################################
#                                                                                                                                     #
#         R O T A T I O N   A U T O U R   D U   B I L L I A R D  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.z.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RotationOX0              0.0

$Z                  setParam            _____RotationOX               0.0

$Z                  setParam            _____RotationOY0              0.0

$Z                  setParam            _____RotationOY               $dpi

$Z                  setParam            _____RotationOZ0              0.0

$Z                  setParam            _____RotationOZ               0.0

$Z                  set                 Save_Part0=$Part0
$Z                  set                 Save_PartN=$PartN

$Z                  set                 Part0=$Premiere
$Z                  set                 PartN=$Derniere

$Z                  Gen                 $xTV/ROTATION$COORD_X         $_____RotationOX0   $_____RotationOX    cubique=VRAI
$Z                  Gen                 $xTV/ROTATION$COORD_Y         $_____RotationOY0   $_____RotationOY    cubique=VRAI
$Z                  Gen                 $xTV/ROTATION$COORD_Z         $_____RotationOZ0   $_____RotationOZ    cubique=VRAI

$Z                  set                 Part0=$Save_Part0
$Z                  set                 PartN=$Save_PartN
$Z                                      # Le 20050815123800, j'ai corrige une anomalie bizarre :                                      #
$Z                                      #                                                                                             #
$Z                                      #                   set                 Part0=Save_$Part0                                     #
$Z                                      #                   set                 PartN=Save_$PartN                                     #
$Z                                      #                                                                                             #
$Z                                      # que je n'explique pas ; peut-etre cela n'avait pas eu de consequences apres cette erreur... #