#######################################################################################################################################
#                                                                                                                                     #
#         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   S P H E R E  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MAIL.X1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150605154902).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

$Z                  if                  ($_____PseudoProjections == $EXIST) then
$Z                                      # Test introduit le 20150611103811...                                                         #
$Z                                      $xrs/sphere.11$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                  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"