#######################################################################################################################################
#                                                                                                                                     #
#         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.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240128164335).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20240129141731____:$Z                  set       _____Cote=0.45                                                                      #
$Z                  setParam  _____Cote 0.45

$Z                  set       cote1=$_____Cote
$Z                  set       cote2=`calcul $cote1/2`
$Z                  set       cote3=`calcul sqrt(3)*$cote1/2`

$Z                  set       angle0=0
$Z                  set       angle2=$pis2
$Z                  set       angle3=`calculNS $pi/3`
$Z                  set       angle4=`calculNS 3*$angle3`

$Z                  set       OrIgInE_X=0
$Z                  set       OrIgInE_Y=0
$Z                  set       OrIgInE_Z=0

$Z                  alias     GeNeRe    'set       RhO=\!:1 ; set PhI=\!:2                                                        ;    \\
$Z                                       set       CuMuL_PhI=`calcul ($CuMuL_PhI)+($PhI)`                                         ;    \\
$Z                                       echo      $RhO               >>! $FPoLyGoNeS.rho                                         ;    \\
$Z                                       echo      $pis2              >>! $FPoLyGoNeS.theta                                       ;    \\
$Z                                       echo      $CuMuL_PhI         >>! $FPoLyGoNeS.phi                                         ;    \\
$Z                                       unset     RhO PhI'