#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D E   L A   P S E U D O - P R O J E C T I O N   D ' U N E   B O U T E I L L E   D E   K L E I N  :    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MAIL.Y1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150609103334).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____PseudoProjections        $EXIST
$Z                                      # Parametre introduit le 20150611103822...                                                    #

$Z                  if                  ($_____PseudoProjections == $EXIST) then
$Z                                      # Test introduit le 20150611103811...                                                         #
$Z                                      $xrs/bKlein.41$X                                                                                \
$Z                                                          projeter=VRAI                                                               \
$Z                                                          standard=FAUX                                                               \
$Z                                                          chiffres=0                                                                  \
$Z                                                          PFx=$xTV/Fx                                                                 \
$Z                                                          PFy=$xTV/Fy                                                                 \
$Z                                                          PFz=$xTV/Fz                                                                 \
$Z                                                                                                                      $formatI
$Z                  else
$Z                  endif

$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      A=$xTV/Fx                                                                                       \
$Z                                      origine=-1 extremite=+1                                                                         \
$Z                                      R=$xTV/Fx                                                                                       \
$Z                                                                                                                      $formatI

$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      A=$xTV/Fy                                                                                       \
$Z                                      origine=-1 extremite=+1                                                                         \
$Z                                      R=$xTV/Fy                                                                                       \
$Z                                                                                                                      $formatI

$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      A=$xTV/Fz                                                                                       \
$Z                                      origine=-1 extremite=+1                                                                         \
$Z                                      R=$xTV/Fz                                                                                       \
$Z                                                                                                                      $formatI

$Z                  set                 PaRaM="$K_VIDE"
$Z                  set                 PaRaM="$PaRaM"" Fx=$xTV/Fx"
$Z                  set                 PaRaM="$PaRaM"" Fy=$xTV/Fy"
$Z                  set                 PaRaM="$PaRaM"" Fz=$xTV/Fz"
$Z                  set                 PaRaM="$PaRaM"" mtheta=0 Mtheta=$dpi"
$Z                  set                 PaRaM="$PaRaM"" mphi=0 Mphi=$dpi"

$Z                  set                 _____ParticulePara1="$PaRaM"