/*************************************************************************************************************************************/
/* */
/* T R A C E D U S I G L E D U " C M A P " ( E N N O I R E T B L A N C ) : */
/* */
/* */
/* Author of '$xrd/CMAP.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1991??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define COTE \
DEUX \
/* Definition du nombre d'unites sur un cote. */
#define G1 \
Bblock \
DO(COTE \
,BLOC(g1;) \
); \
Eblock
#define G2 \
Bblock \
DO(COTE \
,BLOC(g2;) \
); \
Eblock
#define G3 \
Bblock \
DO(COTE \
,BLOC(g3;) \
); \
Eblock
#define G4 \
Bblock \
DO(COTE \
,BLOC(g4;) \
); \
Eblock
#define G5 \
Bblock \
DO(COTE \
,BLOC(g5;) \
); \
Eblock
#define G6 \
Bblock \
DO(COTE \
,BLOC(g6;) \
); \
Eblock
#define GENERE_SIGLE(taux_de_depth_cueing) \
Bblock \
DEFV(Float,INIT(Z_minimum,FLOT__UNDEF)); \
DEFV(Float,INIT(Z_maximum,FLOT__UNDEF)); \
/* Pour le "depth-cueing". */ \
CALS(Iinit_Z_Buffer()); \
SET_ANTI_ALIASING(VRAI); \
SET_COULEURS(NOIR,BLANC); \
INITIALISATION_SYSTEMATIQUE_TRANSFORMATION; \
\
SK(8); \
/* Definition de l'echelle globale. */ \
SX(8); \
/* Definition de l'echelle sur l'axe des 'X'. */ \
SY(8); \
/* Definition de l'echelle sur l'axe des 'Y'. */ \
SZ(8); \
/* Definition de l'echelle sur l'axe des 'Z'. */ \
PUSH_ANTI_ALIASING; \
/* Juste pour valider le couple (PUSH,PULL). */ \
\
CALS(FgPO());gA;DO(4,BLOC(g1;g2;));g5;gA; \
/* On se place au centre de l'ecran. */ \
TRX(FRA4(PI)); \
TRY(FRA4(PI)); \
/* Positionnement du cube dans l'espace. */ \
PULL_ANTI_ALIASING; \
/* Juste pour valider le couple (PUSH,PULL). */ \
SK(12); \
/* Changement de l'echelle globale. */ \
DO(MOIT(COTE) \
,BLOC(g4;) \
); \
/* Afin de placer le centre du cube au centre de l'ecran... */ \
\
CALS(FgMIC()); \
EGAL(Z_maximum,ASD1(vecteurs_____cursor_3D,z)); \
G6; \
EGAL(Z_minimum,ASD1(vecteurs_____cursor_3D,z)); \
SET_DEPTH_CUEING(taux_de_depth_cueing,Z_minimum,Z_maximum); \
/* Pour le "depth-cueing". */ \
CALS(FgMOC()); \
gA;G1;gA;G2;gB;G3;gB;G4;gB; \
/* Premiere face du cube. */ \
gA;G6;gB; \
/* Premiere arete. */ \
gA;G1;gA;G2;gA;G3;gB;G4;gB; \
/* Deuxieme face du cube. */ \
G1;gA;CALS(FgMIC());G5;gA;CALS(FgMOC()); \
/* Deuxieme arete. */ \
G2;gA;CALS(FgMIC());G5;gB;CALS(FgMOC()); \
/* Troisieme arete. */ \
G3;gA;CALS(FgMIC());G5;gB;CALS(FgMOC()); \
/* Quatrieme arete. */ \
G4;gA;CALS(FgMIC());G1;G2;gB;G4;G5;gB;CALS(FgMOC()); \
/* Et enfin trace des deux pseudo-diagonales. */ \
G5;gA; \
\
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define TAUX_DE_DEPTH_CUEING \
DEPTH_CUEING_MOYEN \
/* Definition du taux de depth-cueing... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T R A C E D U S I G L E D U " C M A P " : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(Float,INIT(taux_de_depth_cueing,DEPTH_CUEING_MOYEN));
/* Definition du taux de depth-cueing... */
/*..............................................................................................................................*/
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("SX_SY_SZ_____compatibilite_20070416=""compatibilite_20070416="
,SX_SY_SZ_____compatibilite_20070416
);
/* Parametre introduit le 20070416161322... */
GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420="
,Ipoint_anti_aliase_segment_____compatibilite_20110420
);
/* Parametre introduit le 20110420145027... */
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_F("taux=""depth-cueing=",taux_de_depth_cueing);
)
);
CALi(Inoir(ImageR));
/* Initialisation de l'image Resultat. */
CALS(FgERASE());
/* Clear... */
GENERE_SIGLE(taux_de_depth_cueing);
/* Generation du sigle... */
CALS(Imove(ImageR,ImageG));
CALi(Iupdate_image(nom_imageR,ImageR));
RETU_Commande;
Eblock
ECommande