/*************************************************************************************************************************************/
/* */
/* L I S S A G E D ' U N E P A L E T T E : */
/* */
/* */
/* Definition : */
/* */
/* */
/* Cette commande prend une palette */
/* et en cree une deuxieme par inter- */
/* polation bi-cubique. */
/* */
/* */
/* Author of '$xciP/LISSE$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1989??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define SYSTEME_RVB_IMPLICITE \
ESPACE_DE_COULEURS_RVB \
/* Afin de faire des acces implicites en 'RVB'... */
#define NIVEAU_DE_DEPART_1 \
NOIR
#define NIVEAU_DE_DEPART_2 \
SUCC(NOIR)
#define NIVEAU_D_ARRIVEE_3 \
PRED(BLANC)
#define NIVEAU_D_ARRIVEE_4 \
BLANC
#define FACTEUR_DES_DERIVEES \
______NORMALISE_NIVEAU(COULEURS) \
/* ATTENTION, pendant longtemps, j'ai utilise : */ \
/* */ \
/* FLOT(COULEURS) */ \
/* */ \
/* mais cette nouvelle valeur semble plus logique. Elle a ete mise en place le 1995042600. */
#define NIVEAU_DE_ROUGE \
VRAI
#define NIVEAU_DE_VERTE \
VRAI
#define NIVEAU_DE_BLEUE \
VRAI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define LISSAGE_D_UNE_COMPOSANTE(couleur) \
Bblock \
Test(EST_VRAI(couleur`presente)) \
Bblock \
LISSAGE_LISTE_DE_SUBSTITUTION(L_SUBSTITUTION`couleur \
,niveau_de_depart_1,niveau_de_depart_2 \
,niveau_d_arrivee_3,niveau_d_arrivee_4 \
,facteur_des_derivees \
); \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* L I S S A G E D ' U N E P A L E T T E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(CHAR,INIC(POINTERc(nom_paletteA),NOM_PIPE));
/* Nom de la palette Argument a utiliser. */
DEFV(CHAR,INIC(POINTERc(nom_paletteR),NOM_PIPE));
/* Nom de la palette Resultat a generer. */
DEFV(CHAR,INIC(POINTERc(systeme_d_entree),SYSTEME_RVB_IMPLICITE));
/* Definition du systeme d'entree : {R,V,B} ou {H,L,S}. */
DEFV(CHAR,INIC(POINTERc(systeme_de_sortie),SYSTEME_RVB_IMPLICITE));
/* Definition du systeme de sortie : {R,V,B} ou {H,L,S}. */
DEFV(genere_p,INIT(niveau_de_depart_1,NIVEAU_DE_DEPART_1));
DEFV(genere_p,INIT(niveau_de_depart_2,NIVEAU_DE_DEPART_2));
DEFV(genere_p,INIT(niveau_d_arrivee_3,NIVEAU_D_ARRIVEE_3));
DEFV(genere_p,INIT(niveau_d_arrivee_4,NIVEAU_D_ARRIVEE_4));
/* Niveaux de depart et d'arrivee pour l'interpolation bi-cubique. */
DEFV(Float,INIT(facteur_des_derivees,FACTEUR_DES_DERIVEES));
/* Facteur multiplicatif destine a calculer les valeurs des derivees de la fonction */
/* aux deux extremites. */
DEFV(Logical,INIT(ROUGE_presente,NIVEAU_DE_ROUGE));
/* Indique si la composante ROUGE est presente ou non, */
DEFV(Logical,INIT(VERTE_presente,NIVEAU_DE_VERTE));
/* Indique si la composante VERTE est presente ou non, */
DEFV(Logical,INIT(BLEUE_presente,NIVEAU_DE_BLEUE));
/* Indique si la composante BLEUE est presente ou non. */
/*..............................................................................................................................*/
GET_ARGUMENTSf(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("paletteA=""pA=",nom_paletteA);
GET_ARGUMENT_C("paletteR=""pR=",nom_paletteR);
GET_ARGUMENT_C("entree=",systeme_d_entree);
GET_ARGUMENT_C("sortie=",systeme_de_sortie);
GET_ARGUMENT_L("COMP1=""ROUGE=""TEINT=",files_____manipuler_la_composante_COMP1_d_une_palette_de_couleurs);
GET_ARGUMENT_L("COMP2=""VERTE=""LUMIN=",files_____manipuler_la_composante_COMP2_d_une_palette_de_couleurs);
GET_ARGUMENT_L("COMP3=""BLEUE=""SATUR=",files_____manipuler_la_composante_COMP3_d_une_palette_de_couleurs);
GET_ARGUMENT_P("nD1=""n1=",niveau_de_depart_1);
GET_ARGUMENT_P("nD2=""n2=",niveau_de_depart_2);
GET_ARGUMENT_P("nA3=""n3=",niveau_d_arrivee_3);
GET_ARGUMENT_P("nA4=""n4=",niveau_d_arrivee_4);
GET_ARGUMENT_F("facteur=",facteur_des_derivees);
GET_ARGUMENT_L("rouge=",ROUGE_presente);
GET_ARGUMENT_L("verte=",VERTE_presente);
GET_ARGUMENT_L("bleue=",BLEUE_presente);
GET_ARGUMENT_L("interpoler_D2_et_A3=""D2_A3=",interpoler_les_listes_de_substitution_entre_D2_et_A3);
)
);
CALS(Iload_palette_de_couleurs(nom_paletteA,systeme_d_entree));
/* Chargement de la palette de couleurs... */
LISSAGE_D_UNE_COMPOSANTE(ROUGE);
LISSAGE_D_UNE_COMPOSANTE(VERTE);
LISSAGE_D_UNE_COMPOSANTE(BLEUE);
/* Et lissage dans les listes de substitution {R,V,B}. */
CALS(Iupdate_palette_de_couleurs(nom_paletteR,systeme_de_sortie));
/* Mise a jour de la palette de couleurs... */
RETU_Commande;
Eblock
ECommande