/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   R E L A T I V E S   A U   R E C U I T   S I M U L E  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/recuit_2D.16$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N   D E   M E M O R I S A T I O N   D U   P O I N T   C O U R A N T  :                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrk/attractor.16.I"

#TestADef RAYON_DE_VISUALISATION                                                                                                        \
                    FRA2(FRA10(FU))
DEFV(Local,DEFV(Float,INIT(rayon_de_visualisation,RAYON_DE_VISUALISATION)));
                                        /* Rayon du disque materialisant une iteration.                                              */
#TestADef GROSSISSEMENT_DU_RAYON_DE_VISUALISATION_DES_POINTS                                                                            \
                    FDEUX
DEFV(Local,DEFV(Float,INIT(grossissement_du_rayon_de_visualisation_des_points,GROSSISSEMENT_DU_RAYON_DE_VISUALISATION_DES_POINTS)));
                                        /* Facteur permettant de materialiser differemment les points du reseau et les connexions.   */

BFonctionI

DEFV(Local,DEFV(FonctionI,memorisation_1_point_08(AXf,AYf,AZf,AdXf,AdYf,AdZf,numero_de_l_iteration_courante,rayon_de_visualisation)))
DEFV(Argument,DEFV(Float,AXf));
DEFV(Argument,DEFV(Float,AYf));
DEFV(Argument,DEFV(Float,AZf));
                                        /* Definition de la position {x,y,z} de l'iteration courante.                                */
DEFV(Argument,DEFV(Float,AdXf));
DEFV(Argument,DEFV(Float,AdYf));
DEFV(Argument,DEFV(Float,AdZf));
                                        /* Definition des differentielles {dx,dy,dz} de la position de l'iteration courante.         */
DEFV(Argument,DEFV(Int,numero_de_l_iteration_courante));
                                        /* Numero de l'iteration courante afin d'attenuer eventuellement la luminance des points     */
                                        /* materialisant chaque iteration en fonction de leur numero (les premieres iterations etant */
                                        /* plus sombres, et les dernieres etant plus lumineuses).                                    */
DEFV(Argument,DEFV(Float,rayon_de_visualisation));
                                        /* Rayon de visualisation du point courant. On notera que le nom de cet argument est         */
                                        /* identique au nom de l'un des parametres du programme, et ce afin que la procedure         */
                                        /* 'MEMORISATION_DU_POINT_COURANT(...)' utilise l'argument de cette fonction et non pas      */
                                        /* le parametre du programme, afin de pouvoir distinguer visuellement les points du reseau   */
                                        /* et les connexions...                                                                      */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrk/attractor.15.I"

     INIT_ERROR;
     /*..............................................................................................................................*/
     MEMORISATION_DU_POINT_COURANT(X_DERIVEE_DANS_01(AdXf)
                                  ,Y_DERIVEE_DANS_01(AdYf)
                                  ,Z_DERIVEE_DANS_01(AdZf)
                                   );
                                        /* Memorisation du point courant en Noir et Blanc ou en Couleurs, mais uniquement s'il est   */
                                        /* visible en fonction des conditions de visualisation...                                    */
     RETU_ERROR;
     Eblock

EFonctionI