/*

お久しぶりです。Akira.Kです。

とりあえずMP3を…。


http://soundpuzzle.net/mp3/akira/ALIVE.mp3

ID:sakura	PW:sakura


お酒を飲みながら何か作ろう！と思い打ち込み始めたものの、結局納得いく出来にならなかったという。
あまり良いパターンではない感じです。
とは言っても、フレーズを変えれば化けるような気もします。
そんな曲です。
もしかしたら、そのうちメロディをもっと追加したものに化けているかもしれませぬ。

他にも数曲あるのですが、一気に投稿してもあれなので。
今回はこのトランスっぽい何かを投稿させていただきました。


またMP3ですが、Reasonという作曲ソフトにて制作しています。
こちらも参考になれば。


さて、まだまだ暑いです。
洗濯物が溜まります！

夏バテなんかに気をつけてください。
違った…、夏風邪ですね。
いや、夏バテにも気をつけてください。

台風が接近していて今日の東京は雨のようです。
皆さんも飛ばされないように、倒れてくるものとか飛んでくるものなんかにも気をつけてください。


あまりゾロゾロ書いても仕方がないのでこのあたりで。

*/


Copyright={"Akira.K"} TrackName={"ALIVE"}Tempo(144)音源初期化//初期化ー！
STR w={ペダル}STR x={放す}//いちいち打つのは面倒ですからね。

//P1
STR MP1={l16SUB{[4"f#"f#r]["f#r]}[4c#c#r][c#r]SUB{[4"g#"g#r]["g#r]}[4d#d#r][d#r][SUB{[4"a#"a#r]["a#r]}[4ffr][fr]]}
STR PLA={l16SUB{[4"a#"a#r]["a#r]}[4ffr][fr]}
STR PRS1={[a#0`c#^^]a#0`c#^[`c0`d#^^]`c0`d#^[`c#0`f^^]`c#0`f^[`c#0`f][`c0`d#][a#0`c#][a#0`c]}
STR PRS2={[a#0`c#^^]a#0`c#^[`c0`d#^^]`c0`d#^[`c#0`f^^]`c#0`f^[`c#0`f][`c0`d#][a#0`c#][`c0`d#]}
TR(1)CH(1)@51Key(0)CHO(50)REV(50)v(100)P(64)q(100)l8V(100)
MP1;EP.onTime(127,0,!1^1^1^1)MP1;[16r1]
STR TRA1={SUB{Key(0)MP1}Key(12)MP1}
STR TRA1b={SUB{Key(-12)PRS1;PRS2}Key(0)PRS1;PRS2}
@82
EP(127)
[4TRA1]
[16r1][15r1]l8SUB{Key(-12)[`c#0`f][`c0`d#][a#0`c#][`c0`d#]}Key(0)[`c#0`f][`c0`d#][a#0`c#][`c0`d#]
[2TRA1b][52r1]
@51
EP.onTime(0,127,!1^1^1^1)[3MP1][2r1]

//P2
TR(2)CH(2)@88Key(0)CHO(50)REV(50)v(90)P(64)q(100)l8V(110)
[4r1]EP.onTime(0,127,!1^1^1^1)[MP1]SUB{MP1}[3r1]SUB{Key(-12)PLA}Key(12)PLA;Key(0)
STR TRA2={SUB{MP1}SUB{Key(-12)MP1}Key(12)MP1;Key(0)}
[10TRA2][16r1][12TRA2][5MP1]EP.onTime(127,0,!1^1^1^1^1^1^1^1)[MP1]

//P3
TR(3)CH(3)@91Key(0)CHO(50)REV(50)v(110)P(64)q(100)l8V(120)
[4r1]EP.onTime(0,127,!1^1^1^1)[3MP1][6MP1]
[16r1][15r1]l8SUB{[`c#0`f][`c0`d#][a#0`c#][`c0`d#]}Key(-12)[`c#0`f][`c0`d#][a#0`c#][`c0`d#]
[2TRA1b][16r1][9MP1]EP.onTime(127,0,!1^1^1^1)MP1;

//Bass1
TR(4)CH(4)@88Key(-24)CHO(50)REV(50)v(110)P(64)q(100)l16V(127)
STR BP1={Key(-24)[8"f#f#][8"g#g#][16"a#a#]}
STR BP2={Key(-24)[8"f#f#][8"g#g#][8"a#a#]Key(-12)[8"a#a#]}
[16r1]BP1;BP2;[8BP1][16r1][12BP1]

//Bass2
TR(5)CH(5)@40Key(-24)CHO(50)REV(50)v(110)P(64)q(100)l8V(90)
STR B1={[4"f#f#][4"g#g#][8"a#a#]}
[24r1][8B1][16r1][12B1]

//Piano
TR(6)CH(6)@1Key(-12)CHO(50)REV(50)v(110)P(100)q(100)l8V(127)
STR PL={w"f#c#f#^^^^^xw"g#d#g#^^^^^xw"a#fa#^^^^^^^^^^^^^x}
STR PR1={w[a#0`c#^^]a#0`c#^xw[`c0`d#^^]`c0`d#^xw[`c#0`f^^]`c#0`f^[`c#0`f][`c0`d#][a#0`c#][a#0`c]x}
STR PR2={w[a#0`c#^^]a#0`c#^xw[`c0`d#^^]`c0`d#^xw[`c#0`f^^]`c#0`f^[`c#0`f][`c0`d#][a#0`c#][`c0`d#]x}
STR PR3={w[a#0`c#^^]a#0`c#^xw[`c0`d#^^]`c0`d#^xw[`c#0`f^^]`c#0`f^^^^^^^^^x}

[56r1]SUB{PL}PR1;SUB{PL}PR2;SUB{PL}PR1;SUB{PL}PR3;
[4SUB{PL}PR1;SUB{PL}PR2;]
[16r1][SUB{PL}PR1;SUB{PL}PR2]EP.onTime(127,0,!1^1^1^1^1^1^1^1)SUB{PL}PR1;SUB{PL}PR2
TR(7)CH(7)@1Key(-12)CHO(50)REV(50)v(110)P(25)q(100)l8V(127)
r128//若干ずらすことでステレオっぽくなることを期待してます。
[56r1]SUB{PL}PR1;SUB{PL}PR2;SUB{PL}PR1;SUB{PL}PR3;
[4SUB{PL}PR1;SUB{PL}PR2;]
[16r1][SUB{PL}PR1;SUB{PL}PR2]EP.onTime(127,0,!1^1^1^1^1^1^1^1)SUB{PL}PR1;SUB{PL}PR2

TR(10)CH(10)Key(00)CHO(10)REV(10)l16v(127)q(100)
STR MK1={"""a0"""b0""c}
STR MK2={"""a0"""b0""c0"""e0""d#}
STR MKP1={l4[16MK1]}
STR MKP2={l4[15MK1]l16[4MK1]}
STR MKP3={l4[8MK1;MK2;]}
STR MCS={l1"c#0"a}
STR SNR={l16[16""e]}
STR CPIN={l16[""f#""f#r""f#""a#r]""f#""f#""a#r}
STR CP1={l16[4""f#""f#""a#r]}
p%6000
[8r1]SUB{MCS}[4CPIN]
SUB{[4CPIN]}SUB{MKP2;}[3r1]SNR
[4CP1]
SUB{[4CP1]}SUB{[3r1]SNR}[3r1][3r4]l16[4MK1]
[[3SUB{[4CP1]}MKP3;]
SUB{[4CP1]}SUB{MKP3;}SUB{[3r1]SNR}[3r1][3r4]l16[4MK1]]
SUB{MCS}[8r1]
SUB{MCS}[4CP1]
SUB{[4CP1]}SUB{[3r1]SNR}[3r1][3r4]l16[4MK1]
SUB{MCS}[[3SUB{[4CP1]}MKP3;]
SUB{[4CP1]}SUB{MKP3;}SUB{[3r1]SNR}[3r1][3r4]l16[4MK1]]
SUB{MCS}[3SUB{[4CP1]}MKP3;]
SUB{[4CP1]}SUB{MKP3;}SUB{[3r1]SNR}[3r1][3r4]l16[4MK1]
SUB{MCS}[4CPIN]
SUB{[4CPIN]}[3r1]SNR
MCS;[7r1]MCS;