/*

Code Written by Nehul and Mayank
at CEDT , NSIT , New Delhi
Processor: Tiny45
Using AVRGCC
*/


/*           Enable         Cathode              Variable
Led 1        PB0             PB1                     0 
Led 2        PB0             PB2                     1
Led 3        PB0             PB3                     2  
Led 4        PB0             PB4                     3
Led 5        PB1             PB0                     4
Led 6        PB1             PB2		     5
Led 7        PB1             PB3		     6
Led 8        PB1             PB4
Led 9        PB2             PB0
Led 10       PB2             PB1
Led 11       PB2             PB3
Led 12       PB2             PB4                     11
Led 13	     PB3	     PB0
Led 14	     PB3             PB1
Led 15       PB3             PB2
Led 16	     PB3	     PB4		     15
Led 17       PB4             PB0
Led 18       PB4             PB1
Led 19       PB4             PB2
Led 20	     PB4             PB3		     19

*/


#include<avr/io.h>
#include<avr/interrupt.h>


typedef unsigned char u08;

void setrandom(void);
u08 call(u08 n);

void delay(int var)		//delay of 10ms for var=1
{

	unsigned char il, jl, kl;

	for (il=0; il<var; il++) 
	for (jl=0; jl<32;jl++)
	for (kl=0; kl<249; kl++) 
	asm("NOP");
}
		 
volatile u08 j=1,statusonoff[20]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1},l;
volatile u08 en[21] = {0,0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4};
volatile u08 b[21] = {0,1,2,3,4,0,2,3,4,0,1,3,4,0,1,2,4,0,1,2,3};
volatile u08 pwm[21];
volatile int w[21]={0,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4};
volatile int a=0;
volatile int z=0;
volatile u08 ab=0;
volatile int present=4500,past=4500,q=0;
volatile unsigned long qw=0;
volatile u08 z1[8]={9,9,9,9,9,9,9,9};
int main(void)
{


	ADMUX=0b00100000;			//VCC 5V used as Voltage Reference,analog i/p at PB5(ADC 0)
	ADCSRA=0b11101111;			//ADC Enable,ADC Start Conversion,division factor 128,Auto trigger enable
	ADCSRB = 0b00000000;		//ADC Free Running mode
	
	sei();
	
	TCCR0A = 0x00;
	TCCR0B = 0x02;
	TIMSK = 0x02;

	DDRB = 0x1f;
	PORTB = 0x1f;
	

	
	for(;;)
	{
		
		z++;
		if(z==8)
		z=0;
		
		for(;;)
		{
			if(z1[z]==z)
			{
				z++;
				if(z==8)
				z=0;
			}
			else 
			break;
		}
		
		
		
		
        
		
		if((present-past)>=5)
		{
		
		
	
			if(z==0)
			{
				statusonoff[0] = 0;
				statusonoff[5] = 0;
				statusonoff[9] = 0;
				statusonoff[12]=0;
				z1[0] = 0;
			}
			else if(z==1)
			{
				statusonoff[2] = 0;
				statusonoff[6] = 0;
				z1[1] = 1;
				
			}
			else if(z==2)
			{
				statusonoff[1] = 0;
				statusonoff[7] = 0;
				statusonoff[14]=0;
				z1[2] = 2;
			}
			else if(z==3)
			{
				statusonoff[11] = 0;
				z1[3] = 3;
				
			}
			else if(z==4)
			{
				statusonoff[15] = 0;
				statusonoff[18] = 0;
				z1[4] = 4;
				
			}
			else if(z==5)
			{
				statusonoff[10] = 0;
				statusonoff[13] = 0;
				z1[5] = 5;
				
			}
			else if(z==6)
			{
				statusonoff[3] = 0;
				statusonoff[4] = 0;
				statusonoff[8] = 0;
				z1[6] = 6;
				
			}
			else if(z==7)
			{
				statusonoff[17] = 0;
				statusonoff[16] = 0;
				statusonoff[19]=0;
				z1[7] = 7;
			}

		}
		
		else
		setrandom();
	
		delay(10);
			


	}

	return 0;

}

void setrandom(void)
{
	if(ab==0)
	{
		w[1]=1;w[2]=4;w[3]=4;w[4]=4;
		w[5]=4;w[6]=4;w[7]=2;w[8]=1;
		w[9]=1;w[10]=3;w[11]=3;w[12]=1;
		w[13]=1;w[14]=3;w[15]=3;w[16]=4;
		w[17]=1;w[18]=2;w[19]=4;w[20]=4;
	}
	if(ab==1)
	{
		w[1]=3;w[2]=3;w[3]=3;w[4]=3;
		w[5]=3;w[6]=1;w[7]=3;w[8]=2;
		w[9]=2;w[10]=1;w[11]=4;w[12]=2;
		w[13]=2;w[14]=3;w[15]=1;w[16]=3;
		w[17]=2;w[18]=3;w[19]=3;w[20]=3;
	}
	if(ab==2)
	{
		w[1]=2;w[2]=2;w[3]=2;w[4]=1;
		w[5]=2;w[6]=2;w[7]=4;w[8]=4;
		w[9]=3;w[10]=4;w[11]=1;w[12]=3;
		w[13]=4;w[14]=3;w[15]=4;w[16]=1;
		w[17]=3;w[18]=1;w[19]=2;w[20]=2;
	}
	if(ab==3)
	{
		w[1]=4;w[2]=1;w[3]=1;w[4]=2;
		w[5]=1;w[6]=3;w[7]=1;w[8]=3;
		w[9]=4;w[10]=2;w[11]=2;w[12]=4;
		w[13]=3;w[14]=3;w[15]=2;w[16]=2;
		w[17]=4;w[18]=4;w[19]=1;w[20]=1;
	}
	ab++;
	if(ab==4)
	ab=0;
}


ISR(TIM0_OVF_vect)
{
	DDRB = 0;

	l = call(j-1);


	PORTB = 1<<en[j]|l<<b[j];

	DDRB = 1<<en[j]|1<<b[j];


	j++;
	if(j==21)
	j=1;
}


u08 call(u08 n)
{
	u08 j,k;
	if(pwm[n+1]<w[n+1])
	{
		j = statusonoff[n];
		k = ~j;
		k = k&0b00000001; //Extract LSB
	}
	else k=1;
	pwm[n+1]++;
	if(pwm[n+1]==4)
	pwm[n+1]=0;
	return k;
}

ISR(ADC_vect)
{

		
        a=ADCH;
		float out;
		int as;
		out = (a*4)*5/(1024.0);
		as = out*1000;
		qw +=as;
		q++;
		if(q==1000)
		{
			past = present;
			qw = qw/1000;
			present = qw;
			q=0;qw=0;
		}
			
}