///////////////////////////////////////////////////////////////////////////////
// title:        "marimba.h" ver 0.1
// description:  マリンバ記述用インクルードファイル(2015/06/02)
// keywords:     SAKURA Function     by ななこっち★ @nanakochi123456
// HP:           http://nano.daiba.cx/
///////////////////////////////////////////////////////////////////////////////
// marimba.h マリンバ記述用関数
///////////////////////////////////////////////////////////////////////////////
// Function MRINIT(len, Q, min, value)
// マリンバの繰り返す速度、乱数値の最小値、最大値を設定する。両方0にすると、同一タイミングで演奏します。
//
// Function MRCresc(VOL, Offset) {
// 初期音量とノートごとのオフセットを設定する。
//
// Function MCD(mml)
// 2音等の和音をランダムなタイミングで演奏する
//
// Function MR(mml1, mml2, len)
// mml1 -> mml2 -> mml1-> ... のように、len長さ分だけ演奏する
///////////////////////////////////////////////////////////////////////////////
// Example
// Include(marimba.h)
// MRINIT(53,513)
// l4 MR(ceg)
// l8 MR(<b>fg)
// l8 MR(ceg)
///////////////////////////////////////////////////////////////////////////////
// テストする場合、コメントアウトを消して下さい。
Int TEST=1
///////////////////////////////////////////////////////////////////////////////

Int MR_LEN=!16
Int MR_Q=85
Int MR_MIN=192
Int MR_MAX=768
Int MR_INITVOL=100
Int MR_VOL=100
Int MR_CRESC=0

// マリンバ初期化
Function MRINIT(Int LEN, Int Q, Int MIN, Int MAX) {
	MR_LEN=LEN
	MR_Q=Q
	MR_MIN=MIN
	MR_MAX=MAX
}

// マリンバの両手別のクレッシェンド
Function MRCresc(Int VOL, Int Offset) {
	MR_INITVOL=VOL
	MR_CRESC=Offset
}

// マリンバの両手同時、rchord.h RCDと同じ関数
Function MCD(Str MML) {
	Str BUF=""
	Str FIRST=""
	Str ML=""
	Str M
	Str R
	Str FM
	Int C=0

	BUF=""
	R=""

	For(Int i=1; MID(MML, i, 1)!=""; i++) {
		M=MID(MML, i, 1)
		IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
		C++
	  	IF(C<2) {
			FIRST=ML
			ML=FM+M
			FM=""
		} ELSE {
				BUF=BUF+"Su...(続く)...