#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D E   P I                                       #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   T R I D I M E N S I O N N E L L E  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20131211101148).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinX                     0.1

$Z                  setParam            _____MaxX                     0.9

$Z                  setParam            _____MinY                     0.1

$Z                  setParam            _____MaxY                     0.9

$Z                  setParam            _____MinZ                     0.1

$Z                  setParam            _____MaxZ                     0.9

$Z                  setParam            _____ParamStoreAlbum          "$K_VIDE"
$Z                                      # Parametre introduit le 20140102074551...                                                    #

$Z                  setParam            _____DemiPaveX                `GetParam $xrv/store_album$X demi_pave_X`

$Z                  setParam            _____DemiPaveY                `GetParam $xrv/store_album$X demi_pave_Y`

$Z                  setParam            _____DemiPaveZ                `GetParam $xrv/store_album$X demi_pave_Z`

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*X=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                        > $LiStEPoInTs.1$COORD_X
$Z                  $CA                 $LiStEPoInTs.1$COORD_X                                                                    |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== minimum=$_____MinX maximum=$_____MaxX                                            \
$Z                                                                                        > $LiStEPoInTs$COORD_X

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*Y=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                        > $LiStEPoInTs.1$COORD_Y
$Z                  $CA                 $LiStEPoInTs.1$COORD_Y                                                                    |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== minimum=$_____MinY maximum=$_____MaxY                                            \
$Z                                                                                        > $LiStEPoInTs$COORD_Y

$Z                  $CA                 $LiStEPoInTs                                                                              |     \
$Z                  $SE                 -e 's/^.*Z=\([^ ]*\) .*$/\1/'                                                                   \
$Z                                                                                        > $LiStEPoInTs.1$COORD_Z
$Z                  $CA                 $LiStEPoInTs.1$COORD_Z                                                                    |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== minimum=$_____MinZ maximum=$_____MaxZ                                            \
$Z                                                                                        > $LiStEPoInTs$COORD_Z
$Z                                      # Le 20240607085848 je m'interroge sur l'utilite des fichiers '$LiStEPoInTs.1' ? En fait      #
$Z                                      # c'est pour les '$xrv/extrema.01$X' qui suivent...                                           #

#20241027140307____:$Z                  set       MiNiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_X minimum_seul=VRAI` #
#20241027140307____:$Z                  set       MaXiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_X maximum_seul=VRAI` #

#20241027140307____:$Z                  set       MiNiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Y minimum_seul=VRAI` #
#20241027140307____:$Z                  set       MaXiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Y maximum_seul=VRAI` #

#20241027140307____:$Z                  set       MiNiMuM_Z=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Z minimum_seul=VRAI` #
#20241027140307____:$Z                  set       MaXiMuM_Z=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Z maximum_seul=VRAI` #

$Z                  set       FoRmAt_ExTrEmA='formater=VRAI format=f ChiffresFlot=3'

$Z                  set       MiNiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_X minimum_seul=VRAI $FoRmAt_ExTrEmA`
$Z                  set       MaXiMuM_X=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_X maximum_seul=VRAI $FoRmAt_ExTrEmA`

$Z                  set       MiNiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Y minimum_seul=VRAI $FoRmAt_ExTrEmA`
$Z                  set       MaXiMuM_Y=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Y maximum_seul=VRAI $FoRmAt_ExTrEmA`

$Z                  set       MiNiMuM_Z=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Z minimum_seul=VRAI $FoRmAt_ExTrEmA`
$Z                  set       MaXiMuM_Z=`$xrv/extrema.01$X ne=0 fichier=$LiStEPoInTs.1$COORD_Z maximum_seul=VRAI $FoRmAt_ExTrEmA`

$Z                  unset     FoRmAt_ExTrEmA

$Z                  echo      "ExtremaRenormalisationCoordonnees : \c"
$Z                  echo      "[$MiNiMuM_X,$MaXiMuM_X]x[$MiNiMuM_Y,$MaXiMuM_Y]x[$MiNiMuM_Z,$MaXiMuM_Z] \c"
$Z                  echo      "--> [$_____MinX,$_____MaxX]x[$_____MinY,$_____MaxY]x[$_____MinZ,$_____MaxZ]"

$Z                  set       ArGuMeNtS="$K_VIDE"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" ne=0"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_X=$LiStEPoInTs$COORD_X"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_Y=$LiStEPoInTs$COORD_Y"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" LISTE_Z=$LiStEPoInTs$COORD_Z"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" demi_pave_X=$_____DemiPaveX"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" demi_pave_Y=$_____DemiPaveY"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" demi_pave_Z=$_____DemiPaveZ"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" tester_hors_bornes_naturelles=FAUX"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" $_____ParamStoreAlbum"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" premiere=$cPremiere"
$Z                  set       ArGuMeNtS="$ArGuMeNtS"" Zmin=0 Zmax=`calcul $cDerniere-$cPremiere`"

$Z                  $xrv/store_album$X                                                                                                  \
$Z                                      $ArGuMeNtS                                                                                      \
$Z                                      LISTE_NIVEAU=1                                                                                  \
$Z                                      R=$_____ImageT1.                                                                                \
$Z                                                                                                  $formatI

$Z                  IfBasic             ($?_____ImageS == $EXIST) ThenBasic
$Z                                      # Test introduit le 20240606134724...                                                         #
$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $SE                 -e 's/^.*ROUGE=\([^ ]*\) .*$/\1/'                                     |     \
$Z                                      $xrv/normalise.01$X ne=0 fichier== forcer_extrema=VRAI minimum_force=$NOIR maximum_force=$BLANC \
$Z                                                                                                            > $LiStEPoInTs$ROUGE

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $SE                 -e 's/^.*VERTE=\([^ ]*\) .*$/\1/'                                     |     \
$Z                                      $xrv/normalise.01$X ne=0 fichier== forcer_extrema=VRAI minimum_force=$NOIR maximum_force=$BLANC \
$Z                                                                                                            > $LiStEPoInTs$VERTE

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $SE                 -e 's/^.*BLEUE=\([^ ]*\) .*$/\1/'                                     |     \
$Z                                      $xrv/normalise.01$X ne=0 fichier== forcer_extrema=VRAI minimum_force=$NOIR maximum_force=$BLANC \
$Z                                                                                                            > $LiStEPoInTs$BLEUE
$Z                                      # La recuperation des niveaux a ete introduite le 20240607085848...                           #

$Z                            execRVB   $xrv/store_album$X                                                                              \
$Z                                                          $ArGuMeNtS                                                                  \
$Z                                                          LISTE_NIVEAU=$LiStEPoInTs%s                                                 \
$Z                                                          postfixe=%s                                                                 \
$Z                                                          R=$_____ImageS.                                                             \
$Z                                                                                                                      $formatI
$Z                                      # La generation d'une texture en vraies couleurs a ete introduite le 20240606134724...        #
$Z                  ElseBasic
$Z                  EndifBasic

$Z                  FileTmpE            LiStEPoInTs