/*************************************************************************************************************************************/
/* */
/* A C C E S A U N E P A L E T T E : */
/* */
/* */
/* Definition : */
/* */
/* */
/* Cette commande prend une palette */
/* et en cree une deuxieme par recopie. */
/* */
/* */
/* Author of '$xciP/ACCES$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'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define CONVERSION_RVB_HLS(entree,sortie,instructions) \
Bblock \
Test(IFET(IFEQ_chaine(systeme_d_entree,entree) \
,IFEQ_chaine(systeme_de_sortie,sortie) \
) \
) \
Bblock \
BLOC(instructions); \
/* Lorsque les systemes d'entree et de sortie ont ete reconnus, on fait ce qu'il faut... */ \
EGAL(les_systemes_ont_ete_reconnus,VRAI); \
/* Afin de savoir que les systemes d'entree et de sortie ont ete reconnus. */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Procedure de passage d'un systeme de couleurs a l'autre. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* A C C E S A 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(Logical,INIT(les_systemes_ont_ete_reconnus,FAUX));
/* Afin de savoir que les systemes d'entree et de sortie ont ete reconnus. */
DEFV(genere_p,INIT(niveau_ROUGE,NIVEAU_UNDEF));
DEFV(genere_p,INIT(niveau_VERTE,NIVEAU_UNDEF));
DEFV(genere_p,INIT(niveau_BLEUE,NIVEAU_UNDEF));
/* Niveaux chromatiques dans le systeme {R,V,B}. */
DEFV(Float,INIT(hue,FLOT(NIVEAU_UNDEF)));
DEFV(Float,INIT(luminance,FLOT(NIVEAU_UNDEF)));
DEFV(Float,INIT(saturation,FLOT(NIVEAU_UNDEF)));
/* Niveaux chromatiques dans le systeme {H,L,S}. */
/*..............................................................................................................................*/
GET_ARGUMENTSf(nombre_d_arguments
,BLOC(GET_ARGUMENT_L("PASSAGE_HLS_RVB_____compatibilite_20240327=""compatibilite_20240327="
,PASSAGE_HLS_RVB_____compatibilite_20240327
);
/* Argument introduit le 20240327184621... */
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_L("editer_messages_erreur=""eme=",PASSAGE_HLS_RVB_____editer_les_messages_d_erreur);
/* Argument introduit le 20111206113758... */
)
);
CALS(Iload_palette_de_couleurs(nom_paletteA,systeme_d_entree));
/* Chargement de la palette de couleurs... */
BoIn(niveau,NOIR,BLANC,PAS_COULEURS)
Bblock
CONVERSION_RVB_HLS(SYSTEME_RVB_IMPLICITE
,SYSTEME_RVB_IMPLICITE
,BLOC(VIDE;)
);
CONVERSION_RVB_HLS(ESPACE_DE_COULEURS_RVB
,ESPACE_DE_COULEURS_RVB
,BLOC(VIDE;)
);
CONVERSION_RVB_HLS(ESPACE_DE_COULEURS_RVB
,ESPACE_DE_COULEURS_HLS
,BLOC(EGAL(niveau_ROUGE,ACCES_listes_de_substitution(L_SUBSTITUTION_ROUGE,niveau));
EGAL(niveau_VERTE,ACCES_listes_de_substitution(L_SUBSTITUTION_VERTE,niveau));
EGAL(niveau_BLEUE,ACCES_listes_de_substitution(L_SUBSTITUTION_BLEUE,niveau));
PASSAGE_RVB_HLS(hue,luminance,saturation
,niveau_ROUGE,niveau_VERTE,niveau_BLEUE
);
MODIFICATION_LISTE_DE_COLORIAGE(niveau
,GENP(ROUGE_HLS(FLOT(hue),FLOT(luminance),FLOT(saturation)))
,GENP(VERTE_HLS(FLOT(hue),FLOT(luminance),FLOT(saturation)))
,GENP(BLEUE_HLS(FLOT(hue),FLOT(luminance),FLOT(saturation)))
);
)
);
CONVERSION_RVB_HLS(ESPACE_DE_COULEURS_HLS
,ESPACE_DE_COULEURS_RVB
,BLOC(EGAL(hue
,FLOT(TEINT_RVB(ACCES_listes_de_substitution(L_SUBSTITUTION_ROUGE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_VERTE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_BLEUE,niveau)
)
)
);
EGAL(luminance
,FLOT(LUMIN_RVB(ACCES_listes_de_substitution(L_SUBSTITUTION_ROUGE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_VERTE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_BLEUE,niveau)
)
)
);
EGAL(saturation
,FLOT(SATUR_RVB(ACCES_listes_de_substitution(L_SUBSTITUTION_ROUGE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_VERTE,niveau)
,ACCES_listes_de_substitution(L_SUBSTITUTION_BLEUE,niveau)
)
)
);
PASSAGE_HLS_RVB(niveau_ROUGE,niveau_VERTE,niveau_BLEUE
,hue,luminance,saturation
);
MODIFICATION_LISTE_DE_COLORIAGE(niveau,niveau_ROUGE,niveau_VERTE,niveau_BLEUE);
)
);
CONVERSION_RVB_HLS(ESPACE_DE_COULEURS_HLS
,ESPACE_DE_COULEURS_HLS
,BLOC(VIDE;)
);
Eblock
EBoI
Test(EST_VRAI(les_systemes_ont_ete_reconnus))
Bblock
CALS(Iupdate_palette_de_couleurs(nom_paletteR,systeme_de_sortie));
/* Mise a jour de la palette de couleurs... */
Eblock
ATes
Bblock
PRINT_ERREUR("au moins un des deux systemes de couleurs n'a pas ete reconnu");
Eblock
ETes
RETU_Commande;
Eblock
ECommande