/*
品名：音楽合成麻薬
製造年月日：2014年1月3日
ジャンル：バイノーラル・ビート

＜バイノーラル・ビートについて＞
右から聞こえてくる音と、左から聞こえてくる音の、
周波数をずらすと、
脳内補正によって、別の音のゆらぎが聞こえてくる現象を利用した音楽。
ずらす周波数によっては、心が落ち着いたり、逆に具合が悪くなったりします。
体調によっては、聞かないほうがいいです。

ずらす周波数によっては、麻薬と同様の効き目があるので、
バイノーラル・ビートに安易に手を出してはいけません。
今回は、安全性を考えて、軽めにずらしていますが、安全は保障できません。

バイノーラル・ビートを使った音楽麻薬として有名なのは、
Gate Of Hades。
ぐぐれば出てきます。


＜ＥＭＤＲ療法について＞
Eye Movement Desensitization and Reprocessing（眼球運動による脱感作および再処理法）
フランシーン・シャピロさんによって考案された心理療法です。
左右に眼球運動させることにより、
ＰＴＳＤをはじめとするいろいろな精神疾患を克服します。
字幕部分に出てきます。
この心理療法は、音楽そのものとは、関係ありません。



本製品を使用して、アレルギー症状や耳の損傷または、
伝わりきれないくらいの感動を覚えた等の精神疾患があらわれた場合、
ただちに使用を中止して、医師と相談してください。

コピー・改変・転載・商用利用可能
ありとあらゆる教育目的・強制への使用は不許可。

なお、いやがる人に無理やり聞かせたり、大音量で鳴らしたり等の迷惑行為は、
傷害罪に問われ、刑事罰の対象となります。

調整機材：VSC
*/




Include(gs.h);
読む(delay.h)
//------------------------------------------------------------------------------
TrackName={"音楽合成麻薬"};             //タイトル
Copyright={"世界合唱撲滅教団　矢部ソーダ"};             //著作権表示
TimeSignature=1,16;           //拍子記号の設定
Tempo(90);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGS;      //音源初期化命令
TR=10 GS_RHYTHM(1)
TR=11 GS_RHYTHM(2)
r2
TrackSync;                   //全てのトラックを同期する
//------------------------------------------------------------------------------


TR=16
l8
時間（26：０：０）
Lyric{"　
　
　
　
聞こえますか？"}

時間（８０：０：０）
Lyric{"　
　
　
　
これも、聞こえますか？"}

時間（140：０：０）
Lyric{"　
　
　
　
聞こえますか？"}

時間（1８８：０：０）
Lyric{"　
　
　
　
これも、聞こえますか？"}

時間（２４０：０：０）
Lyric{"　
　
　
　
右からも、左からも、"}

時間（２６０：０：０）
Lyric{"　
　
　
　
音が聞こえるようだったら"}

時間（２９０：０：０）
Lyric{"　
　
　
　
耳も音響機器も正常です。"}

時間（３３０：０：０）
Lyric{"　
　
　
　
よかったですね。"}

時間（３６０：０：０）
Lyric{"　
　
　
　
そんなことより、リラックスしましょう。"}

時間（４００：０：０）
Lyric{"　
　
　
　
今から左右に動くものを、"}

時間（４３０：０：０）
Lyric{"　
　
　
　
目で追ってください。"}

時間（４７０：０：０）
[20
r
Lyric{"　
■
　
　
　
　"}
r
Lyric{"　
　■
　
　
　
　"}
r
Lyric{"　
　　■
　
　
　
　"}
r
Lyric{"　
　　　■
　
　
　
　"}
r
Lyric{"　
　　　　■
　
　
　
　"}
r
Lyric{"　
　　　　　■
　
　
　
　"}
r
Lyric{"　
　　　　　■
　
　
　
　"}
r
Lyric{"　
　　　　■
　
　
　
　"}
r
Lyric{"　
　　　■
　
　
　
　"}
r
Lyric{"　
　　■
　
　
　
　"}
r
Lyric{"　
　■
　
　
　
　"}
r
Lyric{"　
■
　
　
　
　"}
]
Lyric{"　
　
　
　
リラックスできたかな？"}




TR=1
CHO=0
REV=0
音色=(SquareLead),8
q70 v95 o4 l16
Panpot(0)
r1
r1

arrrarrrarrra^rarr
r4
arrrarrrarrra^rarr
r4


o6
arrrarrrarrra^rarr
r4
arrrarrrarrra^rarr
r4

r1

[18r]r4[18r]r4
[18r]r4[18r]r4



r1



o5 q99
r2.
g2.
M(3)
'cg'2.
^2.
M(0)


r1


r2.
g2.
M(3)
'bf'2.
M(0)



r1





TR=2
CHO=0
REV=0
FineTune(66)
音色=(SquareLead),8
q70 v95 o4 l16
Panpot(127)
r1
[18r]r4[18r]r4
[18r]r4[18r]r4

r1
r1

arrrarrrarrra^rarr
r4
arrrarrrarrra^rarr
r4


o6
arrrarrrarrra^rarr
r4
arrrarrrarrra^rarr
r4



r1



o5 q99
c2.
r2.
M(3)
'cg'2.
^2.
M(0)


r1


c2.
r2.
M(3)
'bf'2.
M(0)


r1




TR=3
REV=0
CHO=0
P(0)
q100 v66 o5 l16
BR(36)
p%(8191)
音色=(Seashore),1
EP.T(127,127,%23448,127,0,!2)
a1
^1
^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


^1


^2.
^2.
^2.
^2.



^1



^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.


^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.



TR=4
REV=0
CHO=0
P(127)

FineTune(65)

q100 v66 o5 l16
BR(36)
p%(8191)
EP.T(127,127,%23448,127,0,!2)
音色=(Seashore),1
a1
^1
^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


^1


^2.
^2.
^2.
^2.



^1



^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.


^2.+2.
^2.+2.
^2.+2.
^2.+2.

^2.+2.
^2.+2.
^2.+2.
^2.+2.


TR=5
REV=0
CHO=0
P(0)

FineTune(63)
//BR(1)
//p%(12)
q!4 v88 o4 l16
音色(CleanGuitar)
r1
r1
^^^^ ^^^^ ^^^^ ^^^^ ^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


r1


^2.
^2.
^2.
^2.



^1




MidiDelay({
o4
c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^


c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^


},7,!8)






TR=6
REV=0
CHO=0
P(127)

//FineTune(66)

q!4 v88 o4 l16
音色(CleanGuitar)
//r%3
r1
r1
^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


^1


^2.
^2.
^2.
^2.



^1



MidiDelay({
o4
c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^


c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

c^e^g^e^g^e^
"b^e^g^e^g^e^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^g^f^d^c^"a^

g^e^c^"g^e^g^
g^e^"b^c^e^g^
f^d^"a#^d^f^g^
g#^f^g#^`c^g#^f^

},7,!8)



TR=7
REV(0)
CHO(0)
P(0)
FineTune(66)
q99 v67 o6 l16
音色(RockOrgan)
r1
r1
^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


^1


^2.
^2.
^2.
^2.



^1



M(18)
[１２
'gec'2.
'gec'2.
'fda#'2'gd++"b-'4
'g#fd'4'gec'4'fd"a#'4
]




TR=8
REV(0)
CHO(0)
P(127)
q99 v67 o6 l16
音色(RockOrgan)
r1
r1
^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^

^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^1


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^


^^^^^^^^^^^^^^^^^^
^^^^
^^^^^^^^^^^^^^^^^^
^^^^



^1



^2.
^2.
^2.
^2.


^1


^2.
^2.
^2.
^2.



^1



M(18)
[１２
'gec'2.
'gec'2.
'fda#'2'gd++"b-'4
'g#fd'4'gec'4'fd"a#'4
]






TR=12
REV(0)
CHO(0)
P(0)
q!2 o7 v51 l16
音色(BirdTweet)
INT RRRRR
[978
RRRRR=Random(96)
SWITCH(RRRRR){
CASE(0){"c}
CASE(1){"d}
CASE(2){"e}
CASE(3){"f}
CASE(4){"g}
CASE(5){"a}
CASE(6){"b}
CASE(7){c}
CASE(8){d}
CASE(9){e}
CASE(10){f}
CASE(11){g}
CASE(12){a}
CASE(13){b}
CASE(14){b+}
DEFAULT{r}
}
]




TR=13
REV(0)
CHO(0)
P(64)
q!2 o7 v51 l16
音色(BirdTweet)
INT RRRRRRR
[978
RRRRRRR=Random(96)
SWITCH(RRRRRRR){
CASE(0){"c}
CASE(1){"d}
CASE(2){"e}
CASE(3){"f}
CASE(4){"g}
CASE(5){"a}
CASE(6){"b}
CASE(7){c}
CASE(8){d}
CASE(9){e}
CASE(10){f}
CASE(11){g}
CASE(12){a}
CASE(13){b}
CASE(14){b+}
DEFAULT{r}
}
]



TR=14
REV(0)
CHO(0)
P(127)
q!2 o7 v51 l16
音色(BirdTweet)
INT RRRRRRRRR
[978
RRRRRRRRR=Random(96)
SWITCH(RRRRRRRRR){
CASE(0){"c}
CASE(1){"d}
CASE(2){"e}
CASE(3){"f}
CASE(4){"g}
CASE(5){"a}
CASE(6){"b}
CASE(7){c}
CASE(8){d}
CASE(9){e}
CASE(10){f}
CASE(11){g}
CASE(12){a}
CASE(13){b}
CASE(14){b+}
DEFAULT{r}
}
]