/*************************************************************************************************************************************/ /* */ /* 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 D R O I T E S V E R T I C A L E S E Q U I D I S T A N T E S */ /* E T D E L O N G U E U R S C R O I S S A N T E S : */ /* */ /* */ /* Author of '$xrC/ObjetComplexe.ZA8__1$vv$c' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 20130904212313). */ /* */ /*************************************************************************************************************************************/ #ifdef COMMENTS # undef COMMENTS #else #endif #define COMMENTS "Droites verticales equidistantes de longueurs croissantes (format octet) -noir ou blanc-" #include "images_1octet.01.vv.I" #ifndef PAS # define PAS \ (2) #else #endif int pas=PAS; MAIN( { INITIALISATION_IMAGE(NOIR); for (x=Xmin ; x <= Xmax ; x=ADD2(x,pas)) { for (y=Ymin ; y <= x ; y=ADD2(y,1)) { STORE_IMAGE_TORE(x,y,BLANC); } } SORTIE_DU_FICHIER_IMAGE; EDITER_LES_COMPTEURS_DES_FONCTIONS; } )