#######################################################################################################################################
#                                                                                                                                     #
#         D I F F U S I O N   T R I D I M E N S I O N N E L L E   " D O U C E "                                                       #
#         ( D E F I N I T I O N   D E S   P A R A M E T R E S )  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.DIFZ.11.0.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20070604130814).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____CoefficientA             0

$Z                  setParam            _____CoefficientB             +1

$Z                  SETParam            _____Premiere                 1

$Z                  SETParam            _____Derniere                 100

$Z                  SETParam            _____Z0                       0.0

$Z                  SETParam            _____ZN                       1.0

$Z                  SETParam            _____Graine                   1111

$Z                  SETParam            _____IGraine                  17

$Z                  setParam            _____Facteur                  0.001

$Z                  SETParam            _____Editer                   $NEXIST

$Z                  setParam            _____EspaceTore               FAUX

$Z                  setParam            _____EspaceToreX              VRAI

$Z                  setParam            _____EspaceToreY              VRAI

$Z                  setParam            _____EspaceToreZ              VRAI

$Z                  setParam            _____Rcarte                   FAUX

$Z                  setParam            _____GCcarte                  FAUX

$Z                  if                  ($?_____SGDcarte == $NEXIST) then
$Z                                      set                 _____IGDcarte=FAUX
$Z                                      set                 _____SGDcarte=`GetParam $xrv/densite.01$X seuil_grandes_distances`
$Z                  else
$Z                                      set                 _____IGDcarte=VRAI
$Z                  endif

$Z                  setParam            _____Scarte                   `GetParam $xrv/densite.01$X maximum`

$Z                  setParam            _____FDcarte                  1

$Z                  setParam            _____FEcarte                  2000

$Z                  setParam            _____Kcarte                   $NEXIST

$Z                  setParam            _____Renormaliser             $EXIST

$Z                  setParam            _____Rayon                    0.010

$Z                  setParam            _____Zoom                     0.9

$Z                  setParam            _____RotationX                0

$Z                  setParam            _____RotationY                0

$Z                  setParam            _____RotationZ                0

$Z                  setParam            _____DepthCueing              1.0

$Z                  setParam            _____NAuCarre                 FAUX

$Z                  setParam            _____PaletteD                 $xiP/trou_noir.A4
$Z                                      # Parametre introduit le 20070605085856...                                                    #

$Z                  set       _____imagesWR=$xTV/RANDOM
$Z                  set       _____imagesWW=$xTV/DENSITE.1

#20070604125911____:$Z                  FileTmpB  FLiStE_XY                                                                           #
#20070605085223____:$Z                  FileTmpB  FLiStE_XY $K_QD$K_VIDE$K_QD $K_QD$K_VIDE$K_QD $xTV LISTE_POINTS                     #
$Z                  set       FLiStE_XY=$xTV/LISTE_POINTS
$Z                                      # ATTENTION, je note le 20070703085052 qu'il ne faut surtout pas faire ici :                  #
$Z                                      #                                                                                             #
$Z                                      #                   $DELETE   $FLiStE_XY.*                                      >& $nul       #
$Z                                      #                                                                                             #
$Z                                      # car, en effet, nous sommes ici dans une branche executee en parallele par plusieurs         #
$Z                                      # MACHINEs, or il se peut tres bien que sur l'une d'entre-elles, les fichiers '$FLiStE_XY.*'  #
$Z                                      # soit deja en cours de generation...                                                         #

$Z                  set       FDLiStE_XY=$xTV/LISTE_POINTS_DENSITE
$Z                                      # La liste '$FDLiStE_XY' correspond a '$FLiStE_XY' apres une eventuelle rotation avant le     #
$Z                                      # calcul de la densite. Elle fut introduit le 20070702130838...                               #
$Z                                      #                                                                                             #
$Z                                      # ATTENTION, je note le 20070703085052 qu'il ne faut surtout pas faire ici :                  #
$Z                                      #                                                                                             #
$Z                                      #                   $DELETE   $FDLiStE_XY.*                                     >& $nul       #
$Z                                      #                                                                                             #
$Z                                      # car, en effet, nous sommes ici dans une branche executee en parallele par plusieurs         #
$Z                                      # MACHINEs, or il se peut tres bien que sur l'une d'entre-elles, les fichiers '$FDLiStE_XY.*' #
$Z                                      # soit deja en cours de generation...                                                         #