/*************************************************************************************************************************************/
/* */
/* T R A C E D ' U N " R U B E L H I Z B " */
/* ( A P P E L E P A R E R R E U R " S C E A U D E S A L O M O N " ) : */
/* */
/* */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/* * * * ** * * * * * ** * */
/* * * * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * */
/* * * * * * * * * * * * * * * * */
/* * * * * ** * * * * * ** */
/* * * * * * * * * * * * * * * * * * * * * * * */
/* */
/* */
/* ATTENTION : */
/* */
/* Je decouvre le 20231021105645 une erreur */
/* incroybale. En effet, il ne s'agit pas du */
/* "Sceau de Salomon", mais du "Rub El Hizb" */
/* (symbole islamique de l'alphabet arabe). */
/* En fait, le "Sceau de Salomon" est synonyme */
/* de "Etoile de David"... */
/* */
/* */
/* ................................................................ */
/* ................................................................ */
/* ................................................................ */
/* ...............................:::.............................. */
/* .............................:-+++-:............................ */
/* ...........................:---:::---:.......................... */
/* .........................:-++-:...:-++-:........................ */
/* ...............-o*oo+oo*####*ooooooo*####*ooooo*o-.............. */
/* ...............+o+:..:+++-:...........:-+++:..:+o+.............. */
/* ...............+o-..:--:.................:--:..-o+.............. */
/* ...............-oo+---.....................---+oo-.............. */
/* ...............o#*+:........::.....::........:+*#o.............. */
/* ..............-*#o:...........................:o#*-............. */
/* ...........:--+**+......................:......+**+--:.......... */
/* .........:-+-::+o-.............................-o+::-+-:........ */
/* ........:-++:..-o+.............................+o-..:++-:....... */
/* .........:-+-::-o-.............................-o+::-+-:........ */
/* ...........:--+o*+......:...............:......+**+--:.......... */
/* ..............-*#o............................:o#*-............. */
/* ...............o##+:........::.....:.........:+*#o.............. */
/* ...............-oo+--:.....................---+oo-.............. */
/* ...............++-..:--:.................:--:..-o+.............. */
/* ...............+o+:..:+++-............:-+++:..:+o+.............. */
/* ...............-o*oo+oo*###**ooooooo*####*ooooo*o-.............. */
/* .........................:-++-:...:-++-:........................ */
/* ...........................:---:::---:.......................... */
/* .............................:-+++-:............................ */
/* ...............................:::.............................. */
/* ................................................................ */
/* ................................................................ */
/* ................................................................ */
/* ................................................................ */
/* */
/* */
/* Author of '$xrd/Salomon.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1993??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 ECHELLE_COMMUNE \
HUIT \
/* Definition de l'echelle commune aux trois axes... */
#define GENERE_SCEAU_DE_SALOMON \
Bblock \
SET_ANTI_ALIASING(VRAI); \
SET_COULEURS(NOIR,BLANC); \
\
CALS(FgMIT()); \
INITIALISATION_SYSTEMATIQUE_TRANSFORMATION; \
/* Reinitialisation provisoire des transformations... */ \
\
SKH(ECHELLE_COMMUNE); \
/* Definition de l'echelle globale. */ \
SXH(ECHELLE_COMMUNE); \
/* Definition de l'echelle sur l'axe des 'X'. */ \
SYH(ECHELLE_COMMUNE); \
/* Definition de l'echelle sur l'axe des 'Y'. */ \
SZH(ECHELLE_COMMUNE); \
/* Definition de l'echelle sur l'axe des 'Z'. */ \
PUSH_ANTI_ALIASING; \
/* Juste pour valider le couple (PUSH,PULL). */ \
\
SET_CURSOR(_____cNORMALISE_OX(INTE(DIVI(FXcentre_____,super_echelle_OX))) \
,_____cNORMALISE_OY(INTE(DIVI(FYcentre_____,super_echelle_OY))) \
,_____cNORMALISE_OZ(Zorigine) \
); \
/* On se place au centre de l'ecran. */ \
PULL_ANTI_ALIASING; \
/* Juste pour valider le couple (PUSH,PULL). */ \
SKH(echelle_globale); \
/* Changement de l'echelle globale. */ \
\
CALS(FgMOT()); \
/* Restauration des transformations... */ \
\
DO(MOIT(COTE) \
,BLOC(g3;g4;) \
); \
/* Afin de placer le centre du carre au centre de l'ecran... */ \
gA;G1;gB;G2;gB;G3;gB;G4;gB; \
/* Trace du carre de base... */ \
\
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define ECHELLE_GLOBALE \
FLOT(SEIZE) \
/* Echelle globale introduite le 20231019151006, la valeur par defaut garantissant la */ \
/* compatibilite anterieure... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T R A C E D ' U N S C E A U D E S A L O M O N : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
DEFV(Float,INIT(echelle_globale,ECHELLE_GLOBALE));
/* Echelle globale... */
/*..............................................................................................................................*/
INITIALISATION_SYSTEMATIQUE_TRANSFORMATION;
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("SX_SY_SZ_____compatibilite_20070416=""compatibilite_20070416="
,SX_SY_SZ_____compatibilite_20070416
);
/* Parametre introduit le 20070416161512... */
GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420="
,Ipoint_anti_aliase_segment_____compatibilite_20110420
);
/* Parametre introduit le 20110420145220... */
GET_ARGUMENT_C("imageR=""R=",nom_imageR);
GET_ARGUMENT_F("echelle=",echelle_globale);
/* Parametre introduit le 20231019145428... */
GET_ARGUMENT_L("anti_aliasing=""aa=",vecteurs_____etat_anti_aliasing);
GET_ARGUMENT_L("editer_vecteurs=""ev=",IFsegment_____editer_le_vecteur_bidimensionnel);
GET_ARGUMENT_L("trier_vecteurs=""tv=",IFsegment_____trier_puis_editer_le_vecteur_bidimensionnel);
/* Parametres introduits le 20231019145428... */
)
);
SUPER_ECHELLE_PETIT_CARRE;
/* Choix du format des figures obtenues : */
/* */
/* SUPER_ECHELLE_RECTANGULAIRE; */
/* SUPER_ECHELLE_PETIT_CARRE; */
/* SUPER_ECHELLE_GRAND_CARRE; */
/* */
CALi(Inoir(ImageR));
/* Initialisation de l'image Resultat. */
CALS(FgERASE());
/* Clear... */
TRZ(FZERO);
GENERE_SCEAU_DE_SALOMON;
/* Generation de la premiere partie du Sceau de Salomon. */
TRZ(FRA4(PI));
GENERE_SCEAU_DE_SALOMON;
/* Generation de la premiere partie du Sceau de Salomon. */
CALS(Imove(ImageR,ImageG));
CALi(Iupdate_image(nom_imageR,ImageR));
RETU_Commande;
Eblock
ECommande