#include<windows.h>

#define APP_NAME "wave_piano"
#define MIDIMSG(msg,channel,data1,data2) (DWORD)((msg<<4) | channel | (data1<<8) | (data2<<16))

int sum(const int counts[],const int num){
	int sum=0;
	for(int i=0;i<num;i++){ 		sum+=counts[i]; 	} 	return sum; }  LRESULT CALLBACK WindowProc(HWND hWnd,UINT uMsg,WPARAM wParam,LPARAM lParam) { 	static HMIDIOUT hMidi; 	HDC hdc; 	PAINTSTRUCT ps; 	const POINT white_key[]={ 		{0,0},{0,134},{46,134},{46,88},{30,88},{30,0},							//ド 		{58,0},{58,88},{46,88},{46,134},{92,134},{92,88},{80,88},{80,0},		//レ 		{108,0},{108,88},{92,88},{92,134},{138,134},{138,0},					//ミ 		{138,0},{138,134},{184,134},{184,88},{168,88},{168,0},					//ファ 		{196,0},{196,88},{184,88},{184,134},{230,134},{230,88},{214,88},{214,0},//ソ 		{242,0},{242,88},{230,88},{230,134},{276,134},{276,88},{266,88},{266,0},//ラ 		{294,0},{294,88},{276,88},{276,134},{322,134},{322,0},					//シ 		{322,0},{322,134},{368,134},{368,88},{352,88},{352,0},					//ド 	}; 	const POINT black_key[]={ 		{30,0},{30,88},{58,88},{58,0},		//ド＃ 		{80,0},{80,88},{108,88},{108,0},	//レ＃ 		{168,0},{168,88},{196,88},{196,0},	//ファ＃ 		{214,0},{214,88},{242,88},{242,0},	//ソ＃ 		{266,0},{266,88},{294,88},{294,0},	//ラ＃ 		{352,0},{352,88},{368,88},{368,0},	//ド＃ 	}; 	const int w_counts[]={6,8,6,6,8,8,6,6}; 	const int b_counts[]={4,4,4,4,4,4}; 	static BYTE data1=0,data2=0x40; 	char str[32]; 	static HBRUSH hBrush; 	HBRUSH hOldBrush;  	switch(uMsg){ 		case WM_CREATE: 			midiOutOpen(&hMidi,MIDIMAPPER,NULL,0,CALLBACK_NULL); 			hBrush=CreateSolidBrush(RGB(255,128,0)); 			wsprintf(str,"音色 = %d , 打鍵強度 = %d",data1,data2); 			SetWindowText(hWnd,str); 			return 0; 		case WM_PAINT: 			hdc=BeginPaint(hWnd,&ps); 			SelectObject(hdc,GetStockObject(WHITE_BRUSH)); 			PolyPolygon(hdc,white_key,w_counts,sizeof(w_counts)/sizeof(w_counts[0])); 			SelectObject(hdc,GetStockObject(BLACK_BRUSH)); 			PolyPolygon(hdc,black_key,b_counts,sizeof(b_counts)/sizeof(b_counts[0])); 			EndPaint(hWnd,&ps); 			return 0; 		case WM_CHAR: 			hdc=GetDC(hWnd); 			hOldBrush=(HBRUSH)SelectObject(hdc,hBrush);			 			switch(wParam){ 				case 'a':		//ド 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3C,data2)); 					Polygon(hdc,white_key,w_counts[0]); 					break; 				case 'A': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3C,0)); 					break; 				case 'w':		//ド＃ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3D,data2)); 					Polygon(hdc,black_key,b_counts[0]); 					break; 				case 'W': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3D,0)); 					break; 				case 's':		//レ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3E,data2)); 					Polygon(hdc,white_key+sum(w_counts,1),w_counts[1]); 					break; 				case 'S': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3E,0)); 					break; 				case 'e':		//レ＃ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3F,data2)); 					Polygon(hdc,black_key+sum(b_counts,1),b_counts[1]); 					break; 				case 'E': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x3F,0)); 					break; 				case 'd':		//ミ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x40,data2)); 					Polygon(hdc,white_key+sum(w_counts,2),w_counts[2]); 					break; 				case 'D': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x40,0)); 					break; 				case 'f':		//ファ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x41,data2)); 					Polygon(hdc,white_key+sum(w_counts,3),w_counts[3]); 					break; 				case 'F': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x41,0)); 					break; 				case 'u':		//ファ＃ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x42,data2)); 					Polygon(hdc,black_key+sum(b_counts,2),b_counts[2]); 					break; 				case 'U': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x42,0)); 					break; 				case 'j':		//ソ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x43,data2)); 					Polygon(hdc,white_key+sum(w_counts,4),w_counts[4]); 					break; 				case 'J': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x43,0)); 					break; 				case 'i':		//ソ＃ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x44,data2)); 					Polygon(hdc,black_key+sum(b_counts,3),b_counts[3]); 					break; 				case 'I': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x44,0)); 					break; 				case 'k':		//ラ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x45,data2)); 					Polygon(hdc,white_key+sum(w_counts,5),w_counts[5]); 					break; 				case 'K': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x45,0)); 					break; 				case 'o':		//ラ＃ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x46,data2)); 					Polygon(hdc,black_key+sum(b_counts,4),b_counts[4]); 					break; 				case 'O': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x46,0)); 					break; 				case 'l':		//シ 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x47,data2)); 					Polygon(hdc,white_key+sum(w_counts,6),w_counts[6]); 					break; 				case 'L': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x47,0)); 					break; 				case ';':		//ド 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x48,data2)); 					Polygon(hdc,white_key+sum(w_counts,7),w_counts[7]); 					break; 				case '+': 					midiOutShortMsg(hMidi,MIDIMSG(0x9,0x0,0x48,0)); 					break; 			} 			SelectObject(hdc,hOldBrush); 			ReleaseDC(hWnd,hdc); 			return 0; 		case WM_KEYUP: 			InvalidateRect(hWnd,NULL,FALSE); 			return 0; 		case WM_KEYDOWN: 			switch(wParam){ 				case VK_RIGHT: 					if(data1<0x7F) data1++; 					midiOutShortMsg(hMidi,MIDIMSG(0xC,0,data1,0)); 					wsprintf(str,"音色 = %d , 打鍵強度 = %d",data1,data2); 					SetWindowText(hWnd,str); 					return 0; 				case VK_LEFT: 					if(data1>0) data1--;
					midiOutShortMsg(hMidi,MIDIMSG(0xC,0,data1,0));
					wsprintf(str,"音色 = %d , 打鍵強度 = %d",data1,data2);
					SetWindowText(hWnd,str);
					return 0;
				case VK_UP:
					if(data2<0x7F) data2++;
					wsprintf(str,"音色 = %d , 打鍵強度 = %d",data1,data2);
					SetWindowText(hWnd,str);
					return 0;
				case VK_DOWN:
					if(data2>0) data2--;
					wsprintf(str,"音色 = %d , 打鍵強度 = %d",data1,data2);
					SetWindowText(hWnd,str);
					return 0;
			}
			return 0;
		case WM_DESTROY:
			DeleteObject(hBrush);
			midiOutReset(hMidi);
			midiOutClose(hMidi);
			PostQuitMessage(0);
			return 0;
	}
	return DefWindowProc(hWnd,uMsg,wParam,lParam);
}

int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,
				   PSTR lpCmdLine,int nCmdShow)
{
	WNDCLASS wc;
	MSG msg;
	RECT rc={0,0,368,134};

	wc.style			=CS_HREDRAW | CS_VREDRAW;
	wc.lpfnWndProc		=WindowProc;
	wc.cbClsExtra		=0;
	wc.cbWndExtra		=0;
	wc.hInstance		=hInstance;
	wc.hIcon			=LoadIcon(NULL,IDI_APPLICATION);
	wc.hCursor			=LoadCursor(NULL,IDC_ARROW);
	wc.hbrBackground	=(HBRUSH)GetStockObject(WHITE_BRUSH);
	wc.lpszMenuName		=NULL;
	wc.lpszClassName	=APP_NAME;

	if(!RegisterClass(&wc)) return 0;

	AdjustWindowRect(&rc,WS_OVERLAPPEDWINDOW & ~WS_MAXIMIZEBOX & ~WS_THICKFRAME,NULL);

	if(CreateWindow(
		APP_NAME,TEXT(__FILE__),
		(WS_OVERLAPPEDWINDOW | WS_VISIBLE) & ~WS_MAXIMIZEBOX & ~WS_THICKFRAME,
		CW_USEDEFAULT,CW_USEDEFAULT,
		rc.right-rc.left+1,rc.bottom-rc.top+1,
		NULL,NULL,hInstance,NULL)==NULL) return 0;

	while(GetMessage(&msg,NULL,0,0)>0){
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}

	return (int)msg.wParam;
}