#include <18f2550.h>
#fuses NOMCLR,HSPLL,PLL3,cpudiv2,NOPUT,NOWDT,NOBROWNOUT
#use delay(clock=48000000)
#include <tft_st7735_spi.h>

int16 y,i;
int16 color_select=2520;

char texto_1[]="Video de PPyote";
char texto_2[]="para el grandioso";
char texto_3[]="foro de habla hispana";
char texto_4[]="TODOPIC";
char texto_5[]="todopic.com.ar/foros";
char texto_6[]="PPyote";
void main()
{
  set_tris_b(0x00);;
  SETUP_ADC_PORTS(no_analogs);
  SETUP_TIMER_0(T0_INTERNAL|T0_DIV_1);
  enable_interrupts(int_rtcc);
  disable_interrupts(global);
  lcd_initial();

  while(1){
  tft_color_simple(0x0000);
  pintar_imagen(30,40,61,53);
  pintar_texto(15,110,texto_6,3,0xFFFF);
  delay_ms(3000);
  tft_color_simple(color_select);
  for(y=0;y<128;y+=16){
      pintar_linea(0,0,y,160,color_select-10);
  }
  for(y=0;y<128;y+=16){
      pintar_linea(y,0,128,160,color_select-10);
  } 
   color_select+=100;
  pintar_texto(20,20,texto_1,1,0xFFFF);
  pintar_texto(10,50,texto_2,1,0xFFFF);
  pintar_texto(2,80,texto_3,1,0xFFFF);
  pintar_texto(26,100,texto_4,2,0xFFFF);
  pintar_texto(3,130,texto_5,1,0xFFFF);
  for(y=0;y<=0xF000;y+=800){
      pintar_texto(26,100,texto_4,2,y);
  } 
  delay_ms(1000);
  pintar_caja(0,0,128,160,color_select+30);
  i=128;
  for(y=0;y<68;y+=4){
      pintar_rectangulo(y,y,i,i,0x5555);
      i-=4;
      
  }
  pintar_caja(0,0,128,160,color_select+1000);

  for(y=0;y<120;y+=8){
   pintar_circulo(64,80,y,0x7777);
  }
  }
}