#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   S T R U C T U R E   C U B I Q U E  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRX.M1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200303122553).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            FLiStEP

$m4                 _____include(_____xiirs/.PROK.41.1._____U)
$m4                 _____include(_____xiirs/.PROK.41.9._____U)

$Z                  set       _____Rotation_OX=0.0
$Z                  set       _____Rotation_OY=0.0
$Z                  set       _____Rotation_OZ=0.0
$m4                 _____include(_____xiirs/.PROK.41.2._____U)

$Z                  set       _____imageR=$xTV/`GetLeaf $_____imagesR`
$Z                  set       ArGuMeNtS="$K_VIDE"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" lister_les_points=VRAI"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" lister_les_points_apres=VRAI"
$Z                  set       _____ArgSpecifiques="$ArGuMeNtS"
$Z                  set       _____Redirection="$K_VIDE"
$Z                  set       _____Redirection="$_____Redirection >> $FLiStEP"
$m4                 _____include(_____xiirs/.PROK.41.3._____U)

$Z                  set       _____DemiPave=10
$Z                  set       _____InverserZStructure=VRAI
$m4                 _____include(_____xiirv/.NDIM.43.1._____U)

$Z                  FilSTmpE            FLiStEP