_______________________________________________________________________________________________________________________________________
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E L A B I B L I O T H E Q U E ' 3 ' : */
/* */
/* */
/* Definition : */
/* */
/* Dans ce fichier, on trouvera */
/* la bibliotheque des objets */
/* impossibles et que l'on assemble */
/* matriciellement. */
/* */
/* On notera que chaque element */
/* est inscrit dans un carre 6x6 */
/* et son trace commence en bas et */
/* a gauche... */
/* */
/* */
/* Author of '$xiii/alphabet.3$FON' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19880000000000). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A R Q U A G E D ' U N P O I N T I N T E R I E U R A U N E " F A C E T T E " : */
/* */
/*************************************************************************************************************************************/
#define MARQUE_POINT_INTERIEUR(contexte,deplacement) \
Bblock \
CALS(FgMIC()); \
/* Sauvegarde du point courant. */ \
CALS(FgMIX()); \
/* Sauvegarde de l'echelle sur l'axe 'OX', */ \
CALS(FgMIY()); \
/* Sauvegarde de l'echelle sur l'axe 'OY', */ \
CALS(FgMIZ()); \
/* Sauvegarde de l'echelle sur l'axe 'OZ'. */ \
CALS(FgMIK()); \
/* Sauvegarde du facteur d'echelle. */ \
SK(DOUB(UNITE)); \
/* Afin de diviser par 2... */ \
CALS(FgXDIVI()); \
/* Pour faire des "demi-deplacements", */ \
CALS(FgYDIVI()); \
/* Pour faire des "demi-deplacements", */ \
CALS(FgZDIVI()); \
/* Pour faire des "demi-deplacements". */ \
CALS(FgMOK()); \
/* Restauration du facteur d'echelle. */ \
BLOC(deplacement;); \
/* Et on se deplace d'un demi-pas dans la direction argument... */ \
WCG(contexte); \
/* Et on marque le point courant... */ \
CALS(FgMOZ()); \
/* Restauration de l'echelle sur l'axe 'OZ', */ \
CALS(FgMOY()); \
/* Restauration de l'echelle sur l'axe 'OY', */ \
CALS(FgMOX()); \
/* Restauration de l'echelle sur l'axe 'OX'. */ \
CALS(FgMOC()); \
/* Restauration du point courant. */ \
Eblock \
/* Cette fonction permet de marquer un point ; en general ce point est */ \
/* considere comme etant un point interieur d'un contour "ouvert". */ \
/* */ \
/* On notera le 20190711110459 dans 'v $xri/escalier.01$K REMPLIR' une facon d'exploiter */ \
/* les contextes graphiques pour remplir des contours, meme si cela n'a pas vraiment de */ \
/* rapport avec ceux qui sont ici definis et qui, me semble-t-il, ne sont pas exploites */ \
/* ailleurs... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O N T E X T E D E M A R Q U A G E D E D E F I N I T I O N D ' U N E " F A C E T T E " : */
/* */
/*************************************************************************************************************************************/
/* ATTENTION : le 20061115095511 dans le cadre de la "campagne" d'unification des variables */
/* globales (voir le directory '$xau'...), les contextes graphiques suivants ont change de */
/* nom et sont passes de 'contour_NN' a 'alpha3_____cNN'. On notera que 'alpha3_____cNN' */
/* a ete choisi aussi cours (et a la place de 'alpha3_____contour_NN') afin de ne pas avoir */
/* a toucher a la mise en page de tres nombreuses lignes a suivre qui, etant devenues trop */
/* longues, auraient du etre reformatees... */
DEFV(Common,DEFV(Gcontexte,alpha3_____c01));
/* Interieur numero '01', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c02));
/* Interieur numero '02', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c03));
/* Interieur numero '03', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c04));
/* Interieur numero '04', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c05));
/* Interieur numero '05', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c06));
/* Interieur numero '06', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c07));
/* Interieur numero '07', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c08));
/* Interieur numero '08', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c09));
/* Interieur numero '09' (introduit le 20110422134746), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c10));
/* Interieur numero '10' (introduit le 20110422134746), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c11));
/* Interieur numero '11', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c12));
/* Interieur numero '12', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c13));
/* Interieur numero '13', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c14));
/* Interieur numero '14', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c15));
/* Interieur numero '15', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c16));
/* Interieur numero '16', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c17));
/* Interieur numero '17', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c18));
/* Interieur numero '18', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c19));
/* Interieur numero '19' (introduit le 20110422135223), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c20));
/* Interieur numero '20' (introduit le 20110422135223), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c21));
/* Interieur numero '21', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c22));
/* Interieur numero '22', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c23));
/* Interieur numero '23', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c24));
/* Interieur numero '24', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c25));
/* Interieur numero '25', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c26));
/* Interieur numero '26', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c27));
/* Interieur numero '27', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c28));
/* Interieur numero '28', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c29));
/* Interieur numero '29' (introduit le 20110422135223), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c30));
/* Interieur numero '30' (introduit le 20110422135223), */
DEFV(Common,DEFV(Gcontexte,alpha3_____c31));
/* Interieur numero '31', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c32));
/* Interieur numero '32', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c33));
/* Interieur numero '33', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c34));
/* Interieur numero '34', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c35));
/* Interieur numero '35', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c36));
/* Interieur numero '36', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c37));
/* Interieur numero '37', */
DEFV(Common,DEFV(Gcontexte,alpha3_____c38));
/* Interieur numero '38'. */
/* ATTENTION : le 20061115095511 dans le cadre de la "campagne" d'unification des variables */
/* globales (voir le directory '$xau'...), les contextes graphiques precedents ont change de */
/* nom et sont passes de 'contour_NN' a 'alpha3_____cNN'. On notera que 'alpha3_____cNN' */
/* a ete choisi aussi cours (et a la place de 'alpha3_____contour_NN') afin de ne pas avoir */
/* a toucher a la mise en page de tres nombreuses lignes a suivre qui, etant devenues trop */
/* longues, auraient du etre reformatees... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* * * 03 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * ************ */
/* * * ** */
/* 02 * *** 05 */
/* *********** ***************** */
/* */
/* */
/* *********** ***************** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 01 * 04 * */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_01(facette_01,facette_02,facette_03,facette_04,facette_05) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g2;g2;gB; \
g3;g3;gB; \
g2;gA;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g1;g1;gB; \
g2;g2;g2;gB; \
g1;gA;MARQUE_POINT_INTERIEUR(facette_03,g1); \
g4;g4;g4;gB; \
g1;g1;g1;gB; \
g4;gA; \
g3;g3;g3;gB; \
g4;g4;gB; \
g1;gA;MARQUE_POINT_INTERIEUR(facette_04,g3); \
g2;g2;gB; \
g2;g3;gA; \
g1;g2;gB; \
g2;g2;gB; \
g4;g4;gA; \
g1;g1;gB;MARQUE_POINT_INTERIEUR(facette_05,g4); \
g3;g3;g3;g3;gA; \
g3;g3;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * *********** */
/* * * * */
/* 05 * * * 04 */
/* *********** * *********** */
/* * * * */
/* 06 * * * 03 */
/* *********** * *********** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 01 * 02 * */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_02(facette_01,facette_02,facette_03,facette_04,facette_05,facette_06) \
Bblock \
CALS(FgMIC()); \
g1;g1; \
gA;CALL(SEQUENCE_M2);gB; \
CALL(SEQUENCE_M4);g1;MARQUE_POINT_INTERIEUR(facette_01,g3); \
gA;CALL(SEQUENCE_M2);gB; \
CALL(SEQUENCE_M4);g1;MARQUE_POINT_INTERIEUR(facette_02,g3); \
gA;CALL(SEQUENCE_M2);gB; \
CALL(SEQUENCE_M4);g1; \
g1;g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_03,g2); \
g3;g3;gB; \
g2;gA; \
g1;g1;gB;MARQUE_POINT_INTERIEUR(facette_04,g2); \
g2;gA; \
g3;g3;gB; \
g3;g3;gA; \
g3;g3;gB;MARQUE_POINT_INTERIEUR(facette_05,g4); \
g4;gA;MARQUE_POINT_INTERIEUR(facette_06,g4); \
g1;g1;gB; \
g4;gA; \
g3;g3;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ******** 03*** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* * *** *** ** */
/* 04*** *** *** */
/* *** *** *** 02 */
/* * *** *** *** */
/* **** *** *** * */
/* ** *** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ******** 01*** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_03(facette_01,facette_02,facette_03,facette_04) \
Bblock \
CALS(FgMIC()); \
g1;g1;g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g3); \
g1;g1;g2;g2;gB; \
g2;gB;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g3;g3;g3;g4;g4;g4;gB; \
g3;gB; \
g1;g1;g1;g1;g2;g2;g2;g2;gB; \
g2;g2;g3;g3;gA;MARQUE_POINT_INTERIEUR(facette_03,g3); \
g3;g3;g3;g3;g4;g4;g4;g4;gB; \
g2;gB;MARQUE_POINT_INTERIEUR(facette_04,g2); \
g1;g1;g1;g2;g2;g2;gB; \
g3;gB; \
g3;g3;g4;g4;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ******** * */
/* *** *** * */
/* *** ***02* * */
/* *** *** *** * */
/* *** *** *** * * */
/* * *** *** * * ** */
/* 01*** **** 03 * * *** */
/* *** *** * * * *** 04 */
/* * *** * * * *** *** */
/* **** * * **** *** * */
/* ** * * ** *** * */
/* * * * *** *** */
/* * * *** *** */
/* * * * *** */
/* * * *** */
/* ****** *** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_04(facette_01,facette_02,facette_03,facette_04) \
Bblock \
CALS(FgMIC()); \
g2;g2;g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_01,g4); \
g1;g1;g2;g2;gB; \
g1;gB;MARQUE_POINT_INTERIEUR(facette_02,g4); \
g3;g3;g3;g4;g4;g4;gB; \
g4;gB; \
g1;g1;g1;g2;g2;g2;gB; \
g4;g4;g4;g4;g4;gB; \
g3;gB; \
g2;g2;g2;g2;gB;MARQUE_POINT_INTERIEUR(facette_03,g1); \
g1;g1;g2;g2;gA; \
g4;g4;g4;g4;g4;gB; \
g1;g1;g2;g2;gB;MARQUE_POINT_INTERIEUR(facette_04,g2); \
g4;gB; \
g3;g3;g4;g4;gB; \
g2;g2;gA; \
g1;g1;g2;g2;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* * * 05 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * ************ */
/* * * ** */
/* 04 * *** 02 */
/* *********** ************ *** */
/* 03 *** *** * */
/* *********************** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ******** 01*** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_05(facette_01,facette_02,facette_03,facette_04,facette_05) \
Bblock \
CALS(FgMIC()); \
g1;g1;g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g3); \
g1;g1;g2;g2;gB; \
g2;gB;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g3;g3;g3;g4;g4;g4;gB; \
g3;gB; \
g1;g1;g1;g2;g2;g2;gB; \
g3;g3;gB;MARQUE_POINT_INTERIEUR(facette_03,g4); \
g3;gA; \
g3;g3;gB;MARQUE_POINT_INTERIEUR(facette_04,g2); \
g4;gA; \
g1;g1;g1;g1;gB; \
g2;g3;gA; \
g1;g2;gB; \
g2;g2;gB;MARQUE_POINT_INTERIEUR(facette_05,g3); \
g4;g4;gA; \
g1;g1;gB; \
g3;g3;g3;g4;gA; \
g2;g2;g2;gB; \
g3;gA; \
g4;g4;g4;gB; \
g2;gA; \
g3;g3;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* * 04* * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* ************ * *********** */
/* *** * * */
/* 02 *** * 05 */
/* ** *********** *********** */
/* * ** *** 03 */
/* * ** *********************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* ***01 ******** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_06(facette_01,facette_02,facette_03,facette_04,facette_05) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g2;g2;g3;g3;gB; \
g2;gB;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g1;g1;g1;g4;g4;g4;gB; \
g1;gB; \
g3;g3;g3;g2;g2;g2;gB; \
g1;g1;gB;MARQUE_POINT_INTERIEUR(facette_03,g4); \
g2;g2;g2;gB;MARQUE_POINT_INTERIEUR(facette_04,g3); \
g3;gA; \
g4;g4;gB; \
g1;g4;gB; \
g2;g3;gA; \
g3;g3;gB; \
g2;g2;g1;g1;g1;g1;gA; \
g4;g4;g4;gB; \
g1;g1;gB;MARQUE_POINT_INTERIEUR(facette_05,g2); \
g2;gA; \
g3;g3;gB; \
g3;g3;g4;g4;gA; \
g1;g1;g1;g1;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* * ********* */
/* * *** 03*** */
/* * ** *** *** */
/* * **** *** *** */
/* * * *** *** *** */
/* ** * * *** *** * */
/* *** * * **** *** */
/* 02 *** * * 04 * *** *** */
/* ** *** * * * *** * */
/* * ** **** * * **** */
/* * ** ** * * ** */
/* *** ** * * * */
/* *** *** * * */
/* *** * * * */
/* *** * * */
/* *** 01 ******* */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_07(facette_01,facette_02,facette_03,facette_04) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g2;g2;g3;g3;gB; \
g2;gB;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g1;g1;g4;g4;gB; \
g2;g2;g2;g2;g2;gB; \
g3;g3;g4;g4;gA; \
g1;g1;g4;g4;gB; \
g1;g1;g1;g1;g2;g2;gA; \
g2;g2;g3;g3;gB;MARQUE_POINT_INTERIEUR(facette_03,g4); \
g3;gB; \
g1;g1;g1;g4;g4;g4;gB; \
g4;gB; \
g2;g2;g2;g3;g3;g3;gB; \
g4;g4;g4;g4;g4;gB; \
g1;gB; \
g2;g2;g2;g2;gB;MARQUE_POINT_INTERIEUR(facette_04,g3); \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ******* */
/* *** */
/* 02 *** */
/* *********** */
/* 01 * */
/* *********** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_08(facette_01,facette_02) \
Bblock \
CALS(FgMIC()); \
g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_01,g2); \
g1;g1;gB; \
g2;gB; \
g3;g3;gB;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g2;gA; \
g1;gB; \
g1;g4;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* *********** */
/* **** */
/* 03 *** * */
/* ******02*** */
/* 01 **** */
/* ******* */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_09(facette_01,facette_02,facette_03) \
Bblock \
CALS(FgMIC()); \
g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_01,g2); \
g1;gB; \
g1;g2;gB;MARQUE_POINT_INTERIEUR(facette_02,g3); \
g2;gB; \
g3;g4;gB; \
g4;gB; \
g2;gA; \
g3;gB;MARQUE_POINT_INTERIEUR(facette_03,g2); \
g2;gA; \
g1;g1;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ** */
/* *** */
/* 03 *** */
/* ** *** */
/* 02** *** */
/* * ******* */
/* *** * * */
/* **** 01 * */
/* ******* */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_11(facette_01,facette_02,facette_03) \
Bblock \
CALS(FgMIC()); \
g2;g2;gA; \
g1;g4;gB; \
g1;gB; \
g2;gB; \
g3;gB; \
g4;gB;MARQUE_POINT_INTERIEUR(facette_01,BLOC(g1;g2;)); \
g2;gA; \
g2;g3;gB;MARQUE_POINT_INTERIEUR(facette_02,g4); \
g2;gA;MARQUE_POINT_INTERIEUR(facette_03,g4); \
g1;g1;g4;g4;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ** */
/* *** */
/* 02 *** */
/* ** *** */
/* 01** *** */
/* * ** ** */
/* *** ** * */
/* *** *** */
/* ******* */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_12(facette_01,facette_02) \
Bblock \
CALS(FgMIC()); \
g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_01,g2); \
g1;g4;gB; \
g1;gB; \
g2;g2;g3;g3;gB; \
g2;gA;MARQUE_POINT_INTERIEUR(facette_02,g4); \
g1;g1;g4;g4;gB; \
g4;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* ******************************** */
/* */
/* 02 */
/* ******************************** */
/* 01 */
/* ******************************** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_13(facette_01,facette_02) \
Bblock \
CALS(FgMIC()); \
g2; \
g2;gA;MARQUE_POINT_INTERIEUR(facette_01,g2); \
CALL(SEQUENCE_M1);gB; \
CALL(SEQUENCE_M3); \
g2;gA;MARQUE_POINT_INTERIEUR(facette_02,g2); \
CALL(SEQUENCE_M1);gB; \
CALL(SEQUENCE_M3); \
g2;gA; \
CALL(SEQUENCE_M1);gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* */
/* ** */
/* *** */
/* *** */
/* *** *** */
/* *** ***02 */
/* *** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ***01*** *** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_14(facette_01,facette_02) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g1;g1;g1;g1;g2;g2;g2;g2;gB; \
g4;gA;MARQUE_POINT_INTERIEUR(facette_02,g4); \
g3;g3;g3;g4;g4;g4;gB; \
g1;gA; \
g1;g1;g2;g2;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* **************************** */
/* *** */
/* *** */
/* *************************** *** */
/* 02 *** *** * */
/* *********************** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ***01*** 03*** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_15(facette_01,facette_02,facette_03) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g1;g1;g1;g2;g2;g2;gB; \
g3;g3;g3;g3;g3;gB; \
g4;gA;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g1;g1;g1;g1;gB; \
g4;g4;g3;gA;MARQUE_POINT_INTERIEUR(facette_03,g1); \
g1;g1;g1;g2;g2;g2;gB; \
g4;gB; \
g3;g3;g4;g4;gB; \
g1;g1;g2;g2;g2;gA; \
g2;g3;gB; \
g3;g3;g3;g3;g3;gB; \
CALS(FgMOC()); \
Eblock
/*************************************************************************************************************************************/
/* */
/* **************************** */
/* *** */
/* *** 02 */
/* ** *************************** */
/* * ** *** 03 */
/* * ** *********************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** 01** *** */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_16(facette_01,facette_02,facette_03) \
Bblock \
CALS(FgMIC()); \
g1;g1;gA;MARQUE_POINT_INTERIEUR(facette_01,g1); \
g2;g2;g3;g3;gB; \
g2;gB; \
g1;g2;gB; \
g1;g1;g1;g1;g1;gB; \
g4;gA;MARQUE_POINT_INTERIEUR(facette_02,g2); \
g3;g3;g3;g3;g3;gB; \
g1;g1;g1;g4;g4;g4;gB; \
g1;g1;g2;g2;gA;MARQUE_POINT_INTERIEUR(facette_03,g2); \
g3;g3;g3;g3;gB; \
g4;g4;g1;gA; \
g2;g2;g2;g3;g3;g3;gB; \
CALS(FgMOC()); \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* * */
/* ** */
/* ** */
/* * 05* 06* **07 ** ** */
/* * * * ** ** ** */
/* * * ** **08 ** */
/* * * * ** ** */
/* * * *** ** */
/* *********** * ************ */
/* * * ** */
/* 04 * *** 09 */
/* ******************************** */
/* ** *** */
/* 03 ** ** * 10 */
/* ****** * ***************** */
/* ** *** *** * */
/* ** 02 ** ** * * */
/* ** ** ** * * */
/* ** ** 01** * * * */
/* ** ** ** * 12* 11* */
/* ** */
/* ** */
/* * */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_17(facet_01,facet_02,facet_03,facet_04,facet_05,facet_06,facet_07,facet_08,facet_09,facet_10,facet_11,facet_12) \
Bblock \
CALS(FgMIC()); \
g4;gA;g1;g1;g1;g2;g2;g2;gB;MARQUE_POINT_INTERIEUR(facet_01,g3); \
g2;gB; \
g3;g3;g3;g4;g4;g4;gB; \
g3;gA;MARQUE_POINT_INTERIEUR(facet_02,g1); \
g1;g1;g1;g2;g2;g2;gB; \
g1;gB; \
g3;gA;g3;g3;gB;MARQUE_POINT_INTERIEUR(facet_03,g4); \
g4;gA;g1;gB; \
g3;g2;g2;MARQUE_POINT_INTERIEUR(facet_04,g4);gA;g1;g1;gB; \
g4;gA;g2;g2;g2;gB;MARQUE_POINT_INTERIEUR(facet_05,g1); \
g1;gA;g4;g4;g4;gB; \
g1;g2;gB;MARQUE_POINT_INTERIEUR(facet_06,g3); \
g2;g2;gB; \
g4;gA;MARQUE_POINT_INTERIEUR(facet_07,g1);g1;g1;g2;g2;gB; \
g4;gA;g3;g3;g4;g4;gB; \
g1;g1;g2;MARQUE_POINT_INTERIEUR(facet_08,g3);g1;g2;gA;g3;g3;g4;g4;gB; \
g3;gA;MARQUE_POINT_INTERIEUR(facet_09,g4);g1;g1;gB; \
g4;gA;g3;g3;g3;gB; \
g4;g1;g1;g1;gA;MARQUE_POINT_INTERIEUR(facet_10,g2);g3;g3;g3;gB; \
g1;gA;g4;g4;gB;MARQUE_POINT_INTERIEUR(facet_11,g3); \
g3;gA;g2;g2;gB; \
g3;g4;gA;MARQUE_POINT_INTERIEUR(facet_12,g1); \
g4;gB; \
CALS(FgMOC()); \
Eblock \
/* Nouveau motif introduit le 20110422130238 afin de pouvoir refaire le dessin figurant en */ \
/* haut et a droite de 'v $xiHi/OLDIES_BUT_GOLDIES_NB.12$JPEG'... */
/*************************************************************************************************************************************/
/* */
/* D E P L A C E M E N T S E L E M E N T A I R E S E T R O T A T I O N S : */
/* */
/*************************************************************************************************************************************/
#define SEQUENCE_2X \
Bblock \
CALS(FgMIC()); \
CALS(FgMIT()); \
Eblock
#define SEQUENCE_3X \
Bblock \
CALS(FgMOT()); \
CALS(FgMOC()); \
Eblock
#define SEQUENCE_21 \
Bblock \
CALL(SEQUENCE_2X); \
CALL(SEQUENCE_M1); \
CALS(FgTRZ1()); \
/* ATTENTION : je note le 20080910141723 (et donc avec beaucoup d'annees de retard...) que */ \
/* cela ne fonctionne correctement que si l'image est carree (par exemple au format 'Std') */ \
/* puisque, par cette rotation de l'axe des 'Z' de +pi/2, on permute en quelque sorte les */ \
/* axes 'X' et 'Y'... */ \
Eblock
#define SEQUENCE_31 \
Bblock \
CALL(SEQUENCE_3X); \
Eblock
#define SEQUENCE_41 \
Bblock \
CALL(SEQUENCE_31); \
CALL(SEQUENCE_M1); \
Eblock
#define SEQUENCE_22 \
Bblock \
CALL(SEQUENCE_2X); \
CALL(SEQUENCE_M1); \
CALL(SEQUENCE_M2); \
CALS(FgTSO()); \
Eblock
#define SEQUENCE_32 \
Bblock \
CALL(SEQUENCE_3X); \
Eblock
#define SEQUENCE_42 \
Bblock \
CALL(SEQUENCE_32); \
CALL(SEQUENCE_M1); \
Eblock
#define SEQUENCE_23 \
Bblock \
CALL(SEQUENCE_2X); \
CALL(SEQUENCE_M2); \
CALS(FgTRZ3()); \
/* ATTENTION : je note le 20080910141723 (et donc avec beaucoup d'annees de retard...) que */ \
/* cela ne fonctionne correctement que si l'image est carree (par exemple au format 'Std') */ \
/* puisque, par cette rotation de l'axe des 'Z' de -pi/2, on permute en quelque sorte les */ \
/* axes 'X' et 'Y'... */ \
Eblock
#define SEQUENCE_33 \
Bblock \
CALL(SEQUENCE_3X); \
Eblock
#define SEQUENCE_43 \
Bblock \
CALL(SEQUENCE_33); \
CALL(SEQUENCE_M1); \
Eblock
#define SEQUENCE_M1 \
Bblock \
DO(TAILLE_DU_PAVE_DES_ELEMENTS_PARADOXAUX,BLOC(g1;)); \
Eblock
#define SEQUENCE_M2 \
Bblock \
DO(TAILLE_DU_PAVE_DES_ELEMENTS_PARADOXAUX,BLOC(g2;)); \
Eblock
#define SEQUENCE_M3 \
Bblock \
DO(TAILLE_DU_PAVE_DES_ELEMENTS_PARADOXAUX,BLOC(g3;)); \
Eblock
#define SEQUENCE_M4 \
Bblock \
DO(TAILLE_DU_PAVE_DES_ELEMENTS_PARADOXAUX,BLOC(g4;)); \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S F O N C T I O N S E L E M E N T A I R E S : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLspace_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_11(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_21);
CALL(SEQUENCE_11(alpha3_____c11,alpha3_____c12,alpha3_____c13));
CALL(SEQUENCE_31);
CALL(SEQUENCE_22);
CALL(SEQUENCE_11(alpha3_____c21,alpha3_____c22,alpha3_____c23));
CALL(SEQUENCE_32);
CALL(SEQUENCE_23);
CALL(SEQUENCE_11(alpha3_____c31,alpha3_____c32,alpha3_____c33));
CALL(SEQUENCE_33);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLexclamation_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLquote_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdiese_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_12(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_21);
CALL(SEQUENCE_12(alpha3_____c11,alpha3_____c12));
CALL(SEQUENCE_31);
CALL(SEQUENCE_22);
CALL(SEQUENCE_12(alpha3_____c21,alpha3_____c22));
CALL(SEQUENCE_32);
CALL(SEQUENCE_23);
CALL(SEQUENCE_12(alpha3_____c31,alpha3_____c32));
CALL(SEQUENCE_33);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdollar_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_16(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpour_cent_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLet_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLapostrophe_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpg_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpd_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLetoile_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLplus_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLvirgule_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgMOC());
CALL(SEQUENCE_M2);
)
)
)
/* Pour definir la fin d'une ligne. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLmoins_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpoint_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgMOC());
)
)
)
/* Pour definir la fin d'une image. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLslash_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgT_INIT());CALS(FgTRZ1());
)
)
)
/* Pour faire une rotation de +PI/2. */
/* */
/* ATTENTION : je note le 20080910141723 (et donc avec beaucoup d'annees de retard...) que */
/* cela ne fonctionne correctement que si l'image est carree (par exemple au format 'Std') */
/* puisque, par cette rotation de l'axe des 'Z' de +pi/2, on permute en quelque sorte les */
/* axes 'X' et 'Y'... */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL0_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_14(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL1_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_M1);
)
)
)
/* Deplacement a droite. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL2_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_M2);
)
)
)
/* Deplacement vers le haut. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL3_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_M3);
)
)
)
/* Deplacement a gauche. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL4_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_M4);
)
)
)
/* Deplacement vers le bas. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL5_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_08(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL6_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_09(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL7_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_11(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL8_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_12(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL9_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_13(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdeux_points_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpoint_virgule_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLinferieur_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgT_INIT());CALS(FgTRZ1());CALS(FgTRZ1());
)
)
)
/* Pour faire un rotation de PI. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLegal_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgMIC());
)
)
)
/* Pour definir un debut de ligne. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLsuperieur_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgT_INIT());
)
)
)
/* Pour reinitialiser la transformation courante. */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLinterrogation_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALS(FgT_INIT());CALS(FgTRZ3());
)
)
)
/* Pour faire un rotation de -PI/2. */
/* */
/* ATTENTION : je note le 20080910141723 (et donc avec beaucoup d'annees de retard...) que */
/* cela ne fonctionne correctement que si l'image est carree (par exemple au format 'Std') */
/* puisque, par cette rotation de l'axe des 'Z' de -pi/2, on permute en quelque sorte les */
/* axes 'X' et 'Y'... */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLa_rond_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_15(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLA_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_01(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_M1);
)
)
)
/* On notera le 20080912145100 que : */
/* */
/* H = Rotation(A,+pi/2) */
/* I = Rotation(A,+pi) */
/* J = Rotation(A,+3.pi/2) */
/* */
/* ('v $xiirv/$Fnota "=AJ.2=HI."'). */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLB_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_02(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
,alpha3_____c06
)
);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLC_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_03(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLD_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_04(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLE_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_05(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLF_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_06(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLG_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_07(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLH_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_01(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_41);
)
)
)
/* On notera le 20080912145100 que : */
/* */
/* H = Rotation(A,+pi/2) */
/* I = Rotation(A,+pi) */
/* J = Rotation(A,+3.pi/2) */
/* */
/* ('v $xiirv/$Fnota "=AJ.2=HI."'). */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLI_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_22);
CALL(SEQUENCE_01(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_42);
)
)
)
/* On notera le 20080912145100 que : */
/* */
/* H = Rotation(A,+pi/2) */
/* I = Rotation(A,+pi) */
/* J = Rotation(A,+3.pi/2) */
/* */
/* ('v $xiirv/$Fnota "=AJ.2=HI."'). */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLJ_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_23);
CALL(SEQUENCE_01(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_43);
)
)
)
/* On notera le 20080912145100 que : */
/* */
/* H = Rotation(A,+pi/2) */
/* I = Rotation(A,+pi) */
/* J = Rotation(A,+3.pi/2) */
/* */
/* ('v $xiirv/$Fnota "=AJ.2=HI."'). */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLK_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_02(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
,alpha3_____c06
)
);
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLL_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_03(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLM_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_04(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLN_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_22);
CALL(SEQUENCE_04(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_42);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLO_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_23);
CALL(SEQUENCE_04(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_43);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLP_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_05(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLQ_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_22);
CALL(SEQUENCE_05(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_42);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLR_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_23);
CALL(SEQUENCE_05(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_43);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLS_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_06(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLT_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_22);
CALL(SEQUENCE_06(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_42);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLU_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_23);
CALL(SEQUENCE_06(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
)
);
CALL(SEQUENCE_43);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLV_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_21);
CALL(SEQUENCE_07(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_41);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLW_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_22);
CALL(SEQUENCE_07(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_42);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLX_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_23);
CALL(SEQUENCE_07(alpha3_____c01,alpha3_____c02,alpha3_____c03,alpha3_____c04));
CALL(SEQUENCE_43);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLY_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_08(alpha3_____c01,alpha3_____c02));
CALL(SEQUENCE_21);
CALL(SEQUENCE_08(alpha3_____c11,alpha3_____c12));
CALL(SEQUENCE_31);
CALL(SEQUENCE_22);
CALL(SEQUENCE_08(alpha3_____c21,alpha3_____c22));
CALL(SEQUENCE_32);
CALL(SEQUENCE_23);
CALL(SEQUENCE_08(alpha3_____c31,alpha3_____c32));
CALL(SEQUENCE_33);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLZ_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_09(alpha3_____c01,alpha3_____c02,alpha3_____c03));
CALL(SEQUENCE_21);
CALL(SEQUENCE_09(alpha3_____c11,alpha3_____c12,alpha3_____c13));
CALL(SEQUENCE_31);
CALL(SEQUENCE_22);
CALL(SEQUENCE_09(alpha3_____c21,alpha3_____c22,alpha3_____c23));
CALL(SEQUENCE_32);
CALL(SEQUENCE_23);
CALL(SEQUENCE_09(alpha3_____c31,alpha3_____c32,alpha3_____c33));
CALL(SEQUENCE_33);
CALL(SEQUENCE_M1);
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcrochet_gauche_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLanti_slash_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcrochet_droit_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcirconflexe_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLunder_score_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLanti_quote_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLa_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
CALL(SEQUENCE_17(alpha3_____c01
,alpha3_____c02
,alpha3_____c03
,alpha3_____c04
,alpha3_____c05
,alpha3_____c06
,alpha3_____c07
,alpha3_____c08
,alpha3_____c09
,alpha3_____c10
,alpha3_____c11
,alpha3_____c12
)
);
CALL(SEQUENCE_M1);
)
)
)
/* Nouvelle fonction introduite le 20110422130238 afin de pouvoir refaire le dessin figurant */
/* en haut et a droite de 'v $xiHi/OLDIES_BUT_GOLDIES_NB.12$JPEG'... */
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLb_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLc_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLd_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLe_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLaigu_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLgrave_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLf_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLg_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLh_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLi_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLi_trema_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLj_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLk_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLl_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLm_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLn_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLo_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLp_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLq_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLr_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLs_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLt_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLu_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLv_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLw_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLx_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLy_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLz_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLag_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpipe_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLad_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLtilda_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLline_feed_03,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Linex;
)
)
)
EFonctionI
#undef SEQUENCE_M4
#undef SEQUENCE_M3
#undef SEQUENCE_M2
#undef SEQUENCE_M1
#undef SEQUENCE_43
#undef SEQUENCE_42
#undef SEQUENCE_41
#undef SEQUENCE_33
#undef SEQUENCE_32
#undef SEQUENCE_31
#undef SEQUENCE_23
#undef SEQUENCE_22
#undef SEQUENCE_21
#undef SEQUENCE_3X
#undef SEQUENCE_2X
#undef SEQUENCE_17
#undef SEQUENCE_16
#undef SEQUENCE_15
#undef SEQUENCE_14
#undef SEQUENCE_13
#undef SEQUENCE_12
#undef SEQUENCE_11
#undef SEQUENCE_09
#undef SEQUENCE_08
#undef SEQUENCE_07
#undef SEQUENCE_06
#undef SEQUENCE_05
#undef SEQUENCE_04
#undef SEQUENCE_03
#undef SEQUENCE_02
#undef SEQUENCE_01
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D O N N E E S C O M M U N E S D E S F O N C T I O N S S E C O N D A I R E S : */
/* */
/*************************************************************************************************************************************/
DEFV(Local,DEFV(pointF_2D,point_de_depart));
/* Point de depart du remplissage d'un contour. */
DEFV(Local,DEFV(pointF_2D,coin_inferieur_gauche));
/* Coin inferieur gauche de la zone de remplissage, */
DEFV(Local,DEFV(pointF_2D,coin_superieur_droite));
/* Coin superieur droite de la zone de remplissage. */
DEFV(Local,DEFV(Logical,DTb1(fond_de_l_image,COULEURS)));
/* Definition du "fond" de l'image, */
DEFV(Local,DEFV(Logical,DTb1(bord_des_facettes,COULEURS)));
/* Definition du "bord" d'un contour. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* R E M P L I S S A G E D ' U N E " F A C E T T E " : */
/* */
/*************************************************************************************************************************************/
#define REMPLISSAGE_FACETTE(facette,niveau_du_bord,niveau_de_remplissage) \
Bblock \
BoIn(index_fond_et_bord,NOIR,BLANC,PAS_COULEURS) \
Bblock \
EGAL(ITb1(fond_de_l_image,INDX(index_fond_et_bord,NOIR)),VRAI); \
EGAL(ITb1(bord_des_facettes,INDX(index_fond_et_bord,NOIR)),FAUX); \
Eblock \
EBoI \
EGAL(ITb1(fond_de_l_image,INDX(niveau_du_bord,NOIR)),FAUX); \
EGAL(ITb1(bord_des_facettes,INDX(niveau_du_bord,NOIR)),VRAI); \
/* Definition du "fond" et du "bord". */ \
TRANSFERT_POINT_2D(point_de_depart,ASD1(facette,vecteurs_____cursor_3D)); \
/* Recuperation du point de depart de remplissage du contour. */ \
INITIALISATION_POINT_2D(coin_inferieur_gauche \
,CADRE_GAUCHE \
,CADRE_INFERIEUR \
); \
/* Definition du coin inferieur gauche de remplissage, */ \
INITIALISATION_POINT_2D(coin_superieur_droite \
,CADRE_DROITE \
,CADRE_SUPERIEUR \
); \
/* Definition du coin superieur droite de remplissage. */ \
CALS(Iremplissage(ImageG \
,ImageG \
,ADRESSE(point_de_depart) \
,ADRESSE(coin_inferieur_gauche) \
,ADRESSE(coin_superieur_droite) \
,fond_de_l_image,bord_des_facettes \
,VRAI,VRAI,VRAI,VRAI \
,FAUX,FAUX,FAUX,FAUX \
,niveau_de_remplissage \
) \
); \
Eblock \
/* Remplissage du contour repere par 'facette' avec 'niveau_de_remplissage'. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S F O N C T I O N S S E C O N D A I R E S : */
/* */
/*************************************************************************************************************************************/
#define DEBUT_DE_MOTIF(niveau) \
Bblock \
CALS(FgMIN()); \
/* Sauvegarde des conditions de trace. */ \
SET_ANTI_ALIASING(FAUX); \
SET_COULEURS(NOIR,niveau); \
/* Choix du niveau de trace sans anti-aliasing... */ \
INITIALISATION_CADRE; \
/* Afin de permettre une definition par "contours ouverts" des facettes. */ \
/* afin d'initialiser le trace correct d'un motif. */
#define FIN_DE_MOTIF \
CALS(FgMON()); \
/* Restauration des conditions de trace. */ \
Eblock
#define PAS_DE_REMPLISSAGE_FACETTE(facette,niveau_du_bord,niveau_de_remplissage) \
/* Au cas ou l'on voudrait ne pas faire le remplissage ; auquel cas */ \
/* elle doit remplacer la definition 'REMPLISSAGE_FACETTE'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 31 * 32 * */
/* * * * */
/* * * ** */
/* * * *** */
/* * **** */
/* ******* ******* *********** */
/* *** * 21 */
/* 02 *** * */
/* *********** *********** */
/* 01 * *** 22 */
/* *********** ******* ******* */
/* *** * */
/* *** * * */
/* ** * * */
/* * * * */
/* * 12 * 11 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_01(niveau
,nivo_01,nivo_02
,nivo_11,nivo_12
,nivo_21,nivo_22
,nivo_31,nivo_32
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_11));
DEFV(Argument,DEFV(genere_p,nivo_12));
DEFV(Argument,DEFV(genere_p,nivo_21));
DEFV(Argument,DEFV(genere_p,nivo_22));
DEFV(Argument,DEFV(genere_p,nivo_31));
DEFV(Argument,DEFV(genere_p,nivo_32));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLY_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c11,niveau,nivo_11);
REMPLISSAGE_FACETTE(alpha3_____c12,niveau,nivo_12);
REMPLISSAGE_FACETTE(alpha3_____c21,niveau,nivo_21);
REMPLISSAGE_FACETTE(alpha3_____c22,niveau,nivo_22);
REMPLISSAGE_FACETTE(alpha3_____c31,niveau,nivo_31);
REMPLISSAGE_FACETTE(alpha3_____c32,niveau,nivo_32);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 31 * 33 * */
/* * * * */
/* ******* * */
/* *** *** * */
/* ***32**** */
/* *********** ******* ******* */
/* **** **** */
/* 03 ***02* *** * 21 */
/* ****** *** *22******** */
/* 01 **** **** 23 */
/* ******* ******* *********** */
/* ****12*** */
/* * *** *** */
/* * ******* */
/* * * * */
/* * 13 * 11 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_02(niveau
,nivo_01,nivo_02,nivo_03
,nivo_11,nivo_12,nivo_13
,nivo_21,nivo_22,nivo_23
,nivo_31,nivo_32,nivo_33
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_11));
DEFV(Argument,DEFV(genere_p,nivo_12));
DEFV(Argument,DEFV(genere_p,nivo_13));
DEFV(Argument,DEFV(genere_p,nivo_21));
DEFV(Argument,DEFV(genere_p,nivo_22));
DEFV(Argument,DEFV(genere_p,nivo_23));
DEFV(Argument,DEFV(genere_p,nivo_31));
DEFV(Argument,DEFV(genere_p,nivo_32));
DEFV(Argument,DEFV(genere_p,nivo_33));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLZ_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c11,niveau,nivo_11);
REMPLISSAGE_FACETTE(alpha3_____c12,niveau,nivo_12);
REMPLISSAGE_FACETTE(alpha3_____c13,niveau,nivo_13);
REMPLISSAGE_FACETTE(alpha3_____c21,niveau,nivo_21);
REMPLISSAGE_FACETTE(alpha3_____c22,niveau,nivo_22);
REMPLISSAGE_FACETTE(alpha3_____c23,niveau,nivo_23);
REMPLISSAGE_FACETTE(alpha3_____c31,niveau,nivo_31);
REMPLISSAGE_FACETTE(alpha3_____c32,niveau,nivo_32);
REMPLISSAGE_FACETTE(alpha3_____c33,niveau,nivo_33);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* *** 32** 33*** */
/* *** *** *** */
/* ******** *** ******* */
/* * * *** * **** */
/* * 31 **** * 21 * *** */
/* ** ******* ******* * */
/* *** *** ***22 */
/* 03 *** *** *** */
/* ** *** ***23* */
/* 02** *** *** */
/* * ******* ******* ** */
/* *** * * **** * */
/* **** 01 * *** * 11 * */
/* ******* *** ******** */
/* *** *** *** */
/* ***13*** 12*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_03(niveau
,nivo_01,nivo_02,nivo_03
,nivo_11,nivo_12,nivo_13
,nivo_21,nivo_22,nivo_23
,nivo_31,nivo_32,nivo_33
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_11));
DEFV(Argument,DEFV(genere_p,nivo_12));
DEFV(Argument,DEFV(genere_p,nivo_13));
DEFV(Argument,DEFV(genere_p,nivo_21));
DEFV(Argument,DEFV(genere_p,nivo_22));
DEFV(Argument,DEFV(genere_p,nivo_23));
DEFV(Argument,DEFV(genere_p,nivo_31));
DEFV(Argument,DEFV(genere_p,nivo_32));
DEFV(Argument,DEFV(genere_p,nivo_33));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLspace_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c11,niveau,nivo_11);
REMPLISSAGE_FACETTE(alpha3_____c12,niveau,nivo_12);
REMPLISSAGE_FACETTE(alpha3_____c13,niveau,nivo_13);
REMPLISSAGE_FACETTE(alpha3_____c21,niveau,nivo_21);
REMPLISSAGE_FACETTE(alpha3_____c22,niveau,nivo_22);
REMPLISSAGE_FACETTE(alpha3_____c23,niveau,nivo_23);
REMPLISSAGE_FACETTE(alpha3_____c31,niveau,nivo_31);
REMPLISSAGE_FACETTE(alpha3_____c32,niveau,nivo_32);
REMPLISSAGE_FACETTE(alpha3_____c33,niveau,nivo_33);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ***31 ** 32*** */
/* *** *** *** */
/* ** *** *** ******* */
/* * *** *** *** *** */
/* **** *** * *** *** */
/* ** ******* ** *** * */
/* *** *** ***21 */
/* 02 *** *** *** */
/* ** *** ***22* */
/* 01** *** *** */
/* * ** ** ******* ** */
/* *** ** * *** **** */
/* *** *** *** *** * */
/* ******* *** *** ** */
/* *** *** *** */
/* ***12*** 11*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_04(niveau
,nivo_01,nivo_02
,nivo_11,nivo_12
,nivo_21,nivo_22
,nivo_31,nivo_32
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_11));
DEFV(Argument,DEFV(genere_p,nivo_12));
DEFV(Argument,DEFV(genere_p,nivo_21));
DEFV(Argument,DEFV(genere_p,nivo_22));
DEFV(Argument,DEFV(genere_p,nivo_31));
DEFV(Argument,DEFV(genere_p,nivo_32));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLdiese_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c11,niveau,nivo_11);
REMPLISSAGE_FACETTE(alpha3_____c12,niveau,nivo_12);
REMPLISSAGE_FACETTE(alpha3_____c21,niveau,nivo_21);
REMPLISSAGE_FACETTE(alpha3_____c22,niveau,nivo_22);
REMPLISSAGE_FACETTE(alpha3_____c31,niveau,nivo_31);
REMPLISSAGE_FACETTE(alpha3_____c32,niveau,nivo_32);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* **************************** */
/* *** */
/* *** 02 */
/* ** *************************** */
/* * ** *** 03 */
/* * ** *********************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** 01** *** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_11(niveau
,nivo_01,nivo_02,nivo_03
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLdollar_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* **************************** */
/* *** */
/* *** */
/* *************************** *** */
/* 02 *** *** * */
/* *********************** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ***01*** 03*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_12(niveau
,nivo_01,nivo_02,nivo_03
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLa_rond_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* */
/* ** */
/* *** */
/* *** */
/* *** *** */
/* *** ***02 */
/* *** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ***01*** *** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_31(niveau
,nivo_01,nivo_02
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL0_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******************************** */
/* */
/* 02 */
/* ******************************** */
/* 01 */
/* ******************************** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_32(niveau
,nivo_01,nivo_02
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL9_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******* */
/* *** */
/* 02 *** */
/* *********** */
/* 01 * */
/* *********** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_41(niveau
,nivo_01,nivo_02
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL5_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* *********** */
/* **** */
/* 03 *** * */
/* ******02*** */
/* 01 **** */
/* ******* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_42(niveau
,nivo_01,nivo_02,nivo_03
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL6_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ** */
/* *** */
/* 03 *** */
/* ** *** */
/* 02** *** */
/* * ******* */
/* *** * * */
/* **** 01 * */
/* ******* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_43(niveau
,nivo_01,nivo_02,nivo_03
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL7_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ** */
/* *** */
/* 02 *** */
/* ** *** */
/* 01** *** */
/* * ** ** */
/* *** ** * */
/* *** *** */
/* ******* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_44(niveau
,nivo_01,nivo_02
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgL8_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * * 03 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * ************ */
/* * * ** */
/* 02 * *** 05 */
/* *********** ***************** */
/* */
/* *********** ***************** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 01 * 04 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_51(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLA_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * *********** */
/* * * * */
/* 05 * * * 04 */
/* *********** * *********** */
/* 06 * * * 03 */
/* *********** * *********** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 01 * 02 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_52(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05,nivo_06
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
DEFV(Argument,DEFV(genere_p,nivo_06));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLB_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
REMPLISSAGE_FACETTE(alpha3_____c06,niveau,nivo_06);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 05 * * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* ************ * *********** */
/* 03 *** * * */
/* *** * 04 */
/* **************** *********** */
/* 01 */
/* **************** *********** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 02 * * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_53(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLH_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 04 * 01 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* **************** *********** */
/* */
/* */
/* **************** *********** */
/* 05 ** * * 02 */
/* ************ * *********** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 03 * * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_54(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLI_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * * 02 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** ***************** */
/* */
/* 01 */
/* *********** ***************** */
/* 04 * * *** 03 */
/* *********** * ************* */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * * 05 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_55(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLJ_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 04 * 03 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* ******************************** */
/* */
/* 02 */
/* ******************************** */
/* 01 */
/* ******************************** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 05 * 06 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_56(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05,nivo_06
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
DEFV(Argument,DEFV(genere_p,nivo_06));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLK_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
REMPLISSAGE_FACETTE(alpha3_____c06,niveau,nivo_06);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******** * */
/* *** *** * */
/* *** ***02* * */
/* *** *** *** * */
/* *** *** *** * * */
/* * *** *** * * ** */
/* 01*** **** 03 * * *** */
/* *** *** * * * *** 04 */
/* * *** * * * *** *** */
/* **** * * **** *** * */
/* ** * * ** *** * */
/* * * * *** *** */
/* * * *** *** */
/* * * * *** */
/* * * *** */
/* ****** *** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_61(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLD_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * ********* */
/* * *** 03*** */
/* * ** *** *** */
/* * **** *** *** */
/* * * *** *** *** */
/* ** * * *** *** * */
/* *** * * **** *** */
/* 02 *** * * 04 * *** *** */
/* ** *** * * * *** * */
/* * ** **** * * **** */
/* * ** ** * * ** */
/* *** ** * * * */
/* *** *** * * */
/* *** * * * */
/* *** * * */
/* *** 01 ******* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_62(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLG_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ***04********* */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *************************** * */
/* */
/* */
/* ** 02*************************** */
/* * ** *** 03 * */
/* * ** *********************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** 01******** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_63(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLM_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* *** ******* */
/* *** * * */
/* *** * * * */
/* *** *** * * */
/* *** *** * * * */
/* * *** ** * * ** */
/* * *** **** * * **** */
/* *** *** * * * *** * */
/* *04*** * * * *** *** */
/* *** * * 03**** ***01 */
/* ** * * *** *** * */
/* * * *** *** *** */
/* * **** *** *** */
/* * **02*** *** */
/* * *** *** */
/* * ********* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_64(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLN_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******** 01*** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *********************** *** * */
/* * 03*** *** * */
/* * ***02*** */
/* *************************** * */
/* */
/* * *************************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* ******** 04*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_65(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLO_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* *** ******** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* * 03*** *********************** */
/* * *** *** 04 * */
/* *** *** * */
/* * *************************** */
/* 01 */
/* *************************** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ***02********* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_66(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLV_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ****** 01 *** */
/* * * *** */
/* * * * *** */
/* * * *** *** */
/* * * * *** *** */
/* ** * * ** *** * */
/* **** * * **** *** * */
/* * *** * * * *** *** */
/* ** *** * * * ***02* */
/* ** **** 04 * * *** */
/* * ** *** * * ** */
/* *** ** *** * * */
/* *** ** *** * */
/* *** ** * * */
/* ***03 ** * */
/* ******** * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_67(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLW_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ********02 *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* * *************************** */
/* */
/* 01 */
/* *************************** *** */
/* * 04*** *** * */
/* *********************** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ********03 *** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_68(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLX_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * * 05 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* *********** * ************ */
/* * * ** */
/* 04 * *** 02 */
/* *********** ************ *** */
/* 03 *** *** * */
/* *********************** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ******** 01*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_71(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLE_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 04* * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* ************ * *********** */
/* *** * * */
/* 02 *** * 05 */
/* ** *********** *********** */
/* * ** *** 03 */
/* * ** *********************** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* ***01 ******** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_72(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLF_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 02 ********* */
/* * *** *** */
/* * ** *** *** */
/* * **** *** *** */
/* * * *** *** *** */
/* ************ * *** *** * */
/* *** * **** ***01 */
/* 05 *** * *** *** */
/* **************** 03 * *** * */
/* * **** */
/* **************** * ** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 04 * * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_73(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLP_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* *** 01******** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* * *** *********************** */
/* * *** *** */
/* *** *** 03 */
/* * *********** *********** */
/* 02 ** * * 04 */
/* ************ * *********** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * 05 * * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_74(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLQ_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * * 04 * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* ** * ***************** */
/* **** * */
/* * *** * */
/* ** *** * 03 ***************** */
/* 01** **** * *** 05 */
/* * ** *** * ************* */
/* *** ** *** * * */
/* *** ** *** * */
/* *** ** * * */
/* *** ** * */
/* ******** 02 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_75(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLR_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* * 05 * * */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* **************** * ** */
/* * **** */
/* * *** * */
/* **************** 03 * *** *** */
/* 04 ** * **** ***01 */
/* ************ * *** *** * */
/* * * *** *** *** */
/* * **** *** *** */
/* * ** *** *** */
/* * *** *** */
/* * 02 ********* */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_76(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLS_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******** 01*** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *********************** *** * */
/* *** *** * */
/* 03 *** *** */
/* *********** ************ 02* */
/* 05 * * *** */
/* *********** * ************* */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * * 04 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_77(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLT_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******** 02 * */
/* *** *** * */
/* *** *** * * */
/* *** *** *** * */
/* *** *** *** * * */
/* * *** *** * ************ */
/* 01*** **** * ** */
/* *** *** * *** 04 */
/* * *** * 03 ***************** */
/* **** * */
/* ** * ***************** */
/* * * * */
/* * * * */
/* * * * */
/* * * * */
/* * * 05 * */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_78(niveau
,nivo_01,nivo_02,nivo_03,nivo_04,nivo_05
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
DEFV(Argument,DEFV(genere_p,nivo_05));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLU_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
REMPLISSAGE_FACETTE(alpha3_____c05,niveau,nivo_05);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ******** 03*** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* * *** *** ** */
/* 04*** *** *** */
/* *** *** *** 02 */
/* * *** *** *** */
/* **** *** *** * */
/* ** *** *** * */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ******** 01*** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_81(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLC_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M O T I F A F A C E T T E S C O L O R I E E S : */
/* */
/* */
/* ***02********* */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* *** *** *** */
/* ** *** *** * */
/* *** *** ***01 */
/* 03 *** *** *** */
/* ** *** *** * */
/* * ** *** **** */
/* * ** *** ** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** ** *** */
/* *** 04******** */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_82(niveau
,nivo_01,nivo_02,nivo_03,nivo_04
)
)
)
DEFV(Argument,DEFV(genere_p,niveau));
/* Niveau de marquage des aretes des facettes. */
DEFV(Argument,DEFV(genere_p,nivo_01));
DEFV(Argument,DEFV(genere_p,nivo_02));
DEFV(Argument,DEFV(genere_p,nivo_03));
DEFV(Argument,DEFV(genere_p,nivo_04));
/* Niveaux de remplissage des differentes facettes (les numeros coincident). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_DE_MOTIF(niveau);
CALS(FgLL_03());
REMPLISSAGE_FACETTE(alpha3_____c01,niveau,nivo_01);
REMPLISSAGE_FACETTE(alpha3_____c02,niveau,nivo_02);
REMPLISSAGE_FACETTE(alpha3_____c03,niveau,nivo_03);
REMPLISSAGE_FACETTE(alpha3_____c04,niveau,nivo_04);
FIN_DE_MOTIF;
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E B U T D E S E Q U E N C E " L I G N E " E T " I M A G E " : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_BOL()))
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
CALS(FgLegal_03());
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I N D E S E Q U E N C E " L I G N E " : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_EOL()))
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
CALS(FgLvirgule_03());
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I N D E S E Q U E N C E " I M A G E " : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,FgImpossible_EOI()))
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
CALS(FgLpoint_03());
RETU_ERROR;
Eblock
EFonctionI
#undef PAS_DE_REMPLISSAGE_FACETTE
#undef FIN_DE_MOTIF
#undef DEBUT_DE_MOTIF
#undef REMPLISSAGE_FACETTE
#undef MARQUE_POINT_INTERIEUR
_______________________________________________________________________________________________________________________________________