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

$Z                  setParam            _____XTerre                   0

$Z                  setParam            _____YTerre                   0

$Z                  setParam            _____RTerre                   0.04

$Z                  setParam            _____RDeferent                1

$Z                  setParam            _____NDeferent                1000

$Z                  setParam            _____TDeferent                $dpi

$Z                  setParam            _____RayonD                   0.006

$Z                  setParam            _____REpicycle                0.2

$Z                  setParam            _____NEpicycle                200

$Z                  setParam            _____TEpicycle1               $dpi

$Z                  setParam            _____RayonE                   0.006

$Z                  if        ($?_____NTrajectoire == $NEXIST) then
$Z                            SETv      _____NTrajectoire=2000
$Z                  else
$Z                  endif

$Z                  if        ($?_____Dephasage == $NEXIST) then
$Z                            SETv      _____Dephasage=$_____NTrajectoire
$Z                                      # Parametre introduit le 20180309104740...                                                    #
$Z                                      #                                                                                             #
$Z                                      # On notera que les conditions initiales sont visualisables avec :                            #
$Z                                      #                                                                                             #
$Z                                      #                   SET       _____Dephasage=2                                                #
$Z                                      #                                                                                             #
$Z                  else
$Z                  endif

$Z                  if        ($_____Dephasage < 1) then
$Z                            SETv      _____Dephasage=1
$Z                  else
$Z                  endif

$Z                  setParam            _____TEpicycle2               `calcul 7*$dpi`

$Z                  setParam            _____RayonT                   0.01

$Z                  setParam            _____Zoom                     1

$Z                  FileTmpB  FDeferent1
$Z                  FileTmpB  FDeferent2
$Z                  FileTmpB  FEpicycle1
$Z                  FileTmpB  FEpicycle2
$Z                  FileTmpB  FTrajectoire
$Z                  FileTmpB  FPoints

$Z                  set       PaRaMeTrEs1="premiere=1 lineaire=VRAI gamma=0 tD=0"
$Z                  set       PaRaMeTrEs2="premiere=1 lineaire=VRAI"

$Z                  set       NiVeAuD=$GRIS_4
$Z                                      # Niveau de gris du Deferend.                                                                 #