//-----------------------------------------------
// feel anything
// (C)Yax
//-----------------------------------------------
TrackName = {"feel anything"}
Copyright = {"yax"}
ResetGM();
r4
TrackSync;
//------------------------------------------------
// アルペジオ関数
// D - 1音あたりのずらし幅
// L - 全体の長さ
// S - 鳴らす音、{}内に音階を記述(>と<は利用可能)
//------------------------------------------------
Function ARP(Int D, Int L, Str S) {
Int LNG = L
Int STP = 0
Int TEMP = 0
Str X = ""
Str RS = ""
Str NS = ""
Int J = 0
Array NAR = ()
For(Int I = 1; I <= 100; I++ ){
X = MID(S,I,1)
J = ASC(X)
IF (X == "") {
EXIT
}
IF ( J >= 97 ) {
IF ( J <= 103 ) {
IF ( NS != "" ) {
NS = Replace(NS,{@-},{-@},off)
NS = Replace(NS,{@+},{+@},off)
NS = Replace(NS,{@#},{#@},off)
NS = Replace(NS,{@*},{*@},off)
NAR = (NAR,NS)
NS = ""
}
X = X + "@"
}
}
NS = NS + X
}
IF ( NS != "" ) {
NS = Replace(NS,{@-},{-@},off)
NS = Replace(NS,{@+},{+@},off)
NS = Replace(NS,{@#},{#@},off)
NS = Replace(NS,{@+},{*@},off)
NAR = (NAR,NS)
NS = ""
}
For(Int I=0;I<SizeOf(NAR);I++){
TEMP = L - STP
RS = "r%" + #STR(STP)
NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
Sub{ RS NS }
STP = STP+D
}
r%(L)
}
//------------------------------------------------
// 全体の調整
//------------------------------------------------
TR(1) V(110) REV(30) CHO(40)
TR(2) V(105) REV(60) CHO(10)
TR(3) V(105) REV(90) CHO(0)
TR(4) V(100) REV(50) CHO(30)
TR(5) V(113) REV(30) CHO(0)
TR(6) V(90) REV(50) CHO(50)
TR(7) V(110) REV(20) CHO(0)
TR(8) V(110) REV(20) CHO(0)
TR(9) V(110) REV(20) CHO(0)
TR(10) V(119) REV(30) CHO(0)
//------------------------------------------------
// テンポ
//------------------------------------------------
INT T = 122
Tempo=(T)
//------------------------------------------------
// キー
//------------------------------------------------
INT KEY=-1
Key(KEY) // 全体のキー
TR(10) TrackKey(KEY * -1) // リズムトラックの調整用、Keyの符号を逆にしたものをセットしておく
//------------------------------------------------
// フェードアウト
//------------------------------------------------
FUNCTION FADEOUT() {
EP.onTime(127,0,!1^1^1^1^1^1^1^1)
}
//------------------------------------------------
// MML
//------------------------------------------------
//------------------------------------
// Track 1 :
//------------------------------------
TR(1) CH(1) P(64)
@35 v100
o2 l8 q65
[2 eeee16e.e : ee] >e16<e16e
[2 dddd16d.d : dd] >d16<d16d
[2 eeee16e.e : ee] >e16<e16e
[2 f+f+f+f+16f+.f+ : f+f+] >f+16<f+16f+
[2
[2 eee>e16<e.e : ee] >e<e
[2 ddd>d16<d.d : dd] >d<d
[2 eee>e16<e.e : ee] >e<e
[2 f+f+f+>f+16<f+.f+ : f+f+] >f+<f+
[2
g.g.g d.d.d
f+.f+.f+ g.g.g
b.b.b f+.f+.f+
a.a.a : g.g.g
]
e4.a16&b16
[2
>cccc16c.ccc<
gggg16g.ggg
:
aaaa16a.aaa
bbbb16b.bba16&b16
]
f+f+f+f+16f+.f+f+f+
e1
]
[2
q90 e1
q70 e16e16 r4. rr q90 e4
q90 f+1
q70 f+16f+16 r4. rr q90 f+4
]
[2
[2 eee>e16<e.e : ee] >e<e
[2 ddd>d16<d.d : dd] >d<d
[2 eee>e16<e.e : ee] >e<e
[2 f+f+f+>f+16<f+.f+ : f+f+] >f+<f+
]
q90
g4.b16>c16 d.f+.g+32&a16.<
>d4.< a16f+16 e2
g4.>f+32&g16. f+.>f+.d16<b16
a4.d< g4d4
q70
g.g.g d.d.d
f+.f+.f+ g.g.g
b.b.b f+.f+.f+
a.a.a
e1
r4ea16&b16
[2
[2
>cccc16c.ccc<
gggg16g.ggg
:
aaaa16a.aaa
bbbb16b.bba16&b16
]
f+f+f+f+16f+.f+f+f+
:
eeee16e.g>a<b
]
e1
[2
eerr rrre16g16
eerr rrrb
ddrr rrrd16f+16
ddrr rrra
eerr rrre16g16
eerr rrrb
f+f+rr rrrf+16a16
f+f+rr rrra
:
FADEOUT()
]
//------------------------------------
// Track 2 :
//------------------------------------
TR(2) CH(2) P(44)
@97 v80
Slur(3)
o5 l8 q120
[2
[2 e<b16>f+<b16>g<b16>f+<b16>e<b>]
[2 d<a16>e<a16>f+<a16>e<a16>d<a>]
]
[2
[2
[2 e<b16>f+<b16>g<b16>f+<b16>e<b>]
[2 d<a16>e<a16>f+<a16>e<a16>d<a>]
]
[2
r4g4 d.e.f+
r4a4 g.f+.e
r4g4 d.e.f+
r4a4 : g2
]
b2
[2
e.&g.&>c&e4&c4<
d.&g.&b&>d4&<g4
:
c.&e.&a&>c4&<a4
d.&f+.&b&>d.&<b.&f+
]
<a.&>d.&f+a4&f+4
g.&e.&<b^2>
]
[2
[2 e<b16>f+<b16>g<b16>f+<b16>e<b>]
[2 d<a16>e<a16>f+<a16>e<a16>d<a>]
]
[4
[2 e<b16>f+<b16>g<b16>f+<b16>e<b>]
[2 d<a16>e<a16>f+<a16>e<a16>d<a>]
]
[2
r4g4 d.e.f+
r4a4 g.f+.e
r4g4 d.e.f+
r4a4 : g2
]
b1
r2
[2
[2
e.&g.&>c&e4&c4<
d.&g.&b&>d4&<g4
:
c.&e.&a&>c4&<a4
d.&f+.&b&>d.&<b.&f+
]
<a.&>d.&f+a4&f+4
:
g.&e.&<b&>b.&g.&e
]
g.&e.&<b^2>
[2
[2
[2 e<b16>f+<b16>g<b16>f+<b16>e<b>]
[2 d<a16>e<a16>f+<a16>e<a16>d<a>]
]
:
FADEOUT()
]
r1
//------------------------------------
// Track 3 :
//------------------------------------
TR(3) CH(3) P(64)
@15 v50
o7 l16
P.onNote(10,96,117,32,64)
[4 ebf+b< b>bgb]
[4 daf+a< a>af+a]
[4 ebf+b< b>bgb]
[4 f+>d<a>d< d>d<a>d<]
[2
[4 ebf+b< b>bgb]
[4 daf+a< a>af+a]
[4 ebf+b< b>bgb]
[4 f+>d<a>d< d>d<a>d<]
[8 r1]
[8 r1]
]
[3
[4 ebf+b< b>bgb]
[4 daf+a< a>af+a]
[4 ebf+b< b>bgb]
[4 f+>d<a>d< d>d<a>d<]
]
[8 r1]
r1
[8 r1]
[8 r1]
[2
[4 ebf+b< b>bgb]
[4 daf+a< a>af+a]
[4 ebf+b< b>bgb]
[4 f+>d<a>d< d>d<a>d<]
:
FADEOUT()
]
//------------------------------------
// Track 4 :
//------------------------------------
TR(4) CH(4) P(84)
@91 v80
M.onNoteWave(0,50,!1)
o5 q99
[8 r1]
[2
[2
EP.onTime(50,127,!1)
ARP(0,!1^1,{ef+gb})
EP.onTime(50,127,!1)
ARP(0,!1^1,{df+ab})
]
[2
'g2d2' 'f+2d2'
'f+2d2' 'e2<b2>'
'g2d2' 'f+2d2'
'a2f+2' 'b2g2'
]
[2
'c1e1g1' r-2 a2
'd1g1b1' r-2 g2
:
'c1e1a1' r-2 e2
'<b1>d1f+1' r-2 d4f+4
]
'd1f+1a1' r-2 f+2
'<b4>d4e4g4'r2.
]
[8 r1]
[4
EP.onTime(50,127,!1)
ARP(0,!1^1,{ef+gb})
EP.onTime(50,127,!1)
ARP(0,!1^1,{df+ab})
]
[4 r1]
'g2d2' 'f+2d2'
'f+2d2' 'e2<b2>'
'g2d2' 'f+2d2'
'a2f+2' 'b1g1'
r2
[2
[2
'c1e1g1' r-2 a2
'd1g1b1' r-2 g2
:
'c1e1a1' r-2 e2
'<b1>d1f+1' r-2 d4f+4
]
'd1f+1a1' r-2 f+2
:
'<b2>d2e2g2' 'f+4d4''e4c4'
]
'<b1>d1e1g1'
q99
[2
EP.onTime(30,100,!1)
ARP(0,!1^1,{ef+gb})
EP.onTime(30,100,!1)
ARP(0,!1^1,{df+ab})
]
FADEOUT()
v(MML(v)-30)
[2
ARP(0,!1^1,{ef+gb})
ARP(0,!1^1,{df+ab})
]
//------------------------------------
// Track 5 :
//------------------------------------
TR(5) CH(5) P(64)
@3 v100
[8 r1]
o6 l8
[2
[7 r1]
r2..g24a24a+24
'b.g.''a.f+.''g.e' 'f+4d4' <b4> r-4 'd'e
'f+.d.''g.e.''af+' 'g2e2'
'b.g.''a.f+.''g.e' '>d4<a4' a4 r-4 >c<b
'a.f+.''b.g.''f+d' 'g4.e4.' g16a16
'b.g.''a.f+.''g.e' 'f+4d4' <b4> r-4 'd'e
'f+.d.''g.e.''af+' 'g4e4' e4 r-4 ga
'b.g.''a.f+.''g.e' '>d4<a4' a4 r-4 >de<
'>f+.d.<''>g.e.<''>f+d<' '>e2<b2'
[2
'>c2<g2e2' g2 r-2 b4a4
'g2d2<b2>' <b2> r-2 d4g4
:
'a2e2c2' c2 r-2 e4a4
'f+2d2<b2>' f+2 r-2 a4b4
]
'a2f+2d2' d2 r-2 f+4a4
'g1e1<b1>'
]
[8 r1]
<g>'ge<b>'<b16e16g> 'g16e16'f+'g.e.'r r'bg'<b16g16b> 'g.e.<b.>''f+.d.''e<b>'
<f+>'f+d<a>'<a16f+16a> 'f+16d16'e'f+.d.'r r'af+'g16f+16r16e16 'd<a>'e'f+d'e16d16
<g>'ge<b>'<b16e16g> 'g16e16'f+'g.e.'r r'bg'<b16g16b> 'g.e.b.''a.f+.''gb'
<f+>'f+da'<a16f+16a> 'f+16a16'g'f+.d.'r r'af+'f+16g16r16a16 'af+'g'f+d'g16a16
l16
y64,1; r<'bg'>f+g 'bg'eae 'ge'<b>e<b >'f+d'<b>e<b
'gd'dgb 'e<b>'gb>e< 'gd'b>de r'b8e8'g y64,0;
y64,1; 'a8f+8'<b>'g8e8'<b>'f+8d8'<b>'e8<b8>'<b> 'f+d'<a>'ge'<b>
'af+'df+a 'f+d'a>d 'f+8<a8>'af+d< 'af+'f+d<a y64,0;
y64,1; g'b8>e8<'b> 'a8f+8'e'b8g8' ef+g '>c<a'af+d
> 'd<b'bge >'c<a'af+d <b>'b8g8'<b> 'b8g8'gd y64,0;
y64,1; 'a8f+8'<b>'g8e8'<b>'f+8d8'<b>'g8e8'<b> 'af+'<b>'bg'<b>
'>d4.<a4.' 'b4g4' 'f+4d4' y64,0; g24a24a+24
l8
'b.g.''a.f+.''g.e' 'f+4d4' <b4> r-4 'd'e
'f+.d.''g.e.''af+' 'g2e2'
'b.g.''a.f+.''g.e' '>d4<a4' a4 r-4 >c<b
'a.f+.''b.g.''f+d' 'g4.e4.' g16a16
'b.g.''a.f+.''g.e' 'f+4d4' <b4> r-4 'd'e
'f+.d.''g.e.''af+' 'g4e4' e4 r-4 ga
'b.g.''a.f+.''g.e' '>d4<a4' a4 r-4 >de<
'>f+.d.<''>g.e.<''>f+d<' '>e1<b1'
r2
[2
[2
'>c2<g2e2' g2 r-2 b4a4
'g2d2<b2>' <b2> r-2 d4g4
:
'a2e2c2' c2 r-2 e4a4
'f+2d2<b2>' f+2 r-2 a4b4
]
'a2f+2d2' d2 r-2 f+4a4
:
'g2e2<b2>' 'a4e4''b4g4e4'
]
< ARP(3,!1,{dgb>eg})
//------------------------------------
// Track 6 :
//------------------------------------
TR(6) CH(6) P(84)
@31,90,0 v55
M.onNoteWave(0,50,!1.)
o4 l16
[8 r1]
[2
q90 'e1^2..<b1^2..>' q40<ee>
q90 'f+1^2..d1^2..' q40<f+f+>
q90 'g1^2..e1^2..' q40<gg>
q90 'f+1^2..d1^2..' q40<f+f+>
[4
q90 'd2..<g2..>' q40 <gg>
q90 'f+4.d4.' q40 <aa> q90 'e4.<b4.>' q40 <bb>
]
[2
q80 'g4.e4.' q40 <gg> q70 'g2>c2<'
q80 'g4.d4.' q40 <gg> q70 'd2<b2>'
:
q80 'e4.c4.' q40 <aa> q70 'e2a2'
q80 'f+4.d4.' q40 <f+f+> q70 'd2<b2>'
]
q80 'f+4.d4.' q40 <f+f+> q70 'f+2a2'
q90 'g1<b1>'
]
[8 r1]
[2
q90 'e1^2..<b1^2..>' q40<ee>
q90 'f+1^2..d1^2..' q40<f+f+>
q90 'g1^2..e1^2..' q40<gg>
q90 'f+1^2..d1^2..' q40<f+f+>
]
[4 r1]
[2
q90 'd2..<g2..>' q40 <gg>
q90 'f+4.d4.' q40 <aa> : q90 'e4.<b4.>' q40 <bb>
]
q110 'e1<b1>' r4 q40 <e8ee>
[2
[2
q80 'g4.e4.' q40 <gg> q70 'g2>c2<'
q80 'g4.d4.' q40 <gg> q70 'd2<b2>'
:
q80 'e4.c4.' q40 <aa> q70 'e2a2'
q80 'f+4.d4.' q40 <f+f+> q70 'd2<b2>'
]
q80 'f+4.d4.' q40 <f+f+> q70 'f+2a2'
:
q80 'g2..<b2..>' q40 <ee>
]
q90 'g1<b1>'
[2
q90 'e1^2..<b1^2..>' q40<ee>
q90 'f+1^2..d1^2..' q40<f+f+>
q90 'g1^2..e1^2..' q40<gg>
q90 'f+1^2..d1^2..' q40<f+f+>
:
FADEOUT()
]
//------------------------------------
// Track 7 :
//------------------------------------
TR(7) CH(7) P(64)
//------------------------------------
// Track 8 :
//------------------------------------
TR(8) CH(8) P(64)
//------------------------------------
// Track 9 :
//------------------------------------
TR(9) CH(9) P(64)
//------------------------------------
// Track 10 : ドラム系
//------------------------------------
TR(10) CH(10)
// マクロ定義
// b = bass / s = Snare / S = Rim
$b{n36,} $s{n38,} $S{n37,}
// h = HH Close / f = HH foot close / o = HH Open
$c{n42,} $f{n44,} $o{n46,}
// e = Crash / j = Ride / t = Ride Bell / d = China / i = Splash / y = Crash2 / u = Ride2
$e{n49,} $j{n51,} $t{n53,} $d{n52,} $i{n55,} $y{n57,} $u{n59,}
// q = High Tom / a = High-Middle / z = Low-Middle / w = Low / x = Floor high / g = Floor low
$q{n50,} $a{n48,} $z{n47,} $w{n45,} $x{n43,} $g{n41,}
// p = Crap / k = Cowbell / m = Tambourine / n = ?? / j = ??
$p{n39,} $k{n56,} $m{n54,} $n{n75,}
@33,90,1
l8
Rhythm {
[2
v70 bbrb16b.brr r-1 v127 e v60c16c16 [3 v100c v60c16c16]
v70 bbrb16b.brb r-1 v90 rrrr rr'z4w4'r-1 [4 v100c v60c16c16]
v70 bbrb16b.brr r-1 [4 v100c v60c16c16]
:
v70 bbrb16b.brb r-1 v90 rrrr rraz16z16 r-1 [4 v100c v60c16c16]
]
v70 bbrb16b.brb r-1 v90 rrzz16z16 [4 'sw'] r-1 [4 v100c v60c16c16]
[2
[2
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs4 r-1 [3 v100c v80c16c16] c16c16o
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
:
v70 bbrb16b.brb r-1 v90 rrs4rrs4 r-1 [3 v100c v80c16c16] c16c16o
]
v70 bbrb16b.brb r-1 v90 rrs16s16z l16 qqaa zzww l8 r-1 [3 v100c v80c16c16] c16c16o
[2
v70 b.b.b bbrr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 b.b.b bbrb r-1 v90 rrs4rrs4 r-1 [3 v100c v80c16c16] c16c16o
v70 b.b.b bbrr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
:
v70 b.b.b bbrb16b16 r-1 v90 rrs4rrs16s. r-1 [3 v100c v80c16c16] c16c16o
]
v70 b.b.b bbbb r-1 v90 rrs16s16z16z16 l16 azsz asaz l8 r-1 [3 v100c v80c16c16] c16c16o
[2
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs.v70s16 r-1 [3 v100c v80c16c16] c16c16o
:
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs16v70ss16 r-1 [3 v100c v80c16c16] c16c16o
]
v70 bbrb16b.brr r-1 v90 rrs4rrs16v70s16s16s16 r-1 [4 v100c v80c16c16]
v70 brrr brrr r-1 rrrr v90 r'sw''sw's16s16 r-1 v127 er v70frfrfr
]
v70 brrr rrrr r-1 [4 v100c16 v60c16 v80c16 v60c16] r-1 v127 e1
v70 b16b16rrr rrbr r-1 [4 v100c16 v60c16 v80c16 v60c16]
v70 brrr rrrr r-1 [4 v100c16 v60c16 v80c16 v60c16]
v70 b16b16rrr rrbr r-1 v100 rrrr wa z16z16w r-1 [4 v100c16 v60c16 v80c16 v60c16]
v70 brrr rrrr r-1 [4 v100c16 v60c16 v80c16 v60c16] r-1 v127 y1
v70 b16b16rrr rrbr r-1 [4 v100c16 v60c16 v80c16 v60c16]
v70 brrr rrrr r-1 [4 v100c16 v60c16 v80c16 v60c16]
v70 b16b16rrr rrbr r-1 v100 rrq8.w16 wa z16z16w r-1 [4 v100c16 v60c16 v80c16 v60c16]
[2
[2
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs4 r-1 [3 v100c v80c16c16] c16c16o
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
:
v70 bbrb16b.brb r-1 v90 rrs4rrs4 r-1 [3 v100c v80c16c16] c16c16o
]
:
v70 bbrb16b.brb r-1 v90 rrs16s16z l16 qqaa zzww l8 r-1 [3 v100c v80c16c16] c16c16o
]
v70 bbrb16b.brb r-1 v90 rrs16s16z l16 qqaa zzww l8 r-1 [3 v100c v80c16c16] c16c16o
v70 brrr brrb r-1 v127 y4 v100j4j4j4
v70 brrb brrb r-4 v90 s16s16 z16z16 r-1 v100j4j4j4j4
v70 brrr brrb r-1 v110 d4 v100j4j4j4
v70 brrb b.b.b r-1 v90 l16 azsz asaz szas s64s32.v75sss l8 r-1 v100j4j4j4j4
v70 b.b.b bbrr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 b.b.b bbrb r-1 v90 rrs4rrs.v70s16 r-1 [3 v100c v80c16c16] c16c16o
v70 b.b.b bbrr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
v70 b.b.b brrr r-1 v90 rrs16s16z16z16 r2 r-1 v100c v80c16c16 c16c16o v127y2
v70 rrrr brbr r-1 rrrr v90 l16 rq64q32.az aass l8 r-2 v90 d v60fff
[2
[2
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 v127 e v80c16c16 [3 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs.v70s16 r-1 [3 v100c v80c16c16] c16c16o
:
v70 bbrb16b.brr r-1 v90 rrs4rrs4 r-1 [4 v100c v80c16c16]
v70 bbrb16b.brb r-1 v90 rrs4rrs16v70ss16 r-1 [3 v100c v80c16c16] c16c16o
]
:
v70 bbrb16b.brr r-1 v90 rrs4rrs16v70s16s16s16 r-1 [4 v100c v80c16c16]
v70 bbrb16b.brb r-1 l16 v90 rrss ssaz qqaa zzss l8 r-1 [3 v100c v80c16c16] c16c16o r-1 v100 d1
]
v70 bbrb16b.brr r-1 v90 rrs4rrs16v70s16s16s16 r-1 [4 v100c v80c16c16]
v70 brrr brrr r-1 rrrr l16 rv90sv70ss v90sv70sss l8 r-1 v127 er v70frfrfr
}
[2
Rhythm {
[2
v70 bbrr rrrb r-1 v127 e v60c16c16 [3 v100c v60c16c16]
v70 bbrr rrrb r-1 v90 rrrr rr'z4w4'r-1 [4 v100c v60c16c16]
v70 bbrr rrrb r-1 [4 v100c v60c16c16]
v70 bbrr rrrb r-1 v90 rrrr rraz16z16 r-1 [4 v100c v60c16c16]
]
}
:
FADEOUT()
]