TrackName = {"Monochromic"};
Copyright = {"AMIO"};

/*
	単調フレーズを繰り返す系です。
	（こういうのってミニマルミュージックって言うのでしょうか？）
	伴奏を入れても良かったと思うのですが、あえてピアノのみです。
	睡眠導入用のBGMとしても使えそうです。
*/

Tempo=96;
SoundType=1;ResetGS;System.MeasureShift=1;
TimeSignature(3,4);

Str M1 = {EP.T(127,96,!1^1^1)[8v.N(87,107,127)c8d8e8]};
Str M2 = {EP.T(127,96,!1^1^1)[8v.N(87,107,127)e-8f8g8]};
Str M3 = {EP.T(127,96,!1^1^1)[8v.N(87,107,127)g8a8b-8]};
Str M4 = {EP.T(127,96,!1^1^1)[8v.N(87,107,127)f8g8a-8]};

Str B1 = {EP.T(127,80,!1^1^1)[8c4^8]};
Str B2 = {EP.T(127,80,!1^1^1)[8e-4^8]};
Str B3 = {EP.T(127,80,!1^1^1)[8g4^8]};
Str B4 = {EP.T(127,80,!1^1^1)[8f4^8]};
Str B5 = {EP.T(127,80,!1^1^1)[8b-4^8]}

TR(1) @1 V(127) P(56) REV(20)
Time(1:1:0) o6 q72
[M1;M2;M1;M2;
 M3;M4;M4;M2;
 M3;M4;M4;M1;]
// FadeOut
V.T(127,0,!1^1^1^1^1^1) M1;M2;

TR(2) @1 V(80) P(80) REV(20)
Time(1:1:0) o6 q72 t32
[M1;M2;M1;M2;
 M3;M4;M4;M2;
 M3;M4;M4;M1;]
// FadeOut
V.T(80,0,!1^1^1^1^1^1) M1;M2;

TR(8) @1 V(120) P(48) REV(20)
Time(1:1:0) o4 q100
t.Random(2)
[B1;B2;B1;B2;
 B3;B4;B5;B2;
 B3;B4;B5;B1;]
// FadeOut
V.T(120,0,!1^1^1^1^1^1) B1;B2;

TR(9) @1 V(60) P(30) REV(20)
Time(1:1:0) o3 q100
t.Random(2)
[B1;B2;B1;B2;
 B3;B4;B5;B2;
 B3;B4;B5;B1;]
// FadeOut
V.T(60,0,!1^1^1^1^1^1) B1;B2;

TR(10)
Time(1:1:0)