/*************************************************************************************************************************************/
/* */
/* 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 E 2 5 5 D R O I T E S D E G R A D E E S E Q U I D I S T A N T E S : */
/* */
/* */
/* Author of '$xrC/ObjetComplexe.H12__1$vv$c' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 20150820113141). */
/* */
/*************************************************************************************************************************************/
#ifdef COMMENTS
# undef COMMENTS
#else
#endif
#define COMMENTS "255 droites horizontales equidistantes (format octet) -fausses couleurs-"
#include "images_1octet.01.vv.I"
#ifndef PAS
# define PAS \
(dimY/BLANC)
#else
#endif
int pas=PAS;
MAIN(
{
int niveau=NOIR+1;
INITIALISATION_IMAGE(NOIR);
for (y=ADD2(Ymin,pas) ; y <= Ymax ; y=ADD2(y,pas))
/* Le 'ADD2(Ymin,pas)' est destine a compenser le fait que ne disposant que de 255 niveaux */
/* (a cause du niveau 'NOIR' du fond), on ne peut tracer que 255 lignes horizontales. */
{
for (x=Xmin ; x <= Xmax ; x=ADD2(x,1))
{
STORE_IMAGE_TORE(x,y,niveau);
}
niveau++;
}
SORTIE_DU_FICHIER_IMAGE;
EDITER_LES_COMPTEURS_DES_FONCTIONS;
}
)
Copyright © Jean-François Colonna, 2015-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2015-2021.