//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.379)
//------------------------------------------------------------------------------
曲名{"The New Principle"}
作者{"goh"}
コメント{"MSGSやQuickTime用。MidRadioPlayerは△"}
//------------------------------------------------------------------------------
音源初期化
拍子4,4
テンポ(110)
調♭(b)           // F
Key(0)

Include(delay.h);

/*
MMLを使う理由

皆さん初めまして。曲掲示板6初投稿曲です。
MMLに慣れるためのテスト曲みたいなものですが
かろうじて1曲という体裁になっています。
最初のベースのデーンデンデデの時にはその後の構成を
何も考えてなくて、イントロ→Aメロ→Bメロと順番に打ち込むという
挫折しやすい作り方をしてみたらなんとか最後のジャンまで行けました。
わりとふざけたメロディーなところが個人的お気に入りです。

MMLで高度な打ち込みをするのはものすごく大変です。
DAWソフトがあって当たり前の時代にそれをするのは時間の無駄とも言えます。
あえてMMLにする理由は何もないんでしょうか。
内蔵音源のチープな音と表現力に限りのあるMMLにも面白さがあると私は思います。
（本当はサクラの表現力はすごいのだけど、それを引き出すのは難しいので）
道具に制約を課すことで少ない機能と音数と貧弱なMIDI音源でそれらしい曲を作る
という楽しみがMMLにはあるんじゃないかと思いました。
この曲は最大限に手抜きしてシンプルに打ち込んだつもりです。

今後続けられるかわかりませんが、もし私を見かけたらよろしくお願い致します。
*/

トラック１
音量(100)//←ダブルクリックで変更できます
音階3 音符4 音色(PickBass) V(100)
//ここから書きます。
#B1 = {
	q99 <ff8e16f16> r2 r1 r-8 <e8><ff8e16f16> r2 r1
}
#B2 = {
	l16 [<fff8f8f>c^8c8c8<b8 aaa8a8a8 b8b8> c8c8] 
	l16 [<fff8f8f>c^8c8c8<b8 aaa8a8a8 b8b8> c8c8] 
}
#B3 = {
	[4 r1r1 ]
	l8 <f2^4ef>c2<a2> d2^4cdd2c4d4
	<b4.ba4e4>d4.cd4c4 <b2bagf>c2 c4d4 
}
#B4 = { l8
	<a4.a4.r8g16a16 > dddf ffaa  bagg^fg^ ceg`c^ dc<b>
	<aa>eede<ab^4>ffgfd<b^ggg ffgg >ccccrrrr
}
#B5 = {
	
	l8q99 ddddcccc<a`eaab4ba gggggg>ccdddd<a>cea
	<g^gf^g^g a^ag^a^a bbbbbbba g2>c2 //<f2>
}
	#B1 #B2 #B3 #B4 #B5
	#B2 //#B3 
	#B4 #B5 #B5 #B5 #B2  <f4>

トラック2
音量(80)//←ダブルクリックで変更できます
音階3 音符4 音色(FingerBass)
	#B1 #B2 #B3 #B4 #B5
	#B2 //#B3 
	#B4 #B5 #B5 #B5 #B2  <f4>

TR(3) 音色(DrawbarOrgan) P(10) V(80)
#OR1 = {
	 r1r1r1r1
}
#OR2 = {
	l8v100 q110 EP(105) [4 >fcgcfcgc fcgcfcec <] v70l8 EP(127)
}
#OR3 = {
	[4 r1r1 ] 
	v70l8 <a0>f1 e2 f4g4a8d8^4^4 cdd2e2
	l4 fefg aga`db2a2g2fg 
}
#OR4 = { 
	l4 e0a2 >c0e2 <f0>d2 d0f2 < b0>d2  d0f2 c0e2c0g4c0f4< 
	   ><a0>e2f2<b0>d2f2g2gf l8 eeee c0e4c4< 
}
#OR5 = {
	l2>d0f c0g c0a f0b g0b e0`c f0`d`c0`e< //sabi
	>g0bg4d4a0`ca4e4b0`db4f4 `c0`e1<
}
	#OR1 #OR2 #OR3 #OR4 #OR5 
	#OR2 //#OR3 
	#OR4 #OR5 #OR5 #OR5 #OR2 '<a>f'4

TR(4) 音色(RockOrgan) V(70) P(110)  t5 
	#OR1 #OR2 #OR3 #OR4 #OR5 
	#OR2 //#OR3 
	#OR4 #OR5 #OR5 #OR5 #OR2 '<a>f'4

TR(5) 音色(CleanGuitar) P(85)
#G1 = {
	r1r1r1r1
}
#G2 = {
	l8 o4q90
	[ f0a4.f0af0a4f0g4fgabagfg fgab>cdc<bagfgagfg ]
}
#G3 = {
	// F Am Dm C Bb Am Dm G Bb C
	['fa`c'1 'eg`c'1 'da`f'1'db`d'2 l8q180 cg>ce< 
	<b>fb`d,80<a>egc,80da>cf<<g>dgb
	q90'<b>fb'4.>c0f8^4f<b,99> < q180 cg>cefe16f16c<g,50 ]
}
#G4 = {
	//B:   Am Dm Gm C Am Bb G C
	l8o4 a0`c4>ce^2  f2<da`da dgb`d^2 cg>cf^ec<g
	<a>a`ca^a`ca <b0>f0b4. b0`c0`f^`cb^
	<g>b`db>g<b>d<b c0g0`c g>ec< r4r4
}
#G5 = {
	//D C A B G C D A |  G G A A B B G C | F
	l8q180o5 <da>df<c>fec<a>cec^d<bf> d<bgb>c<g>cdfd<a`d^ a`ca>
	<gb>de^d^^ <a>ceg^fe^ <b>dgd^<b>cd <cg>cde^8^4
}	
	#G1 #G2 #G3 #G4 #G5 
	#G2 //#G3 
	#G4 #G5 #G5 #G5 #G2 t.onNote(-2,0,2,3) '<f>cfa`c`f'4
	
TR(6) 音色(Trumpet) V(115)
#TP1 = {
	[4r1]
}
#TP2 = {
	[8r1]
}
#TP3 = {
	 l8v80 [ rfgaagfgfgfec2 rdfgg4fgfgfag2 
	b4.b`c4b4aaagf4r4   g4dd^2f4.gg2 ]
}
#TP4 = {
	l8v95 aaaaaaagfed4^4r4 gggggggfedc4^2,70
	a4.e^4def4fga2 b2>c4d4fede,130r4< v110 >de<
}
#TP5 = {
	v100
	>f4.de4cde4.cd4 r4<bbb>fe4dc<a2r4ab
	g2a4b4>f2e4c4  ddde^e^efefg^4fe < 
}
	#TP1 #TP2 #TP3 #TP4 #TP5 
	#TP2 //#TP3 
	#TP4 #TP5 #TP2 #TP5 #TP2

TR(7) 音色(DistortionGuitar) P(55) V(90)
#Gsolo = {
	l8v100q99o5
	df>cc16d16<a>f^e dcd^^c16d16<af defdefd>d fe16f16cdd^4 
	a^2g4d4a2g4d8 a^4.b4.a4 gf24g24f24 l16cdef l8 p%.onTime(4000,0,!8) e2 
	v70 d^^<b>c^<ab`c^^ab^^4> r1r1
	<b2>c4d4a2g4e4 r1r1
}

Time(69:1:0)
	#Gsolo

TR(8) 音色(DistortionGuitar) P(55) V(70)

Time(69:1:0) t8
	MidiDelayS( #Gsolo )


TR(9) 音色(Strings1) V(70) P(55)

#S1 = {
 	v100q99l8
	//D C A B G C D A |  G G A A B B G C | F
	<d0f2c0e2 c0a2 <b0>b2<b+0>g2 c0e2d0f2c0a2>
	<b0>b1c0`c1<b0>b1 c0`c1 f0`f2,99,70
}
 Time(37:1:0) #S1
  Time(61:1:0) #S1
   Time(77:1:0) #S1
	
TR(10) 音色(PowerSet) V(100) EP(100) Key(0) 
v100l8

//リズムマクロの定義
$c{n36,}//bass drum
$d{n38,}//snare
$s{n42,}//hi-hat
$a{n46,}//hi-hat open
$e{n49,}//Cymbal
$h{n41,}//Cymbal
$j{n43,}//Cymbal
$k{n45,}//Cymbal

Rhythm{	
	[4 cr16c16c0dr16c16cc : c0dr ] d16d16,10,10r e0  // Intro
	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rd,,127d32,,99d32,,50drd^d,,80 l8 //Intro2
	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rddddd^d,,50 l8 e0
	[4 crrcdrrrcrcr :d^rc r-1^1 s^s^s^s^ s^s^s^r^ ]  cdd16,,120d16,,70b l8 e0 //A
	[4 crdrcc,,80dr crdr : ccdr16d16,,70 r-1r-1 s^s^s^s^s^s^s^a^ ]  ddd16d16b l8        //A'
	[4 crdrccd : r crdr ccdr16b16,,80 r-1r-1 s^s^s^s^s^s^s^a^ ]  l16 bb l8 c0ac0ac0ac0a d16,,50d16d d16d16,,50b l8 e0 //B
	[4 c^dr16d16,,70ccd^ : ccdr16c16,,70c^d^ r-1r-1 sss^s^s^ s^s^sss^]  dddd16,,50d16 dd,,70 l16 dd,,70d,,80d,,70 l8  //sabi

	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rd,,127d32,,99d32,,50drd^d,,80 l8 //Intro2
	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rddddd^d,,50 l8 e0
	[4 crdrccd : r crdr ccdr16b16,,80 r-1r-1 s^s^s^s^s^s^s^a^ ]  l16 bb l8 c0ac0ac0ac0a d16,,50d16d d16d16,,50b l8 e0 //B
	[4 c^dr16d16,,70ccd^ : ccdr16c16,,70c^d^ r-1r-1 sss^s^s^ s^s^sss^]  dddd16,,50d16 dd,,70 l16 dd,,70d,,80d,,70 l8  //sabi
	
	//solo
	[4 c^dr16d16,,90ccdr16d16,,80 : ccdr16c16,,70c^d^ r-1r-1 sss^s^s^ s^s^sss^]  dddd16,,50d16 dd,,70 l16 dd,,70d,,80d,,70 l8  //sabi
	//sabi
	[4 c^dr16d16,,70ccd^ : ccdr16c16,,70c^d^ r-1r-1 sss^s^s^ s^s^sss^]  dddd16,,50d16 dd,,70 l16 dd,,70d,,80d,,70 l8  //sabi
	//ed
	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rd,,127d32,,99d32,,50drd^d,,80 l8 //Intro2	
	[4 cr16c16c0dr16c16 : c16d16,,50cdr16d16,,50 r-1 s^s^s^s^] l16 rddddd^d,,50 l8
	c0d0e1
}

//PlayFrom(29:1:0);
//Solo(6)