#######################################################################################################################################
#                                                                                                                                     #
#         C A L C U L   D E   L A   D E N S I T E   D ' U N   A L B U M  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Nota :                                                                                                                      #
#                                                                                                                                     #
#                     Le 20161024120647, je rappelle qu'une                                                                           #
#                   version simplifiee (sans le calcul de la                                                                          #
#                   densite par 'v $xci/densite_3D.11$K') de ce                                                                       #
#                   fichier est 'v $xiirf/.MENG.22.2.$U'.                                                                             #
#                                                                                                                                     #
#                     Le 20240830095033, je note une autre solution                                                                   #
#                   utilisable pour exploiter un '$Z' sans modifier                                                                   #
#                   sa description et sans donc le regenerer. Il                                                                      #
#                   s'agit de 'v $xci/densite_3D.11$K neutre='...                                                                     #
#                   Evidemment, la structure alors obtenue est plus                                                                   #
#                   "rugueuse"...                                                                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirc/.MANE.41.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20100828095130).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if                  ($?_____Standard == $NEXIST) then
$Z                                      # Validation introduite le 20140929122742...                                                  #
$Z                  else
$Z                                      if                  ($_____Standard == VRAI) then
$Z                                                          EROR                "Les albums ne peuvent etre que 'non standard's."
$Z                                      else
$Z                                      endif
$Z                  endif

$Z                  SET       _____Standard=FAUX
$Z                                      # Introduit le 20140928104607 afin de forcer le mode "standard=FAUX"...                       #

$Z                  setParam  _____Compatibilite_20110908   `GetParam $xci/densite_3D.11$X AFdensite_____compatibilite_20110908`
$Z                                      # Parametre introduit le 20120227094421 afin de permettre de faire :                          #
$Z                                      #                                                                                             #
$Z                                      #                  _____DxDyDz=0                                                              #
$Z                                      #                  _____Compatibilite_20110908=VRAI                                           #
$Z                                      #                                                                                             #
$Z                                      # qui rendra neutre l'action de '$xci/densite_3D.11$X' ci-apres...                            #

$Z                  setParam  _____Compatibilite_2014010310 `GetParam $xci/densite_3D.11$X AFdensite_____compatibilite_2014010310`
$Z                                      # Parametre introduit le 20140104101255 afin de permettre de faire :                          #
$Z                                      #                                                                                             #
$Z                                      #                  _____Compatibilite_2014010310=VRAI                                         #
$Z                                      #                                                                                             #
$Z                                      # qui retablira l'"epaisseur" de la densite telle qu'elle etait avant le 20140103104022...    #

$Z                  setParam  _____Neutre                   `GetParam $xci/densite_3D.11$X neutre`
$Z                                      # Parametre introduit le 20240830095033 afin d'accelerer le processus...                      #

$Z                  setParam            _____IncompletDZ              FAUX
$Z                                      # Parametre introduit le 20120322172702...                                                    #

$Z                  setParam            _____DxDyDz                   2
$Z                                      # Parametre introduit le 20101206152627...                                                    #
$Z                                      #                                                                                             #
$Z                                      # ATTENTION, a compter du 20140103222800 on notera 'v $xiii/di_album$FON 20140103222349' qui  #
$Z                                      # suggere de diminuer la valeur de '$_____DxDyDz' a compter de cette date et ce donc a cause  #
$Z                                      # de modifications dans 'v $xci/densite_3D.11$K compatibilite_2014010310' ; ainsi, il est     #
$Z                                      # suggere de reduire de 2 unites '$_____DxDyDz'...                                            #

$Z                  setParam            _____SuperEchelle             `GetParam $xci/densite_3D.11$X super_echelle`
$Z                                      # Parametre introduit le 20101203155444...                                                    #

$Z                  setParam            _____DRotation                FAUX
$Z                                      # Parametre introduit le 20101203122448...                                                    #

$Z                  setParam            _____DRotationX               0
$Z                                      # Parametre introduit le 20101203122448...                                                    #

$Z                  setParam            _____DRotationY               0
$Z                                      # Parametre introduit le 20101203122448...                                                    #

$Z                  setParam            _____InterpolerD              VRAI
$Z                                      # Parametre introduit le 20101203130737...                                                    #

$Z                  setParam            _____LineaireD                VRAI
$Z                                      # Parametre introduit le 20101203130737...                                                    #

$Z                  setParam            _____EpsilonAxes              `GetParam $xci/densite_3D.11$X EpsilonAxes`
$Z                                      # Parametre introduit le 20101207165744...                                                    #

#20240830095033____:$Z                  $xci/densite_3D.11$X                                                                       \  #
#20240830095033____:$Z                                 AFdensite_____compatibilite_20110908=$_____Compatibilite_20110908           \  #
#20240830095033____:$Z                                 AFdensite_____compatibilite_2014010310=$_____Compatibilite_2014010310       \  #
#20240830095033____:$Z                                      A=$_____ImageT1.                                                       \  #
#20240830095033____:$Z                                      incomplet_Z=$_____IncompletDZ                                          \  #
#20240830095033____:$Z                                      standard=VRAI                                                          \  #
#20240830095033____:$Z                                      premiere=$cPremiere                                                    \  #
#20240830095033____:$Z                                      Zmin=`calcul $cPremiere-$cPremiere`                                    \  #
#20240830095033____:$Z                                      Zmax=`calcul $cDerniere-$cPremiere`                                    \  #
#20240830095033____:$Z                                      dx=$_____DxDyDz dy=$_____DxDyDz dz=$_____DxDyDz                        \  #
#20240830095033____:$Z                                      super_echelle=$_____SuperEchelle                                       \  #
#20240830095033____:$Z                                      rotation=$_____DRotation                                               \  #
#20240830095033____:$Z                                      ROTATION_OX=$_____DRotationX                                           \  #
#20240830095033____:$Z                                      ROTATION_OY=$_____DRotationY                                           \  #
#20240830095033____:$Z                                      interpoler=$_____InterpolerD lineaire=$_____LineaireD                  \  #
#20240830095033____:$Z                                      EpsilonAxes=$_____EpsilonAxes                                          \  #
#20240830095033____:$Z                                      Progression=VRAI                                                       \  #
#20240830095033____:$Z                                      ChronometrerCommande=VRAI                                              \  #
#20240830095033____:$Z                                      R=$_____ImageTd.                                                       \  #
#20240830095033____:$Z                                                                                                  $formatI      #

$Z                  $xci/densite_3D.11$X                                                                                                \
$Z                                      AFdensite_____compatibilite_20110908=$_____Compatibilite_20110908                               \
$Z                                      AFdensite_____compatibilite_2014010310=$_____Compatibilite_2014010310                           \
$Z                                      neutre=$_____Neutre                                                                             \
$Z                                      A=$_____ImageT1.                                                                                \
$Z                                      incomplet_Z=$_____IncompletDZ                                                                   \
$Z                                      standard=VRAI                                                                                   \
$Z                                      premiere=$cPremiere                                                                             \
$Z                                      Zmin=`calcul $cPremiere-$cPremiere`                                                             \
$Z                                      Zmax=`calcul $cDerniere-$cPremiere`                                                             \
$Z                                      dx=$_____DxDyDz dy=$_____DxDyDz dz=$_____DxDyDz                                                 \
$Z                                      super_echelle=$_____SuperEchelle                                                                \
$Z                                      rotation=$_____DRotation                                                                        \
$Z                                      ROTATION_OX=$_____DRotationX                                                                    \
$Z                                      ROTATION_OY=$_____DRotationY                                                                    \
$Z                                      interpoler=$_____InterpolerD lineaire=$_____LineaireD                                           \
$Z                                      EpsilonAxes=$_____EpsilonAxes                                                                   \
$Z                                      Progression=VRAI                                                                                \
$Z                                      ChronometrerCommande=VRAI                                                                       \
$Z                                      R=$_____ImageTd.                                                                                \
$Z                                                                                                                      $formatI
$Z                                      # Le 20170727101017 furent introduits "Progression=" et "ChronometrerCommande="...            #