TODOPIC

Microcontroladores PIC => dsPIC => Mensaje iniciado por: jgpeiro en 27 de Febrero de 2006, 06:39:00

Título: Fractal1
Publicado por: jgpeiro en 27 de Febrero de 2006, 06:39:00

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

Título: RE: Fractal1
Publicado por: J1M en 27 de Febrero de 2006, 14:16:00

video video video! jejeje

Gracias por la función. Ya he terminado los examenes, por fin vuelvo a tener un ratillo libre para enganchar a los caxarros estos, probaré con un 18F a ver q tal pinta

saludos!