/*************************************************************************************************************************************/
/* */
/* A C C E S A U X L I S T E S D E S U B S T I T U T I O N : */
/* */
/* */
/* Liste des substitutions disponibles : */
/* */
/* 'L_SUBSTITUTION_NEUTRE' : */
/* definition de la liste de substitution standard ("1" pour "1"...). */
/* 'L_SUBSTITUTION_01' : */
/* definition de la liste de substitution [NOIR,FRA2(BLANC)], ou : */
/* definition de la liste de substitution [GRO0(FRA2(BLANC)),GRO1(FRA2(BLANC))]. */
/* 'L_SUBSTITUTION_02' : */
/* definition de la liste de substitution [FRA2(BLANC),BLANC], ou : */
/* definition de la liste de substitution [GRO1(FRA2(BLANC)),GRO2(FRA2(BLANC))]. */
/* 'L_SUBSTITUTION_11' : */
/* definition de la liste de substitution [NOIR,FRA4(BLANC)], ou : */
/* definition de la liste de substitution [GRO0(FRA4(BLANC)),GRO1(FRA4(BLANC))]. */
/* 'L_SUBSTITUTION_12' : */
/* definition de la liste de substitution [FRA4(BLANC),FRA2(BLANC)], ou : */
/* definition de la liste de substitution [GRO1(FRA4(BLANC)),GRO2(FRA4(BLANC))]. */
/* 'L_SUBSTITUTION_13' : */
/* definition de la liste de substitution [FRA2(BLANC),GRO3(FRA4(BLANC))], ou : */
/* definition de la liste de substitution [GRO2(FRA4(BLANC)),GRO3(FRA4(BLANC))]. */
/* 'L_SUBSTITUTION_14' : */
/* definition de la liste de substitution [GRO3(FRA4(BLANC)),BLANC], ou : */
/* definition de la liste de substitution [GRO3(FRA4(BLANC)),GRO4(FRA4(BLANC))]. */
/* 'L_SUBSTITUTION_21' : */
/* definition de la liste de substitution [GRO0(FRA8(BLANC)),GRO1(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_22' : */
/* definition de la liste de substitution [GRO1(FRA8(BLANC)),GRO2(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_23' : */
/* definition de la liste de substitution [GRO2(FRA8(BLANC)),GRO3(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_24' : */
/* definition de la liste de substitution [GRO3(FRA8(BLANC)),GRO4(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_25' : */
/* definition de la liste de substitution [GRO4(FRA8(BLANC)),GRO5(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_26' : */
/* definition de la liste de substitution [GRO5(FRA8(BLANC)),GRO6(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_27' : */
/* definition de la liste de substitution [GRO6(FRA8(BLANC)),GRO7(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_28' : */
/* definition de la liste de substitution [GRO7(FRA8(BLANC)),GRO8(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_31' : */
/* definition de la liste de substitution [GRO0(FRA16(BLANC)),GRO1(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_32' : */
/* definition de la liste de substitution [GRO1(FRA16(BLANC)),GRO2(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_33' : */
/* definition de la liste de substitution [GRO2(FRA16(BLANC)),GRO3(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_34' : */
/* definition de la liste de substitution [GRO3(FRA16(BLANC)),GRO4(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_35' : */
/* definition de la liste de substitution [GRO4(FRA16(BLANC)),GRO5(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_36' : */
/* definition de la liste de substitution [GRO5(FRA16(BLANC)),GRO6(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_37' : */
/* definition de la liste de substitution [GRO6(FRA16(BLANC)),GRO7(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_38' : */
/* definition de la liste de substitution [GRO7(FRA16(BLANC)),GRO8(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_39' : */
/* definition de la liste de substitution [GRO8(FRA16(BLANC)),GRO9(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3A' : */
/* definition de la liste de substitution [GRO9(FRA16(BLANC)),GRO10(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3B' : */
/* definition de la liste de substitution [GRO10(FRA16(BLANC)),GRO11(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3C' : */
/* definition de la liste de substitution [GRO11(FRA16(BLANC)),GRO12(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3D' : */
/* definition de la liste de substitution [GRO12(FRA16(BLANC)),GRO13(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3E' : */
/* definition de la liste de substitution [GRO13(FRA16(BLANC)),GRO14(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3F' : */
/* definition de la liste de substitution [GRO14(FRA16(BLANC)),GRO15(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_3G' : */
/* definition de la liste de substitution [GRO15(FRA16(BLANC)),GRO16(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_FF' : */
/* definition de la liste de substitution [NOIR,FRA1(FRA1(BLANC))]. */
/* 'L_SUBSTITUTION_FE' : */
/* definition de la liste de substitution [NOIR,FRA1(FRA2(BLANC))]. */
/* 'L_SUBSTITUTION_FC' : */
/* definition de la liste de substitution [NOIR,FRA1(FRA4(BLANC))]. */
/* 'L_SUBSTITUTION_F8' : */
/* definition de la liste de substitution [NOIR,FRA1(FRA8(BLANC))]. */
/* 'L_SUBSTITUTION_F0' : */
/* definition de la liste de substitution [NOIR,FRA1(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_E0' : */
/* definition de la liste de substitution [NOIR,FRA2(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_C0' : */
/* definition de la liste de substitution [NOIR,FRA4(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_80' : */
/* definition de la liste de substitution [NOIR,FRA8(FRA16(BLANC))]. */
/* 'L_SUBSTITUTION_ROUGE' : */
/* definition de la liste de coloriage ROUGE fournie en tant que palette Argument. */
/* 'L_SUBSTITUTION_VERTE' : */
/* definition de la liste de coloriage VERTE fournie en tant que palette Argument. */
/* 'L_SUBSTITUTION_BLEUE' : */
/* definition de la liste de coloriage BLEUE fournie en tant que palette Argument. */
/* 'L_SUBSTITUTION_SOLAR' : */
/* definition de la liste de substitution d'acces au SOLAR. */
/* */
/* */
/* Author of '$xci/substitue.02$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1997??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define CHARGER_UNE_LISTE_DE_SUBSTITUTION(couleur) \
Bblock \
Test(IFEQ(substitution_courante,L_SUBSTITUTION`couleur)) \
Bblock \
DEFV(CHAR,INIT(POINTERc(nom_palettesA),NOM_UNDEF)); \
/* Pour generer le nom de la palette Argument au cas ou la 'substitution_courante' serait */ \
/* 'L_SUBSTITUTION_ROUGE', 'L_SUBSTITUTION_VERTE' ou encore 'L_SUBSTITUTION_BLEUE'. */ \
\
EGAL(nom_palettesA,chain_Aconcaten2_sauf_nom_pipe(nom_paletteA,c`couleur)); \
/* Chargement de la liste de substitution 'couleur'... */ \
\
Test(PAS_D_ERREUR(CODE_ERROR(Iload_liste_de_substitution(L_SUBSTITUTION`couleur,nom_palettesA)))) \
Bblock \
Eblock \
ATes \
Bblock \
PRINT_ERREUR("la palette n'existe pas, une echelle de gris, du Noir au Blanc, va etre utilisee"); \
Eblock \
ETes \
\
CALZ_FreCC(nom_palettesA); \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Chargement eventuel d'une liste de substitution... */