//------------------------------------------------------------------------------
Include(gs.h);
//------------------------------------------------------------------------------
TrackName={"Dict Play!"};             //タイトル
Copyright={"AMIO"};          //著作権表示
System.MeasureShift = 1;     //(弄らないこと)
ResetGM; r2 ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------

/*
	サクラの音階 a,b,c,d,e,f,g と休符 r だけでできる英単語を
	MMLとして演奏するというエクスペリメンタル。
	奇跡的に素晴らしいメロディーが生まれるかも?
	
	下の変数をいじることでリズムパターンを変更できます。
	
	MMLがわかる方は是非リズムパターンを追加して遊んでみてください……
*/

Int RhythmMode = 0; // リズムパターンを変更できます。(0-3)

// -------------------------- おまけオプション ---------------------------------
Int RandomFlg = 1; 
// 1 : ランダム演奏(RepLenで設定した回数だけ繰り返します)
// 0 : 全ての単語を順番に演奏(注:長いです)

Int RepLen = 16; // 繰返し回数(RandomFlg = 0 のときは意味がありません)
//------------------------------------------------------------------------------






// ---- ここから下 MML ----




// ------------------------------- Dictionary ----------------------------------
Str Phrase0 = {Lyric = {"ABACA 【名】マニラ麻。"}; Sub{abaca}};
Str Phrase1 = {Lyric = {"ABFARAD 【名】絶対ファラド。"}; Sub{abfarad}};
Str Phrase2 = {Lyric = {"ABRADE 【動】すりむく。"}; Sub{abrade}};
Str Phrase3 = {Lyric = {"ACCEDE 【動】同意する。"}; Sub{accede}};
Str Phrase4 = {Lyric = {"ACE 【名】エース。"}; Sub{ace}};
Str Phrase5 = {Lyric = {"ACRE 【名】エーカー。"}; Sub{acre}};
Str Phrase6 = {Lyric = {"ACREAGE 【名】エーカー数。"}; Sub{acreage}};
Str Phrase7 = {Lyric = {"ADAGE 【名】金言。"}; Sub{adage}};
Str Phrase8 = {Lyric = {"ADD 【動】加える。"}; Sub{add}};
Str Phrase9 = {Lyric = {"ADDER 【名】加算器。"}; Sub{adder}};
Str Phrase10 = {Lyric = {"ADFREE 【形】無広告の。"}; Sub{adfree}};
Str Phrase11 = {Lyric = {"AGAR 【名】寒天。"}; Sub{agar}};
Str Phrase12 = {Lyric = {"AGE 【名】時代。"}; Sub{age}};
Str Phrase13 = {Lyric = {"AGGRADE 【動】埋積する。"}; Sub{aggrade}};
Str Phrase14 = {Lyric = {"AGREE 【動】同意する。"}; Sub{agree}};
Str Phrase15 = {Lyric = {"ARC 【名】弧。"}; Sub{arc}};
Str Phrase16 = {Lyric = {"ARCADE 【名】アーケード。"}; Sub{arcade}};
Str Phrase17 = {Lyric = {"ARE 【動】~である。"}; Sub{are}};
Str Phrase18 = {Lyric = {"AREA 【名】面積。"}; Sub{area}};
Str Phrase19 = {Lyric = {"ARREAR 【名】延滞金。"}; Sub{arrear}};
Str Phrase20 = {Lyric = {"BABE 【名】赤ん坊。"}; Sub{babe}};
Str Phrase21 = {Lyric = {"BACCA 【名】液果。"}; Sub{bacca}};
Str Phrase22 = {Lyric = {"BAD 【形】悪い。"}; Sub{bad}};
Str Phrase23 = {Lyric = {"BADE 【動】bidの過去形。"}; Sub{bade}};
Str Phrase24 = {Lyric = {"BADAGA 【名】バガダ族が使う方言。"}; Sub{badaga}};
Str Phrase25 = {Lyric = {"BADDER 【形】すごい。"}; Sub{badder}};
Str Phrase26 = {Lyric = {"BADGE 【名】バッジ。"}; Sub{badge}};
Str Phrase27 = {Lyric = {"BAG 【名】カバン。"}; Sub{bag}};
Str Phrase28 = {Lyric = {"BAGDAD 【固名】バグダッド。"}; Sub{bagdad}};
Str Phrase29 = {Lyric = {"BAGGAGE 【名】荷物。"}; Sub{baggage}};
Str Phrase30 = {Lyric = {"BAGGED 【形】酔っ払った。"}; Sub{bagged}};
Str Phrase31 = {Lyric = {"BAGGER 【名】袋詰め機。"}; Sub{bagger}};
Str Phrase32 = {Lyric = {"BAR 【名】バー。"}; Sub{bar}};
Str Phrase33 = {Lyric = {"BARB 【名】(矢じりや釣り針の)かかり。"}; Sub{barb}};
Str Phrase34 = {Lyric = {"BARBED 【形】とげのある。"}; Sub{barbed}};
Str Phrase35 = {Lyric = {"BARBAREA 【名】ヤマガラシ属。"}; Sub{barbarea}};
Str Phrase36 = {Lyric = {"BARBER 【名】理髪店。"}; Sub{barber}};
Str Phrase37 = {Lyric = {"BARD 【名】吟遊詩人。"}; Sub{bard}};
Str Phrase38 = {Lyric = {"BARE 【形】裸の。"}; Sub{bare}};
Str Phrase39 = {Lyric = {"BARF 【動】吐く。"}; Sub{barf}};
Str Phrase40 = {Lyric = {"BARFBAG 【名】エチケット袋。"}; Sub{barfbag}};
Str Phrase41 = {Lyric = {"BARGE 【名】平底の荷船。"}; Sub{barge}};
Str Phrase42 = {Lyric = {"BARGEE 【名】はしけを操縦する人。"}; Sub{bargee}};
Str Phrase43 = {Lyric = {"BARRAGE 【名】弾幕。"}; Sub{barrage}};
Str Phrase44 = {Lyric = {"BARRED 【形】縞のある。"}; Sub{barred}};
Str Phrase45 = {Lyric = {"BEAD 【名】ビーズ。"}; Sub{bead}};
Str Phrase46 = {Lyric = {"BEADER 【名】縁曲げ器。"}; Sub{beader}};
Str Phrase47 = {Lyric = {"BEAR 【名】クマ。"}; Sub{bear}};
Str Phrase48 = {Lyric = {"BEARD 【名】あごひげ。"}; Sub{beard}};
Str Phrase49 = {Lyric = {"BEARER 【名】運搬人。"}; Sub{bearer}};
Str Phrase50 = {Lyric = {"BED 【名】ベッド。"}; Sub{bed}};
Str Phrase51 = {Lyric = {"BEDDER 【名】花壇に植えるのに適した植物。"}; Sub{bedder}};
Str Phrase52 = {Lyric = {"BEEF 【名】牛肉。"}; Sub{beef}};
Str Phrase53 = {Lyric = {"BEEFER 【名】肉牛。"}; Sub{beefer}};
Str Phrase54 = {Lyric = {"BEER 【名】ビール。"}; Sub{beer}};
Str Phrase55 = {Lyric = {"BEG 【動】請い求める。"}; Sub{beg}};
Str Phrase56 = {Lyric = {"BEGAD 【間】ちぇっ。"}; Sub{begad}};
Str Phrase57 = {Lyric = {"BEGGAR 【名】こじき。"}; Sub{beggar}};
Str Phrase58 = {Lyric = {"BRAD 【名】無頭くぎ。"}; Sub{brad}};
Str Phrase59 = {Lyric = {"BRACE 【動】支える。"}; Sub{brace}};
Str Phrase60 = {Lyric = {"BRADE 【名】ブレード。"}; Sub{brade}};
Str Phrase61 = {Lyric = {"BRAG 【動】自慢する。"}; Sub{brag}};
Str Phrase62 = {Lyric = {"BRAGGER 【名】自慢する人。"}; Sub{bragger}};
Str Phrase63 = {Lyric = {"BREAD 【名】パン。"}; Sub{bread}};
Str Phrase64 = {Lyric = {"BREED 【動】子孫をつくる。"}; Sub{breed}};
Str Phrase65 = {Lyric = {"CAB 【名】タクシー。"}; Sub{cab}};
Str Phrase66 = {Lyric = {"CABER 【名】丸太棒。"}; Sub{caber}};
Str Phrase67 = {Lyric = {"CABBAGE 【名】キャベツ。"}; Sub{cabbage}};
Str Phrase68 = {Lyric = {"CADGE 【動】こじきをする。"}; Sub{cadge}};
Str Phrase69 = {Lyric = {"CADRE 【名】幹部。"}; Sub{cadre}};
Str Phrase70 = {Lyric = {"CAFARD 【名】憂鬱。"}; Sub{cafard}};
Str Phrase71 = {Lyric = {"CAFE 【名】カフェ。"}; Sub{cafe}};
Str Phrase72 = {Lyric = {"CAFF 【名】カフェ。"}; Sub{caff}};
Str Phrase73 = {Lyric = {"CAGE 【名】鳥かご。"}; Sub{cage}};
Str Phrase74 = {Lyric = {"CAR 【名】車。"}; Sub{car}};
Str Phrase75 = {Lyric = {"CARACARA 【名】カラカラ(南米および中米に生息する鳥)。"}; Sub{caracara}};
Str Phrase76 = {Lyric = {"CARAFE 【名】水差し。"}; Sub{carafe}};
Str Phrase77 = {Lyric = {"CARD 【名】カード。"}; Sub{card}};
Str Phrase78 = {Lyric = {"CARDER 【名】すく人。"}; Sub{carder}};
Str Phrase79 = {Lyric = {"CARE 【名】心配。"}; Sub{care}};
Str Phrase80 = {Lyric = {"CAREER 【名】経歴。"}; Sub{career}};
Str Phrase81 = {Lyric = {"CAREFREE 【形】心配のない。"}; Sub{carefree}};
Str Phrase82 = {Lyric = {"CARFARE 【名】電車賃。"}; Sub{carfare}};
Str Phrase83 = {Lyric = {"CARFREE 【形】カーフリーの。"}; Sub{carfree}};
Str Phrase84 = {Lyric = {"CEDAR 【名】ヒマラヤスギ。"}; Sub{cedar}};
Str Phrase85 = {Lyric = {"CRAB 【名】カニ。"}; Sub{crab}};
Str Phrase86 = {Lyric = {"CRABBED 【形】気難しい。"}; Sub{crabbed}};
Str Phrase87 = {Lyric = {"CRAG 【名】ごつごつの岩。"}; Sub{crag}};
Str Phrase88 = {Lyric = {"CRAGGED 【形】峨々たる。"}; Sub{cragged}};
Str Phrase89 = {Lyric = {"CRED 【名】信用性。"}; Sub{cred}};
Str Phrase90 = {Lyric = {"CREED 【名】信経。"}; Sub{creed}};
Str Phrase91 = {Lyric = {"DAB 【動】……を軽くたたく。"}; Sub{dab}};
Str Phrase92 = {Lyric = {"DAD 【名】パパ。"}; Sub{dad}};
Str Phrase93 = {Lyric = {"DADA 【名】ダダイズム。"}; Sub{dada}};
Str Phrase94 = {Lyric = {"DAG 【名】木の葉模様の縁取り。"}; Sub{dag}};
Str Phrase95 = {Lyric = {"DAGGER 【名】短剣。"}; Sub{dagger}};
Str Phrase96 = {Lyric = {"DARAF 【名】ダラフ(エラスタンスの単位)。"}; Sub{daraf}};
Str Phrase97 = {Lyric = {"DARB 【形】素晴らしい。"}; Sub{darb}};
Str Phrase98 = {Lyric = {"DARE 【副】あえて……する。"}; Sub{dare}};
Str Phrase99 = {Lyric = {"DEAD 【形】死んでいる。"}; Sub{dead}};
Str Phrase100 = {Lyric = {"DEAR 【形】親愛なる。"}; Sub{dear}};
Str Phrase101 = {Lyric = {"DEBAR 【動】(法的に)禁ずる。"}; Sub{debar}};
Str Phrase102 = {Lyric = {"DECADE 【名】10年。"}; Sub{decade}};
Str Phrase103 = {Lyric = {"DECAF 【形】カフェイン抜きの。"}; Sub{decaf}};
Str Phrase104 = {Lyric = {"DECARE 【名】デカール(=1000平方メートル)。"}; Sub{decare}};
Str Phrase105 = {Lyric = {"DECREE 【名】法令。"}; Sub{decree}};
Str Phrase106 = {Lyric = {"DEED 【名】行為。"}; Sub{deed}};
Str Phrase107 = {Lyric = {"DEER 【名】シカ。"}; Sub{deer}};
Str Phrase108 = {Lyric = {"DEFACE 【動】外観を損なう。"}; Sub{deface}};
Str Phrase109 = {Lyric = {"DEFER 【動】延期する。"}; Sub{defer}};
Str Phrase110 = {Lyric = {"DEFRAG 【名】デフラグ。"}; Sub{defrag}};
Str Phrase111 = {Lyric = {"DEGAGE【形】くつろいだ。"}; Sub{degage}};
Str Phrase112 = {Lyric = {"DEGRADE【動】品位を落とす。"}; Sub{degrade}};
Str Phrase113 = {Lyric = {"DEGREE【名】程度。"}; Sub{degree}};
Str Phrase114 = {Lyric = {"DRAB 【形】とび色の。"}; Sub{drab}};
Str Phrase115 = {Lyric = {"DRAFF 【名】搾りかす。"}; Sub{draff}};
Str Phrase116 = {Lyric = {"DRAG 【動】引く。"}; Sub{drag}};
Str Phrase117 = {Lyric = {"DRAGEE 【名】糖衣丸。"}; Sub{dragee}};
Str Phrase118 = {Lyric = {"DRAGGER 【名】引っ張る人。"}; Sub{dragger}};
Str Phrase119 = {Lyric = {"DREAD 【動】怖がる。"}; Sub{dread}};
Str Phrase120 = {Lyric = {"DREAR 【形】わびしい。"}; Sub{drear}};
Str Phrase121 = {Lyric = {"EAGER 【形】熱望して。"}; Sub{eager}};
Str Phrase122 = {Lyric = {"EAR 【名】耳。"}; Sub{ear}};
Str Phrase123 = {Lyric = {"EDGE 【名】刃。"}; Sub{edge}};
Str Phrase124 = {Lyric = {"EFFACE 【動】削除する。"}; Sub{efface}};
Str Phrase125 = {Lyric = {"EGG 【名】卵。"}; Sub{egg}};
Str Phrase126 = {Lyric = {"ERA 【名】時代。"}; Sub{era}};
Str Phrase127 = {Lyric = {"FACADE 【名】(建物の)正面。"}; Sub{facade}};
Str Phrase128 = {Lyric = {"FACE 【名】顔。"}; Sub{face}};
Str Phrase129 = {Lyric = {"FADE 【動】衰える。"}; Sub{fade}};
Str Phrase130 = {Lyric = {"FAG 【動】疲れさせる。"}; Sub{fag}};
Str Phrase131 = {Lyric = {"FAR 【形】遠い。"}; Sub{far}};
Str Phrase132 = {Lyric = {"FARAD 【名】ファラド(静電容量の単位)。"}; Sub{farad}};
Str Phrase133 = {Lyric = {"FARCE 【名】笑劇。"}; Sub{farce}};
Str Phrase134 = {Lyric = {"FARE 【名】料金。"}; Sub{fare}};
Str Phrase135 = {Lyric = {"FEAR 【名】恐怖。"}; Sub{fear}};
Str Phrase136 = {Lyric = {"FEE 【名】報酬金。"}; Sub{fee}};
Str Phrase137 = {Lyric = {"FEED 【動】食物を与える。"}; Sub{feed}};
Str Phrase138 = {Lyric = {"FEEDBAG 【名】かいば袋。"}; Sub{feedbag}};
Str Phrase139 = {Lyric = {"FEEDER 【名】飼育者。"}; Sub{feeder}};
Str Phrase140 = {Lyric = {"FREE 【形】自由な。"}; Sub{free}};
Str Phrase141 = {Lyric = {"FREEBEE 【名】無料で提供されるもの。"}; Sub{freebee}};
Str Phrase142 = {Lyric = {"GAD 【動】遊び歩く。"}; Sub{gad}};
Str Phrase143 = {Lyric = {"GADDER 【名】穿孔台車。"}; Sub{gadder}};
Str Phrase144 = {Lyric = {"GAFF 【名】ギャフ。"}; Sub{gaff}};
Str Phrase145 = {Lyric = {"GAFFE 【名】失言。"}; Sub{gaffe}};
Str Phrase146 = {Lyric = {"GAG 【名】ギャグ。"}; Sub{gag}};
Str Phrase147 = {Lyric = {"GAGE 【名】ゲージ。"}; Sub{gage}};
Str Phrase148 = {Lyric = {"GAGGER 【名】釣金具。"}; Sub{gagger}};
Str Phrase149 = {Lyric = {"GARAGE 【名】ガレージ。"}; Sub{garage}};
Str Phrase150 = {Lyric = {"GARB 【名】服装。"}; Sub{garb}};
Str Phrase151 = {Lyric = {"GARBAGE 【名】ごみ。"}; Sub{garbage}};
Str Phrase152 = {Lyric = {"GEAR 【名】ギア。"}; Sub{gear}};
Str Phrase153 = {Lyric = {"GEE 【間】まあ。"}; Sub{gee}};
Str Phrase154 = {Lyric = {"GRAB 【動】掴む。"}; Sub{grab}};
Str Phrase155 = {Lyric = {"GRABBER 【名】グラバー。"}; Sub{grabber}};
Str Phrase156 = {Lyric = {"GRACE 【名】気品。"}; Sub{grace}};
Str Phrase157 = {Lyric = {"GRADE 【名】階級。"}; Sub{grade}};
Str Phrase158 = {Lyric = {"GRAFFER 【名】代書人。"}; Sub{graffer}};
Str Phrase159 = {Lyric = {"GREECE 【固名】ギリシャ。"}; Sub{greece}};
Str Phrase160 = {Lyric = {"GREED 【名】欲張り。"}; Sub{greed}};
Str Phrase161 = {Lyric = {"RAB 【名】漆喰。"}; Sub{rab}};
Str Phrase162 = {Lyric = {"RACE 【名】レース。"}; Sub{race}};
Str Phrase163 = {Lyric = {"RACECAR 【名】レース用の自動車。"}; Sub{racecar}};
Str Phrase164 = {Lyric = {"RADAR 【名】レーダー。"}; Sub{radar}};
Str Phrase165 = {Lyric = {"RAG 【名】ぼろぎれ。"}; Sub{rag}};
Str Phrase166 = {Lyric = {"RAGE 【名】激怒。"}; Sub{rage}};
Str Phrase167 = {Lyric = {"RARE 【形】まれな。"}; Sub{rare}};
Str Phrase168 = {Lyric = {"READ 【動】読む。"}; Sub{read}};
Str Phrase169 = {Lyric = {"READER 【名】読者。"}; Sub{reader}};
Str Phrase170 = {Lyric = {"REAR 【名】後ろ。"}; Sub{rear}};
Str Phrase171 = {Lyric = {"REBAR 【名】鉄筋。"}; Sub{rebar}};
Str Phrase172 = {Lyric = {"RECEDE 【動】退く。"}; Sub{recede}};
Str Phrase173 = {Lyric = {"RED 【形】赤い。"}; Sub{red}};
Str Phrase174 = {Lyric = {"REDFACED 【形】赤ら顔の。"}; Sub{redfaced}};
Str Phrase175 = {Lyric = {"REED 【名】リード。"}; Sub{reed}};
Str Phrase176 = {Lyric = {"REEF 【名】礁。"}; Sub{reef}};
Str Phrase177 = {Lyric = {"REEFER 【名】縮帆する人。"}; Sub{reefer}};
Str Phrase178 = {Lyric = {"REFACE 【動】表面を新しくする。"}; Sub{reface}};
Str Phrase179 = {Lyric = {"REFEED 【動】(食料などを)再供給する。"}; Sub{refeed}};
Str Phrase180 = {Lyric = {"REFER 【動】参照する。"}; Sub{refer}};
Str Phrase181 = {Lyric = {"REFEREE 【名】審判員。"}; Sub{referee}};
Str Phrase182 = {Lyric = {"REFERRER 【名】参照元。"}; Sub{referrer}};
Str Phrase183 = {Lyric = {"REGARD 【動】見なす。"}; Sub{regard}};
Str Phrase184 = {Lyric = {"REGGAE 【名】レゲエ。"}; Sub{reggae}};
Str Phrase185 = {Lyric = {"REREAD 【動】読み直す。"}; Sub{reread}};
INT MAX_PHRASE = 186;
//------------------------------------------------------------------------------

// N番目の単語を演奏する関数
Function SelectPhrase(Int N)
{
	Str MML = {Phrase} + N;
	MML;
}

// ランダムな単語を演奏する関数
Function RandomPlay()
{
	Int N = Random(MAX_PHRASE);
	SelectPhrase(N);
}

#Repeat = {[#?1 #?2]};

// ----------------------------- トラック1 主旋律 ------------------------------
TR(1) @72 REV(40)
If(RandomFlg) {
	Switch(RhythmMode){
		Case(2){l8  o5 #Repeat(RepLen, {RandomPlay();r1^2})}
		Case(3){l12 o5 #Repeat(RepLen, {RandomPlay();r1})}
		Default{l8  o5 #Repeat(RepLen, {RandomPlay();r1})}
	}
}
Else{
	Switch(RhythmMode){
		Case(2){l8  o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1^2}}
		Case(3){l12 o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1}}
		Default{l8  o5 For(Int N=0; N<MAX_PHRASE; N++){SelectPhrase(N);r1}}
	}
}

// ----------------------------- ベースパターン定義 ----------------------------
Str Bass1 = {l8 v.N(100,0,90,90,100) c^rcc^g^};
Str Bass2 = {l8 v90 e&g`c`c`cr cr`c^^^};
Str Bass3 = {l12 v100 c^rg^ra^re^r};

// ----------------------------- トラック8 ベース ------------------------------
TR(8) @34 P(40) o3
If(RandomFlg) {
	Switch(RhythmMode){
		Case(1){ REV(10) #Repeat(RepLen, Bass1;) }
		Case(2){ REV(40) #Repeat(RepLen, Bass2;) }
		Case(3){ REV(10) #Repeat(RepLen, Bass3;) }
	}
}
Else{
	Switch(RhythmMode){
		Case(1){ REV(10) #Repeat(MAX_PHRASE, Bass1;) }
		Case(2){ REV(40) #Repeat(MAX_PHRASE, Bass2;) }
		Case(3){ REV(10) #Repeat(MAX_PHRASE, Bass3;) }
	}
}

// ----------------------------- ドラムパターン定義 ----------------------------
Str Drum0 = {l24 Sub{v.N(100,0,0,90,0,0)[8n53rr]}Sub{v.N(100,0,0,90,0,0,95,0,0,90,0,0)[8n46rr]}
			Sub{v100['n35n36'rrrrr rrr'n35n36'rr]}
			v100 rrrrrr 'n38n65'rrrr'n38n65' rr'n38n65'rrr 'n38n65'rrrrr};
Str Drum1 = {l8 Sub{v.N(100,0,90,0,95,0,90,0)[4n46r]}Sub{v.N(100,0,105,100,0,0,0)'n35n36'rr'n35n36''n35n36'rrr}v100[rrn38r]};
Str Drum2 = {l8 Sub{v60[n46rrrrr]}Sub{v60[n35rrrrr]}v65rrn40n40n40r rr[8n40,16]};
Str Drum3 = {l12 Sub{v100[4rrn39]}Sub{v100[4n35rr]}Sub{v.N(0,0,100,100,0,0,90,90)[4rr'n51n53']}v100[r4n38rr] };

// ----------------------------- トラック10 ドラム -----------------------------
TR(10) P(64)
If(RandomFlg){
	Switch(RhythmMode){
		Case(0){ Tempo(100); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum0;) }
		Case(1){ Tempo(130); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum1;) }
		Case(2){ Tempo(170); TimeSignature(6,8); REV(60) #Repeat(RepLen, Drum2;) }
		Case(3){ Tempo(120); TimeSignature(4,4); REV(10) #Repeat(RepLen, Drum3;) }
		Default{ Tempo(120); TimeSignature(4,4); }
	}
}
Else{
	Switch(RhythmMode){
		Case(0){ Tempo(100); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum0;) }
		Case(1){ Tempo(130); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum1;) }
		Case(2){ Tempo(170); TimeSignature(6,8); REV(60) #Repeat(MAX_PHRASE, Drum2;) }
		Case(3){ Tempo(120); TimeSignature(4,4); REV(10) #Repeat(MAX_PHRASE, Drum3;) }
		Default{ Tempo(120); TimeSignature(4,4); }
	}
}

// ----------------------------- ピアノパターン定義 ----------------------------
Str Piano3 = {l12 [Sub{rr'v100eg`c'4'v90eg`c'6}r2] };

// ----------------------------- トラック11 ピアノ ------------------------------
TR(11) @3 V(75) P(104) o5
If(RandomFlg) {
	Switch(RhythmMode){
		Case(3){ REV(20) #Repeat(RepLen, Piano3;) }
	}
}
Else{
	Switch(RhythmMode){
		Case(3){ REV(20) #Repeat(MAX_PHRASE, Piano3;) }
	}
}