#######################################################################################################################################
#                                                                                                                                     #
#         T R A C E   D ' U N   C E R C L E  :                                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CERC.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20161008100524).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____X                        0

$Z                  setParam            _____Y                        0

$Z                  setParam            _____Rouge                    $GRIS_8
$Z                                      # ATTENTION : cette valeur doit etre egale a 'v $xiirv/.REFT.11.1.$U _____Rouge1'.            #

$Z                  setParam            _____Verte                    $GRIS_4
$Z                                      # ATTENTION : cette valeur doit etre egale a 'v $xiirv/.REFT.11.1.$U _____Verte1'.            #

$Z                  setParam            _____Bleue                    $GRIS_0
$Z                                      # ATTENTION : cette valeur doit etre egale a 'v $xiirv/.REFT.11.1.$U _____Bleue1'.            #

$Z                  setParam            _____NCercle                  300

$Z                  setParam            _____Epaisseur                0.010

$Z                  setParam            _____Rayon                    0.5

$Z                  setParam            _____RayonEA                  1
$Z                                      # Argument introduit le 20180611100129 afin de pouvoir faire des Ellipses...                  #

$Z                  setParam            _____RayonEB                  1
$Z                                      # Argument introduit le 20180611100129 afin de pouvoir faire des Ellipses...                  #

$Z                  setParam            _____Zoom                     1.50

$Z                  setParam            _____ParticuleParaC           "$K_VIDE"
$Z                                      # Argument introduit le 20161114102611...                                                     #

$Z                  setParam            _____CoordonneeZ              0.5
$Z                                      # Argument introduit le 20161114104149...                                                     #

$Z                  FileTmpB  FPoints

$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                  set       RaYoN_A=`$xcg/MUL2.01$X a=$_____RayonEA b=$_____Rayon`
$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      rD=$RaYoN_A rA=$RaYoN_A                                                                         \
$Z                                      translation=$_____X                                                                             \
$Z                                      alpha=1 beta=0                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_X

$Z                  set       RaYoN_B=`$xcg/MUL2.01$X a=$_____RayonEB b=$_____Rayon`
$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      rD=$RaYoN_B rA=$RaYoN_B                                                                         \
$Z                                      translation=$_____Y                                                                             \
$Z                                      alpha=0 beta=1                                                                                  \
$Z                                                                                                  >  $FPoints$COORD_Y

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      vD=$_____Epaisseur vA=$_____Epaisseur                                                           \
$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                                      isoles=VRAI                                                                                     \
$Z                                      Lz=100                                                                                          \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      $_____ParticuleParaC                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImagesR                                                                                 \
$Z                                                                                                                      $formatI
$Z                                      # Trace du cercle...                                                                          #

$Z                  FileTmpE  FPoints