/*************************************************************************************************************************************/ /* */ /* M I S E D ' U N T I T R E E N B A S D ' U N E I M A G E : */ /* */ /* */ /* Author of '$xci/titre$K' : */ /* */ /* Jean-Francois COLONNA (LACTAMME, 1987??????????). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* I N T E R F A C E ' listG ' : */ /* */ /* */ /* :Debut_listG: */ /* :Fin_listG: */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* F I C H I E R S D ' I N C L U D E S : */ /* */ /*************************************************************************************************************************************/ #include INCLUDES_BASE #include image_image_CONTOURS_EXT #include image_image_ALPHABET_0_EXT #include image_image_ALPHABET_1_EXT #include image_image_ALPHABET_2_EXT /* L'include de 'image_image_ALPHABET_3_DEF' a ete supprime le 20110502095152... */ #include image_image_ALPHABET_3_EXT #include image_image_ALPHABET_4_EXT /* Introduit le 20161116111648... */ #include image_image_ALPHABET_5_EXT /* Introduit le 20230516182538... */ #include image_image_ALPHABET_6_EXT /* Introduit le 20240419180338... */ #include image_image_ALPHABETS_EXT /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ #define NIVEAU_FOND \ NOIR #define NIVEAU_TITRE \ BLANC #define TAILLE_DES_CARACTERES_DES_MESSAGES \ GRO2(INTER_POINT) #define ANTI_ALIASING \ FAUX \ /* Pas d'anti-aliasing a priori... */ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* M A C R O S U T I L E S : */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* M I S E D ' U N T I T R E E N B A S D ' U N E I M A G E : */ /* */ /*************************************************************************************************************************************/ BCommande(nombre_d_arguments,arguments) /*-----------------------------------------------------------------------------------------------------------------------------------*/ Bblock DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE)); DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE)); DEFV(CHAR,INIC(POINTERc(titre),C_VIDE)); /* Titre a centrer en bas de l'image. */ DEFV(genere_p,INIT(niveau_fond,NIVEAU_FOND)); DEFV(genere_p,INIT(niveau_titre,NIVEAU_TITRE)); DEFV(Positive,INIT(taille_des_caracteres_des_messages,TAILLE_DES_CARACTERES_DES_MESSAGES)); DEFV(Logical,INIT(anti_aliasing,ANTI_ALIASING)); /* Indique s'il faut ou pas faire le traitement anti-aliasing... */ /*..............................................................................................................................*/ EGAL(DEBUT_CENTRAGE_____compatibilite_20080909,VRAI); /* A priori (introduit le 20080909155549...). */ GET_ARGUMENTSg(nombre_d_arguments ,BLOC(GET_ARGUMENT_L("DEBUT_CENTRAGE_____compatibilite_20080909=""compatibilite_20080909=" ,DEBUT_CENTRAGE_____compatibilite_20080909 ); /* Parametre introduit le 20080909143350... */ GET_ARGUMENT_L("Ipoint_anti_aliase_segment_____compatibilite_20110420=""compatibilite_20110420=" ,Ipoint_anti_aliase_segment_____compatibilite_20110420 ); /* Parametre introduit le 20110420140853... */ GET_ARGUMENT_C("imageA=""A=",nom_imageA); GET_ARGUMENT_C("imageR=""R=",nom_imageR); GET_ARGUMENT_C("titre=",titre); GET_ARGUMENT_P("niveau_fond=""f=""Nfond=",niveau_fond); GET_ARGUMENT_P("t=""niveau_titre=""Ntitre=",niveau_titre); GET_ARGUMENT_I("taille=""T=",taille_des_caracteres_des_messages); GET_ARGUMENT_L("anti_aliasing=""a=",anti_aliasing); GET_ARGUMENT_I("bibliotheque=",vecteurs_____num_bibliotheque); GET_ARGUMENT_L("editer_vecteur_2D=""ev2D=",IFsegment_____editer_le_vecteur_bidimensionnel); GET_ARGUMENT_L("editer_vecteur_3D=""ev3D=",IFseg3D_____editer_le_vecteur_tridimensionnel); /* Parametres introduits le 20080908183754... */ ) ); Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageG,nom_imageA)))) Bblock SET_ANTI_ALIASING(anti_aliasing); /* Indique s'il faut ou pas faire le traitement anti-aliasing... */ CALS(Ititre(titre,niveau_fond,niveau_titre,taille_des_caracteres_des_messages)); CALi(Iupdate_image(nom_imageR,ImageG)); Eblock ATes Bblock Test__CODE_ERREUR__ERREUR07; Eblock ETes RETU_Commande; Eblock ECommande