#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   T O R E   F R A C T A L E                                                                   #
#         P A R   L A   M E T H O D E   D E S   P R O J E C T O R S  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROJ.V1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20061003154928).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Rayon                    1.0

$Z                  setParam            _____Zoom                     0.7

$Z                  setParam            _____RotationX                0

$Z                  setParam            _____RotationY                0

$Z                  setParam            _____RotationZ                0

$Z                  setParam            _____Tinterpoler              `GetParam $xrs/project2D.11$X tinterpoler`
$Z                                      # Parametre introduit le 20191109101651...                                                    #

$Z                  setParam            _____Tlineaire                `GetParam $xrs/project2D.11$X tlineaire`
$Z                                      # Parametre introduit le 20191109101651...                                                    #

$Z                  setParam            _____Arguments                "$K_VIDE"

$Z                  setParam            _____Redirection              "$K_VIDE"
$Z                                      # Parametre introduit le 20191016134233...                                                    #

$Z                  if                  ($?_____imagesRFx == $EXIST) then
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          A=$xTV/Fx                                                                   \
$Z                                                          standard=FAUX                                                               \
$Z                                                          zero=FAUX                                                                   \
$Z                                                          message_extrema=FAUX                                                        \
$Z                                                          R=$_____imagesRFx                                                           \
$Z                                                                                                                      $formatI
$Z                                      # L'indicateur "message_extrema=FAUX" a ete introduit le 20191108150051, suite en particulier #
$Z                                      # a 'v $xiii/aleat.2$vv$FON 20191108135531'...                                                #
$Z                  else
$Z                  endif

$Z                  if                  ($?_____imagesRFy == $EXIST) then
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          A=$xTV/Fy                                                                   \
$Z                                                          standard=FAUX                                                               \
$Z                                                          zero=FAUX                                                                   \
$Z                                                          message_extrema=FAUX                                                        \
$Z                                                          R=$_____imagesRFy                                                           \
$Z                                                                                                                      $formatI
$Z                                      # L'indicateur "message_extrema=FAUX" a ete introduit le 20191108150051, suite en particulier #
$Z                                      # a 'v $xiii/aleat.2$vv$FON 20191108135531'...                                                #
$Z                  else
$Z                  endif

$Z                  if                  ($?_____imagesRFz == $EXIST) then
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          A=$xTV/Fz                                                                   \
$Z                                                          standard=FAUX                                                               \
$Z                                                          zero=FAUX                                                                   \
$Z                                                          message_extrema=FAUX                                                        \
$Z                                                          R=$_____imagesRFz                                                           \
$Z                                                                                                                      $formatI
$Z                                      # L'indicateur "message_extrema=FAUX" a ete introduit le 20191108150051, suite en particulier #
$Z                                      # a 'v $xiii/aleat.2$vv$FON 20191108135531'...                                                #
$Z                  else
$Z                  endif

$Z                  if                  ($?_____imagesRfractal == $EXIST) then
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          A=$xTV/FRACTAL                                                              \
$Z                                                          standard=FAUX                                                               \
$Z                                                          zero=FAUX                                                                   \
$Z                                                          message_extrema=FAUX                                                        \
$Z                                                          R=$_____imagesRfractal                                                      \
$Z                                                                                                                      $formatI
$Z                                      # L'indicateur "message_extrema=FAUX" a ete introduit le 20191108150051, suite en particulier #
$Z                                      # a 'v $xiii/aleat.2$vv$FON 20191108135531'...                                                #
$Z                  else
$Z                  endif

$Z                  set                 Parametres="$K_VIDE"
$Z                  set                 Parametres="$Parametres"" np=1"
$Z                  set                 Parametres="$Parametres"" brume=FAUX"
$Z                  set                 Parametres="$Parametres"" pu=0.04 pv=0.02"
$Z                  set                 Parametres="$Parametres"" eu=20   ev=20"
$Z                  set                 Parametres="$Parametres"" dpu=40  dpv=40"
$Z                  set                 Parametres="$Parametres"" ZOOM=$_____Zoom"
$Z                  set                 Parametres="$Parametres"" ROTATION_OX=$_____RotationX"
$Z                  set                 Parametres="$Parametres"" ROTATION_OY=$_____RotationY"
$Z                  set                 Parametres="$Parametres"" ROTATION_OZ=$_____RotationZ"
$Z                  set                 Parametres="$Parametres"" Lz=100"
$Z                  set                 Parametres="$Parametres"" rayon_de_visualisation=0.015"
$Z                  set                 Parametres="$Parametres"" N_AU_CARRE=VRAI"
$Z                  set                 Parametres="$Parametres"" edc=VRAI"

$Z                  set                 Parametres="$Parametres"" tinterpoler=$_____Tinterpoler"
$Z                  set                 Parametres="$Parametres"" tlineaire=$_____Tlineaire"
$Z                                      # Le controle des interpolations a ete introduit le 20191109101651 lors de la mise au         #
$Z                                      # point de 'v $xiirs/PRK.F8.21' et de 'v $xiirs/PRK.F9.21' pour lesquelles, par defaut,       #
$Z                                      # les quatre bords etaient incorrects...                                                      #

$Z                  eval      $xrs/project2D.11$X                                                                                       \
$Z                                                aFx=$_____Rayon Fx=$xTV/Fx                                                            \
$Z                                                aFy=$_____Rayon Fy=$xTV/Fy                                                            \
$Z                                                aFz=$_____Rayon Fz=$xTV/Fz                                                            \
$Z                                                mu=0 Mu=1.0                                                                           \
$Z                                                mv=0 Mv=1.0                                                                           \
$Z                                                $Parametres                                                                           \
$Z                                                chiffres=0                                                                            \
$Z                                                R=$_____imagesR                                                                       \
$Z                                                $_____Arguments                                                                       \
$Z                                                                                                  $formatI                            \
$Z                                                                                                            $_____Redirection
$Z                                      # Trace de la surface fractale...                                                             #
$Z                                      #                                                                                             #
$Z                                      # Le 'eval' a ete introduit le 20191016134233 au cas ou il '$_____Redirection' est non vide.  #

#20191017092638____:$Z                  $DELETE             $xTV/FRACTAL.1                                                            #
#20191017092638____:$Z                  $DELETE             $xTV/FRACTAL.2                                                            #
#20191017092638____:$Z                  $DELETE             $xTV/FRACTAL                                                              #
#20191017092638____:$Z                  $DELETE             $xTV/PROJECTION.*                                                         #
#20191017092638____:$Z                  $DELETE             $xTV/Fx                                                                   #
#20191017092638____:$Z                  $DELETE             $xTV/Fy                                                                   #
#20191017092638____:$Z                  $DELETE             $xTV/Fz                                                                   #