#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.43.$U' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        @                   NPoints = $PartN - $Part0
$Z        @                   NPoints = $NPoints + 1
$Z        set                 dimXY=`$xcg/RACX.01$X x=$NPoints signe="$K_VIDE" entier=VRAI`
$Z        @                   dimXY = $dimXY - 1

$Z        SformatI
$Z        XYmaxNe             $dimXY $dimXY

$Z        $xci/init$X                                                                                                                   \
$Z                            niveau=$BLANC                                                                                             \
$Z                            CAL1=FAUX                                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/liste_points$X                                                                                                           \
$Z                            Cdenormaliser=FAUX                                                                                        \
$Z                            messages=FAUX eX=VRAI eY=FAUX eNIVEAU=FAUX epoints=FAUX                                                   \
$Z                            CAL1=FAUX                                                                                                 \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_X
$Z        $xci/init$X                                                                                                                   \
$Z                            niveau=$BLANC                                                                                             \
$Z                            CAL1=FAUX                                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/liste_points$X                                                                                                           \
$Z                            Cdenormaliser=FAUX                                                                                        \
$Z                            messages=FAUX eX=FAUX eY=VRAI eNIVEAU=FAUX epoints=FAUX                                                   \
$Z                            CAL1=FAUX                                                                                                 \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_Y

$Z        RformatI