/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I N   D E   L A   D E F I N I T I O N   D E   L A   P A L E T T E   C O U R A N T E  :                                   */
/*                                                                                                                                   */
/*        Author of '$xciP/PALETTE.FIN$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 19????????????).                                                              */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

          REINITIALISATION_LISTE_DE_SUBSTITUTION;
                                        /* En effet, il faut positionner tous les indicateurs, et toutes les                         */
                                        /* listes relative a la 'SUBSTITUTION'.                                                      */
          DoIn(niveau,NOIR,BLANC,I)
               Bblock
               MODIFICATION_LISTE_DE_COLORIAGE(niveau
                                              ,GENP(QUAR(palette_ROUGE[INDX(niveau,NOIR)]))
                                              ,GENP(QUAR(palette_VERTE[INDX(niveau,NOIR)]))
                                              ,GENP(QUAR(palette_BLEUE[INDX(niveau,NOIR)]))
                                               )
               Eblock
          EDoI
          Eblock

#undef    PALETTE