C言語／C++/PlayMML - Sample is best!

開発環境	Microsoft Visual C++ 2010 Express (SP1)
実行環境	Microsoft Windows XP Home Edition (SP3)
プロジェクトの種類	Win32 コンソール アプリケーション
プロジェクト名	PlayMML
アプリケーションの種類	コンソール アプリケーション
追加のオプション	空のプロジェクト
文字セット	マルチバイト

PlayMML.cpp

// マルチバイト文字セット
 
#pragma comment(lib, "winmm")
 
#include <Windows.h>
 
// status
#define NOTE_OFF	0x8
#define NOTE_ON		0x9
#define PROGRAM_CHANGE	0xc
 
// program
#define ACOUSTIC_PIANO	0x00
 
#define MAKESMSG(st,ch,d1,d2) ((st)<<4|(ch)|(d1)<<8|(d2)<<16)
#define CH 0
 
// 関数プロトタイプ宣言
void Command(TCHAR newCmd);
 
const int noteList[] = {9, 11, 0, 2, 4, 5, 7};
 
// 外部変数
HMIDIOUT hmo;
TCHAR cmd = ' ';
int note;
int tempo = 120;
int len = 4;
int octave = 4;
int velocity = 0x70;
int value = 0;
int dot = 0;
 
//==============================================================================
int main()
{
//	LPCTSTR mml = "ccggaag2ffeeddc2";
//	LPCTSTR mml = "t180 cdefedcr efgagfer crcrcrcr l8ccddeefferdrl4cr";
	LPCTSTR mml = "o5co4b8.a16g.f8edc.g8a.a8b.b8o5c2.";
 
	midiOutOpen(&hmo, MIDI_MAPPER, NULL, 0, CALLBACK_NULL);
	midiOutShortMsg(hmo, MAKESMSG(PROGRAM_CHANGE, CH, ACOUSTIC_PIANO, 0));
 
	for (LPCTSTR p = mml; *p; p++) {
		switch (*p) {
		case ' ':
			break;
		case '.':
			dot++;
			break;
		case '0': case '1': case '2': case '3': case '4':
		case '5': case '6': case '7': case '8': case '9':
			value = value * 10 + (*p - '0');
			break;
		case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g':
			Command('n');
			note = (octave + 1) * 12 + noteList[*p - 'a'];
			break;
		case 'l': case 'o': case 'r': case 't':
			Command(*p);
			break;
		}
	}
	Command(' ');
 
	midiOutReset(hmo);
	midiOutClose(hmo);
	return 0;
}
 
void Command(TCHAR newCmd)
{
	DWORD wait = 240000 / (tempo * (value ? value : len));
	if (dot) wait += wait / 2;
 
	switch (cmd) {
	case 'l':
		len = value;
		break;
	case 'n':
		midiOutShortMsg(hmo, MAKESMSG(NOTE_ON, CH, note, velocity));
		Sleep(wait);
		midiOutShortMsg(hmo, MAKESMSG(NOTE_OFF, CH, note, 0));
		break;
	case 'o':
		octave = value;
		break;
	case 'r':
		Sleep(wait);
		break;
	case 't':
		tempo = value;
		break;
	}
 
	cmd = newCmd;
	value = 0;
	dot = 0;
}