/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D ' U N N U A G E D E P O I N T S A S Y M E T R I E S P H E R I Q U E : */
/* */
/* */
/* */
/* # # # # */
/* # # # # # ### */
/* # # #### # ## # ## */
/* # # ## ## ######### # ## # */
/* # # # ######## ##### # # */
/* ## # # ########## # #### */
/* # ## ##### ############# ### #### # */
/* ### # # ################## ## ### */
/* # ## #### ###################### # ## */
/* # # ### ################## ## ##### # */
/* # ## ## ### ################### # # # */
/* ## # ####################### ### */
/* ###################### ##### ## # # */
/* # # # ######################## # # */
/* ######## ############# # ## # */
/* # # # #### ############ */
/* #### #### ### ###### ### # */
/* ### # ####### # ## # # # # */
/* ## ############ ## # */
/* # ## # */
/* */
/* */
/* */
/* Author of '$xrq/quarks.10$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1989??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
@define PRAGMA_CPP_____MODULE_NON_DERIVABLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define GRAINE \
1234 \
/* Graine initiale du generateur aleatoire. */
#define RAYON_EXTERIEUR_DU_NUAGE \
ADD2(EXP2(FRA4(dimX)),EXP2(FRA4(dimY))) \
/* Rayon limite exterieur du nuage de points, */
#define RAYON_INTERIEUR_DU_NUAGE \
ADD2(EXP2(FRA16(dimX)),EXP2(FRA16(dimY))) \
/* Rayon limite interieur du nuage de points. */
#define NIVEAU_DE_MARQUAGE_DU_NUAGE \
BLANC \
/* Niveau de marquage des points. */
#nodefine NOM_DE_L_IMAGE \
"images/tests/QUARKS.11"
#define NOM_DE_L_IMAGE \
nom_imageR
/* Nom de l'image a generer (mise "en conformite" le 20021103122148). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D ' U N N U A G E D E P O I N T S A S Y M E T R I E S P H E R I Q U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(Int,INIT(graine,GRAINE));
/* Graine variable de generation des nombres aleatoires. */
DEFV(pointI_2D,pointI_courant);
/* Point courant de l'image... */
DEFV(Float,INIT(rayon_exterieur_du_nuage,RAYON_EXTERIEUR_DU_NUAGE));
DEFV(Float,INIT(rayon_interieur_du_nuage,RAYON_INTERIEUR_DU_NUAGE));
/* Rayons limites du nuage de points. */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageR=""R=",nom_imageR);
)
);
CALi(Inoir(ImageR));
/* R : futur resultat, */
begin_image
Bblock
INITIALISATION_POINT_2D(pointI_courant,X,Y);
/* Mise en place du point courant. */
CALS(rdnI2D(ADRESSE(pointI_courant),UNDEF,RDN_INIT,rayon_interieur_du_nuage,rayon_exterieur_du_nuage));
/* Initialisation du generateur aleatoire. */
Test(IFGE(rdnI2D(ADRESSE(pointI_courant),graine,RDN_GENERE,FLOT__ARGUMENT_ABSENT,FLOT__ARGUMENT_ABSENT)
,FLOT(disI2D(Xcentre,Ycentre,X,Y))
)
)
Bblock
store_point(NIVEAU_DE_MARQUAGE_DU_NUAGE
,ImageR
,X,Y
,FVARIABLE
);
Eblock
ATes
Bblock
Eblock
ETes
Eblock
end_image
CALi(Iupdate_image(NOM_DE_L_IMAGE,ImageR));
RETU_Commande;
Eblock
ECommande