#######################################################################################################################################
#                                                                                                                                     #
#         M O T I F   D E   B A S E   D E S   P A V A G E S   N O N   P E R I O D I Q U E S                                           #
#         D E   T Y P E   " S P E C T R E "  :                                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SMIT.21.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240128164511).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            FPoLyGoNeS

$Z                  set       CuMuL_PhI=0

$Z                  GeNeRe    $cote1    +$angle4
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3

$Z                  GeNeRe    $cote1    +$angle4
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    -$angle3

$Z                  GeNeRe    $cote1    +$angle4
$Z                  GeNeRe    $cote1    +$angle3
$Z                  GeNeRe    $cote1    +$angle3
$Z                  GeNeRe    $cote1    +$angle3
$Z                  GeNeRe    $cote1    -$angle3
$Z                  GeNeRe    $cote1    +$angle3
$Z                  GeNeRe    $cote1    +$angle3
$Z                  GeNeRe    $cote1    +$angle3

$m4                 _____include(_____xiirv/.SMIT.11.1._____U)