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

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

$Z                                                          set            ISeGmEnT=$xTV/SEGMENT

$Z                                                          $xrv/particule.10$X np=1 iterations=$NPoInTs                                \
$Z                                                                              dernier_premier=VRAI                                    \
$Z                                                                              AXYZ=1 BXYZ=0                                           \
$Z                                                                              LISTE_X=$FSegment$COORD_X                               \
$Z                                                                              LISTE_Y=$FSegment$COORD_Y                               \
$Z                                                                              LISTE_Z=$CoOrDoNnEeZ                                    \
$Z                                                                              grossissement=$GrOsSiSsEmEnT                            \
$Z                                                                              LISTE_RAYON=$RaYoN_EqUaNt                               \
$Z                                                                              LISTE_ROUGE=$GrIs_EqUaNt                                \
$Z                                                                              LISTE_VERTE=$GrIs_EqUaNt                                \
$Z                                                                              LISTE_BLEUE=$GrIs_EqUaNt                                \
$Z                                                                              Lz=100                                                  \
$Z                                                                              ZOOM=$_____Zoom                                         \
$Z                                                                              isoles=FAUX chainer=FAUX                                \
$Z                                                                              ajuster_points=VRAI                                     \
$Z                                                                              equidistance=VRAI compatibilite_20051230=FAUX           \
$Z                                                                              distance_minimale=$_____DistanceMini                    \
$Z                                                                              editer_extrema_hors=FAUX                                \
$Z                                                                              chiffres=0                                              \
$Z                                                                              R=$ISeGmEnT                                             \
$Z                                                                                                                      $formatI

$Z                                                          set                 FoNd_SeGmEnT="fond=VRAI F=$ISeGmEnT"