#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   L I S T E   D E   V O I S I N S                                                           #
#         T R I D I M E N S I O N N E L S   A L E A T O I R E S   H E T E R O G E N E S   F R A C T A L S  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARB.91.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150811091754).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Format                   "Suq"
$Z                                      # Parametre introduit le 20150929102945...                                                    #

$Z        SETParam            _____FGraine                  1789

$Z        setParam            _____NiveauNoeuds             $BLANC

$Z        setParam            _____FMailleX                 0.25

$Z        setParam            _____FMailleY                 0.25

$Z        setParam            _____FMailleZ                 0.25

$Z        setParam            _____FIterations              4

$Z        setParam            _____FPalette                 $xiP/gris.41

$Z        SETParam            _____RGraine                  1947

$Z        SETParam            _____RFacteur                 0.02

$Z        setParam            _____FractalPara              "$K_VIDE"
$Z                                      # Parametre introduit le 20201024113102...                                                    #

$Z                  SformatI
#20150929102945____:$Z                  Suq                                                                                           #
$Z                  eval                "$_____Format"

$c                  #define   N0        _____TriPremiere
$c                  #define   N         (_____TriPremiere+_____TriZmax-_____TriZmin)
$c
$c                  #define   OZ        0.0
$c                  #define   EZ        1.0
$c
$c                  #define   GRAINE    _____RGraine
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0);
$c
$c                                      printf("$xci/fract_3D.01$X
$c                                                          graine=$_____FGraine
$c                                                          mx=$_____FMailleX my=$_____FMailleY mz=$_____FMailleZ
$c                                                          iterations=$_____FIterations
$c                                                          Z=%.16f
$c                                                          $_____FractalPara
$c                                                                                                  $formatI                      |
$c                                              $xci/substitue$X
$c                                                          p=$_____FPalette
$c                                                          substitution=L_SUBSTITUTION_ROUGE
$c                                                                                                  $formatI                      |
$c                                              $xci/random.03$X
$c                                                          graine=%d
$c                                                          niveau_du_fond=$NOIR
$c                                                          niveau_de_marquage=$_____NiveauNoeuds
$c                                                          facteur=$_____RFacteur
$c                                                          R=$_____ImageN.%04d
$c                                                                                                  $formatI\n"
$c                                            ,Z
$c                                            ,((n-N0+1)*GRAINE)
$c                                            ,n
$c                                             );
$c                                      }
$c
$c                            }

$Z                  RformatI