/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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 E   D R O I T E   O B L I Q U E   S U R   U N   T O R E  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrC/ObjetComplexe.81$vv$c' :                                                                                   */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20130505101401).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#ifdef    COMMENTS
#         undef     COMMENTS
#else
#endif

#define   COMMENTS  "Droite oblique sur un tore (format octet) -noir ou blanc-"

#include  "images_1octet.01.vv.I"

#ifndef   ITERATIONS
#         define    ITERATIONS                                                                                                          \
                              gDIVI(gMUL2(dimX,dimY),10)
#else
#endif

#ifndef   An
#         define    An                                                                                                                  \
                              (63137)
#else
#endif

#ifndef   Ad
#         define    Ad                                                                                                                  \
                              (73)
#else
#endif

#ifndef   B
#         define    B                                                                                                                   \
                              (0)
#else
#endif

int       iterations=ITERATIONS;
int       an=An;
int       ad=Ad;
int       b=B;

MAIN(
          {
          int       compteur;

          INITIALISATION_IMAGE(NOIR);

          x=ADD2(Xmin,dimXs2);

          for       (compteur=1 ; compteur <= iterations ; compteur=ADD2(compteur,1))
                    {
                    x=ADD2(x,1);
                    STORE_IMAGE_TORE(x,ADD2(DIVI(MUL2(an,x),ad),b),BLANC);
                    }

          SORTIE_DU_FICHIER_IMAGE;
          EDITER_LES_COMPTEURS_DES_FONCTIONS;
          }
     )