/*************************************************************************************************************************************/ /* */ /* 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... */