/*
金ゴマ茶における潜在的哲学指数(トルコ風)

チャットでの30分作曲(お題付き)です

どこがお茶なのか分かりませんが，

伝説の金のゴマ茶を目指し更新するトルコ軍をイメージしてくださいｗｗｗｗ

Dj Hino
*/
ResetGS

Tempo 120

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;

Include(delay.h)
Include (unison.h)
Include(groove.h)
//MidiDelay({},3,!8)
//OctaveUnison (
//Swing16(6)

TR 1
@ 36
V 127
v 127
EP 127
REV 30
CHO 0
q 100
<<<
[16e16`e16`e-16`c16b16f16]
[16e16`e16`e-16`c16b16f16]

[4f16`f16`e16`c16b16g16]
[4e16`e16`e-16`c16b16f16]
[4f16`f16`e16`c16b16g16]
[4e16`e16`e-16`c16b16f16]


>
[4"a-16a-16g16e-16c16"b-16]
[4"b-16b-16a-16f16e-16c16]
<


[16e16`e16`e-16`c16b16f16]
[16e16`e16`e-16`c16b16f16]

[4f16`f16`e16`c16b16g16]
[4e16`e16`e-16`c16b16f16]
[4f16`f16`e16`c16b16g16]
[4e16`e16`e-16`c16b16f16]


>
[4"a-16a-16g16e-16c16"b-16]
[4"b-16b-16a-16f16e-16c16]
<

TR 2
@ 49
V 127
v 127
EP 127
REV 90
CHO 0
q 100
<
EP.W(94,123,!4.)
e2.b2.`c2.a2^8b8
`e2.b2.`c2.a2^8b8
e2.b2.`c2.a2^8b8
`e2.b2.`c2.a2^8b8

[8r2.]
[4r2.]
OctaveUnison (
e2.b2.`c2.a2^8b8
`e2.b2.`c2.a2^8b8
e2.b2.`c2.a2^8b8
`e2.b2.`c2.a2^8b8)

TR 3
@ 48
V 127
v 127
EP 100
REV 50
CHO 0
q 100
<<

[8e8.e16e8e8e8e8]
[7e8.e16e8e8e8e8]
e8.e16e8e8[4e16]

[f8.f16f8f8f8f8]
[e8.e16e8e8e8e8]
[f8.f16f8f8f8f8]
[e8.e16e8e8e8e8]

[a-8.a-16a-8a-8a-8a-8]
b-8.b-16b-8b-8b-8b-8
b-8.b-16b-8b-8[4b-16]


[8e8.e16e8e8e8e8]
[7e8.e16e8e8e8e8]
e8.e16e8e8[4e16]

[f8.f16f8f8f8f8]
[e8.e16e8e8e8e8]
[f8.f16f8f8f8f8]
[e8.e16e8e8e8e8]

[a-8.a-16a-8a-8a-8a-8]
[b-8.b-16b-8b-8][4b-16]

TR 4
@ 56,110
V 127
v 127
EP 110
REV 100
CHO 0
q 100
[8r2.]
[8r2.]

f2.r2^8g8
e2.r2.
f2.r2^8g8
e2.r2.

"a-2.r2^8`e-8
`d2.r2^8`f8

[8r2.]
[8r2.]

f2.r2^8g8
e2.r2.
f2.r2^8g8
e2.r2.

"a-2.r2^8`e-8
`d2.r2^8`f8

TR 5
@ 53
V 127
v 127
EP 100
REV 120
CHO 0
q 100
<
[8r2.]
[8r2.]

EP.W(110,40,!8,30,110,!2.^2)
'a`f'2.^2.
'g`e'2.^2.
'a`f'2.^2.
'g`e'2.^2.

'a-`e-'2.^2.
'b-`f'2.^2.


[8r2.]
[8r2.]

EP.W(110,40,!8,30,110,!2.^2)
'a`f'2.^2.
'g`e'2.^2.
'a`f'2.^2.
'g`e'2.^2.

'a-`e-'2.^2.
'b-`f'2.^2.

TR 6
@ 42
V 127
v 127
EP 70
REV 120
CHO 0
q 80
v 127
[32EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

v 90
[4EP 80'cf'16r16[EP 70'cf'16EP 60'cf'16]]
[4EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

[4EP 80'cf'16r16[EP 70'cf'16EP 60'cf'16]]
[4EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

[4EP 80'e-a-'16r16[EP 70'e-a-'16EP 60'e-a-'16]]
[4EP 80'fb-'16r16[EP 70'fb-'16EP 60'fb-'16]]


v 127
[32EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

v 90
[4EP 80'cf'16r16[EP 70'cf'16EP 60'cf'16]]
[4EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

[4EP 80'cf'16r16[EP 70'cf'16EP 60'cf'16]]
[4EP 80'"be'16r16[EP 70'"be'16EP 60'"be'16]]

[4EP 80'e-a-'16r16[EP 70'e-a-'16EP 60'e-a-'16]]
[4EP 80'fb-'16r16[EP 70'fb-'16EP 60'fb-'16]]

TR 7
@ 111
V 127
v 100
EP 0
REV 120
CHO 0
q 45
P 64
[8r2.]
[8r2.]

[4EP 110f16EP 80e16EP 110f16EP 80g16EP 110a16EP 80b16]
[4EP 110e16EP 80d16EP 110e16EP 80f16EP 110b16EP 80a16]
[4EP 110f16EP 80e16EP 110f16EP 80g16EP 110a16EP 80b16]
[4EP 110e16EP 80d16EP 110e16EP 80f16EP 110b16EP 80a16]

[4EP 110a-16EP 80g16EP 110a-16EP 80b-16EP 110`c16EP 80`d16]
[4EP 110b-16EP 80a-16EP 110b-16EP 80`c16EP 110`d16EP 80`e-16]


[8r2.]
[8r2.]

[4EP 110f16EP 80e16EP 110f16EP 80g16EP 110a16EP 80b16]
[4EP 110e16EP 80d16EP 110e16EP 80f16EP 110b16EP 80a16]
[4EP 110f16EP 80e16EP 110f16EP 80g16EP 110a16EP 80b16]
[4EP 110e16EP 80d16EP 110e16EP 80f16EP 110b16EP 80a16]

[4EP 110a-16EP 80g16EP 110a-16EP 80b-16EP 110`c16EP 80`d16]
[4EP 110b-16EP 80a-16EP 110b-16EP 80`c16EP 110`d16EP 80`e-16]



TR 10
@ 27,90
V 127
v 127
EP 90
REV 127
CHO 0
q 45
P 64
BR 100
p 60
<
'c+a'2.
[7r2.]

'c+a'2.
[7r2.]

'c+a'2.
[3r2.]
'c+a'2.
[3r2.]

'c+a'2.
[r2.]
r'c+a'2

'c+a'2.
[7r2.]

'c+a'2.
[7r2.]

'c+a'2.
[3r2.]
'c+a'2.
[3r2.]

'c+a'2.
[r2.]
r'c+a'2