#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M A T I O N   D ' U N E   L E T T R E   D ' U N   A L P H A B E T  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PEAN.Q2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230527092449).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ScriptZ                  $xigP/Divers.12$Z

$Z                  setParam            _____Lettre                   "G"

$Z                  setParam            _____Taille                   20

$Z                  setParam            _____MinimumX                 0
#20230530105311____:$Z                  setParam            _____MaximumX                 1                                           #
$Z                  setParam            _____MaximumX                 `calcul 4/5`

$Z                  setParam            _____MinimumY                 0
#20230530105311____:$Z                  setParam            _____MaximumY                 1                                           #
$Z                  setParam            _____MaximumY                 $_____MaximumX

$Z                  setParam            _____MinimumZ                 0
$Z                  setParam            _____MaximumZ                 1

$Z                  setParam            _____Format                   Std

$Z                  setParam            _____Bibliotheque             5

#20230530105311____:$Z                  setParam            _____DistanceMinimale         0.0005                                      #
$Z                  setParam            _____DistanceMinimale         `GetParam $xrv/particule.10$X distance_minimale`
$Z                                      # Ce parametre introduit le 20230529140101 est destine a 'v $xiirv/PEAN.Q2.G.2', par          #
$Z                                      # exemple, afin que les segments retraces plusieurs fois (qui sont les aretes des grands      #
$Z                                      # cubes) apparaissent proprement...                                                           #
$Z                                      #                                                                                             #
$Z                                      # La modification du 20230530105311 est liee a 'v $xiii/alphabet.5$FON 20230530102527'...     #

#20230530110243____:$Z                  setParam            _____SeuilDistance            0.1                                         #
$Z                  setParam            _____SeuilDistance            0.6

$Z                  setParam            _____FacteurDerivees          0.5
$Z                                      # Mettre a 0 '$_____FacteurDerivees' supprime les distorsions "cubiques" des segments.        #

$Z                  FilSTmpB            DiVeRs_d1
$Z                  FilSTmpB            DiVeRs_d2

$Z                  set                 ArGuMeNtS_DiVeRs="$K_VIDE"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____Lettre"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____Taille"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____MinimumX $_____MaximumX"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____MinimumY $_____MaximumY"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____MinimumZ $_____MaximumZ"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____Format"
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____Bibliotheque"
#20230529140101____:$Z                  set  ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" `GetParam $xrv/particule.10$X distance_minimale`"  #
$Z                  set                 ArGuMeNtS_DiVeRs="$ArGuMeNtS_DiVeRs"" $_____DistanceMinimale"
$Z                  set                 ArGuMeNtS_DiVeRs=($ArGuMeNtS_DiVeRs)

$Z                  $_____ScriptZ       $DiVeRs_d1                                                                                      \
$Z                                      $ArGuMeNtS_DiVeRs                                                                               \
$Z                                      FAUX

$Z                  set                 DiVeRs_d1_X=$DiVeRs_d1.*$COORD_X
$Z                  set                 DiVeRs_d1_Y=$DiVeRs_d1.*$COORD_Y
$Z                  set                 DiVeRs_d1_Z=$DiVeRs_d1.*$COORD_Z

$Z                  set                 CeNtReX=`$xrv/extrema.01$X ne=0 fichier=$DiVeRs_d1_X mys=VRAI`
$Z                  set                 CeNtReY=`$xrv/extrema.01$X ne=0 fichier=$DiVeRs_d1_Y mys=VRAI`
$Z                  set                 CeNtReZ=`$xrv/extrema.01$X ne=0 fichier=$DiVeRs_d1_Z mys=VRAI`
$Z                                      # On notera l'usage de ".*" plutot que ".extremites" afin de ne pas faire d'hypotheses        #
$Z                                      # relatives a 'v $xigP/Divers.12$Z .extremites'...                                            #
$Z                                      #                                                                                             #
$Z                                      # On notera le 20230527100434 qu'on ne peut pas ecrire directement :                          #
$Z                                      #                                                                                             #
$Z                                      #                   $xrv/extrema.01$X ne=0 fichier=$DiVeRs_d1.*$COORD_X mys=VRAI              #
$Z                                      #                                                                                             #
$Z                                      # car, en effet, cela donne le message :                                                      #
$Z                                      #                                                                                             #
$Z                                      #                   ...extrema.01.x: No match.                                                #
$Z                                      #                                                                                             #
$Z                                      # que je n'explique pas. Le 20230527174447, j'ai compris : ce n'est pas '$DiVeRs_d1.' que     #
$Z                                      # le '$CSH' cherche a completer avec "*", mais 'fichier=$DiVeRs_d1.' qui est evidemment       #
$Z                                      # une racine inexistante...                                                                   #

$Z                  $xrv/distance.11$X  ne=0                                                                                            \
$Z                                      LISTE_X=$DiVeRs_d1_X                                                                            \
$Z                                      LISTE_Y=$DiVeRs_d1_Y                                                                            \
$Z                                      LISTE_Z=$DiVeRs_d1_Z                                                                            \
$Z                                      X0=$CeNtReX Y0=$CeNtReY Z0=$CeNtReZ                                                       |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=0 maximum=1                                                                       |     \
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      a=-1 b=+1                                                                                       \
$Z                                                                                                            >  $DiVeRs_d2.distance

$Z                  unset               CeNtReZ
$Z                  unset               CeNtReY
$Z                  unset               CeNtReX

$Z                  unset               DiVeRs_d1_Z
$Z                  unset               DiVeRs_d1_Y
$Z                  unset               DiVeRs_d1_X

$Z                  $xrv/IFGT.11$X      ne=0                                                                                            \
$Z                                      fichier1=$DiVeRs_d2.distance                                                                    \
$Z                                      fichier2=$_____SeuilDistance                                                                    \
$Z                                                                                                            >  $DiVeRs_d2.IFGT

$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier1=$DiVeRs_d2.IFGT                                                                        \
$Z                                      fichier2=$DiVeRs_d2.distance                                                              |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=0 maximum=$_____FacteurDerivees                                                         \
$Z                                                                                                            >> $DiVeRs_d2

$Z                  set                 LDeRiVeEs="$K_VIDE"
$Z                  set                 LDeRiVeEs="$LDeRiVeEs"" LISTE_dX=$DiVeRs_d2"
$Z                  set                 LDeRiVeEs="$LDeRiVeEs"" LISTE_dY=$DiVeRs_d2"
$Z                  set                 LDeRiVeEs="$LDeRiVeEs"" LISTE_dZ=$DiVeRs_d2"

$Z                  $_____ScriptZ       $DiVeRs                                                                                         \
$Z                                      $ArGuMeNtS_DiVeRs                                                                               \
$Z                                      VRAI                                                                                            \
$Z                                      "$LDeRiVeEs"

$Z                  unset               LDeRiVeEs

$Z                  unset               ArGuMeNtS_DiVeRs

$Z                  FilSTmpE            DiVeRs_d2
$Z                  FilSTmpE            DiVeRs_d1