/*************************************************************************************************************************************/
/* */
/* P A S S A G E D E S F A U S S E S A U X V R A I E S C O U L E U R S : */
/* */
/* */
/* Cette commande calcule les trois */
/* composantes en vraies couleurs de */
/* l'image Argument. */
/* */
/* */
/* Author of '$xci/vraies_C.01$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1996??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* G E N E R A T I O N D ' U N E C O M P O S A N T E C H R O M A T I Q U E : */
/* */
/*************************************************************************************************************************************/
#define GENERATION_D_UNE_COMPOSANTE(nom_de_la_composante,nom_de_la_couleur,image) \
Bblock \
Test(IL_FAUT(generer_une_image_en_vraies_couleurs)) \
Bblock \
EGAL(nom_imagesR,chain_Aconcaten2_sauf_nom_pipe(nom_imageR,nom_de_la_couleur)); \
CALi(Iupdate_image(nom_imagesR,image)); \
/* Generation d'une composante d'une image en vraies couleurs... */ \
CALZ_FreCC(nom_imagesR); \
Eblock \
ATes \
Bblock \
CALi(Iupdate_image(nom_de_la_composante,image)); \
/* Generation d'une image d'un triplet de composantes... */ \
Eblock \
ETes \
Eblock \
/* Procedure de generation d'une composante de nom donne... */