#######################################################################################################################################
#                                                                                                                                     #
#         G R O U P A G E   D E   P O I N T S   P A R   P A Q U E T S   L O C A L I S E S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.CAYA.V2.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230219140043).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____PaquetX                  1
$Z                  setParam            _____PaquetY                  1

$Z                  setParam            _____Separateur               `GetParam $xrv/groupage.01$X separateur`

$Z                  $DELETE   $FLiStE_PoInTs$COORD_X
$Z                  $DELETE   $FLiStE_PoInTs$COORD_Y

$Z                  $CA       $FLiStE_PoInTs                                                                                      |     \
$Z                  $AW       ' { print $3 } '                                                                                    |     \
$Z                  $SE       -e 's/^.*=//'                                                                                             \
$Z                                                                                                  > $FLiStE_PoInTs$COORD_X

$Z                  $CA       $FLiStE_PoInTs                                                                                      |     \
$Z                  $AW       ' { print $4 } '                                                                                    |     \
$Z                  $SE       -e 's/^.*=//'                                                                                             \
$Z                                                                                                  > $FLiStE_PoInTs$COORD_Y

$Z                  $DELETE   $FLiStE_PoInTs

#20230220114010____:$Z                  $xrv/groupage.01$X                                                                         \  #
#20230220114010____:$Z                            ne=0                                                                             \  #
#20230220114010____:$Z                            LISTE_X=$FLiStE_PoInTs$COORD_X                                                   \  #
#20230220114010____:$Z                            LISTE_Y=$FLiStE_PoInTs$COORD_Y                                                   \  #
#20230220114010____:$Z                            paquetsX=$_____PaquetX                                                           \  #
#20230220114010____:$Z                            paquetsY=$_____PaquetY                                                           \  #
#20230220114010____:$Z                            separateur=$_____Separateur                                                |     \  #
#20230220114010____:$Z                  $AW       ' { print "$UNDEF $UNDEF " $1 " " $2 " " $3 " " } '                              \  #
#20230220114010____:$Z                                                                                        > $FLiStE_PoInTs        #

$Z                  $xrv/groupage.01$X                                                                                                  \
$Z                            ne=0                                                                                                      \
$Z                            LISTE_X=$FLiStE_PoInTs$COORD_X                                                                            \
$Z                            LISTE_Y=$FLiStE_PoInTs$COORD_Y                                                                            \
$Z                            paquetsX=$_____PaquetX                                                                                    \
$Z                            paquetsY=$_____PaquetY                                                                                    \
$Z                            normaliser=VRAI                                                                                           \
$Z                            separateur=$_____Separateur                                                                         |     \
$Z                  $AW       ' { print "$UNDEF $UNDEF " $1 " " $2 " " $3 " " } '                                                       \
$Z                                                                                                  > $FLiStE_PoInTs

$Z                  $DELETE   $FLiStE_PoInTs$COORD_X
$Z                  $DELETE   $FLiStE_PoInTs$COORD_Y