#######################################################################################################################################
#                                                                                                                                     #
#         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.s1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200422093148).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set       PlAn="$xcg/EquationPlan.01$X en_tete=FAUX $PoInT_S"
$Z                  set       PlAn_A="A=VRAI B=FAUX C=FAUX D=FAUX"
$Z                  set       PlAn_B="A=FAUX B=VRAI C=FAUX D=FAUX"
$Z                  set       PlAn_C="A=FAUX B=FAUX C=VRAI D=FAUX"
$Z                  set       PlAn_D="A=FAUX B=FAUX C=FAUX D=VRAI"

$Z                  set       CoEfFiCiEnTs="$PlAn x1=$PoInT_IX y1=$PoInT_IY z1=$PoInT_IZ x2=$PoInT_JX y2=$PoInT_JY z2=$PoInT_JZ"
$Z                  set       _____CoefficientA=`$CoEfFiCiEnTs $PlAn_A`
$Z                  set       _____CoefficientB=`$CoEfFiCiEnTs $PlAn_B`
$Z                  set       _____CoefficientC=`$CoEfFiCiEnTs $PlAn_C`
$Z                  set       _____CoefficientD=`$CoEfFiCiEnTs $PlAn_D`
$Z                  set       _____IZGT=VRAI
$m4                 _____include(_____xiirf/.MENG.31.1._____U)
                                        # Definition de la face avant par le plan '-Y + 2.Z = 0' (triangle SIJ)...                    #

$Z                  set       CoEfFiCiEnTs="$PlAn x1=$PoInT_KX y1=$PoInT_KY z1=$PoInT_KZ x2=$PoInT_LX y2=$PoInT_LY z2=$PoInT_LZ"
$Z                  set       _____CoefficientA=`$CoEfFiCiEnTs $PlAn_A`
$Z                  set       _____CoefficientB=`$CoEfFiCiEnTs $PlAn_B`
$Z                  set       _____CoefficientC=`$CoEfFiCiEnTs $PlAn_C`
$Z                  set       _____CoefficientD=`$CoEfFiCiEnTs $PlAn_D`
$Z                  set       _____IZGT=FAUX
$m4                 _____include(_____xiirf/.MENG.31.1._____U)
                                        # Definition de la face arriere par le plan 'Y + 2.Z - 2 = 0' (triangle SKL)...               #

$Z                  set       CoEfFiCiEnTs="$PlAn x1=$PoInT_JX y1=$PoInT_JY z1=$PoInT_JZ x2=$PoInT_KX y2=$PoInT_KY z2=$PoInT_KZ"
$Z                  set       _____CoefficientA=`$CoEfFiCiEnTs $PlAn_A`
$Z                  set       _____CoefficientB=`$CoEfFiCiEnTs $PlAn_B`
$Z                  set       _____CoefficientC=`$CoEfFiCiEnTs $PlAn_C`
$Z                  set       _____CoefficientD=`$CoEfFiCiEnTs $PlAn_D`
$Z                  set       _____IZGT=FAUX
$m4                 _____include(_____xiirf/.MENG.31.1._____U)
                                        # Definition de la face de droite par le plan '+2.X + Y - 2 = 0' (triangle SJK)...            #

$Z                  set       CoEfFiCiEnTs="$PlAn x1=$PoInT_LX y1=$PoInT_LY z1=$PoInT_LZ x2=$PoInT_IX y2=$PoInT_IY z2=$PoInT_IZ"
$Z                  set       _____CoefficientA=`$CoEfFiCiEnTs $PlAn_A`
$Z                  set       _____CoefficientB=`$CoEfFiCiEnTs $PlAn_B`
$Z                  set       _____CoefficientC=`$CoEfFiCiEnTs $PlAn_C`
$Z                  set       _____CoefficientD=`$CoEfFiCiEnTs $PlAn_D`
$Z                  set       _____IZGT=VRAI
$m4                 _____include(_____xiirf/.MENG.31.1._____U)
                                        # Definition de la face de gauche par le plan '2.X - Y = 0' (triangle SLI)...                 #