/*

和音の乱数音楽

曲掲示板５で投稿したものの改題。
音色を差し替えるなり、ソースを書き換えるなりで、遊んでみてください。

*/

//------------------------------------------------------------------------------
//各種ユーザ定義
//

#Pat1={'o5 cegb'}
#Pat2={'o5 dfa>c'}
#Pat3={'o5 egb>d'}
#Pat4={'o5 fa>ce'}
#Pat5={'o4 gb>df'}
#Pat6={'o4 a>ceg'}
#Pat7={'o4 b>dfa'}


Function StateLoop(){

	Int State;
	State=Random(1,7);

	While(State!=0){
		Print(State);
		State=OutPut(State);
		If(State==0){ r; Print("Rest") ;}
	}
}


Function OutPut(Int State){

	Switch(State){
	Case(1){ #Pat1; }
	Case(2){ #Pat2; }
	Case(3){ #Pat3; }
	Case(4){ #Pat4; }
	Case(5){ #Pat5; }
	Case(6){ #Pat6; }
	Case(7){ #Pat7; }
	Default{ r; Print("Rest");}
	}
	
	State=Random(8);
	Result=State;
}


//------------------------------------------------------------------------------
//使用例
//

TR(0)
Time(1:1:0) ResetGM
Time(2:1:0) TrackSync

TR(1) CH(1) V(100) REV(0) @6

l2

[16
	v70 v.Random(50)
	StateLoop();
]