#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D U   S E N S   D E S   A I G U I L L E S   D ' U N E   M O N T R E  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MONT.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20190611101153).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____X                        0

$Z                  setParam            _____Y                        0

$Z                  setParam            _____Rouge                    $GRIS_8

$Z                  setParam            _____Verte                    $GRIS_8

$Z                  setParam            _____Bleue                    $GRIS_8

$Z                  setParam            _____NCercle                  300

$Z                  setParam            _____EpaisseurD               0.010

$Z                  setParam            _____EpaisseurA               0.010

$Z                  setParam            _____AngleD                   0

$Z                  setParam            _____AngleA                   $dpi

$Z                  setParam            _____Rayon_cos                0.5

$Z                  setParam            _____Rayon_sin                0.5

$Z                  setParam            _____Zoom                     1.20

$Z                  setParam            _____RotationX                `GetParam $xrv/particule.10$X ROTATION_OX`
$Z                                      # Argument introduit le 20190725143738...                                                     #

$Z                  setParam            _____RotationY                `GetParam $xrv/particule.10$X ROTATION_OY`
$Z                                      # Argument introduit le 20190725143738...                                                     #

$Z                  setParam            _____RotationZ                `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z                                      # Argument introduit le 20190725143738...                                                     #

$Z                  setParam            _____ParticuleParaC           "$K_VIDE"

$Z                  setParam            _____CoordonneeZ              0.5

$Z                  FileTmpB  FPoints

$Z                  set       RaYoN=`$xcg/MAX2.01$X x=$_____Rayon_cos y=$_____Rayon_sin signe="$K_VIDE"`
$Z                  set       NCercle=`calculI $dpi*$RaYoN*$_____NCercle`

$Z                  set       PaRaMeTrEs1="$K_VIDE"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" premiere=1 derniere=$NCercle"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" lineaire=VRAI"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" gamma=0"
$Z                  set       PaRaMeTrEs1="$PaRaMeTrEs1"" tD=0 tA=$dpi"

$Z                  set       PaRaMeTrEs2="$K_VIDE"
$Z                  set       PaRaMeTrEs2="$PaRaMeTrEs2"" premiere=1 derniere=$NCercle"
$Z                  set       PaRaMeTrEs2="$PaRaMeTrEs2"" lineaire=VRAI"

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      aD=$_____AngleD     aA=$_____AngleA                                                             \
$Z                                      rD=$_____Rayon_cos  rA=$_____Rayon_cos                                                          \
$Z                                      translation=$_____X                                                                             \
$Z                                      alpha=1 beta=0                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_X

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      aD=$_____AngleD     aA=$_____AngleA                                                             \
$Z                                      rD=$_____Rayon_sin  rA=$_____Rayon_sin                                                          \
$Z                                      translation=$_____Y                                                                             \
$Z                                      alpha=0 beta=1                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_Y

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____EpaisseurD vA=$_____EpaisseurA                                                         \
$Z                                                                                                  >  $FPoints$RAYON

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Rouge vA=$_____Rouge                                                                   \
$Z                                                                                                  >  $FPoints$ROUGE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Verte vA=$_____Verte                                                                   \
$Z                                                                                                  >  $FPoints$VERTE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Bleue vA=$_____Bleue                                                                   \
$Z                                                                                                  >  $FPoints$BLEUE
$Z                                      # Definition du cercle.                                                                       #

$Z                  set                 AXYZ_BXYZ="AXYZ=1 BXYZ=0"

$Z                  set                 NPoInTsX=`$CA $FPoints$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $FPoints$COORD_Y | $WCl`
$Z                  set                 NPoInTs=`$xcg/MIN2.01$X x=$NPoInTsX y=$NPoInTsY`

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      iterations=$NPoInTs                                                                             \
$Z                                      $AXYZ_BXYZ                                                                                      \
$Z                                      LISTE_X=$FPoints$COORD_X                                                                        \
$Z                                      LISTE_Y=$FPoints$COORD_Y                                                                        \
$Z                                      LISTE_Z=$_____CoordonneeZ                                                                       \
$Z                                      LISTE_RAYON=$FPoints$RAYON                                                                      \
$Z                                      LISTE_ROUGE=$FPoints$ROUGE                                                                      \
$Z                                      LISTE_VERTE=$FPoints$VERTE                                                                      \
$Z                                      LISTE_BLEUE=$FPoints$BLEUE                                                                      \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      ROTATION_OX=$_____RotationX                                                                     \
$Z                                      ROTATION_OY=$_____RotationY                                                                     \
$Z                                      ROTATION_OZ=$_____RotationZ                                                                     \
$Z                                      isoles=VRAI                                                                                     \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      $_____ParticuleParaC                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                                      $formatI
$Z                                      # Trace du cercle...                                                                          #

$Z                  FileTmpE  FPoints