#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   L I S T E S   D E S   C O O R D O N N E E S   { X , Y }   I N I T I A L E S  :                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.x.51.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____DistanceX                48

$Z                  set                 DistanceX=$_____DistanceX

$Z                  setParam            _____DistanceY                48

$Z                  set                 DistanceY=$_____DistanceY

$Z                  $DELETE             $xTV/COORDONNEES$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Y

$Z                  $xci/valeurs_imag$X                                                                                                 \
$Z                                      Px=1 Py=0                                                                                       \
$Z                                      px=$DistanceX py=$DistanceY                                                                     \
$Z                                      numero=FAUX                                                                                     \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_X
$Z                  set                 PartNX=`$WC $xTV/COORDONNEES_01$COORD_X`
$Z                  set                 PartNX=$PartNX[$WC1]
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                                                          CAL1=FAUX                                                                   \
$Z                                                          ne=$PartNX                                                                  \
$Z                                                          fichier=$xTV/COORDONNEES_01$COORD_X                                         \
$Z                                                          homothetie=$EchelleX translation=$TranslationX                              \
$Z                                                                                                  >   $xTV/COORDONNEES$COORD_X

$Z                  $xci/valeurs_imag$X                                                                                                 \
$Z                                      Px=0 Py=1                                                                                       \
$Z                                      px=$DistanceX py=$DistanceY                                                                     \
$Z                                      numero=FAUX                                                                                     \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                                                                                                      $formatI        \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_Y
$Z                  set                 PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y`
$Z                  set                 PartNY=$PartNY[$WC1]
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                                                          CAL1=FAUX                                                                   \
$Z                                                          ne=$PartNY                                                                  \
$Z                                                          fichier=$xTV/COORDONNEES_01$COORD_Y                                         \
$Z                                                          homothetie=$EchelleY translation=$TranslationY                              \
$Z                                                                                                  >   $xTV/COORDONNEES$COORD_Y

#20220615121609____:$Z                  set                 PartN=`$xcg/MAX2.01$X x=$PartNX y=$PartNY signe="$K_VIDE"`                #
$Z                  set                 PartN=`$xcg/MIN2.01$X x=$PartNX y=$PartNY signe="$K_VIDE"`

$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Y