/*************************************************************************************************************************************/ /* */ /* 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 B L A N C H E S E Q U I D I S T A N T E S : */ /* */ /* */ /* Author of '$xrC/ObjetComplexe.H11__1$vv$c' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 20150820112628). */ /* */ /*************************************************************************************************************************************/ #ifdef COMMENTS # undef COMMENTS #else #endif #define COMMENTS "255 droites horizontales equidistantes (format octet) -noir ou blanc-" #include "images_1octet.01.vv.I" #ifndef PAS # define PAS \ (dimY/BLANC) #else #endif int pas=PAS; MAIN( { 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,BLANC); } } SORTIE_DU_FICHIER_IMAGE; EDITER_LES_COMPTEURS_DES_FONCTIONS; } )