#######################################################################################################################################
#                                                                                                                                     #
#         C O N V E R S I O N   D ' U N E   I M A G E   E N   U N E   L I S T E   D E   P O I N T S  :                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.MENH.K2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240821175036).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MethodeImageL            0
$Z                                      # Parametre introduit le 20240823172833...                                                    #

$Z                  setParam            _____SeuilImageL              $GRIS_4
$Z                                      # Parametre introduit le 20240823162502...                                                    #

$Z                  eval                "$_____FormatA"

$Z                  $xci/luminance.01$X A=$_____ImageL                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/random.03$X                                                                                                    \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/Sx$X                                                                                                           \
$Z                                      R=$FAuToPoRtRaIt.1                                                                              \
$Z                                                                                                                      $formatI
$Z                                      # La symetrie par rapport a 'OX' est destinee a mettre plus de points BLANCs en bas (pres     #
$Z                                      # de '$Ymin') afin de conserver le plus possible de grands cubes...                           #

$Z                  set                 FoRmAtI=`eval echo "$K_DOLLAR""formatR_""$_____FormatR"`

$Z                  $xci/format.01$X    A=$FAuToPoRtRaIt.1                                                                              \
$Z                                                                                                                      $formatI        \
$Z                                      methode=$_____MethodeImageL                                                                     \
$Z                                      R=$FAuToPoRtRaIt.2                                                                              \
$Z                                                                                                                      $FoRmAtI

$Z                  eval                "$_____FormatR"

$Z                  $xci/seuil$X        A=$FAuToPoRtRaIt.2                                                                              \
$Z                                      seuil=$_____SeuilImageL                                                                         \
$Z                                      inf=`alphax 0` sup=`alphax 1`                                                                   \
$Z                                      R=$FAuToPoRtRaIt.3                                                                              \
$Z                                                                                                                      $formatI
$Z                                      # Ainsi, l'image '$FAuToPoRtRaIt.3' est un fichier alphanumerique ne contenant que des        #
$Z                                      # caracteres '0' et '1'...                                                                    #

$Z                  $xrp/UnChiffreParLigne.01$vv$Z          $FAuToPoRtRaIt.3                                                            \
$Z                                                                                                            >> $FAuToPoRtRaIt