Fractal:
//Fractal//Acercar al punto: X = 0.25, Y = 0.5 .
srand(ADCBUF1);
int fractal_color = 0;
int b = 0;
int c = 0, d = 0;
int la=0;
long a=0;
while( usr_btn > 0x0F );//0b xxxx 1111//Mientras button = 1.
long r0 = 64, r1 = 128;
LEDG=1;
LEDB=0;
gclcd_cls();
LEDG=0;
LEDB=1;
for ( a = 0 ,c = 0, d = 0; usr_btn < 0x0F ; a++ ) {
b = rand();
if ( b <= (1*32768)/3 ) {
c = c >> 1 ;
d = d >> 1 ;
}
else if ( b > (2*32768)/3 ) {
c = ( r1 + c ) >> 1 ;
d = d >> 1 ;
}
else {
c = ( r0 + c ) >> 1 ;
d = ( r1 + d ) >> 1 ;
}
if ( ( c < 128 ) && ( d < 128 ) )
gclcd_pixel( c, d, b * 2 );
}
LEDG=0;
LEDB=1;
while( usr_btn < 0xF0 );//0b 1111 xxxx//Mientras button = 0.
while( usr_btn > 0x0F );//0b xxxx 1111//Mientras button = 1.
LEDB=1;
gclcd_cls();
//END Fractal
