#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   S T R U C T U R E   F R A C T A L E   T R I D I M E N S I O N N E L L E  :                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRA3.Z2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20120318165900).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setenvParam         _____MailleX                  0.5
$Z                                      # Parametre introduit le 20120319143825...                                                    #

$Z        setenvParam         _____MailleY                  0.5
$Z                                      # Parametre introduit le 20120319143825...                                                    #

$Z        setenvParam         _____MailleZ                  0.5
$Z                                      # Parametre introduit le 20120319143825...                                                    #

$Z        setenvParam         _____Iterations               `GetParam $xci/fract_3D.01$X iterations`

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   OZ        0.0
$c                  #define   EZ        1.0
$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("echo      %c$xci/fract_3D.01$X
$c                                                                    mx=$_____MailleX my=$_____MailleY mz=$_____MailleZ
$c                                                                    Z=%.16f
$c                                                                    iterations=$_____Iterations
$c                                                                    standard=FAUX
$c                                                                                                                                |
$c                                                          $xci/normalise.01$X
$c                                                                    R=$_____ImageT3.%04d
$c                                                                                        $formatI%c
$c                                                                                                  >> $FFrAcTaL\n"
$c                                            ,'\''
$c                                            ,Z
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }