#######################################################################################################################################
#                                                                                                                                     #
#         E P I C Y C L E S   D E   P T O L E M E E  :                                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.EPIC.11.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20191002152534).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NDeferent                                                                        \
$Z                                      vD=$_____RayonD vA=$_____RayonD                                                                 \
$Z                                                                    >  $FDeferent1$RAYON

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NDeferent                                                                        \
$Z                                      vD=$NiVeAuD vA=$NiVeAuD                                                                         \
$Z                                                                    >  $FDeferent1$ROUGE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NDeferent                                                                        \
$Z                                      vD=$NiVeAuD vA=$NiVeAuD                                                                         \
$Z                                                                    >  $FDeferent1$VERTE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NDeferent                                                                        \
$Z                                      vD=$NiVeAuD vA=$NiVeAuD                                                                         \
$Z                                                                    >  $FDeferent1$BLEUE
$Z                                      # Definition du Deferend (grand cercle).                                                      #

#20180309104740____:$Z                  set       CXEpicycle1=`$CA $FDeferent1$COORD_X | $HEA -1`                                     #
#20180309104740____:$Z                  set       CYEpicycle1=`$CA $FDeferent1$COORD_Y | $HEA -1`                                     #

$Z                  if        ($_____Dephasage < 2) then
$Z                            set       AcCeS_CEpicycle=1
$Z                  else
$Z                            set       AcCeS_CEpicycle=`calculINS (($_____NDeferent*$_____Dephasage)/$_____NTrajectoire)`
$Z                  endif

$Z                  set       CXEpicycle1=`$CA $FDeferent1$COORD_X | $HEA -$AcCeS_CEpicycle | $TAI -1`
$Z                  set       CYEpicycle1=`$CA $FDeferent1$COORD_Y | $HEA -$AcCeS_CEpicycle | $TAI -1`
$Z                                      # Position du centre de l'Epicycle visualise.                                                 #

$Z                  set       NiVeAuE=$GRIS_7
$Z                                      # Niveau de gris de l'Epicycle.                                                               #

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      rD=$_____REpicycle rA=$_____REpicycle                                                           \
$Z                                      tA=$_____TEpicycle1                                                                             \
$Z                                      alpha=1 beta=0                                                                            |     \
$Z                  $xrv/ADD2.11$X                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=$CXEpicycle1                                                                           \
$Z                                                                    >  $FEpicycle1$COORD_X

$Z                  $xci/valeurs_trig$X                                                                                                 \
$Z                                      $PaRaMeTrEs1                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      rD=$_____REpicycle rA=$_____REpicycle                                                           \
$Z                                      tA=$_____TEpicycle1                                                                             \
$Z                                      alpha=0 beta=1                                                                            |     \
$Z                  $xrv/ADD2.11$X                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=$CYEpicycle1                                                                           \
$Z                                                                    >  $FEpicycle1$COORD_Y

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      vD=$_____RayonE vA=$_____RayonE                                                                 \
$Z                                                                    >  $FEpicycle1$RAYON

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      vD=$NiVeAuE vA=$NiVeAuE                                                                         \
$Z                                                                    >  $FEpicycle1$ROUGE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      vD=$NiVeAuE vA=$NiVeAuE                                                                         \
$Z                                                                    >  $FEpicycle1$VERTE

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NEpicycle                                                                        \
$Z                                      vD=$NiVeAuE vA=$NiVeAuE                                                                         \
$Z                                                                    >  $FEpicycle1$BLEUE
$Z                                      # Definition de l'Epicycle (petit cercle) visualise.                                          #