/* Appassionata   イタリア語で『情熱的な』の意 */









TrackName     = {"Appassionata　〜熱情〜"}
Copyright     = {"騎士王321"}
MetaText      = {"曲掲示板5-6322『泉と妖精』のコードをそのまま借りてハウスみたいなのをつくりました。"}









テンポ 129
拍子   4,4
KeyFlag+(fcgd);
TrackSync;
Include(delay.h);Include(groove.h);Include(unison.h);
System.MeasureShift(1);ResetGS;TrackSync;


/*いつも必ず書いている↓ですが、
Function Tune444(){Int I;For(I=1; I<=16;I ++){CH(I)FineTune(80) DataLSB($03) RPN(127,127,0)} CH 1}
Tune444()
一回再生した後の途中再生からしか有効にならない。。。残念すぎる
というわけで、今回は自力でピッチを上げてみました。
こんくらい上げると面白いですね。
YMOとかはこれくらいのピッチでやっていたみたいです。*/


CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;
CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;
CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;
//CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;
CuePoint={"TwmParam(127,120,8)"}
CuePoint={"TwmChorus(0,1,60,10,0,1,0)"}
//==================================================================================================
STR RS08 = {[8 r1]}
STR RS16 = {[16 r1]}
//--------------------------------------------------------------------------------------------------
STR BA00 = {Sub{BR(12) p%.T(2010,-6182,!1);c1,,100}
            [4 r1^1 BR(1);p%(2010)]}
STR BA01 = {[7 rcrcrcrc]rcrcrcre}
STR BA02 = {[4 rcrcrcrcrcrcrcre]}
STR BA03 = {[8 rcrcrcrcrcrc:rcre]r8^16e8^16g8}
STR BA10 = {c,100}
STR BA11 = {[8 ""a"a][8 "cc][8 ""a"a][7 "cc]rr}
STR BA12 = {[8 r"a][8 rc] [8 r"a][7 rc]re}
STR BA13 = {[8 r"a][8 rc] [8 r"a][7 rc]rr}
STR BA14 = {[4 ""a"a16"e16""a16"e16:"a]"a16e16[4 "cc16"g16"c16"g16c]
            [4 ""a"a16"e16""a16"e16:"a]"a16e16[4 "cc16"g16:"c16"g16c]"c,59r}
トラック1//ベース　実は裏打ちにはずっと抵抗があったりします。
V(120) REV(1) CHO(80) M(0) q96 P(64) @39,1 o2 l8 EP.T(0,127,!1);BR(1);p%(2010)
r1 v120
RS08 RS08 BA01 BA02 BA03 Key(9);BA02 Key(12);BA02 BA00 BA11 BA11 BA11 BA11 BA11
BA12 BA13  r1  BA14 BA14 BA14 BA14 BA14 BA14 BA14 BA14 BA11 BA11 BA12 BA13 BA02 BA02 BA01 BA01 BA10
//--------------------------------------------------------------------------------------------------
トラック2//ベース　はっきり行ってこの音色は苦手すぎる。
V(100) REV(1) CHO(80) M(20) q95 P(48) @36 o2 l8 EP.T(0,127,!1);BR(1);p%(2010)
r1 v120 Key(0);
RS08 RS08 BA01 BA02 BA03 Key(9);BA02  Key(0);BA02 BA00 BA11 BA11 BA11 BA11 BA11
BA12 BA13  r1  BA14 BA14 BA14 BA14 BA14 BA14 BA14 BA14 BA11 BA11 BA14 BA13 BA02 BA02 BA01 BA01 BA10
//--------------------------------------------------------------------------------------------------
STR SI01 = {EP.T(0,127,!1);Sub{MidiDelay({
            r1rbgfef"bc r2 r1r"g"f"e"b"g"fc r2 r1rbgfe"bfc r2 r1r"bb"bgefc r2},3,!4);}[8 r1]}
STR SI02 = {v+10 Sub{MidiDelay({
            r1rbgfef"bc r2 r1r"g"f"e"b"g"fc r2 r1rbgfe"bfc r2 r1r"bb"bgefc r2},3,!4);v-10}[8 r1]@81,1}
STR SI03 = {EP.T(0,127,!1);@81,8 Sub{MidiDelay({
            r1rbgfef"bc r2 r1r"g"f"e"b"g"fc r2 r1rbgfe"bfc r2 r1r"bb"bgefc r2},3,!4);}[8 r1]}
トラック3//お手伝い1
V(127) REV(48) CHO(100) M(20) q101 P(96) @81,8 o6 l16;BR(1);p%(2010)
r1 v70
RS08 RS08 RS08 RS08 RS16 Key(-3);RS08 Key(0);RS08 RS08 RS08 SI01 SI02 SI01 SI02
SI01 SI01  r1  SI03 SI02 SI01 SI02 RS08 RS08 RS08 RS08 SI03 SI02 SI01 SI02 SI03 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
STR CV01 = {EP.T(0,127,!1);Sub{MidiDelay({
            r1^2 rrc12e24fgrb r1^2 rrc12e24fcre r1^2 rrc12e24ferg r1^2 rrc12e24fgrb},3,!4);}[8 r1]}
STR CV02 = {v+10 Sub{MidiDelay({
            r1^2 rrc12e24fgrb r1^2 rrc12e24fcre r1^2 rrc12e24ferg r1^2 rrc12e24fgrb},3,!4);v-10}[8 r1]}
トラック4//お手伝い2
V(127) REV(1) CHO(64) M(10) q111 P(16) @5,8 o6 l16 BR(1);p%(2010)
r1 v90
RS08 RS08 RS08 RS08 RS16 Key(-3);RS08 Key(0);RS08 RS08 RS08 CV01 CV02 CV01 CV02
CV01 CV01  r1  CV01 CV02 CV01 CV02 RS08 RS08 RS08 RS08 CV01 CV02 CV01 CV02 CV01 CV02 RS08 RS08
//--------------------------------------------------------------------------------------------------
STR EP01 = {Sub{[8 [16 P(Random(0,127));r]]}@5 o5 v75
            [2 '""a1^1"e1^1c1^1f1^1g1^1b1^1`d1^1' '"c1^1"g1^1"b+1^1e1^1f1^1b1^1']}
STR EP02 = {Sub{[8 [16 P(Random(0,127));r]]}@5 o5 v75
            [2 '""a1^2"e1^2c1^2f1^2g1^2b1^2`d1^2'rr'""a12"e12c12f12g12b12`d12'v-20'""a24"e24c24f24g24b24`d24'
               v+20[2 '""a"ecfgb`d' v-20]v+20r'""a"ecfgb`d' v+20
		'"c1^2"g1^2"b+1^2e1^2f1^2b1^2'rr'"c12"g2"b+2e12f2b12'v-20'"c24"g24"b+24e24f24b24'
		   v+20[2 '"c"g"b+efb'v-20]v+20r'"c"g"b+efb' v+20]}
STR EP03 = {Sub{[8 [16 P(Random(0,127));r]]}
            Sub{[2 r8cccefrg^^fr1^4 r8cccefrg^^br4:r1]r8cccefrg^^b^df^}[8 r1]}
STR EP04 = {Sub{[8 [16 P(Random(0,127));r]]}
            Sub{[2 r8cccefrg^^fr1^4 r8cccefrg^^br4:r1]  >r8cccef^rrfffgrb<}
		    [2 r8eeegbr`c^^br1^4r8cccebr`c^^`er4:r1]>r8eeegb^rrbbb`cr`e<}
STR EP05 = {Sub{[16 [16 P(Random(0,127));r]]}@17,32
            v100[4 rrcefg"bc>rrcefg"bc r2 rr :v0'"g"b,,,2c,,,4f,,,6'^r'"f"b,,,2c,,,4e,,,6'^^ v100 <]
		       'd,,90g'rc'd,,90g'r'f,,90b'<}
STR EP06 = {/*Sub{[8 [16 P(Random(0,127));r]]<}*/
            Sub{v80[4 rrcefg"bc>rrcefg"bc r2 rr :v0'"g"b,,,2c,,,4f,,,6'^r'"f"b,,,2c,,,4e,,,6'^^ v80<]
		          grcgrb}
		v90[4 rr"g"bcd"f"g>rr"g"bcd"f"g r2 rr :v0'"g"b,,,2c,,,4f,,,6'^r'"f"b,,,2c,,,4e,,,6'^^ v90<]
		   dr"gdrf<}
STR EP07 = {r-16f32,199,125f+32,128,120/*聞こえるかなぁ*/Sub{[8 [16 P(Random(0,127));r]]}q108
            '"acg'^r'"acg'r1"bcefgb'"a12c12g12''"a24c24g24'[2 '"acg']r'"acg'
            '"beg'^r'"beg'r1"bcefgb'"b12e12g12''"b24e24g24'[2 '"beg']r'"beg'
		'"acf'^r'"acf'r1"g"bcefg'"a12c12f12''"a24c24f24'[2 '"acf']r'"acf'
		'"g"be'^r'"g"be'r1"c"e"f"g"bc'"g12"b12e12''"g24"b24e24'[2 '"g"be']r'"g"be'}
STR EP08 = {Sub{[8 [16 P(Random(0,127));r]]}
            '"g"bd'^r'"g"bd'r2^4^8rbgf+fe+e"b'"g12"b12d12''"g24"b24d24'[2 '"g"bd']r'"g"bd'
		'"g"bc'^r'"g"bc'r1err"brr'"g12"b12c12''"g24"b24c24'[2 '"g"bc']r'"g"bc'
		'"f"g"b'^r'"f"g"b'r1cefg"bc'"f12"g12"b12''"f24"g24"b24'[2 '"f"g"b']r'"f"g"b'
		'"c"e"g'^r'"c"e"g'r4 EP.T(16,32,!2,32,127,!1);'""c1^2""g1^2""b+1^2"e1^2"f1^2"b1^2'<}
STR EP09 = {Sub{[8 [16 P(Random(0,127));r]]}
            Sub{q129 v127 `c8 l48 q299 bgfdc<bgfdc<bgfdc q98 l16}
            [8 r1]}
トラック5//エレピ　鍵盤楽器系はボイシングがかなりフレキシブルなのが特徴ですね。
V(110) REV(100) CHO(100) M(10) q98 EP.T(0,127,!1);l16 @5 BR(1);p%(2010)
r1 v90
RS08 RS08 RS08 RS08 RS16 Key(-3);EP03 Key(0);EP04 EP03 EP04 EP05 EP06 EP05 EP06
EP02 EP02  r1  EP05 EP06 EP05 EP06 EP07 EP08 EP07 EP08 EP09 RS08 EP01 EP01 RS08 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
トラック6//エレピディレイ　パンを振るので。
V(50) REV(100) CHO(100) M(40) q97 EP.T(0,127,!1);l16 @5 BR(1);p%(2222)
r1^4^8 v90
RS08 RS08 RS08 RS08 RS16 Key(-3);EP03 Key(0);EP04 EP03 EP04 EP05 EP06 EP05 EP06
EP02 EP02  r1  EP05 EP06 EP05 EP06 EP07 EP08 EP07 EP08 EP09 RS08 EP01 EP01 RS08 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
STR PF01 = {/*t.N(0,2,4,6,8,10,12);*/
            [2 '""a1^1,,127"e1^1,,120c1^1f1^1g1^1"b1^1`d1^1'
		   '""g1^1,,127"c1^1,,127"g1^1,,120"b+1^1e1^1f1^1b1^1']}
STR PF02 = {/*t.N(0,2,4,6,8,10,12);*/
            [2 '""a1^1,,127"e1^1,,120c1^1f1^1g1^1"b1^1`d1^1':
		   '""g1^1,,127"c1^1,,127"g1^1,,120"b+1^1e1^1f1^1b1^1']
		   @82,90,1 REV.T(80,80,!1^2,80,127,!4,127,127,!4,127,80,!4);
		   V.T(16,32,!1^2,32,127,!4^16);v127'""g1^1"c1^1"g1^1"b+1^1e1^1f1^1b1^1'V.WR(30,80,!4);v90}
STR PF03 = {/*t.N(0,2,4,6,8,10,12);*/l16
            [2 '""a1^2"e1^2c1^2f1^2g1^2"b1^2`d1^2'rr'""a12"e12c12f12g12"b12`d12''""a24"e24c24f24g24"b24`d24'
               [2 '""a"ecfg"b`d']r'""a"ecfg"b`d'
		'""g1^2"c1^2"g1^2"b+1^2e1^2f1^2b1^2'rr'""g12"c12"g2"b+2e12f2b12''""g24"c24"g24"b+24e24f24b24'
		   [2 '""g"c"g"b+efb']r'""g"c"g"b+efb']}
STR PF04 = {V(107);t(0);q299 v-20
            '""a"e,,,4"b,,,8c,,,10f,,,12g,,,14`d,,,16'^
		       q109 v+20 OctaveUnison("bcefgb `c`e`f`f+`g`f`eb4r2^4);r
            '"""c,399,127""c,399,127'^OctaveUnison(cgbfg"b^gce"bc"g"f4r2^4);r
		'""""a,399,127"""a,399,127'^OctaveUnison("b"b+ceff+ gbg`c`e`cb`c4r2^4);r
		'"""c,399,127""c,399,127'^Sub{`d%8}OctaveUnison(`e`cb`cbg rbgfgfe"b);r1
		V.WR(80,80,!8,107,107,!8);q99}
STR PF05 = {/*t.N(0,2,4,6,8,10,12);*/@90
            [2 '""a1^1,,127"e1^1,,120c1^1f1^1g1^1"b1^1`d1^1'
		   '""g1^1,,127"c1^1,,127"g1^1,,120"b+1^1e1^1f1^1b1^1']}
トラック7//サイドチェーン?
REV(80) CHO(127) M(30) q97 P(64) V.WR(30,80,!4);EP.T(0,120,!1);@90 BR(1);p%(2010)
r1 v90
RS08 RS08 RS08 RS08 RS16 Key(-3);RS08 Key(0);RS08 PF01 PF02 PF01 PF01 PF01 PF01
RS08 RS08  r1  PF01 PF01 PF01 PF01 PF01 PF01 PF01 PF02 PF05 PF01 PF01 PF01 RS08 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
トラック8
REV(16) CHO(32) M(10) q99 P(0) V.WR(80,80,!8,107,107,!8);EP.T(0,127,!1);@1,8 BR(1) p%(2010)
r1 v120
RS08 RS08 RS08 RS08 RS16 Key(-3);RS08 Key(0);RS08 PF01 PF01 PF03 PF03 PF03 PF03
PF04 PF04  r1  PF03 PF03 PF03 PF03 PF01 PF01 PF01 PF01 PF01 PF01 RS08 RS08 RS08 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
トラック9
REV(16) CHO(32) M(20) q99 P(127) V.WR(80,80,!8,107,107,!8);EP.T(0,127,!1);@1,8 BR(1) p%(2010)
r1 v120
RS08 RS08 RS08 RS08 RS16 Key(-3);RS08 Key(0);RS08 PF01 PF01 PF03 PF03 PF03 PF03
PF04 PF04  r1  PF03 PF03 PF03 PF03 PF01 PF01 PF01 PF01 PF01 PF01 RS08 RS08 RS08 RS08 RS08 RS08
//--------------------------------------------------------------------------------------------------
KeyFlag-();Key(0);
STR BD01 = {[8 [4 '"d+4"g+4"b4,,127']]}
STR BD02 = {[7 [4 '"d+4"g+4"b4,,127']]
            [2 '"d+4"g+4"b4,,127']r8'"d+12"g+12"b12,,127''"d+24"g+24"b24''"d+"g+"b,,127''"d+"g+"b'r'"d+"g+"b'}
STR BD03 = {[16 [4 '"d+4"g+4"b4,,127']]}
トラック10//普通のバスドラ
V(115) REV(0) CHO(100) M(0) q9 P(64) o3 l16 EP.T(0,127,!1) BR(12) p%(2000) @12,7
r1
BD01 BD02 BD01 BD01 BD03         BD02        BD01 BD01 BD02 BD01 BD02 BD01 BD02
BD01 BD01  r1  BD01 BD02 BD01 BD02 BD01 BD02 BD01 BD02 BD01 BD02 BD01 BD02 BD01 BD02 BD01 BD02
//--------------------------------------------------------------------------------------------------
STR HH01 = {[7 [8 f+12 r96 g+24,,50 r-96]][6 f+12 r96 g+24,,50 r-96]f+16g+16,,50a+8}
STR HH02 = {[7 [8 f+12 r96 g+24,,50 r-96]][4 f+12 r96 g+24,,50 r-96]a+2,,100}
STR HH03 = {[8 [8 f+12 r96 g+24,,50 r-96]]}
STR HH04 = {[15 [8 f+12 r96 g+24,,50 r-96]][6 f+12 r96 g+24,,50 r-96]f+16g+16,,50a+8}
STR HH05 = {[7 [8 f+12 r96 g+24,,50 r-96]][5 f+12 r96 g+24,,50 r-96]a+8,,80a+8,,100a+8,,120}
トラック11//チッキチッキ
V(110) REV(8) CHO(40) M(0) q11 P(64) o3 BR(12) p%(-6000) @1,7
r1 v127 EP.T(0,127,2900);
HH01 HH02 HH03 HH03 HH04         HH05        HH02 HH03 HH01 HH03 HH03 HH03 HH02
HH03 HH01  r1  HH03 HH03 HH03 HH02 HH03 HH01 HH03 HH02 HH03 HH03 HH03 HH02 HH03 HH03 HH03 HH01
//--------------------------------------------------------------------------------------------------
STR SD01 = {[2 r2^4^8'"e1^8d+1^8```d+1^8':r1^1]r2^4^8'"e1^8d+1^8```d+1^8'}
STR SD02 = {[4 r2^4^8'"e1^8d+1^8```d+1^8'r1^1]}
STR SD03 = {[4 r2^4^8'"e1^8d+1^8```d+1^8']}
トラック12//パリッ
V(127) REV(100) CHO(127) M(0) q1 P(64) o3 EP.T(0,127,!1) BR(12) p%(6000) @26,100
r1 v127
RS08 RS08 RS08 SD01 SD02         SD03        SD03 RS08 RS08 SD03 SD03 SD03 SD03
SD03 SD03  r1  SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD03 SD02      SD02
//--------------------------------------------------------------------------------------------------
STR CC01 = {a1[7 r1]}
STR CC02 = {a1[15 r1]}
STR CC03 = {MidiDelay({'c+a'},5,!4);r1^1 EP(0)a1}
STR CC11 = {c+1[7 r1]}
STR CC21 = {a1,,127[7 r1]}
トラック13//普通のシンバル
V(127) REV(127) CHO(100) M(0) q15 P(64) o4 EP.T(0,127,!1) BR(12) p%(1000) @27,90
r1 v90
CC01 RS08 CC01 RS08 CC02         CC01        CC11 RS08 CC01 CC21 RS08 CC21 RS08
CC21 RS08  r1  CC21 RS08 CC21 RS08 CC21 RS08 CC01 RS08 CC01 RS08 RS08 RS08 CC01 RS08 RS08 RS08
CC01 RS08 EP(0) a1a1a1
//--------------------------------------------------------------------------------------------------
STR BB01 = {[8 [4 'g4']]}
STR BB02 = {[7 [4 'g4']]
            [2 'g4']r8'g12''g24''g''g'r'g'}
STR BB03 = {[16 [4 'g4']]}
トラック14
V(127) REV(1) CHO(1) M(0) q49 l16 P(64) BR(12) p%.onNoteWave(0,-8191,!16);@119,8
r1 o3
BB01 BB02 RS08 RS08 RS16         RS08        RS08 RS08 RS08 BB01 BB02 BB01 BB02
BB01 BB01  r1  BB01 BB02 BB01 BB02 BB01 BB02 BB01 BB02 BB01 BB02 BB01 BB02 BB01 BB02 BB01 BB02
//--------------------------------------------------------------------------------------------------
STR RC01 = {EP.T(0,127,!1,127,0,!16);p%.T(0,8192,!1,8192,0,!16);'c1,,80d1,,80e1,,80'}
STR RC02 = {[7 r1]EP.T(0,127,!1,127,0,!16);p%.T(0,8192,!1,8192,0,!16);'c1d1e1'}
STR RC03 = {[15 r1]EP.T(0,127,!1,127,0,!16);p%.T(0,8192,!1,8192,0,!16);'c1d1e1'}
トラック15//リバースシンバル左
V(127) REV(127) CHO(127) M(0) q101 P(0) o9 EP(0) @126,7 v127 BR(12)
RC01
RS08 RS08 RS08 RC02 RS16         RS08        RS08 RC02 RS08 RS08 RC02 RS08 RC02
RS08 RS08 RC01 RS08 RC02 RS08 RC02 RS08 RS08 RS08 RC02 RS08 RS08 RS08 RC02 RS08 RS08 RS08 RC02
//--------------------------------------------------------------------------------------------------
トラック16//リバースシンバル右
V(125) REV(127) CHO(127) M(0) q101 P(127) o9 EP(0) @126,7 v127 BR(12)
RC01
RS08 RS08 RS08 RC02 RS16         RS08        RS08 RC02 RS08 RS08 RC02 RS08 RC02
RS08 RS08 RC01 RS08 RC02 RS08 RC02 RS08 RS08 RS08 RC02 RS08 RS08 RS08 RC02 RS08 RS08 RS08 RC02
/*==================================================================================================
トラック14//中華鍋?
V(60) REV(127) CHO(127) M(127) q17 P(64) o4 BR(12) p%(-8192) @27,7
r1 v127
~{結局使わないｗｗｗｗｗｗｗｗｗｗｗｗ} = {EP.T(64,127,!4)'c+a'}
==================================================================================================*/
//Solo(5)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。