#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   T R A N S F O R M A T I O N   C O N F O R M E                                             #
#         D ' U N   P S E U D O - T O R E   " E P Y C Y C L O I D A L "   T R I D I M E N S I O N N E L  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.EPIC.52.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170312095507).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setenv    _____ImageT2        $xTV/SECTIONS.1
$Z                  setenv    _____ImageT1        $xTV/SECTIONS.2

$Z                  FilSTmpB            FLiStEP

$Z                  set       _____EpicycloidePara="$K_VIDE"
$Z                  set       _____EpicycloidePara="$_____EpicycloidePara"" centre_des_spheres=VRAI"
$Z                  set       _____EpicycloidePara="$_____EpicycloidePara"" lister_les_points=VRAI"
$Z                  set       _____EpicycloidePara="$_____EpicycloidePara"" lister_les_points_apres=VRAI"
$Z                  set       _____Redirection="$K_VIDE"
$Z                  set       _____Redirection="$_____Redirection >> $FLiStEP"

$Z                  SET       _____Editer=$NEXIST
$Z                  set       _____ImageR=$xTV/EPIC.52
$m4                 _____include(_____xiirs/.EPIC.51.2._____U)

$Z                  SET       _____NormaliserX=$EXIST
$Z                  SET       _____NormaliserY=$EXIST
$Z                  set       _____InverserZStructure=VRAI
$m4                 _____include(_____xiirv/.NDIM.43.1._____U)
$m4                 _____include(_____xiirs/.EPIC.41.12._____U)

$Z                  FilSTmpE            FLiStEP

$m4                 _____include(_____xiirf/.MENG.67.5._____U)

$Z                  neutre

$m4                 _____include(_____xiirs/.EPIC.41.21._____U)

$m4                 _____include(_____xiirc/.MANE.41.1._____U)
$Z                  SET       _____Standard=VRAI
$Z                  set       _____Compatibilite_20140917=VRAI
$m4                 _____include(_____xiirf/.MENG.22.2._____U)
$Z                  set       _____SourceZ=1.0
$Z                  set       _____AttenuationOmbre=0.5
$m4                 _____include(_____xiirc/.MANE.41.3._____U)
$Z                  set       _____ImageTT=$_____ImageTo
$Z                  set       _____ValidMalo=FAUX
$Z                  set       _____RotationX=-0.4
$Z                  set       _____RotationY=-0.2
$m4                 _____include(_____xiirc/.MANE.41.4._____U)

#20170315182926____:$Z                  set       _____Format="$formatR_Squ"                                                          #
$Z                  set       _____Format="$formatIR"

$Z                  set       _____imageR=$_____imagesR.1
$m4                 _____include(_____xiirf/.MENG.21.2._____U)
$Z                  set       _____imageR=$_____imagesR.2
$m4                 _____include(_____xiirf/.MENG.21.2._____U)
$Z                  set       _____imageR=$_____imagesR.21
$m4                 _____include(_____xiirf/.MENG.21.2._____U)