/*************************************************************************************************************************************/
/* */
/* C A L C U L D ' U N E P A L E T T E A P A R T I R D ' U N E I M A G E : */
/* */
/* */
/* Definition : */
/* */
/* */
/* Cette commande prend une image */
/* et cree une palette en extrayant */
/* sur 3 lignes horizontales de cette */
/* image 'COULEURS' points qui donnent */
/* les niveaux des 3 listes de coloriage. */
/* */
/* */
/* Author of '$xciP/IMAGE$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1988??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 CHARGER_UNE_IMAGE_EN_VRAIES_COULEURS \
FAUX \
/* Faut-il charger une image en vraies couleurs ('VRAI)' ou bien une imae en fausses */ \
/* couleurs ('FAUX'), la valeur par defaut assurant la compatibilite anterieure (ce */ \
/* dispositif a ete introduit le 20060210143839). */
#define SYSTEME_RVB_IMPLICITE \
ESPACE_DE_COULEURS_RVB \
/* Afin de faire des acces implicites en 'RVB'... */
#define X_ROUGE \
Xmin
#define Y_ROUGE \
Ymin
/* Point de depart de recuperation de la liste ROUGE. */
#define X_VERTE \
Xmin
#define Y_VERTE \
Ymin
/* Point de depart de recuperation de la liste VERTE. */
#define X_BLEUE \
Xmin
#define Y_BLEUE \
Ymin
/* Point de depart de recuperation de la liste BLEUE. */
#define PONDERATION_X___X \
FU
#define PONDERATION_X___N \
FZERO
/* Ponderations utiles a l'incrementation de la coordonnee 'X'. Les valeurs par defaut */
/* garantissent la compatibilite anterieure (introduit le 20070102180340), c'est-a-dire */
/* incrementation de 'X' avec 'pasX'... */
#define PONDERATION_Y___Y \
FZERO
#define PONDERATION_Y___N \
FZERO
/* Ponderations utiles a l'incrementation de la coordonnee 'Y'. Les valeurs par defaut */
/* garantissent la compatibilite anterieure (introduit le 20070102180340), c'est-a-dire */
/* pas d'incrementation de 'Y'... */
#define NIVEAU_DE_DEPART \
NOIR
#define NIVEAU_D_ARRIVEE \
BLANC
/* Niveaux de depart et d'arrivee pour l'interpolation. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#include xci/luminance.01.I"
#define INCREMENTATION_DES_COORDONNEES_X_ET_Y \
Bblock \
INCR(X \
,INTE(LIZ2(ponderation_X___X,FLOT(pasX) \
,ponderation_X___N,_lDENORMALISE_OX(______NORMALISE_NIVEAU(PAS_COULEURS)) \
) \
) \
); \
INCR(Y \
,INTE(LIZ2(ponderation_Y___Y,FLOT(pasY) \
,ponderation_Y___N,_lDENORMALISE_OY(______NORMALISE_NIVEAU(PAS_COULEURS)) \
) \
) \
); \
Eblock \
/* Incrementation des coordonnees 'X' et 'Y' (introduit le 20070102180340)... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C A L C U L D ' U N E P A L E T T E A P A R T I R D ' U N E I M A G E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Int,INIT(X,UNDEF));
DEFV(Int,INIT(Y,UNDEF));
DEFV(Logical,INIT(charger_une_image_en_vraies_couleurs,CHARGER_UNE_IMAGE_EN_VRAIES_COULEURS));
/* Faut-il charger une image en vraies couleurs ('VRAI)' ou bien une imae en fausses */
/* couleurs ('FAUX'), la valeur par defaut assurant la compatibilite anterieure (ce */
/* dispositif a ete introduit le 20060210143839). */
DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageAR),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageAV),NOM_PIPE));
DEFV(CHAR,INIC(POINTERc(nom_imageAB),NOM_PIPE));
/* Nom de l'image ou des images generatrice(s) de la palette. */
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,NIVEAU_DE_DEPART));
DEFV(genere_p,INIT(niveau_d_arrivee,NIVEAU_D_ARRIVEE));
/* Niveaux de depart et d'arrivee pour l'interpolation. */
DEFV(Float,INIT(x_ROUGE,FLOT__UNDEF));
DEFV(Float,INIT(y_ROUGE,FLOT__UNDEF));
/* Point de depart de recuperation de la liste ROUGE. */
DEFV(Float,INIT(x_VERTE,FLOT__UNDEF));
DEFV(Float,INIT(y_VERTE,FLOT__UNDEF));
/* Point de depart de recuperation de la liste VERTE. */
DEFV(Float,INIT(x_BLEUE,FLOT__UNDEF));
DEFV(Float,INIT(y_BLEUE,FLOT__UNDEF));
/* Point de depart de recuperation de la liste BLEUE. */
DEFV(Float,INIT(ponderation_X___X,PONDERATION_X___X));
DEFV(Float,INIT(ponderation_X___N,PONDERATION_X___N));
/* Ponderations utiles a l'incrementation de la coordonnee 'X'. Les valeurs par defaut */
/* garantissent la compatibilite anterieure (introduit le 20070102180340), c'est-a-dire */
/* incrementation de 'X' avec 'pasX'... */
/* */
/* On notera que : */
/* */
/* pXX=0 */
/* pXN=1 */
/* pYY=0 */
/* pYN=0 */
/* */
/* permet de balayer toute la largeur de l'image... */
DEFV(Float,INIT(ponderation_Y___Y,PONDERATION_Y___Y));
DEFV(Float,INIT(ponderation_Y___N,PONDERATION_Y___N));
/* Ponderations utiles a l'incrementation de la coordonnee 'Y'. Les valeurs par defaut */
/* garantissent la compatibilite anterieure (introduit le 20070102180340), c'est-a-dire */
/* pas d'incrementation de 'Y'... */
/* */
/* On notera que : */
/* */
/* pXX=0 */
/* pXN=0 */
/* pYY=0 */
/* pYN=1 */
/* */
/* permet de balayer toute la hauteur de l'image... */
/*..............................................................................................................................*/
GET_ARGUMENTSi(nombre_d_arguments
,BLOC(GET_ARGUMENT_C("imageA=""A=",nom_imageA);
GET_ARGUMENT_C("imageAR=""AR=",nom_imageAR);
GET_ARGUMENT_C("imageAV=""AV=",nom_imageAV);
GET_ARGUMENT_C("imageAB=""AB=",nom_imageAB);
GET_ARGUMENT_L("RVB=",charger_une_image_en_vraies_couleurs);
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("nD=",niveau_de_depart);
GET_ARGUMENT_P("nA=",niveau_d_arrivee);
GIT_ARGUMENT_F("xR=""XR=",x_ROUGE,_____cNORMALISE_OX(X_ROUGE));
GIT_ARGUMENT_F("yR=""YR=",y_ROUGE,_____cNORMALISE_OY(Y_ROUGE));
GIT_ARGUMENT_F("xV=""XV=",x_VERTE,_____cNORMALISE_OX(X_VERTE));
GIT_ARGUMENT_F("yV=""YV=",y_VERTE,_____cNORMALISE_OY(Y_VERTE));
GIT_ARGUMENT_F("xB=""XB=",x_BLEUE,_____cNORMALISE_OX(X_BLEUE));
GIT_ARGUMENT_F("yB=""YB=",y_BLEUE,_____cNORMALISE_OY(Y_BLEUE));
GET_ARGUMENT_F("pxx=""pXX=",ponderation_X___X);
GET_ARGUMENT_F("pxn=""pXN=",ponderation_X___N);
GET_ARGUMENT_F("pyy=""pYY=",ponderation_Y___Y);
GET_ARGUMENT_F("pyn=""pYN=",ponderation_Y___N);
/* Parametres introduits le 20070102180340... */
)
);
Test(IL_FAUT(charger_une_image_en_vraies_couleurs))
/* Ce dispositif a ete introduit le 20060210143839). */
Bblock
GENERER_LE_NOM_DE_TROIS_COMPOSANTES_CHROMATIQUES_RVB(nom_imageA,nom_imageAR,nom_imageAV,nom_imageAB);
/* Introduit le 20060210145346... */
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(Image_ROUGE,nom_imageAR))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(Image_VERTE,nom_imageAV))))
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(Image_BLEUE,nom_imageAB))))
Bblock
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ATes
Bblock
Test(PAS_D_ERREUR(CODE_ERROR(Iload_image(ImageA,nom_imageA))))
Bblock
Eblock
ATes
Bblock
Test__CODE_ERREUR__ERREUR07;
Eblock
ETes
Eblock
ETes
Test(PAS_D_ERREUR(CODE_ERREUR))
Bblock
CALS(Iload_palette_de_couleurs(nom_paletteA,systeme_d_entree));
/* Chargement de la palette de couleurs en fait, cela ne sert que lorsque */
/* [niveau_de_depart,niveau_d_arrivee] # [NOIR,BLANC]... */
EGAL(X,_cDENORMALISE_OX(x_ROUGE));
EGAL(Y,_cDENORMALISE_OY(y_ROUGE));
BoIn(niveau,niveau_de_depart,niveau_d_arrivee,PAS_COULEURS)
Bblock
IMAGE_VERS_LISTE_DE_SUBSTITUTION(niveau,COND(IL_FAUT(charger_une_image_en_vraies_couleurs),Image_ROUGE,ImageA),X,Y);
/* Modification de la liste VARIABLE a partir d'une ligne horizontale de l'image Argument. */
INCREMENTATION_DES_COORDONNEES_X_ET_Y;
Eblock
EBoI
MOVE_LISTE_DE_SUBSTITUTION(L_SUBSTITUTION_ROUGE,L_SUBSTITUTION_VARIABLE,niveau_de_depart,niveau_d_arrivee);
/* Puis modification de la liste ROUGE. */
EGAL(X,_cDENORMALISE_OX(x_VERTE));
EGAL(Y,_cDENORMALISE_OY(y_VERTE));
BoIn(niveau,niveau_de_depart,niveau_d_arrivee,PAS_COULEURS)
Bblock
IMAGE_VERS_LISTE_DE_SUBSTITUTION(niveau,COND(IL_FAUT(charger_une_image_en_vraies_couleurs),Image_VERTE,ImageA),X,Y);
/* Modification de la liste VARIABLE a partir d'une ligne horizontale de l'image Argument. */
INCREMENTATION_DES_COORDONNEES_X_ET_Y;
Eblock
EBoI
MOVE_LISTE_DE_SUBSTITUTION(L_SUBSTITUTION_VERTE,L_SUBSTITUTION_VARIABLE,niveau_de_depart,niveau_d_arrivee);
/* Puis modification de la liste VERTE. */
EGAL(X,_cDENORMALISE_OX(x_BLEUE));
EGAL(Y,_cDENORMALISE_OY(y_BLEUE));
BoIn(niveau,niveau_de_depart,niveau_d_arrivee,PAS_COULEURS)
Bblock
IMAGE_VERS_LISTE_DE_SUBSTITUTION(niveau,COND(IL_FAUT(charger_une_image_en_vraies_couleurs),Image_BLEUE,ImageA),X,Y);
/* Modification de la liste VARIABLE a partir d'une ligne horizontale de l'image Argument. */
INCREMENTATION_DES_COORDONNEES_X_ET_Y;
Eblock
EBoI
MOVE_LISTE_DE_SUBSTITUTION(L_SUBSTITUTION_BLEUE,L_SUBSTITUTION_VARIABLE,niveau_de_depart,niveau_d_arrivee);
/* Puis modification de la liste BLEUE. */
CALS(Iupdate_palette_de_couleurs(nom_paletteR,systeme_de_sortie));
/* Mise a jour de la palette de couleurs... */
Eblock
ATes
Bblock
Eblock
ETes
RETU_Commande;
Eblock
ECommande