#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N E   P Y R A M I D E  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.MENG.s3.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200422093609).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set       PrecisionCalcul=8

$Z                  set       PyRaMiDe=`calcul (1-$_____CoteCube)/2`

$Z                  set       MiN_XYZ=`calcul 0+$PyRaMiDe`
$Z                  set       MaX_XYZ=`calcul 1-$PyRaMiDe`
$Z                  set       MoY_XYZ=`calcul ($MiN_XYZ+$MaX_XYZ)/2`

$Z                  set       PoInT_S="x3=$MoY_XYZ y3=$MaX_XYZ z3=$MoY_XYZ"

$Z                  set       PoInT_IX=$MiN_XYZ
$Z                  set       PoInT_IY=$MiN_XYZ
$Z                  set       PoInT_IZ=$MiN_XYZ

$Z                  set       PoInT_JX=$MaX_XYZ
$Z                  set       PoInT_JY=$MiN_XYZ
$Z                  set       PoInT_JZ=$MiN_XYZ

$Z                  set       PoInT_KX=$MaX_XYZ
$Z                  set       PoInT_KY=$MiN_XYZ
$Z                  set       PoInT_KZ=$MaX_XYZ

$Z                  set       PoInT_LX=$MiN_XYZ
$Z                  set       PoInT_LY=$MiN_XYZ
$Z                  set       PoInT_LZ=$MaX_XYZ
                                        # Definition d'une pyramide de sommet S et de base IJKL...                                    #