#include <avr\io.h> 
#include <avr\interrupt.h> 
#include <avr\pgmspace.h>

#define TLACITKA_PORT PORTB
#define TLACITKA_PIN PINB
#define TL1 PB6
#define TL2 PB7
#define INF PB0

#define TLACITKO_1 (!(TLACITKA_PIN & (1<<TL1)))
#define TLACITKO_2 (!(TLACITKA_PIN & (1<<TL2)))
#define INFRA (TLACITKA_PIN & (1<<INF))

volatile unsigned char repeate = 100, j = 1, i = 0;

const uint8_t  plethysmcurve[] PROGMEM= //256 hodnot 
{ 
0x0,0x3,0x6,0x9,0xC,0xF,0x12,0x15,0x18,0x1B,0x1E,0x21,0x24,0x27,0x2A,0x2D, 
0x30,0x33,0x36,0x39,0x3C,0x3F,0x42,0x45,0x48,0x4B,0x4E,0x51,0x54,0x57,0x5A,0x5D, 
0x60,0x63,0x66,0x69,0x6C,0x6F,0x72,0x75,0x78,0x7B,0x7E,0x81,0x84,0x87,0x8A,0x8D, 
0x90,0x93,0x96,0x99,0x9C,0x9F,0xA2,0xA5,0xA8,0xAB,0xAE,0xB1,0xB4,0xB7,0xBA,0xBD, 
0xC0,0xC3,0xC6,0xC9,0xCC,0xCF,0xD2,0xD5,0xD8,0xDB,0xDE,0xE1,0xE4,0xE7,0xE9,0xEB, 
0xEC,0xEF,0xF0,0xF1,0xF3,0xF4,0xF5,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFC,0xFD,0xFE, 
0xFE,0xFF,0xFF,0xFF,0xFF,0xFE,0xFD,0xFD,0xFC,0xFA,0xF9,0xF8,0xF7,0xF6,0xF5,0xF5, 
0xF3,0xF2,0xF1,0xF1,0xF0,0xEE,0xEC,0xEB,0xEA,0xE9,0xE8,0xE6,0xE4,0xE2,0xE0,0xDE, 
0xDC,0xDA,0xD8,0xD6,0xD4,0xD2,0xD0,0xCE,0xCC,0xCA,0xC8,0xC6,0xC4,0xC2,0xC0,0xBE, 
0xBC,0xBA,0xB8,0xB7,0xB5,0xB4,0xB4,0xB5,0xB6,0xB7,0xB8,0xBA,0xBB,0xBD,0xBE,0xC0, 
0xC1,0xC3,0xC4,0xC5,0xC6,0xC8,0xC9,0xCB,0xCC,0xCD,0xCE,0xCE,0xCE,0xCD,0xCD,0xCC, 
0xCB,0xCA,0xC8,0xC6,0xC6,0xC4,0xC3,0xC1,0xBF,0xBD,0xBC,0xBA,0xB8,0xB6,0xB4,0xB2, 
0xB0,0xAE,0xAC,0xAA,0xA8,0xA6,0xA4,0xA2,0xA0,0x9E,0x9C,0x9A,0x98,0x96,0x93,0x90, 
0x8D,0x8A,0x87,0x84,0x81,0x7E,0x7B,0x78,0x75,0x72,0x6F,0x6C,0x69,0x66,0x63,0x60, 
0x5D,0x5A,0x57,0x54,0x51,0x4E,0x4B,0x48,0x45,0x42,0x3F,0x3C,0x39,0x36,0x33,0x30, 
0x2D,0x2A,0x27,0x24,0x21,0x1E,0x1B,0x18,0x15,0x12,0xF,0xC,0x9,0x6,0x3,0x0, 
}; 

ISR(TIMER1_COMPA_vect) 
{
	if(!INFRA)
	{
		// infra = 0, pwm A jede
		if(--j == 0)
		{ 
			OCR1A=pgm_read_byte(&plethysmcurve[i++]);
			j = repeate;
		}
	}
	else
	{
		// infra = 1, pwm A zastavit, pokracuje B
		TCCR1A &= ~(1<<COM1A1);	// zastavit pwm A (vystup = 0)
		TIMSK &= ~(1<<OCIE1A);	// vypnout preruseni pwm A
		if(--j == 0)
		{ 
			OCR1B=pgm_read_byte(&plethysmcurve[i++]);
			j = repeate;
		}
		else
		{
			OCR1B=pgm_read_byte(&plethysmcurve[i]);
		}
		TCCR1A |= (1<<COM1B1);	// spustit pwm B
		TIFR |= 1<<OCF1B;		// vynulovat priznak preruseni pwm B
		TIMSK &= ~(1<<OCIE1B);	// zapnout preruseni pwm B
	}
}

ISR(TIMER1_COMPB_vect) 
{
	//
	if(INFRA)
	{
		// infra = 1, pwm B jede
		if(--j == 0)
		{ 
			OCR1B=pgm_read_byte(&plethysmcurve[i++]);
			j = repeate;
		}
	}
	else
	{
		// infra = 0, pwm B zastavit, pokracuje A
		TCCR1A &= ~(1<<COM1B1);	// zastavit pwm B (vystup = 0)
		TIMSK &= ~(1<<OCIE1B);	// vypnout preruseni pwm B
		if(--j == 0)
		{ 
			OCR1A=pgm_read_byte(&plethysmcurve[i++]);
			j = repeate;
		}
		else
		{
			OCR1A=pgm_read_byte(&plethysmcurve[i]);
		}
		TCCR1A |= (1<<COM1A1);	// spustit pwm A
		TIFR |= 1<<OCF1A;		// vynulovat priznak preruseni pwm A
		TIMSK &= ~(1<<OCIE1A);	// zapnout preruseni pwm A
	}
}

void main(void)
{
	TLACITKA_PORT |= 1<<TL1 | 1<<TL2;	// zapnout pull-upy u tlacitek
	DDRB |= 1<<PB2 | 1<<PB1;		// pwm piny jako vystupy

	DDRD=0x00;		// PortD jako vstup 
	PORTD=0xFF;		// zapnout pull-upy

	OCR1A=80;		// inicializace OCR1A hodnoty 
			 
	TCCR1A |= 1<<COM1A1 | 1<<WGM10;	// PWM, Phase Correct, 8-bit,
	// Clear OC1A/OC1B on Compare Match when up-counting. Set OC1A/OC1B on Compare Match when downcounting.
	TCCR1B |= 1<<CS10;	// spustí časovač bez předděličky (start timer without prescaler ) 
	TIMSK |= 1<<OCIE1A;	// Timer/Counter1, Output Compare A atch Interrupt Enable
	sei();			// enable global interrups 

	for(;;) 
	{
		//nekonečná smycka,preruseni pracuje 
		if(TLACITKO_1) repeate = 100;
		if(TLACITKO_2) repeate = 50;
	} 
}