/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L A   C O M P L E X I T E   S T R U C T U R E L L E                                                      */
/*        D ' U N   D A M I E R  :                                                                                                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrC/ObjetComplexe.11$vv$c' :                                                                                   */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20130501084335).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    COMMENTS
#         undef     COMMENTS
#else
#endif

#define   COMMENTS  "Damier (format octet) -noir ou blanc-"

#define   DEFINE_01 "-DMAILLE_X=gDIVI(dimX,16)  -DMAILLE_Y=gDIVI(dimY,16)"
#define   DEFINE_02 "-DMAILLE_X=gDIVI(dimX,32)  -DMAILLE_Y=gDIVI(dimY,32)"
#define   DEFINE_03 "-DMAILLE_X=gDIVI(dimX,64)  -DMAILLE_Y=gDIVI(dimY,64)"
#define   DEFINE_04 "-DMAILLE_X=gDIVI(dimX,128) -DMAILLE_Y=gDIVI(dimY,128)"

#include  "images_1octet.01.vv.I"

#ifndef   MAILLE_X
#         define    MAILLE_X                                                                                                            \
                              gDIVI(dimX,32)
#else
#endif

#ifndef   MAILLE_Y
#         define    MAILLE_Y                                                                                                            \
                              gDIVI(dimY,32)
#else
#endif

int       maille_X=MAILLE_X;
int       maille_Y=MAILLE_Y;

MAIN(
          {
          if        (maille_X == 0)
                    {
                    maille_X=1;
                                        /* Introduit le 20140428101425 a cause des tests au format 'Suh' et donc eviter une          */
                                        /* erreur du type "Floating exception"...                                                    */
                    }
          else
                    {
                    }

          if        (maille_Y == 0)
                    {
                    maille_Y=1;
                                        /* Introduit le 20140428101425 a cause des tests au format 'Suh' et donc eviter une          */
                                        /* erreur du type "Floating exception"...                                                    */
                    }
          else
                    {
                    }

          INITIALISATION_IMAGE(COND(REST(DIVI(y,maille_Y),2)==0
                                   ,COND(REST(DIVI(x,maille_X),2)==0,BLANC,NOIR)
                                   ,COND(REST(DIVI(x,maille_X),2)==0,NOIR,BLANC)
                                    )
                               );

          SORTIE_DU_FICHIER_IMAGE;
          EDITER_LES_COMPTEURS_DES_FONCTIONS;
          }
     )