_______________________________________________________________________________________________________________________________________
/*************************************************************************************************************************************/
/* */
/* 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 C O U R A N T E : */
/* */
/* */
/* Definition : */
/* */
/* Dans ce fichier, on trouvera */
/* toutes les bibliotheques graphiques */
/* de base : alphabets,... */
/* */
/* */
/* Author of '$xiii/alphabets$FON' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19870000000000). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* B I B L I O T H E Q U E C O U R A N T E : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLspace,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLspace_00()
,FgLspace_01()
,FgLspace_02()
,FgLspace_03()
,FgLspace_04()
,FgLspace_05()
,FgLspace_06()
)
)
)
)
EFonctionI
/* Caractere ' '. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLexclamation,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLexclamation_00()
,FgLexclamation_01()
,FgLexclamation_02()
,FgLexclamation_03()
,FgLexclamation_04()
,FgLexclamation_05()
,FgLexclamation_06()
)
)
)
)
EFonctionI
/* Caractere '!'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLquote,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLquote_00()
,FgLquote_01()
,FgLquote_02()
,FgLquote_03()
,FgLquote_04()
,FgLquote_05()
,FgLquote_06()
)
)
)
)
EFonctionI
/* Caractere '"'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdiese,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLdiese_00()
,FgLdiese_01()
,FgLdiese_02()
,FgLdiese_03()
,FgLdiese_04()
,FgLdiese_05()
,FgLdiese_06()
)
)
)
)
EFonctionI
/* Caractere '#'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdollar,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLdollar_00()
,FgLdollar_01()
,FgLdollar_02()
,FgLdollar_03()
,FgLdollar_04()
,FgLdollar_05()
,FgLdollar_06()
)
)
)
)
EFonctionI
/* Caractere '$'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpour_cent,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpour_cent_00()
,FgLpour_cent_01()
,FgLpour_cent_02()
,FgLpour_cent_03()
,FgLpour_cent_04()
,FgLpour_cent_05()
,FgLpour_cent_06()
)
)
)
)
EFonctionI
/* Caractere '%'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLet,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLet_00()
,FgLet_01()
,FgLet_02()
,FgLet_03()
,FgLet_04()
,FgLet_05()
,FgLet_06()
)
)
)
)
EFonctionI
/* Caractere '&'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLapostrophe,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLapostrophe_00()
,FgLapostrophe_01()
,FgLapostrophe_02()
,FgLapostrophe_03()
,FgLapostrophe_04()
,FgLapostrophe_05()
,FgLapostrophe_06()
)
)
)
)
EFonctionI
/* Caractere "'". */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpg,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpg_00()
,FgLpg_01()
,FgLpg_02()
,FgLpg_03()
,FgLpg_04()
,FgLpg_05()
,FgLpg_06()
)
)
)
)
EFonctionI
/* Caractere '('. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpd,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpd_00()
,FgLpd_01()
,FgLpd_02()
,FgLpd_03()
,FgLpd_04()
,FgLpd_05()
,FgLpd_06()
)
)
)
)
EFonctionI
/* Caractere ')'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLetoile,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLetoile_00()
,FgLetoile_01()
,FgLetoile_02()
,FgLetoile_03()
,FgLetoile_04()
,FgLetoile_05()
,FgLetoile_06()
)
)
)
)
EFonctionI
/* Caractere '*'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLplus,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLplus_00()
,FgLplus_01()
,FgLplus_02()
,FgLplus_03()
,FgLplus_04()
,FgLplus_05()
,FgLplus_06()
)
)
)
)
EFonctionI
/* Caractere '+'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLvirgule,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLvirgule_00()
,FgLvirgule_01()
,FgLvirgule_02()
,FgLvirgule_03()
,FgLvirgule_04()
,FgLvirgule_05()
,FgLvirgule_06()
)
)
)
)
EFonctionI
/* Caractere ','. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLmoins,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLmoins_00()
,FgLmoins_01()
,FgLmoins_02()
,FgLmoins_03()
,FgLmoins_04()
,FgLmoins_05()
,FgLmoins_06()
)
)
)
)
EFonctionI
/* Caractere '-'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpoint,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpoint_00()
,FgLpoint_01()
,FgLpoint_02()
,FgLpoint_03()
,FgLpoint_04()
,FgLpoint_05()
,FgLpoint_06()
)
)
)
)
EFonctionI
/* Caractere '.'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLslash,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLslash_00()
,FgLslash_01()
,FgLslash_02()
,FgLslash_03()
,FgLslash_04()
,FgLslash_05()
,FgLslash_06()
)
)
)
)
EFonctionI
/* Caractere '/'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL0,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL0_00()
,FgL0_01()
,FgL0_02()
,FgL0_03()
,FgL0_04()
,FgL0_05()
,FgL0_06()
)
)
)
)
EFonctionI
/* Caractere '0'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL1,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL1_00()
,FgL1_01()
,FgL1_02()
,FgL1_03()
,FgL1_04()
,FgL1_05()
,FgL1_06()
)
)
)
)
EFonctionI
/* Caractere '1'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL2,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL2_00()
,FgL2_01()
,FgL2_02()
,FgL2_03()
,FgL2_04()
,FgL2_05()
,FgL2_06()
)
)
)
)
EFonctionI
/* Caractere '2'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL3,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL3_00()
,FgL3_01()
,FgL3_02()
,FgL3_03()
,FgL3_04()
,FgL3_05()
,FgL3_06()
)
)
)
)
EFonctionI
/* Caractere '3'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL4,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL4_00()
,FgL4_01()
,FgL4_02()
,FgL4_03()
,FgL4_04()
,FgL4_05()
,FgL4_06()
)
)
)
)
EFonctionI
/* Caractere '4'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL5,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL5_00()
,FgL5_01()
,FgL5_02()
,FgL5_03()
,FgL5_04()
,FgL5_05()
,FgL5_06()
)
)
)
)
EFonctionI
/* Caractere '5'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL6,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL6_00()
,FgL6_01()
,FgL6_02()
,FgL6_03()
,FgL6_04()
,FgL6_05()
,FgL6_06()
)
)
)
)
EFonctionI
/* Caractere '6'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL7,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL7_00()
,FgL7_01()
,FgL7_02()
,FgL7_03()
,FgL7_04()
,FgL7_05()
,FgL7_06()
)
)
)
)
EFonctionI
/* Caractere '7'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL8,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL8_00()
,FgL8_01()
,FgL8_02()
,FgL8_03()
,FgL8_04()
,FgL8_05()
,FgL8_06()
)
)
)
)
EFonctionI
/* Caractere '8'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgL9,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgL9_00()
,FgL9_01()
,FgL9_02()
,FgL9_03()
,FgL9_04()
,FgL9_05()
,FgL9_06()
)
)
)
)
EFonctionI
/* Caractere '9'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLdeux_points,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLdeux_points_00()
,FgLdeux_points_01()
,FgLdeux_points_02()
,FgLdeux_points_03()
,FgLdeux_points_04()
,FgLdeux_points_05()
,FgLdeux_points_06()
)
)
)
)
EFonctionI
/* Caractere ':'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpoint_virgule,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpoint_virgule_00()
,FgLpoint_virgule_01()
,FgLpoint_virgule_02()
,FgLpoint_virgule_03()
,FgLpoint_virgule_04()
,FgLpoint_virgule_05()
,FgLpoint_virgule_06()
)
)
)
)
EFonctionI
/* Caractere ';'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLinferieur,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLinferieur_00()
,FgLinferieur_01()
,FgLinferieur_02()
,FgLinferieur_03()
,FgLinferieur_04()
,FgLinferieur_05()
,FgLinferieur_06()
)
)
)
)
EFonctionI
/* Caractere '<'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLegal,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Test(IFEQ(vecteurs_____num_bibliotheque,BIBLIOTHEQUE_00))
Bblock
Eblock
ATes
Bblock
Test(IL_FAUT(FgLegal_00_____remplacer_par_un_diese))
Bblock
PRINT_ATTENTION("seule la bibioltheque '00' permet le remplacement de 'egal' par 'diese'");
/* Message introduit le 20180131135749... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ETes
call_in_bibliotheque(FgLegal_00()
,FgLegal_01()
,FgLegal_02()
,FgLegal_03()
,FgLegal_04()
,FgLegal_05()
,FgLegal_06()
)
)
)
)
EFonctionI
/* Caractere '='. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLsuperieur,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLsuperieur_00()
,FgLsuperieur_01()
,FgLsuperieur_02()
,FgLsuperieur_03()
,FgLsuperieur_04()
,FgLsuperieur_05()
,FgLsuperieur_06()
)
)
)
)
EFonctionI
/* Caractere '>'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLinterrogation,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLinterrogation_00()
,FgLinterrogation_01()
,FgLinterrogation_02()
,FgLinterrogation_03()
,FgLinterrogation_04()
,FgLinterrogation_05()
,FgLinterrogation_06()
)
)
)
)
EFonctionI
/* Caractere '?'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLa_rond,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLa_rond_00()
,FgLa_rond_01()
,FgLa_rond_02()
,FgLa_rond_03()
,FgLa_rond_04()
,FgLa_rond_05()
,FgLa_rond_06()
)
)
)
)
EFonctionI
/* Caractere 'A-ROND'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLA,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLA_00()
,FgLA_01()
,FgLA_02()
,FgLA_03()
,FgLA_04()
,FgLA_05()
,FgLA_06()
)
)
)
)
EFonctionI
/* Caractere 'A'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLB,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLB_00()
,FgLB_01()
,FgLB_02()
,FgLB_03()
,FgLB_04()
,FgLB_05()
,FgLB_06()
)
)
)
)
EFonctionI
/* Caractere 'B'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLC,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLC_00()
,FgLC_01()
,FgLC_02()
,FgLC_03()
,FgLC_04()
,FgLC_05()
,FgLC_06()
)
)
)
)
EFonctionI
/* Caractere 'C'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLD,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLD_00()
,FgLD_01()
,FgLD_02()
,FgLD_03()
,FgLD_04()
,FgLD_05()
,FgLD_06()
)
)
)
)
EFonctionI
/* Caractere 'D'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLE,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLE_00()
,FgLE_01()
,FgLE_02()
,FgLE_03()
,FgLE_04()
,FgLE_05()
,FgLE_06()
)
)
)
)
EFonctionI
/* Caractere 'E'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLF,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLF_00()
,FgLF_01()
,FgLF_02()
,FgLF_03()
,FgLF_04()
,FgLF_05()
,FgLF_06()
)
)
)
)
EFonctionI
/* Caractere 'F'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLG,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLG_00()
,FgLG_01()
,FgLG_02()
,FgLG_03()
,FgLG_04()
,FgLG_05()
,FgLG_06()
)
)
)
)
EFonctionI
/* Caractere 'G'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLH,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLH_00()
,FgLH_01()
,FgLH_02()
,FgLH_03()
,FgLH_04()
,FgLH_05()
,FgLH_06()
)
)
)
)
EFonctionI
/* Caractere 'H'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLI,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLI_00()
,FgLI_01()
,FgLI_02()
,FgLI_03()
,FgLI_04()
,FgLI_05()
,FgLI_06()
)
)
)
)
EFonctionI
/* Caractere 'I'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLJ,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLJ_00()
,FgLJ_01()
,FgLJ_02()
,FgLJ_03()
,FgLJ_04()
,FgLJ_05()
,FgLJ_06()
)
)
)
)
EFonctionI
/* Caractere 'J'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLK,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLK_00()
,FgLK_01()
,FgLK_02()
,FgLK_03()
,FgLK_04()
,FgLK_05()
,FgLK_06()
)
)
)
)
EFonctionI
/* Caractere 'K'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLL,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLL_00()
,FgLL_01()
,FgLL_02()
,FgLL_03()
,FgLL_04()
,FgLL_05()
,FgLL_06()
)
)
)
)
EFonctionI
/* Caractere 'L'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLM,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLM_00()
,FgLM_01()
,FgLM_02()
,FgLM_03()
,FgLM_04()
,FgLM_05()
,FgLM_06()
)
)
)
)
EFonctionI
/* Caractere 'M'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLN,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLN_00()
,FgLN_01()
,FgLN_02()
,FgLN_03()
,FgLN_04()
,FgLN_05()
,FgLN_06()
)
)
)
)
EFonctionI
/* Caractere 'N'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLO,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLO_00()
,FgLO_01()
,FgLO_02()
,FgLO_03()
,FgLO_04()
,FgLO_05()
,FgLO_06()
)
)
)
)
EFonctionI
/* Caractere 'O'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLP,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLP_00()
,FgLP_01()
,FgLP_02()
,FgLP_03()
,FgLP_04()
,FgLP_05()
,FgLP_06()
)
)
)
)
EFonctionI
/* Caractere 'P'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLQ,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLQ_00()
,FgLQ_01()
,FgLQ_02()
,FgLQ_03()
,FgLQ_04()
,FgLQ_05()
,FgLQ_06()
)
)
)
)
EFonctionI
/* Caractere 'Q'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLR,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLR_00()
,FgLR_01()
,FgLR_02()
,FgLR_03()
,FgLR_04()
,FgLR_05()
,FgLR_06()
)
)
)
)
EFonctionI
/* Caractere 'R'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLS,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLS_00()
,FgLS_01()
,FgLS_02()
,FgLS_03()
,FgLS_04()
,FgLS_05()
,FgLS_06()
)
)
)
)
EFonctionI
/* Caractere 'S'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLT,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLT_00()
,FgLT_01()
,FgLT_02()
,FgLT_03()
,FgLT_04()
,FgLT_05()
,FgLT_06()
)
)
)
)
EFonctionI
/* Caractere 'T'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLU,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLU_00()
,FgLU_01()
,FgLU_02()
,FgLU_03()
,FgLU_04()
,FgLU_05()
,FgLU_06()
)
)
)
)
EFonctionI
/* Caractere 'U'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLV,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLV_00()
,FgLV_01()
,FgLV_02()
,FgLV_03()
,FgLV_04()
,FgLV_05()
,FgLV_06()
)
)
)
)
EFonctionI
/* Caractere 'V'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLW,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLW_00()
,FgLW_01()
,FgLW_02()
,FgLW_03()
,FgLW_04()
,FgLW_05()
,FgLW_06()
)
)
)
)
EFonctionI
/* Caractere 'W'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLX,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLX_00()
,FgLX_01()
,FgLX_02()
,FgLX_03()
,FgLX_04()
,FgLX_05()
,FgLX_06()
)
)
)
)
EFonctionI
/* Caractere 'X'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLY,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLY_00()
,FgLY_01()
,FgLY_02()
,FgLY_03()
,FgLY_04()
,FgLY_05()
,FgLY_06()
)
)
)
)
EFonctionI
/* Caractere 'Y'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLZ,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLZ_00()
,FgLZ_01()
,FgLZ_02()
,FgLZ_03()
,FgLZ_04()
,FgLZ_05()
,FgLZ_06()
)
)
)
)
EFonctionI
/* Caractere 'Z'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcrochet_gauche,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLcrochet_gauche_00()
,FgLcrochet_gauche_01()
,FgLcrochet_gauche_02()
,FgLcrochet_gauche_03()
,FgLcrochet_gauche_04()
,FgLcrochet_gauche_05()
,FgLcrochet_gauche_06()
)
)
)
)
EFonctionI
/* Caractere '['. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLanti_slash,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLanti_slash_00()
,FgLanti_slash_01()
,FgLanti_slash_02()
,FgLanti_slash_03()
,FgLanti_slash_04()
,FgLanti_slash_05()
,FgLanti_slash_06()
)
)
)
)
EFonctionI
/* Caractere '\'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcrochet_droit,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLcrochet_droit_00()
,FgLcrochet_droit_01()
,FgLcrochet_droit_02()
,FgLcrochet_droit_03()
,FgLcrochet_droit_04()
,FgLcrochet_droit_05()
,FgLcrochet_droit_06()
)
)
)
)
EFonctionI
/* Caractere ']'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLcirconflexe,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLcirconflexe_00()
,FgLcirconflexe_01()
,FgLcirconflexe_02()
,FgLcirconflexe_03()
,FgLcirconflexe_04()
,FgLcirconflexe_05()
,FgLcirconflexe_06()
)
)
)
)
EFonctionI
/* Caractere '^'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLunder_score,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
Test(IFEQ(vecteurs_____num_bibliotheque,BIBLIOTHEQUE_00))
Bblock
Eblock
ATes
Bblock
Test(IL_FAUT(FgLunder_score_00_____remplacer_par_un_espace))
Bblock
PRINT_ATTENTION("seule la bibioltheque '00' permet le remplacement de 'under_score' par 'space'");
/* Message introduit le 20180130134757... */
Eblock
ATes
Bblock
Eblock
ETes
Eblock
ETes
call_in_bibliotheque(FgLunder_score_00()
,FgLunder_score_01()
,FgLunder_score_02()
,FgLunder_score_03()
,FgLunder_score_04()
,FgLunder_score_05()
,FgLunder_score_06()
)
)
)
)
EFonctionI
/* Caractere '_'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLanti_quote,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLanti_quote_00()
,FgLanti_quote_01()
,FgLanti_quote_02()
,FgLanti_quote_03()
,FgLanti_quote_04()
,FgLanti_quote_05()
,FgLanti_quote_06()
)
)
)
)
EFonctionI
/* Caractere '`'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLa,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLa_00()
,FgLa_01()
,FgLa_02()
,FgLa_03()
,FgLa_04()
,FgLa_05()
,FgLa_06()
)
)
)
)
EFonctionI
/* Caractere 'a'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLb,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLb_00()
,FgLb_01()
,FgLb_02()
,FgLb_03()
,FgLb_04()
,FgLb_05()
,FgLb_06()
)
)
)
)
EFonctionI
/* Caractere 'b'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLc,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLc_00()
,FgLc_01()
,FgLc_02()
,FgLc_03()
,FgLc_04()
,FgLc_05()
,FgLc_06()
)
)
)
)
EFonctionI
/* Caractere 'c'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLd,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLd_00()
,FgLd_01()
,FgLd_02()
,FgLd_03()
,FgLd_04()
,FgLd_05()
,FgLd_06()
)
)
)
)
EFonctionI
/* Caractere 'd'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLe,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLe_00()
,FgLe_01()
,FgLe_02()
,FgLe_03()
,FgLe_04()
,FgLe_05()
,FgLe_06()
)
)
)
)
EFonctionI
/* Caractere 'e'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLaigu,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLaigu_00()
,FgLaigu_01()
,FgLaigu_02()
,FgLaigu_03()
,FgLaigu_04()
,FgLaigu_05()
,FgLaigu_06()
)
)
)
)
EFonctionI
/* "Accent aigu". */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLgrave,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLgrave_00()
,FgLgrave_01()
,FgLgrave_02()
,FgLgrave_03()
,FgLgrave_04()
,FgLgrave_05()
,FgLgrave_06()
)
)
)
)
EFonctionI
/* "Accent grave". */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLf,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLf_00()
,FgLf_01()
,FgLf_02()
,FgLf_03()
,FgLf_04()
,FgLf_05()
,FgLf_06()
)
)
)
)
EFonctionI
/* Caractere 'f'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLg,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLg_00()
,FgLg_01()
,FgLg_02()
,FgLg_03()
,FgLg_04()
,FgLg_05()
,FgLg_06()
)
)
)
)
EFonctionI
/* Caractere 'g'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLh,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLh_00()
,FgLh_01()
,FgLh_02()
,FgLh_03()
,FgLh_04()
,FgLh_05()
,FgLh_06()
)
)
)
)
EFonctionI
/* Caractere 'h'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLi,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLi_00()
,FgLi_01()
,FgLi_02()
,FgLi_03()
,FgLi_04()
,FgLi_05()
,FgLi_06()
)
)
)
)
EFonctionI
/* Caractere 'i'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLi_trema,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLi_trema_00()
,FgLi_trema_01()
,FgLi_trema_02()
,FgLi_trema_03()
,FgLi_trema_04()
,FgLi_trema_05()
,FgLi_trema_06()
)
)
)
)
EFonctionI
/* Caractere 'i trema'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLj,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLj_00()
,FgLj_01()
,FgLj_02()
,FgLj_03()
,FgLj_04()
,FgLj_05()
,FgLj_06()
)
)
)
)
EFonctionI
/* Caractere 'j'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLk,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLk_00()
,FgLk_01()
,FgLk_02()
,FgLk_03()
,FgLk_04()
,FgLk_05()
,FgLk_06()
)
)
)
)
EFonctionI
/* Caractere 'k'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLl,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLl_00()
,FgLl_01()
,FgLl_02()
,FgLl_03()
,FgLl_04()
,FgLl_05()
,FgLl_06()
)
)
)
)
EFonctionI
/* Caractere 'l'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLm,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLm_00()
,FgLm_01()
,FgLm_02()
,FgLm_03()
,FgLm_04()
,FgLm_05()
,FgLm_06()
)
)
)
)
EFonctionI
/* Caractere 'm'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLn,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLn_00()
,FgLn_01()
,FgLn_02()
,FgLn_03()
,FgLn_04()
,FgLn_05()
,FgLn_06()
)
)
)
)
EFonctionI
/* Caractere 'n'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLo,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLo_00()
,FgLo_01()
,FgLo_02()
,FgLo_03()
,FgLo_04()
,FgLo_05()
,FgLo_06()
)
)
)
)
EFonctionI
/* Caractere 'o'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLp,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLp_00()
,FgLp_01()
,FgLp_02()
,FgLp_03()
,FgLp_04()
,FgLp_05()
,FgLp_06()
)
)
)
)
EFonctionI
/* Caractere 'p'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLq,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLq_00()
,FgLq_01()
,FgLq_02()
,FgLq_03()
,FgLq_04()
,FgLq_05()
,FgLq_06()
)
)
)
)
EFonctionI
/* Caractere 'q'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLr,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLr_00()
,FgLr_01()
,FgLr_02()
,FgLr_03()
,FgLr_04()
,FgLr_05()
,FgLr_06()
)
)
)
)
EFonctionI
/* Caractere 'r'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLs,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLs_00()
,FgLs_01()
,FgLs_02()
,FgLs_03()
,FgLs_04()
,FgLs_05()
,FgLs_06()
)
)
)
)
EFonctionI
/* Caractere 's'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLt,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLt_00()
,FgLt_01()
,FgLt_02()
,FgLt_03()
,FgLt_04()
,FgLt_05()
,FgLt_06()
)
)
)
)
EFonctionI
/* Caractere 't'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLu,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLu_00()
,FgLu_01()
,FgLu_02()
,FgLu_03()
,FgLu_04()
,FgLu_05()
,FgLu_06()
)
)
)
)
EFonctionI
/* Caractere 'u'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLv,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLv_00()
,FgLv_01()
,FgLv_02()
,FgLv_03()
,FgLv_04()
,FgLv_05()
,FgLv_06()
)
)
)
)
EFonctionI
/* Caractere 'v'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLw,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLw_00()
,FgLw_01()
,FgLw_02()
,FgLw_03()
,FgLw_04()
,FgLw_05()
,FgLw_06()
)
)
)
)
EFonctionI
/* Caractere 'w'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLx,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLx_00()
,FgLx_01()
,FgLx_02()
,FgLx_03()
,FgLx_04()
,FgLx_05()
,FgLx_06()
)
)
)
)
EFonctionI
/* Caractere 'x'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLy,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLy_00()
,FgLy_01()
,FgLy_02()
,FgLy_03()
,FgLy_04()
,FgLy_05()
,FgLy_06()
)
)
)
)
EFonctionI
/* Caractere 'y'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLz,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLz_00()
,FgLz_01()
,FgLz_02()
,FgLz_03()
,FgLz_04()
,FgLz_05()
,FgLz_06()
)
)
)
)
EFonctionI
/* Caractere 'z'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLag,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLag_00()
,FgLag_01()
,FgLag_02()
,FgLag_03()
,FgLag_04()
,FgLag_05()
,FgLag_06()
)
)
)
)
EFonctionI
/* Caractere '{'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLpipe,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLpipe_00()
,FgLpipe_01()
,FgLpipe_02()
,FgLpipe_03()
,FgLpipe_04()
,FgLpipe_05()
,FgLpipe_06()
)
)
)
)
EFonctionI
/* Caractere '|'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLad,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLad_00()
,FgLad_01()
,FgLad_02()
,FgLad_03()
,FgLad_04()
,FgLad_05()
,FgLad_06()
)
)
)
)
EFonctionI
/* Caractere '}'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLtilda,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLtilda_00()
,FgLtilda_01()
,FgLtilda_02()
,FgLtilda_03()
,FgLtilda_04()
,FgLtilda_05()
,FgLtilda_06()
)
)
)
)
EFonctionI
/* Caractere '~'. */
BFonctionI
DEFV(Common,GENERE__FonctionI_GRAPHIQUES(FgLline_feed,PARENTHESES_DES_FONCTIONS /* Common,DEFV(Fonction,) : */
,BLOC(
call_in_bibliotheque(FgLline_feed_00()
,FgLline_feed_01()
,FgLline_feed_02()
,FgLline_feed_03()
,FgLline_feed_04()
,FgLline_feed_05()
,FgLline_feed_06()
)
)
)
)
EFonctionI
/* Caractere 'line-feed'. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C L E A R D E S B I B L I O T H E Q U E S : */
/* */
/*************************************************************************************************************************************/
#undef Linex
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N G R A P H I Q U E D ' U N E C H A I N E D E C A R A C T E R E S */
/* L A O U E S T L E C U R S E U R G R A P H I Q U E E T S A N S */
/* M O D I F I E R A U C U N E S D E S " C O N S T A N T E S " G R A P H I Q U E S : */
/* */
/*************************************************************************************************************************************/
BFonctionI
#define TRACE_CARACTERE(code_caractere,fonction_caractere) \
Ca1e(code_caractere) \
Bblock \
CALS(fonction_caractere()); \
Eblock \
ECa1 \
/* Cette macro permet de referencer la fonction de trace graphique */ \
/* d'un caractere dans la bibliotheque courante. */
DEFV(Common,DEFV(FonctionI,Itexte(chaineA)))
DEFV(Argument,DEFV(CHAR,DTb0(chaineA)));
/* Chaine argument, dont on veut l'equivalence graphique suivant la */
/* bibliotheque courante. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(Int,INIT(index,INDEX0));
/* Index de la chaine argument, */
/*..............................................................................................................................*/
Tant(IFNE(ITb0(chaineA,index),END_OF_CHAIN))
Bblock
Choi(ITb0(chaineA,index))
Bblock
TRACE_CARACTERE(K_LF,FgLneutre)
TRACE_CARACTERE(K_BLANC,FgLspace)
TRACE_CARACTERE(K_EXCLAMATION,FgLexclamation)
TRACE_CARACTERE(K_QUOTE,FgLquote)
TRACE_CARACTERE(K_DIESE,FgLdiese)
TRACE_CARACTERE(K_DOLLAR,FgLdollar)
TRACE_CARACTERE(K_POUR_CENT,FgLpour_cent)
TRACE_CARACTERE(K_ET,FgLet)
TRACE_CARACTERE(K_APOSTROPHE,FgLapostrophe)
TRACE_CARACTERE(K_PG,FgLpg)
TRACE_CARACTERE(K_PD,FgLpd)
TRACE_CARACTERE(K_ETOILE,FgLetoile)
TRACE_CARACTERE(K_PLUS,FgLplus)
TRACE_CARACTERE(K_VIRGULE,FgLvirgule)
TRACE_CARACTERE(K_MOINS,FgLmoins)
TRACE_CARACTERE(K_POINT,FgLpoint)
TRACE_CARACTERE(K_SLASH,FgLslash)
TRACE_CARACTERE(K_0,FgL0)
TRACE_CARACTERE(K_1,FgL1)
TRACE_CARACTERE(K_2,FgL2)
TRACE_CARACTERE(K_3,FgL3)
TRACE_CARACTERE(K_4,FgL4)
TRACE_CARACTERE(K_5,FgL5)
TRACE_CARACTERE(K_6,FgL6)
TRACE_CARACTERE(K_7,FgL7)
TRACE_CARACTERE(K_8,FgL8)
TRACE_CARACTERE(K_9,FgL9)
TRACE_CARACTERE(K_DEUX_POINTS,FgLdeux_points)
TRACE_CARACTERE(K_POINT_VIRGULE,FgLpoint_virgule)
TRACE_CARACTERE(K_INFERIEUR,FgLinferieur)
TRACE_CARACTERE(K_EGAL,FgLegal)
TRACE_CARACTERE(K_SUPERIEUR,FgLsuperieur)
TRACE_CARACTERE(K_INTERROGATION,FgLinterrogation)
TRACE_CARACTERE(K_A_ROND,FgLa_rond)
TRACE_CARACTERE(K_A,FgLA)
TRACE_CARACTERE(K_B,FgLB)
TRACE_CARACTERE(K_C,FgLC)
TRACE_CARACTERE(K_D,FgLD)
TRACE_CARACTERE(K_E,FgLE)
TRACE_CARACTERE(K_F,FgLF)
TRACE_CARACTERE(K_G,FgLG)
TRACE_CARACTERE(K_H,FgLH)
TRACE_CARACTERE(K_I,FgLI)
TRACE_CARACTERE(K_J,FgLJ)
TRACE_CARACTERE(K_K,FgLK)
TRACE_CARACTERE(K_L,FgLL)
TRACE_CARACTERE(K_M,FgLM)
TRACE_CARACTERE(K_N,FgLN)
TRACE_CARACTERE(K_O,FgLO)
TRACE_CARACTERE(K_P,FgLP)
TRACE_CARACTERE(K_Q,FgLQ)
TRACE_CARACTERE(K_R,FgLR)
TRACE_CARACTERE(K_S,FgLS)
TRACE_CARACTERE(K_T,FgLT)
TRACE_CARACTERE(K_U,FgLU)
TRACE_CARACTERE(K_V,FgLV)
TRACE_CARACTERE(K_W,FgLW)
TRACE_CARACTERE(K_X,FgLX)
TRACE_CARACTERE(K_Y,FgLY)
TRACE_CARACTERE(K_Z,FgLZ)
TRACE_CARACTERE(K_CG,FgLcrochet_gauche)
TRACE_CARACTERE(K_ANTI_SLASH,FgLanti_slash)
TRACE_CARACTERE(K_CD,FgLcrochet_droit)
TRACE_CARACTERE(K_CIRCONFLEXE,FgLcirconflexe)
TRACE_CARACTERE(K_UNDERSCORE,FgLunder_score)
TRACE_CARACTERE(K_ANTI_QUOTE,FgLanti_quote)
TRACE_CARACTERE(K_a,FgLa)
TRACE_CARACTERE(K_b,FgLb)
TRACE_CARACTERE(K_c,FgLc)
TRACE_CARACTERE(K_d,FgLd)
TRACE_CARACTERE(K_e,FgLe)
TRACE_CARACTERE(K_f,FgLf)
TRACE_CARACTERE(K_g,FgLg)
TRACE_CARACTERE(K_h,FgLh)
TRACE_CARACTERE(K_i,FgLi)
TRACE_CARACTERE(K_j,FgLj)
TRACE_CARACTERE(K_k,FgLk)
TRACE_CARACTERE(K_l,FgLl)
TRACE_CARACTERE(K_m,FgLm)
TRACE_CARACTERE(K_n,FgLn)
TRACE_CARACTERE(K_o,FgLo)
TRACE_CARACTERE(K_p,FgLp)
TRACE_CARACTERE(K_q,FgLq)
TRACE_CARACTERE(K_r,FgLr)
TRACE_CARACTERE(K_s,FgLs)
TRACE_CARACTERE(K_t,FgLt)
TRACE_CARACTERE(K_u,FgLu)
TRACE_CARACTERE(K_v,FgLv)
TRACE_CARACTERE(K_w,FgLw)
TRACE_CARACTERE(K_x,FgLx)
TRACE_CARACTERE(K_y,FgLy)
TRACE_CARACTERE(K_z,FgLz)
TRACE_CARACTERE(K_AG,FgLag)
TRACE_CARACTERE(K_PIPE,FgLpipe)
TRACE_CARACTERE(K_AD,FgLad)
TRACE_CARACTERE(K_TILDA,FgLtilda)
Defo
Bblock
PRINT_ERREUR("le caractere demande n'existe pas dans la liste");
CAL1(Prer1("son code hexa-decimal est %08X\n",ITb0(chaineA,index)));
Eblock
EDef
Eblock
ECho
INCR(index,I);
Eblock
ETan
RETU_ERROR;
Eblock
#undef TRACE_CARACTERE
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D E S M E S S A G E S L A O U E S T L E C U R S E U R G R A P H I Q U E */
/* E T A V E C U N L I S E R E T D E L A C O U L E U R D U F O N D L ' E N C A D R A N T : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(Logical,SINT(DEBUT_MESSAGE__FIN_MESSAGE_____faire_FgMIC_FgMOC,VRAI)));
/* Controle des 'FgMIC(..)' et 'FgMOC(...)' dans 'DEBUT_MESSAGE' et 'FIN_MESSAGE'. */
DEFV(Common,DEFV(Logical,SINT(TRACE_TEXTE_____utiliser_SKH,VRAI)));
/* Afin de pouvoir choisir entre 'SKH(...)' ('VRAI') et 'SK(...)' ('FAUX') dans la procedure */
/* 'TRACE_TEXTE(...)' (introduit le 20110423111044 afin de pouvoir generer des images du */
/* type 'v $xiirv/STRV.O1.$CHAMP p=$xiP/gris.01' qui soient periodiques en 'X' et 'Y'... */
#define TAILLE_DES_CARACTERES_DES_MESSAGES \
MAX2(INTER_POINT,taille_des_caracteres_des_messages) \
/* Pour calculer la taille des caracteres. */
#define DEBUT_MESSAGE \
Bblock \
CALC(FgMIC(),DEBUT_MESSAGE__FIN_MESSAGE_____faire_FgMIC_FgMOC); \
CALS(FgMIK()); \
CALS(FgMIX()); \
CALS(FgMIY()); \
CALS(FgMIY()); \
/* Sauvegardes de toutes les donnees modifiees. */ \
CALS(FgMIT()); \
CALS(FgMIN()); \
CALS(FgT_INIT()); \
/* Initilisation sur la transformation neutre. */ \
SK(INTER_POINT); \
SX(INTER_POINT); \
SY(INTER_POINT); \
SZ(INTER_POINT); \
Eblock \
/* Initialisation des echelles pour les deplacements de generation du fond. */
#define FIN_MESSAGE \
Bblock \
CALS(FgMON()); \
CALS(FgMOT()); \
CALS(FgMOZ()); \
CALS(FgMOY()); \
CALS(FgMOX()); \
CALS(FgMOK()); \
CALC(FgMOC(),DEBUT_MESSAGE__FIN_MESSAGE_____faire_FgMIC_FgMOC); \
Eblock \
/* Restauration de toutes les donnees modifiees. */
#define TRACE_TEXTE(fonction_de_pre_trace,texte_du_message,fonction_de_post_trace) \
Bblock \
CALS(FgMIT()); \
CALS(FgMIK()); \
CALS(FgMIX()); \
CALS(FgMIY()); \
CALS(FgMIZ()); \
OPC1(TRACE_TEXTE_____utiliser_SKH,SKH,SK,MUL2(Imessage_____facteur_scale_globale,INTER_POINT)); \
SX(MUL2(Imessage_____facteur_scale_OX,TAILLE_DES_CARACTERES_DES_MESSAGES)); \
SY(MUL2(Imessage_____facteur_scale_OY,TAILLE_DES_CARACTERES_DES_MESSAGES)); \
SZ(MUL2(Imessage_____facteur_scale_OZ,TAILLE_DES_CARACTERES_DES_MESSAGES)); \
/* Initialisation des echelles "homothetiques" pour les caracteres. */ \
CALS(fonction_de_pre_trace); \
CALS(Itexte(texte_du_message)); \
CALS(fonction_de_post_trace); \
CALS(FgMOZ()); \
CALS(FgMOY()); \
CALS(FgMOX()); \
CALS(FgMOK()); \
CALS(FgMOT()); \
Eblock \
/* Fonction de trace du message courant avec les echelles homothetiques. */ \
/* */ \
/* Le 20161116120227 furent introduits 'FgMIT(...)' et 'FgMOT(...)' a cause de */ \
/* 'v $xiii/alphabet.4$FON FgLC_04' qui fait un 'FgTRZ1(...)'. Or 'TRACE_TEXTE(...)' */ \
/* est execute plusieurs fois pour le meme message, il y a donc plusieurs 'FgTRZ1(...)'s */ \
/* qui se cumulent... */
#define CENTRER_LE_MESSAGE_DE_Imessage \
FAUX \
/* Pour les utilisations "locales" de la fonction 'Imessage(...)'. */
DEFV(Common,DEFV(Logical,SINT(Imessage_____mettre_un_lisere_de_la_couleur_du_fond_autour_du_message,VRAI)));
/* Introduit le 20230516165339 afin de pouvoir inhiber le lisere, la valeur par defaut */
/* garantissant la compatibilite anterieure... */
DEFV(Common,DEFV(Float,SINT(Imessage_____facteur_scale_globale,FU)));
DEFV(Common,DEFV(Float,SINT(Imessage_____facteur_scale_OX,FU)));
DEFV(Common,DEFV(Float,SINT(Imessage_____facteur_scale_OY,FU)));
DEFV(Common,DEFV(Float,SINT(Imessage_____facteur_scale_OZ,FU)));
/* Parametres introduit le 20230522141407 pour 'v $xci/message$K 20230522140520'... */
DEFV(Common,DEFV(FonctionI,Imessage(chaineA,niveau_fond,niveau_message,taille_des_caracteres_des_messages,centrer_le_message)))
DEFV(Argument,DEFV(CHAR,DTb0(chaineA)));
/* Chaine argument que l'on veut editer a l'emplacement du curseur courant. */
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau du message (le trace a lieu avec ou sans traitement anti-aliasing, et ce */
/* suivant l'etat courant des indicateurs). */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
DEFV(Argument,DEFV(Logical,centrer_le_message));
/* Indique si le message doit etre centre dans les trois directions. Mais ATTENTION, je */
/* note le 20080909134641 qu'en general cela ne permet qu'un centrage horizontal car, en */
/* effet, les caracteres debutent sur un certain 'Y' (l'horizontale de reference) et */
/* terminent dessus ; alors seul le 'X' a progresse (le 'Z' n'intervenant en general pas). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
Test(IL_FAUT(centrer_le_message))
Bblock
DEBUT_CENTRAGE(BLOC(TRACE_TEXTE(VIDE,chaineA,VIDE);));
/* Positionnement initial du curseur. */
Eblock
ATes
Bblock
Eblock
ETes
Test(IFOU(IFNE(gINTE(MUL2(I___vecteurs_____scale_globale,F__lDENORMALISE_OX(I___vecteurs_____scale_OX)))
,INTER_POINT
)
,IFNE(gINTE(MUL2(I___vecteurs_____scale_globale,F__lDENORMALISE_OY(I___vecteurs_____scale_OY)))
,INTER_POINT
)
)
)
Bblock
PRINT_ERREUR("les echelles sur 'OX' ou 'OY' sont telles que la generation du fond est mauvaise");
CAL1(Prer1("vecteurs_____scale_globale=%.17g\n",I___vecteurs_____scale_globale));
CAL1(Prer3("dimX=%d vecteurs_____scale_OX=%.17g (%.17g)\n"
,dimX
,I___vecteurs_____scale_OX
,MUL2(I___vecteurs_____scale_globale,F__lDENORMALISE_OX(I___vecteurs_____scale_OX))
)
);
CAL1(Prer3("dimY=%d vecteurs_____scale_OY=%.17g (%.17g)\n"
,dimY
,I___vecteurs_____scale_OY
,MUL2(I___vecteurs_____scale_globale,F__lDENORMALISE_OY(I___vecteurs_____scale_OY))
)
);
Eblock
ATes
Bblock
Eblock
ETes
SET_TRACE(AUTORISE);
PUSH_ANTI_ALIASING;
SET_ANTI_ALIASING(FAUX);
/* Sauvegarde de l'anti-aliasing, et inhibition... */
SET_POINTILLES(PAS_DE_POINTILLES);
Test(IL_FAUT(Imessage_____mettre_un_lisere_de_la_couleur_du_fond_autour_du_message))
/* Test introduit le 20230516165339... */
/* */
/* On notera que les differents positionnements d'indicateurs qui precedents pourraient */
/* peut-etre etre rendus conditionnels, mais on ne sait jamais : soyons prudent. On ne le */
/* fait que pour certains... */
Bblock
SET_COULEURS(niveau_fond,niveau_fond);
/* "Ecrasement" du fond pour detourage des lettres. */
EGAL(vecteurs_____SET_COULEURS,INTERDIT);
/* Introduit le 20181023141521 afin de preserver si besoin est le detourage (cela s'est vu */
/* dans 'v $xiii/alphabet.4$FON SET_COULEURS.NOIR.niveau..'...). */
CALS(FgM4());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM1());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM2());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM2());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM3());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM3());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM4());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM4());
TRACE_TEXTE(FgMIC(),chaineA,FgMOC());
CALS(FgM1());
CALS(FgM2());
Eblock
ATes
Bblock
Eblock
ETes
EGAL(vecteurs_____SET_COULEURS,AUTORISE);
/* Introduit le 20181023141521 afin de preserver si besoin est le detourage (cela s'est vu */
/* dans 'v $xiii/alphabet.4$FON SET_COULEURS.NOIR.niveau..'...). */
SET_COULEURS(niveau_fond,niveau_message);
PULL_ANTI_ALIASING;
/* Restauration de l'etat d'anti-aliasing... */
TRACE_TEXTE(CALC(FgMIC(),DEBUT_MESSAGE__FIN_MESSAGE_____faire_FgMIC_FgMOC)
,chaineA
,CALC(FgMOC(),DEBUT_MESSAGE__FIN_MESSAGE_____faire_FgMIC_FgMOC)
);
/* Et ecriture du message. */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* O R D O N N E E D E S D I F F E R E N T S T I T R E S : */
/* */
/*************************************************************************************************************************************/
#define ORDONNEE_DES_DIFFERENTS_TITRES \
ADD2(Yorigine,SOUS(MOIT(MOIT(MOIT(MOIT(MOIT(MOIT(dimY)))))),DOUB(INTER_POINT))) \
/* Pour positionner verticalement les differents titres. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E S " B U G S " P R E S E N T S : */
/* */
/*************************************************************************************************************************************/
#ifdef BUG_SYSTEME_C_complexite_03 /* Common,DEFV(Fonction,) : bug... */
DEFV(Common,DEFV(Logical,_____BUG_SYSTEME_C_complexite_03));
#Aifdef BUG_SYSTEME_C_complexite_03 /* Common,DEFV(Fonction,) : bug... */
#Eifdef BUG_SYSTEME_C_complexite_03 /* Common,DEFV(Fonction,) : bug... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I G N A T U R E " J F C " I N V I S I B L E A V E C U N ' $amrWWW ' E V E N T U E L : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(Positive,SINT(f_X______epaisseur_de_la_signature,UN)));
/* Introduit le 20091215100926... */
DEFV(Local,DEFV(Int,INIT(debut_d_une_ligne_de_signature_X,UNDEF)));
DEFV(Local,DEFV(Int,INIT(debut_d_une_ligne_de_signature_Y,UNDEF)));
#define DEBUT_D_UNE_LIGNE_DE_SIGNATURE \
Bblock \
EGAL(X,debut_d_une_ligne_de_signature_X); \
Eblock
/* Positionnement au debut d'une ligne de signature. */
#define CHANGEMENT_DE_LIGNE_DE_SIGNATURE \
Bblock \
DEBUT_D_UNE_LIGNE_DE_SIGNATURE; \
INCR(Y,MUL2(f_X______epaisseur_de_la_signature,pasY)); \
Eblock \
/* Passage a la ligne suivante de signature. */
#define PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE \
Bblock \
INCR(X,MUL2(f_X______epaisseur_de_la_signature,pasX)); \
Eblock \
/* Passage au point suivant de la signature. */
DEFV(Common,DEFV(Logical,SINT(f_X______compatibilite_20090516,FAUX)));
/* Introduit le 20090516191650... */
DEFV(Common,DEFV(genere_p,SINT(f_X______niveau_de_marquage_de_la_signature_invisible,BLANC)));
DEFV(Common,DEFV(genere_p,SINT(f_X______niveau_du_bord_de_la_signature_invisible,NOIR)));
/* Introduit le 20090517085314... */
#define p___ \
Bblock \
BLOC(VIDE;); \
/* ATTENTION, on ne peut faire ici : */ \
/* */ \
/* PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; */ \
/* */ \
/* car, en effet, 'p___' est appele dans la fonction 'f___(...)' qui ne peut donc pas */ \
/* modifier simplement ses arguments 'X' et 'Y'... */ \
Eblock \
/* Deplacement sur la ligne courante... */
DEFV(Local,DEFV(genere_p,INIT(niveau_courant_de_la_signature_invisible,NIVEAU_UNDEF)));
#define p_X_ \
Bblock \
BSaveVariable(Int,Y); \
BSaveVariable(Int,X); \
\
begin_imageQ(DoIn \
,NEUT(EnTete_de_sauvegardA ## Y) \
,ADD2(EnTete_de_sauvegardA ## Y,PRED(f_X______epaisseur_de_la_signature)) \
,pasY \
,DoIn \
,NEUT(EnTete_de_sauvegardA ## X) \
,ADD2(EnTete_de_sauvegardA ## X,PRED(f_X______epaisseur_de_la_signature)) \
,pasX \
) \
/* L'epaississement des signatures a ete introduit le 20091215100926... */ \
/* */ \
/* Le 20091229102813 les 'TRMU(...)'s ont ete remplace par des 'PRED(...)'s plus logiques... */ \
Bblock \
store_point_valide(COND(IL_FAUT(f_X______compatibilite_20090516) \
,VCOMP(load_point_valide(imageA,X,Y)) \
,niveau_courant_de_la_signature_invisible \
) \
,imageR \
,X,Y \
,FVARIABLE \
); \
/* Notons le 20090516191650 que cette methode presente deux inconvenients : d'une part si */ \
/* le niveau anterieur est proche de 'GRIS_4', alors le resultat du 'VCOMP(...)' est */ \
/* lui-aussi proche de 'GRIS_4' et donc quasiment invisible (c'etait, par exemple, le cas */ \
/* de l'image 'v $xiirk/REFL.l1.0512' billard de bord 'GRIS_4'). D'autre part, en general la */ \
/* signature est faite sur les trois composantes 'RVB' d'une image en couleurs (c'est en */ \
/* particulier le cas dans 'v $xci/RVB_store$K signature_invisible') ; dans ces conditions, */ \
/* en general, le 'VCOMP(...)' ne donne pas le meme niveau pour les trois composantes et la */ \
/* signature n'est donc pas en Noir et Blanc, mais en couleurs... */ \
/* */ \
/* D'ou la solution implementee le 20090516191650 ou le point courant de la signature ou de */ \
/* son bord sont forces... */ \
Eblock \
end_imageQ(EDoI,EDoI) \
\
ESaveVariable(Int,X); \
ESaveVariable(Int,Y); \
/* ATTENTION, on ne peut faire ici : */ \
/* */ \
/* PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; */ \
/* */ \
/* car, en effet, 'p_X_' est appele dans la fonction 'f_X_(...)' qui ne peut donc pas */ \
/* modifier simplement ses arguments 'X' et 'Y'... */ \
Eblock \
/* Deplacement sur la ligne courante et marquage... */
DEFV(Local,DEFV(FonctionI,f___(imageR,imageA,X,Y)))
/* Nota : cette fonction a ete cree par "symetrie" avec 'f_X_(...)'. */
DEFV(Argument,DEFV(image,imageR));
/* Image Resultat, telle que : imageR[X][Y]=imageA[X][Y] avec une signature cachee... */
DEFV(Argument,DEFV(image,imageA));
/* Image Argument. */
DEFV(Argument,DEFV(Int,X));
DEFV(Argument,DEFV(Int,Y));
/* Coordonnees entieres 'X' et 'Y'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
p___;
RETU_ERROR;
Eblock
EFonctionI
BFonctionI
DEFV(Local,DEFV(FonctionI,f_X_(imageR,imageA,X,Y)))
/* Nota : cette fonction a ete cree car sinon, l'utilisation directe de la macro-procedure */
/* 'p_X_' genere un code intermediaire dementiel... */
DEFV(Argument,DEFV(image,imageR));
/* Image Resultat, telle que : imageR[X][Y]=imageA[X][Y] avec une signature cachee... */
DEFV(Argument,DEFV(image,imageA));
/* Image Argument. */
DEFV(Argument,DEFV(Int,X));
DEFV(Argument,DEFV(Int,Y));
/* Coordonnees entieres 'X' et 'Y'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
p_X_;
RETU_ERROR;
Eblock
EFonctionI
BFonctionI
#define ___ \
Bblock \
CALS(f___(imageR,imageA,X,Y)); \
PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; \
/* ATTENTION : */ \
/* */ \
/* PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; */ \
/* */ \
/* ne peut etre fait dans 'f___(...)' car celle-ci ne peut pas modifier simplement ses */ \
/* arguments 'X' et 'Y'... */ \
Eblock \
/* Deplacement sur la ligne courante... */
#define _X_ \
Bblock \
CALS(f_X_(imageR,imageA,X,Y)); \
PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; \
/* ATTENTION : */ \
/* */ \
/* PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE; */ \
/* */ \
/* ne peut etre fait dans 'f_X_(...)' car celle-ci ne peut pas modifier simplement ses */ \
/* arguments 'X' et 'Y'... */ \
Eblock \
/* Deplacement sur la ligne courante et marquage... */
#define Ae1 ___;_X_;___;___
#define Ae2 _X_;___;_X_;___
#define Ae3 _X_;_X_;_X_;___
#define Ae4 _X_;___;_X_;___
#define Ae5 _X_;___;_X_;___
#define Be1 _X_;_X_;___;___
#define Be2 _X_;___;_X_;___
#define Be3 _X_;_X_;_X_;___
#define Be4 _X_;___;_X_;___
#define Be5 _X_;_X_;___;___
#define Ce1 _X_;_X_;_X_;___
#define Ce2 _X_;___;_X_;___
#define Ce3 _X_;___;___;___
#define Ce4 _X_;___;_X_;___
#define Ce5 _X_;_X_;_X_;___
#define De1 _X_;_X_;___;___
#define De2 _X_;___;_X_;___
#define De3 _X_;___;_X_;___
#define De4 _X_;___;_X_;___
#define De5 _X_;_X_;___;___
#define Ee1 _X_;_X_;_X_;___
#define Ee2 _X_;___;___;___
#define Ee3 _X_;_X_;___;___
#define Ee4 _X_;___;___;___
#define Ee5 _X_;_X_;_X_;___
#define Fe1 _X_;_X_;_X_;___
#define Fe2 _X_;___;___;___
#define Fe3 _X_;_X_;___;___
#define Fe4 _X_;___;___;___
#define Fe5 _X_;___;___;___
#define Ge1 _X_;_X_;_X_;_X_;___
#define Ge2 _X_;___;___;_X_;___
#define Ge3 _X_;___;___;___;___
#define Ge4 _X_;___;_X_;_X_;___
#define Ge5 _X_;_X_;_X_;_X_;___
#define He1 _X_;___;_X_;___
#define He2 _X_;___;_X_;___
#define He3 _X_;_X_;_X_;___
#define He4 _X_;___;_X_;___
#define He5 _X_;___;_X_;___
#define Ie1 _X_;___
#define Ie2 _X_;___
#define Ie3 _X_;___
#define Ie4 _X_;___
#define Ie5 _X_;___
#define Je1 ___;___;_X_;___
#define Je2 ___;___;_X_;___
#define Je3 ___;___;_X_;___
#define Je4 _X_;___;_X_;___
#define Je5 _X_;_X_;_X_;___
#define Ke1 _X_;___;___;_X_;___
#define Ke2 _X_;___;_X_;___;___
#define Ke3 _X_;_X_;___;___;___
#define Ke4 _X_;___;_X_;___;___
#define Ke5 _X_;___;___;_X_;___
#define Le1 _X_;___;___;___
#define Le2 _X_;___;___;___
#define Le3 _X_;___;___;___
#define Le4 _X_;___;___;___
#define Le5 _X_;_X_;_X_;___
#define Me1 _X_;_X_;_X_;_X_;_X_;___
#define Me2 _X_;___;_X_;___;_X_;___
#define Me3 _X_;___;_X_;___;_X_;___
#define Me4 _X_;___;___;___;_X_;___
#define Me5 _X_;___;___;___;_X_;___
#define Ne1 _X_;___;___;___;_X_;___
#define Ne2 _X_;_X_;___;___;_X_;___
#define Ne3 _X_;___;_X_;___;_X_;___
#define Ne4 _X_;___;___;_X_;_X_;___
#define Ne5 _X_;___;___;___;_X_;___
#define Oe1 ___;_X_;___;___
#define Oe2 _X_;___;_X_;___
#define Oe3 _X_;___;_X_;___
#define Oe4 _X_;___;_X_;___
#define Oe5 ___;_X_;___;___
#define Pe1 _X_;_X_;_X_;___
#define Pe2 _X_;___;_X_;___
#define Pe3 _X_;_X_;_X_;___
#define Pe4 _X_;___;___;___
#define Pe5 _X_;___;___;___
#define Qe1 ___;_X_;___;___
#define Qe2 _X_;___;_X_;___
#define Qe3 _X_;___;_X_;___
#define Qe4 _X_;_X_;_X_;___
#define Qe5 ___;_X_;_X_;___
#define Re1 _X_;_X_;_X_;___
#define Re2 _X_;___;_X_;___
#define Re3 _X_;_X_;_X_;___
#define Re4 _X_;_X_;___;___
#define Re5 _X_;___;_X_;___
#define Se1 _X_;_X_;_X_;___
#define Se2 _X_;___;___;___
#define Se3 _X_;_X_;_X_;___
#define Se4 ___;___;_X_;___
#define Se5 _X_;_X_;_X_;___
#define Te1 _X_;_X_;_X_;___
#define Te2 ___;_X_;___;___
#define Te3 ___;_X_;___;___
#define Te4 ___;_X_;___;___
#define Te5 ___;_X_;___;___
#define Ue1 _X_;___;_X_;___
#define Ue2 _X_;___;_X_;___
#define Ue3 _X_;___;_X_;___
#define Ue4 _X_;___;_X_;___
#define Ue5 _X_;_X_;_X_;___
#define Ve1 _X_;___;_X_;___
#define Ve2 _X_;___;_X_;___
#define Ve3 _X_;___;_X_;___
#define Ve4 _X_;___;_X_;___
#define Ve5 ___;_X_;___;___
#define We1 _X_;___;___;___;_X_;___
#define We2 _X_;___;___;___;_X_;___
#define We3 _X_;___;_X_;___;_X_;___
#define We4 _X_;___;_X_;___;_X_;___
#define We5 _X_;_X_;_X_;_X_;_X_;___
#define Xe1 _X_;___;___;___;_X_;___
#define Xe2 ___;_X_;___;_X_;___;___
#define Xe3 ___;___;_X_;___;___;___
#define Xe4 ___;_X_;___;_X_;___;___
#define Xe5 _X_;___;___;___;_X_;___
#define Ye1 _X_;___;_X_;___
#define Ye2 _X_;___;_X_;___
#define Ye3 _X_;_X_;_X_;___
#define Ye4 ___;_X_;___;___
#define Ye5 ___;_X_;___;___
#define Ze1 _X_;_X_;_X_;___
#define Ze2 ___;___;_X_;___
#define Ze3 _X_;_X_;_X_;___
#define Ze4 _X_;___;___;___
#define Ze5 _X_;_X_;_X_;___
#define be1 ___;___;___
#define be2 ___;___;___
#define be3 ___;___;___
#define be4 ___;___;___
#define be5 ___;___;___
#define pe1 ___;___
#define pe2 ___;___
#define pe3 ___;___
#define pe4 ___;___
#define pe5 _X_;___
/* Definition individuelle des caracteres introduite le 20090113110239 afin de simplifier */
/* d'eventuelles extensions ulterieures. On notera la notation : par exemple "Fe2" signifie */
/* qu'il s'agit de la deuxieme ("2") ligne de la definition de l'estampille ("e") de la */
/* lettre "F", sachant qu'ensuite les lignes {1,2,3,4,5} doivent etre referencees dans */
/* l'ordre inverse {5,4,3,2,1} (comme ci-apres pour l'estampille "JFC") puisqu'en effet */
/* l'axe 'Y' monte alors que les listes precedentes descendent... */
/* */
/* Le 20090113113521 l'alphabet '$Alphabet_A_Z' a ete defini a partir des fichiers contenus */
/* dans '$xo/alphabet.03$D' via l'alias : */
/* */
/* alias GenAlpha 'set CaRac=\!* ; \\ */
/* $CA $xo/alphabet.03$D/$CaRac | \\ */
/* $SE -e "s+ +___;+g" \\ */
/* -e "s+\*+_X_;+g" \\ */
/* -e "s+ +___;+g" \\ */
/* -e "s+\*+_X_;+g" \\ */
/* -e '"'"'s+;___;$++'"'"' \\ */
/* -e "s+^+#define \!*ex +" | \\ */
/* $NL | \\ */
/* $R "$K_TAB" "$K_BLANC" | \\ */
/* $SE -e"s+^ *\([$Alphabet_0_9]\) *\(#define $CaRac""e\)x+\2\1+" ; \\ */
/* saut ; \\ */
/* unset CaRac' */
/* */
/* On notera les substitutions via des "s+...+...+"s et non pas des "s/.../.../"s car, en */
/* effet nous sommes ici a l'interieur de commentaires et donc il faut eviter des suites */
/* "malheureuses" faites de "/"s et de "*"s... */
#define SIGNATURE_INVISIBLE(niveau) \
Bblock \
EGAL(niveau_courant_de_la_signature_invisible,niveau); \
\
Test(IL_FAUT(lisible)) \
Bblock \
Test(IL_FAUT(Isignature_invisible_____a_la_signature_lisible_faut_il_ajouter_amrWWW)) \
Bblock \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
/* :Debut_listMN_alphabets_fon__amrWWW: */ \
\
We5;We5;We5; \
pe5; \
Le5;Ae5;Ce5;Te5;Ae5;Me5;Me5;Ee5; \
pe5; \
Pe5;Oe5;Le5;Ye5;Te5;Ee5;Ce5;He5;Ne5;Ie5;Qe5;Ue5;Ee5; \
pe5; \
Fe5;Re5; \
\
/* :Fin_listMN_alphabets_fon__amrWWW: */ \
\
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
We4;We4;We4; \
pe4; \
Le4;Ae4;Ce4;Te4;Ae4;Me4;Me4;Ee4; \
pe4; \
Pe4;Oe4;Le4;Ye4;Te4;Ee4;Ce4;He4;Ne4;Ie4;Qe4;Ue4;Ee4; \
pe4; \
Fe4;Re4; \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
We3;We3;We3; \
pe3; \
Le3;Ae3;Ce3;Te3;Ae3;Me3;Me3;Ee3; \
pe3; \
Pe3;Oe3;Le3;Ye3;Te3;Ee3;Ce3;He3;Ne3;Ie3;Qe3;Ue3;Ee3; \
pe3; \
Fe3;Re3; \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
We2;We2;We2; \
pe2; \
Le2;Ae2;Ce2;Te2;Ae2;Me2;Me2;Ee2; \
pe2; \
Pe2;Oe2;Le2;Ye2;Te2;Ee2;Ce2;He2;Ne2;Ie2;Qe2;Ue2;Ee2; \
pe2; \
Fe2;Re2; \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
We1;We1;We1; \
pe1; \
Le1;Ae1;Ce1;Te1;Ae1;Me1;Me1;Ee1; \
pe1; \
Pe1;Oe1;Le1;Ye1;Te1;Ee1;Ce1;He1;Ne1;Ie1;Qe1;Ue1;Ee1; \
pe1; \
Fe1;Re1; \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
\
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
/* Introduit le 20090113132247 afin de permettre d'ajouter l'adresse de mon site Internet */ \
/* ('$amrWWW') en-dessous de la signature "JFC" (puisque genere avant cette derniere...). */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
\
Je5;Fe5;Ce5;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Je4;Fe4;Ce4;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Je3;Fe3;Ce3;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Je2;Fe2;Ce2;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Je1;Fe1;Ce1;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Eblock \
ATes \
Bblock \
_X_;_X_;___;___;_X_;_X_;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
___;_X_;_X_;___;_X_;___;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
___;_X_;_X_;_X_;_X_;_X_;CHANGEMENT_DE_LIGNE_DE_SIGNATURE; \
Eblock \
ETes \
Eblock \
/* Signature invisible avec eventuellement '$amrWWW'. Cette procedure a ete introduite */ \
/* le 20090517093020 afin de permettre d'entourer la signature (BLANC en general) d'un */ \
/* bord (NOIR en general)... */
DEFV(Common,DEFV(Logical,SINT(Isignature_invisible_____a_la_signature_lisible_faut_il_ajouter_amrWWW,FAUX)));
/* Introduit le 20090113132247 afin de permettre d'ajouter l'adresse de mon site Internet */
/* ('$amrWWW'). */
DEFV(Common,DEFV(FonctionI,Isignature_invisible(imageR,imageA,ARGUMENT_POINTERs(emplacement_de_la_signature_invisible),lisible)))
/* */
/* ATTENTION : on notera que 'Isignature_invisible(...)' travaille sur des images */
/* arbitraires et non pas uniquement sur 'ImageG'... */
/* */
DEFV(Argument,DEFV(image,imageR));
/* Image Resultat, telle que : imageR[X][Y]=imageA[X][Y] avec une signature cachee... */
DEFV(Argument,DEFV(image,imageA));
/* Image Argument. */
DEFV(Argument,DEFV(pointF_2D,POINTERs(emplacement_de_la_signature_invisible)));
/* Coordonnees du coin bas-gauche de la signature exprimees dans des unites telles que */
/* l'unite vaut respectivement [Xmin,Xmax] et [Ymin,Ymax]. */
DEFV(Argument,DEFV(Logical,lisible));
/* Indique si l'estampille est minuscule ('FAUX') ou bien doit rester lisible ('VRAI'). */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(Int,INIT(X,UNDEF));
DEFV(Int,INIT(Y,UNDEF));
/* Coordonnees entieres du point courant... */
/*..............................................................................................................................*/
#if ( (! defined(BUG_SYSTEME_C_complexite_03)) \
)
EGAL(debut_d_une_ligne_de_signature_X,_cDENORMALISE_OX(ASI1(emplacement_de_la_signature_invisible,x)));
EGAL(debut_d_une_ligne_de_signature_Y,_cDENORMALISE_OY(ASI1(emplacement_de_la_signature_invisible,y)));
EGAL(X,debut_d_une_ligne_de_signature_X);
EGAL(Y,debut_d_une_ligne_de_signature_Y);
/* Definition des coordonnees entieres du point de depart. */
Test(IL_FAUT(f_X______compatibilite_20090516))
Bblock
SIGNATURE_INVISIBLE(NIVEAU_UNDEF);
Eblock
ATes
Bblock
BSaveVariable(Int,Y);
BSaveVariable(Int,X);
begin_imageQ(DoIn
,SOUS(EnTete_de_sauvegardA ## Y,MUL2(f_X______epaisseur_de_la_signature,pasY))
,ADD2(EnTete_de_sauvegardA ## Y,MUL2(f_X______epaisseur_de_la_signature,pasY))
,pasY
,DoIn
,SOUS(EnTete_de_sauvegardA ## X,MUL2(f_X______epaisseur_de_la_signature,pasX))
,ADD2(EnTete_de_sauvegardA ## X,MUL2(f_X______epaisseur_de_la_signature,pasX))
,pasX
)
Bblock
BSaveVariable(Int,Y);
BSaveVariable(Int,X);
EGAL(debut_d_une_ligne_de_signature_X,X);
EGAL(debut_d_une_ligne_de_signature_Y,Y);
CALS(FgMIC());
/* Sauvegarde du curseur... */
SIGNATURE_INVISIBLE(f_X______niveau_du_bord_de_la_signature_invisible);
/* Trace du bord... */
CALS(FgMOC());
/* Restauration du curseur... */
ESaveVariable(Int,X);
ESaveVariable(Int,Y);
Eblock
end_imageQ(EDoI,EDoI)
ESaveVariable(Int,X);
ESaveVariable(Int,Y);
EGAL(debut_d_une_ligne_de_signature_X,X);
EGAL(debut_d_une_ligne_de_signature_Y,Y);
SIGNATURE_INVISIBLE(f_X______niveau_de_marquage_de_la_signature_invisible);
/* Trace de la signature elle-meme... */
Eblock
ETes
#Aif ( (! defined(BUG_SYSTEME_C_complexite_03)) \
)
PRINT_ATTENTION("la fonction 'Isignature_invisible(...)' n'est pas disponible sur ce SYSTEME");
#Eif ( (! defined(BUG_SYSTEME_C_complexite_03)) \
)
RETU_ERROR;
Eblock
#undef SIGNATURE_INVISIBLE
#undef pe5
#undef pe4
#undef pe3
#undef pe2
#undef pe1
#undef be5
#undef be4
#undef be3
#undef be2
#undef be1
#undef Ze5
#undef Ze4
#undef Ze3
#undef Ze2
#undef Ze1
#undef Ye5
#undef Ye4
#undef Ye3
#undef Ye2
#undef Ye1
#undef Xe5
#undef Xe4
#undef Xe3
#undef Xe2
#undef Xe1
#undef We5
#undef We4
#undef We3
#undef We2
#undef We1
#undef Ve5
#undef Ve4
#undef Ve3
#undef Ve2
#undef Ve1
#undef Ue5
#undef Ue4
#undef Ue3
#undef Ue2
#undef Ue1
#undef Te5
#undef Te4
#undef Te3
#undef Te2
#undef Te1
#undef Se5
#undef Se4
#undef Se3
#undef Se2
#undef Se1
#undef Re5
#undef Re4
#undef Re3
#undef Re2
#undef Re1
#undef Qe5
#undef Qe4
#undef Qe3
#undef Qe2
#undef Qe1
#undef Pe5
#undef Pe4
#undef Pe3
#undef Pe2
#undef Pe1
#undef Oe5
#undef Oe4
#undef Oe3
#undef Oe2
#undef Oe1
#undef Ne5
#undef Ne4
#undef Ne3
#undef Ne2
#undef Ne1
#undef Me5
#undef Me4
#undef Me3
#undef Me2
#undef Me1
#undef Le5
#undef Le4
#undef Le3
#undef Le2
#undef Le1
#undef Ke5
#undef Ke4
#undef Ke3
#undef Ke2
#undef Ke1
#undef Je5
#undef Je4
#undef Je3
#undef Je2
#undef Je1
#undef Ie5
#undef Ie4
#undef Ie3
#undef Ie2
#undef Ie1
#undef He5
#undef He4
#undef He3
#undef He2
#undef He1
#undef Ge5
#undef Ge4
#undef Ge3
#undef Ge2
#undef Ge1
#undef Fe5
#undef Fe4
#undef Fe3
#undef Fe2
#undef Fe1
#undef Ee5
#undef Ee4
#undef Ee3
#undef Ee2
#undef Ee1
#undef De5
#undef De4
#undef De3
#undef De2
#undef De1
#undef Ce5
#undef Ce4
#undef Ce3
#undef Ce2
#undef Ce1
#undef Be5
#undef Be4
#undef Be3
#undef Be2
#undef Be1
#undef Ae5
#undef Ae4
#undef Ae3
#undef Ae2
#undef Ae1
#undef _X_
#undef ___
EFonctionI
#undef p_X_
#undef p___
#undef PASSAGE_AU_CARACTERE_SUIVANT_SUR_UNE_LIGNE
#undef CHANGEMENT_DE_LIGNE_DE_SIGNATURE
#undef DEBUT_D_UNE_LIGNE_DE_SIGNATURE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* S I G N A T U R E " J F C " : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(Logical,SINT(Isignature_____en_fait_estampiller,FAUX)));
DEFV(Common,DEFV(Logical,SINT(Isignature_____l_estampille_doit_etre_lisible,VRAI)));
/* Introduit le 20050310164834 afin de permettre d'estampiller (plutot que de signer) les */
/* images lors de leur mise au format '$PostScript'... */
DEFV(Common,DEFV(FonctionI,Isignature(niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(Schar,INIS(DTb0(signature),C_JFC));
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
SET_CURSOR(_____cNORMALISE_OX(ADD2(Xorigine,SOUS(dimX,MOIT(MOIT(MOIT(MOIT(MOIT(MOIT(dimX)))))))))
,_____cNORMALISE_OY(ORDONNEE_DES_DIFFERENTS_TITRES)
,_____cNORMALISE_OZ(Zorigine)
);
Test(IL_FAUT(Isignature_____en_fait_estampiller))
Bblock
/* Cas nouveau ou l'on veut plutot estampiller (ce qui est plus discret) : */
DEFV(pointF_2D,emplacement_de_l_estampille);
INITIALISATION_POINT_2D(emplacement_de_l_estampille,ASD1(vecteurs_____cursor_3D,x),ASD1(vecteurs_____cursor_3D,y));
/* Localisation de l'estampille au meme endroit que la signature... */
CALS(Isignature_invisible(ImageG
,ImageG
,ADRESSE(emplacement_de_l_estampille)
,Isignature_____l_estampille_doit_etre_lisible
)
);
/* Et estampillage... */
Eblock
ATes
Bblock
/* Cas par defaut ou l'on signe (comme avant le 20050310164834...) : */
SET_TRACE(INTERDIT);
CALS(FgTSYZ());
TRACE_TEXTE(VIDE,signature,VIDE);
/* On positionne ainsi l'origine de la signature en tracant (sans tracer...) */
/* la signature a l'envers... */
CALS(FgT_INIT());
SET_TRACE(AUTORISE);
CALS(Imessage(signature,niveau_fond,niveau_message,taille_des_caracteres_des_messages,CENTRER_LE_MESSAGE_DE_Imessage));
/* Et signature "JFC"... */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
Eblock
ETes
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D U M E S S A G E L A C T A M M E : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,Ilactamme(niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(Schar,INIS(DTb0(lactamme),C_LACTAMME));
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
SET_CURSOR(_____cNORMALISE_OX(ADD2(Xorigine,MOIT(MOIT(MOIT(MOIT(MOIT(MOIT(dimX))))))))
,_____cNORMALISE_OY(ORDONNEE_DES_DIFFERENTS_TITRES)
,_____cNORMALISE_OZ(Zorigine)
);
CALS(Imessage(lactamme,niveau_fond,niveau_message,taille_des_caracteres_des_messages,CENTRER_LE_MESSAGE_DE_Imessage));
/* Et edition du message "LACTAMME"... */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D U M E S S A G E G S V - L A C T A M M E : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,Igsv_lactamme(niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(Schar,INIS(DTb0(gsv_lactamme),C_GSV_LACTAMME));
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
SET_CURSOR(_____cNORMALISE_OX(ADD2(Xorigine,MOIT(MOIT(MOIT(MOIT(MOIT(MOIT(dimX))))))))
,_____cNORMALISE_OY(ORDONNEE_DES_DIFFERENTS_TITRES)
,_____cNORMALISE_OZ(Zorigine)
);
CALS(Imessage(gsv_lactamme,niveau_fond,niveau_message,taille_des_caracteres_des_messages,CENTRER_LE_MESSAGE_DE_Imessage));
/* Et edition du message "GSV_LACTAMME"... */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D E L A D A T E : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,Idate(niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
DEFV(CHAR,INIT(POINTERc(date),CHAINE_UNDEF));
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
EGAL(date,exec_shell(C_DATE));
/* Recuperation de la date. */
SET_CURSOR(_____cNORMALISE_OX(ADD2(Xorigine,MOIT(dimX)))
,_____cNORMALISE_OY(ORDONNEE_DES_DIFFERENTS_TITRES)
,_____cNORMALISE_OZ(Zorigine)
);
DEBUT_CENTRAGE(BLOC(TRACE_TEXTE(VIDE,date,VIDE);));
/* Positionnement initial du curseur. */
CALS(Imessage(date,niveau_fond,niveau_message,taille_des_caracteres_des_messages,CENTRER_LE_MESSAGE_DE_Imessage));
/* Et edition centree de la date... */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D E L A D A T E " N U M E R I Q U E " : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,Idate_numerique(niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
CALS(Imessage(Gvar(C_DATE_NUMERIQUE)
,niveau_fond,niveau_message
,taille_des_caracteres_des_messages
,CENTRER_LE_MESSAGE_DE_Imessage
)
);
/* Et edition de la date "numerique". */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E D I T I O N D ' U N T I T R E C E N T R E : */
/* */
/*************************************************************************************************************************************/
BFonctionI
DEFV(Common,DEFV(FonctionI,Ititre(titre,niveau_fond,niveau_message,taille_des_caracteres_des_messages)))
DEFV(Argument,DEFV(CHAR,DTb0(titre)));
/* Chaine argument que l'on veut editer au centre et en bas de l'image. */
DEFV(Argument,DEFV(genere_p,niveau_fond));
/* Niveau du fond, */
DEFV(Argument,DEFV(genere_p,niveau_message));
/* Niveau (sans "anti-aliasing") du message. */
DEFV(Argument,DEFV(Positive,taille_des_caracteres_des_messages));
/* Taille des caracteres sur 'OX' et 'OY' des caracteres des messages ; cet */
/* argument est destine a 'SX' et 'SY'. */
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
INIT_ERROR;
/*..............................................................................................................................*/
DEBUT_MESSAGE;
/* Sauvegardes et initialisations... */
SET_CURSOR(_____cNORMALISE_OX(ADD2(Xorigine,MOIT(dimX)))
,_____cNORMALISE_OY(ORDONNEE_DES_DIFFERENTS_TITRES)
,_____cNORMALISE_OZ(Zorigine)
);
DEBUT_CENTRAGE(BLOC(TRACE_TEXTE(VIDE,titre,VIDE);));
/* Positionnement initial du curseur. */
CALS(Imessage(titre,niveau_fond,niveau_message,taille_des_caracteres_des_messages,CENTRER_LE_MESSAGE_DE_Imessage));
/* Et edition centree du titre... */
FIN_MESSAGE;
/* Restauration de toutes les donnees modifiees. */
RETU_ERROR;
Eblock
EFonctionI
#undef ORDONNEE_DES_DIFFERENTS_TITRES
#undef CENTRER_LE_MESSAGE_DE_Imessage
#undef TRACE_TEXTE
#undef FIN_MESSAGE
#undef DEBUT_MESSAGE
#undef TAILLE_DES_CARACTERES_DES_MESSAGES
_______________________________________________________________________________________________________________________________________