#######################################################################################################################################
#                                                                                                                                     #
#         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   T O R E  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MAIL.Z1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150611104355).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____PseudoProjections        $EXIST

$Z                  if                  ($_____PseudoProjections == $EXIST) then
$Z                                      $xrs/tore.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"