/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E B U T   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.DEB$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 19????????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#define   PALETTE(rouge_verte_bleue)                                                                                                    \
                    Bblock                                                                                                              \
                    CALS(SSca3(rouge_verte_bleue                                                                                        \
                              ,"%3x%3x%3x"                                                                                              \
                              ,ADRESSE(ITb1(palette_ROUGE,INDX(niveau,NOIR)))                                                           \
                              ,ADRESSE(ITb1(palette_VERTE,INDX(niveau,NOIR)))                                                           \
                              ,ADRESSE(ITb1(palette_BLEUE,INDX(niveau,NOIR)))                                                           \
                               )                                                                                                        \
                         );                                                                                                             \
                                        /* Definition de l'entree courante 'niveau' par PALETTE("RRRVVVBBB");                        */ \
                    INCR(niveau,I);                                                                                                     \
                    Eblock                                                                                                              \
                                        /* Passage au niveau suivant.                                                                */

          Bblock
          DEFV(Int,INIT(niveau,NOIR));
                                        /* Niveau courant ; attention, doit etre un 'Int' a cause du 'DoIn'.                         */
          DEFV(vrai_Int_de_base,DTb1(palette_ROUGE,COULEURS));
          DEFV(vrai_Int_de_base,DTb1(palette_VERTE,COULEURS));
          DEFV(vrai_Int_de_base,DTb1(palette_BLEUE,COULEURS));
                                        /* Definition de la palette de couleur.                                                      */
                                        /*                                                                                           */
                                        /* Le 20111027084647, les 'Int's ont ete remplaces par des 'vrai_Int_de_base's afin          */
                                        /* d'eviter les messages :                                                                   */
                                        /*                                                                                           */
                                        /*                  ...warning: format '%3x' expects type 'unsigned int *', but argument ... */
                                        /*                  has type 'long int *'                                                    */
                                        /*                                                                                           */
                                        /* lors du 'SSca3(...)' ci-dessus...                                                         */