#define F_CPU 20000000UL    // Baby Orangutan frequency (20MHz)
#include <avr/io.h>
#include <util/delay.h>

//Leds. Salidas.
#define LEDP PORTD1
#define    LEDV PORTB1
#define    LEDR PORTD0
//Interruptores. Entradas.
#define SW1    PORTB0
#define SW2 PORTB2
//Sensores. Entradas y salidas.
#define D3 PORTD7
#define D2 PORTD4
#define D1 PORTD2
#define D0 PORTB5
#define I0 PORTB4
#define I1 PORTC3
#define I2 PORTC2
#define I3 PORTC1
#define LED_ON PORTC0

void inicializar_puertos(void);
void reset(void);
void M1_forward(unsigned char pwm);
void M1_reverse(unsigned char pwm);
void M2_forward(unsigned char pwm);
void M2_reverse(unsigned char pwm);
void motors_init(void);
char obtener_errorp(void);

int main( void )
{
    int velocidad = 0;

    inicializar_puertos();
    motors_init();
    reset();

    PORTD |= (1<<LEDR);        //Diodos encendidos.
    PORTB |= (1<<LEDV);

    PORTC |= (1<<LED_ON);   //Se encienden los sensores.
   
    M1_forward(0);        //Motor derecho.
    M2_forward(0);    //Motor izquierdo.    
    while ( 1 )
    {   
        velocidad = obtener_errorp();

        if(velocidad == 0)
        {       
            M1_forward(0);        //Motor derecho.
            M2_forward(0);    //Motor izquierdo.
        }

        else if(velocidad < 0)
        {   
            velocidad = velocidad*(-36);
               
            M1_forward(velocidad);        //Motor derecho. 
            M2_forward(0);                //Motor izquierdo.
        }

        else
        {
            velocidad = velocidad*(36);       
            M1_forward(0);            //Motor derecho.
            M2_forward(velocidad);    //Motor izquierdo.
        }
    }
    return 0;
}

void inicializar_puertos(void)
{
   DDRD=0x6B;     //0110 1011  0,1,3,5,6 Salidas
   PORTD=0x00;  
   DDRB=0x0A;     //0000 1010  1,3 Salidas
   PORTB=0x00;
   DDRC=0x01;     //0000 0001  0 Salida
   PORTC=0x00; 
}

void reset(void)
{
    PORTD |= (1<<LEDP); //Encendemos Led en Baby Orangutan.
    _delay_ms(300);
    PORTD &= ~(1<<LEDP);//Apagamos Led en Baby Orangutan.
    _delay_ms(300);
    PORTD |= (1<<LEDP);
    _delay_ms(300);
    PORTD &= ~(1<<LEDP);
    _delay_ms(300);
    PORTD |= (1<<LEDP);
    _delay_ms(300);
    PORTD &= ~(1<<LEDP);
}

//Funciones para controlar la velocidad y dirección de los
//motores. PWM controla la velocidad, valor entre 0-255.
void M1_reverse(unsigned char pwm)
{
    OCR0A = 0;
    OCR0B = pwm;
}
void M1_forward(unsigned char pwm)
{
    OCR0B = 0;
    OCR0A = pwm;
}
void M2_reverse(unsigned char pwm)
{
    OCR2A = 0;
    OCR2B = pwm;
}
void M2_forward(unsigned char pwm)
{
    OCR2B = 0;
    OCR2A = pwm;
}

//Configuración del hardware del micro que controla los motores.
void motors_init(void)
{
    // configure for inverted PWM output on motor control pins:
    // set OCxx on compare match, clear on timer overflow
    // Timer0 and Timer2 count up from 0 to 255
    TCCR0A = TCCR2A = 0xF3;
    // use the system clock/8 (=2.5 MHz) as the timer clock
    TCCR0B = TCCR2B = 0x02;
    // initialize all PWMs to 0% duty cycle (braking)
    OCR0A = OCR0B = OCR2A = OCR2B = 0;
    // set PWM pins as digital outputs (the PWM signals will not
    // appear on the lines if they are digital inputs)
    DDRD |= (1 << PORTD3) | (1 << PORTD5) | (1 << PORTD6);
    DDRB |= (1 << PORTB3);
}

char obtener_errorp(void)
{
    char errorp=0;
    unsigned char contador_sensor=0;

    if((PINC & 0x02) != 0) //I3 PC1 -7
    {
        errorp -= 0x07;
        contador_sensor++;
    }

    if((PINC & 0x04) != 0) //I2 PC2 -5
    {
        errorp -= 0x05;
        contador_sensor++;
    }

    if((PINC & 0x08) != 0) //I1 PC3 -3
    {
        errorp -= 0x03;
        contador_sensor++;
    }

    if((PINB & 0x10) != 0) //I0 PB4 -1
    {
        errorp -= 0x01;
        contador_sensor++;
    }

    if((PINB & 0x20) != 0) //D0 PB5 +1
    {
        errorp += 0x01;
        contador_sensor++;
    }

    if((PIND & 0x04) != 0) //D1 PD2 +3
    {
        errorp += 0x03;
        contador_sensor++;
    }

    if((PIND & 0x10) != 0) //D2 PD4 +5
    {
        errorp += 0x05;
        contador_sensor++;
    }

    if((PIND & 0x80) != 0) //D3 PD7 +7
    {
        errorp += 0x07;
        contador_sensor++;
    }

    if(contador_sensor != 0)
        return(errorp/contador_sensor);
    else
        return(0);
}