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

#define LED_ON(COL) PORTB &= ~_BV(COL)
#define LED_OFF(COL) PORTB |= _BV(COL)

#define RED 2
#define GREEN 1
#define BLUE 0


#define COL_NUM 11

const char RGB[] = {  0,  0,  0,	// OFF
                     64,  0,  0,	// 春香
                      0,  0, 64,	// 千早
                     64, 64, 60,	// 雪歩
                     60, 10,  0,	// やよい
                      0, 64,  0,	// 律子
                     64,  0, 23,	// あずささん
                     64, 24, 24,	// 伊織
                     64, 64,  0,	// 亜美・真美
                     15, 64,  3,	// 美希
                      0, 64, 32,	// 響
                     64,  5,  3,	// 貴音
                   };

volatile char mode = 0;
volatile char color = 1;

volatile int count = 0;
volatile char time = 64;

volatile char R = 64; // 初期カラーは春香さん
volatile char G = 0;
volatile char B = 0;


// ボタン割り込み
ISR(PCINT0_vect)
{	
	_delay_us(100); // チャタリング対策

	if(!(PINB & 0b00010000) && !(PINB & 0b0001000)) // ボタン両押し
	{
		mode++;
		if(mode > 2)
		{
			TCCR0B = 0b00000000; // Timer off
			mode = 0;
		}
		
		for(char i = 0; i<2; i++)
		{
			LED_OFF(RED);
			LED_OFF(GREEN);
			LED_OFF(BLUE);
			_delay_ms(10);
			_delay_ms(10);
			LED_ON(RED);
			LED_ON(GREEN);
			LED_ON(BLUE);
			_delay_ms(10);
			_delay_ms(10);
		}
		return;
	}



	// モード0：プリセット
	if(mode == 0)	
	{
		if(!(PINB & 0b00010000)) color++;		// ボタン上
		else if(!(PINB & 0b00001000)) color--;	// ボタン下

		if(color > COL_NUM) color =  1;
		if(color <=  0) color = COL_NUM;

		R = RGB[3*color];
		G = RGB[3*color + 1];
		B = RGB[3*color + 2];
	}
	// その他のモード
	else if(mode == 1 || mode == 2)
	{
		if(!(PINB & 0b00010000)) time+=32;		// ボタン上
		else if(!(PINB & 0b00001000)) color++;	// ボタン下
		if(color > COL_NUM) color =  1;

		TCCR0B = 0b00000010; // Timer clk/64
	}
}

// タイマー
ISR(TIM0_OVF_vect)
{
	count++;

	if(count == time)
	{
		R = 0;
		G = 0;
		B = 0;
	}

	if(count >= 2 * time)
	{
		// モード2：ローテーションモード
		if(mode == 2)
		{
			color++;
			if(color > COL_NUM) color =  1;
		}

		R = RGB[3*color];
		G = RGB[3*color + 1];
		B = RGB[3*color + 2];
		count = 0;
	}
}


// メイン
int main()
{
	// PORT初期設定
	DDRB  = 0b00000111;  // 0,1,2:LED  3,4:ボタン
	PORTB = 0b00011111;  // 0,1,2:初期High  3,4 内部プルアップ

	GIMSK = 0b00100000;  // ピン変化割り込み許可
	PCMSK = 0b00011000;	 // PORT3,4許可

	TIMSK0 = 0b00000010; // Timer0オーバーフロー割り込み許可

	sei();				 // 割り込み許可

	unsigned char cnt = 0;
	unsigned char PWM_R = 0;
	unsigned char PWM_G = 0;
	unsigned char PWM_B = 0;

	for(;;)
	{
		cnt = 64;
		PWM_R = R;
		PWM_G = G;
		PWM_B = B;

		if(PWM_R) LED_ON(RED);
		if(PWM_G) LED_ON(GREEN);
		if(PWM_B) LED_ON(BLUE);

		while(cnt--)
		{
			if(!(PWM_R--)) LED_OFF(RED);
			if(!(PWM_G--)) LED_OFF(GREEN);
			if(!(PWM_B--)) LED_OFF(BLUE);
		}
	}
}