Int　no=1　//数字を変えると違う曲がきけます。
　　　　　　　//1:「性格診断」（DRUM２通りアリます、変え方は下記）　
　　　　　　　//2：おまけ・変な曲
/*
DLありがとうございます。

1曲目の音が大きめな気がするので、すみませんが
ボリューム下げながら聞いていただく必要があるかも・・・
歌詞に意味はないのでノリできいていただけると幸いです。

1曲目に掲示板で庚申worksさんにコメントいただいたDRUMパターンを使ってみました。
お手数ですが　下記のIf(no=1)内　「INT　MEN」を　「1」　に　していただくと、きけます
もとのDRUMより安定感があります。
庚申worksさん、どうもありがとうございましたｍ(　)m
使用にあたって音色と音量とパンを勝手に少しいじってしまいました・・・。
（原型は掲示板の庚申worksさんのコメントにあります）　

TWM2とサクラの両方で再生可です。

ただサクラだとなぜかたまに歌詞がうまく出ないときがあります。（下のほうにまとめてあります）
*/

If(no=1)
{　INT　MEN=2　//1:worksさんにいただいたDRUMパターン　2:もとのDRUM

TrackName{"性格診断"}　





音源初期化

テンポ(187)
Key(4)

トラック１
音量（100)
 音符4 音色(BrightPiano)
音階5
[「""ラ＃"ラ＃レファラ」ーー「ドミソ」ーー
「"ラドミソ」ーー「レファラ`ド」ーー↓]↑
"ラ＃レファドミソ
"ラドミレファラ
v-1
"ラ＃レファドミソド＃ミソ「レファラ」ーー
v-2
"ラ＃レファドミソド＃ミソレファ＃ラ
v-1
l8"ラ＃ーレファーードーミーソーl8"ラードミーーv110[3「レファ＃ラ」r]
v120
["ラ＃「レファラ」ー
"ラ＃「レファ」ー
「ドミラ＃」ーラーソー
[3「"ラミソ」r]
l4：レミファl8]「ファ＃レ」「ソミ」「レファ＃」
v100
l8↑
「"ファ"ラドミ」rんん「"ファ"ラドミ」ー
"ソ「"シレ」ー"ソ「"シレ」ー
「"ミ"ソ"シレミ」ソシ`レーシ「"ラミ`ド」ー`レー`ミー

「"ファ"ラドミ」rんん「"ファ"ラドミ」ー
"ソ「"シレ」ーソ「"シレ」ー
「"ミ"ソ"シレミ」ソシ`レーシ「"ラミ`ド」ーシーラー

「"ファ"ラドミ」rんん「"ファ"ラドミ」ー
"ソ「"シレ」ーソ「"シレ」ー
「"ド"ミ"ソ"シ」ー「"ド"ミ"ソド」ーー"ド「ドミ"シ」rー「ドミ"シ」ーー

「"ファ"ラドミ」rんん「"ファ"ラドミ」ー
"ソ「"シレ」ーソ「"シレ」ー
「"ド"ミ"ソ"シ」ー「"ド"ミ"ソド」"シー"ソ「"ミ"シ」ードーレー
テンポ(180)
v99P(70)
「"ラドミ」rr"ラーラ「"ラドミ」ーラーレ"ラ
「"ソ"シレ」rrv+2"""ソー""ソ「""ソ"ソ"シレ」ーミ
レ↓「"ファ"ラド」ー 「ミソ＃"シ」 ー↓ミ 
シ ー"シ シ ラソ＃
ファミー 
↑l4「レラファ」`ファテンポ(145)"レ
q50　[3「ミ"ソ"シ」v+2]↑テンポ(185)
方向前
v110q99
[「""ラ＃"ラ＃レファラ」ーー「ドミソ」ーー
「"ラドミソ」ーー「レファラ`ド」ーー↓q200]↑
l8["ラ＃レファ][ドミソ]
["ラドミ][レファラ]
l4v-5
"ラ＃レファドミソド＃ミソ「レファラ」ーー

l8"ラ＃ーレファーードーーミソーl4ド＃ミソレファ＃ラ

l8"ラ＃ーレファーードーミーソーl8"ラードミーーv110[3「レファ＃ラ」r]
テンポ(190)
["ラ＃「レファラ」ー
"ラ＃「レファ」ー
「ドミラ＃」ーラーソー
[3「"ラミソ」r]
l4：レミファl8]「ファ＃レ」「ソミ」「レファ＃」テンポ(187)
v-8
["ラ＃「レファラ」ー
"ラ＃「レファ」ー]
[4ド「ミソ」ー]テンポ(160)
↑ペダルラ`ド`ミ　v-10↓ラ`ド`ミ↓v-8ラ`ド`ミ`ラ`ミ`レペダル放すq130v60
「`レ`ファ＃`ラ」1

TIME(18:1:0)l8"ミ"ファ"ミ"ミ"ファ
TIME(21:1:0)l8"ミ"ファ"ミ"ミ"ファ
TIME(23:1:0)l8"ミ"レ"ミ"ミ"ファ
TIME(62:1:0)l8"ミ"レ"ミ"ミ"ファ"ファ＃
TIME(66:1:0)l8"ミ"ファ"ミ"ミ"ファ"ファ＃

トラック16
音量（79)方向右
 音符4 音色(JazzGuitar)
音階5　↓
[3l8「""ラ＃"ラ＃レファラ」ーー[3「""ラ＃"ラ＃レファラ」]
v-1「ドミソ」ーー[「ドミソ」]r
l8「"ラドミソ」ーー[3「"ラドミソ」]l4「レファラ`ド」ーr]↑

v60
「""ラ＃"ラ＃レファラ」ーー「ドミソ」ーー
「"ラド＃ミソ」ーー「レファラ`ド」ーー
v60
l8「""ラ＃"ラ＃レファラ」ーー[3「""ラ＃"ラ＃レファラ」]
「ドミソ」ーー[「ドミソ」]r
l8「"ラド＃ミソ」ーー[3「"ラド＃ミソ」]l4「レファラ」ーrv-2
v55
l8「""ラ＃"ラ＃レファラ」ーー[3「""ラ＃"ラ＃レファラ」]
「ドミソ」ーー[「ドミソ」]ー
l8「"ラドミソ」ーー[3「"ラドミソ」]l4「レファ＃ラ」ーr

v90l8
["ラ＃「レファラ」ー
"ラ＃「レファ」ー
「ドミラ＃」ーラーソー
[3「"ラミソ」r]
l4：レミファl8]「ファ＃レ」「ソミ」「レファ＃」

v73
l4
[「"ファ"ラドミ」ーー
「ソ"シレ」ーー
「ミソシレミ」ーー「"ラミ`ド」ーー]

[「"ファ"ラドミ」ーー
「"ソシレ」ーー
「"ド"ミ"ソ"シ」ーー「ドミ"シ」ーー]

l8
v65　方向右前
[3「"ラドミ」r：r]「"ラドミ」rrr
[3「"ソ"シレ」r：r]「ソシレ」rrr
v60[「"ミ"シ」rr 「ミソ＃シ」rー]
l4v50「レファラ`ド」rrv40「ミ"ソ"シ」rr

↓v68方向右
[l8「""ラ＃"ラ＃レファラ」ーー[3「""ラ＃"ラ＃レファラ」]
「ドミソ」ーー[「ドミソ」]r
l8「"ラドミソ」ーー[3「"ラドミソ」]l4「レファラ`ド」ーr]↑

r 
v81 

l8["ラ＃レファ][ドミソ]
["ラドミ]レファラレファr
l4v-5
"ラ＃レファドミソド＃ミソ「レファラ」ーー

l8"ラ＃ーレファーードーーミソーl4ド＃ミソレファ＃ラ

l8"ラ＃ーレファーードーミーソーl8"ラードミーーv110[3「レファ＃ラ」r]

["ラ＃「レファラ」ー
"ラ＃「レファ」ー
「ドミラ＃」ーラーソー
[3「"ラミソ」r]
l4：レミファl8]「ファ＃レ」「ソミ」[[3「"ラ＃レファラ」4v-6]rrr]
v50[3「"ラ＃レファラ」4v-6]

TIME(18:1:0)l8"ミ"ファ"ミ"ミ"ファ
TIME(21:1:0)l8"ミ"ファ"ミ"ミ"ファ
TIME(23:1:0)l8"ミ"レ"ミ"ミ"ファ



トラック２l8v127M(25)
o5r4音色(SquareLead)Panpot.onNoteWave((0,127,!4))

Lyric={"性格診断　相性のモンダイ"}
`ラー`ラー`ソー`ミr`ミー`ソー`ミーl12`ミー`ソl8「`レ`ファ」ーーーーー
Lyric={"トウケイテキニ　タダシイ結論"}
r4`ラー`ラー↑`ドーラーーー`レー`ドラrーv-6「レラ」ー「ミソ＃」ーv+2「レラ」ーo5v+4
Lyric={"正確予想　くわしく知りたい"}
r4`ラー`ラー`ソー`ミー`ミー`ソー`ミーl12`ミー`ソl4`ファー
Lyric={"明日の天気が"}
l12`レー`ドl8`レーー`レ`ラー`ソーー`ソーー
Lyric={"雨だって　晴れだって"}
↑`レーラl8ソーーラーーl8「ファラ＃」ー「レラ」ーーーーーーーーーーーー
Lyric={"どっちだっていいのに"}
`レーラl8ソーー「レラ」ーーl8「ファラ＃」ー「レラ」ーーーーーーーーーーーー
Lyric={"　"}


時間(43:1:0)v127Panpot.onNoteWave((0,127,!4))
Lyric={"性格診断　相性のモンダイ"}
o5r4`ラー`ラー`ソー`ミr`ミー`ソー`ミーl12`ミー`ソl8`ファーーーーー
Lyric={"ドコカノダレカノ　タダシイ結論"}
r4`ラー`ラー↑`ドーラーーー`レー`ドラrーv-6「レラ」ー「ミソ＃」ーv+2「レラ」ーo5v+4
Lyric={"正確確率　データを元に"}
o5r4`ラー`ラー`ソー`ミー`ミー`ソー`ミーl12`ミー`ソl4`ファー
Lyric={"明日の天気が"}
l12`レー`ドl8`レーーー`ラー`ソーー`ソーー
Lyric={"雨だって　晴れだって"}
↑`レーラl8ソーーラーーl8「ファラ＃」ー「レラ」ーーーーーーーーーーーー
Lyric={"どっちだっていいのに"}
`レーラl8ソーーラーーl8「ファラ＃」ー「レラ」ーーーーーーーーーーーー
Lyric={"どっちだっていいのに"}v-8
「"ラ`レ」ーラl8「"ラ＃ソ」ーー「"ララ」ーーl8「"ラ＃ラ＃」ー「"ララ」ーーーーーーーーーーーー
Lyric={"　"}
時間（25:1:0)方向前M(0)
l8↑Lyric={"苦手なんだ　だいじなことって"}
ミんんんミー↓
ソ`レーソ`レー
ミソシ`レーシ`ドー`レー`ミー↑
Lyric={"わかんないし　わかるわけもない"}
ミrんんミー
"ソレー"ソレー
ミソシ`レーシ`ドーシーラー
Lyric={"うらない　まじない"}
ミrんんミー
"ソレーソレー
Lyric={"神だのみ　運任せ"}
"シード"シー"ソ"シードーレー
Lyric={"水晶は　未来をうつさないでしょう"}
"ファrんん"ファー"ソレーソレー
"シード"シー"ソ"ミー"レー"ミー

Lyric={"のぞきこんだ姿　逆さになって"}v106↓方向左前
[ミrr]ミーレードー
[レrr]レーシー
ドーLyric={"なにも　なにも　見えない"}"シー"ソ＃ーレーシー"ソ＃ーレー
l4v-3M(25)ファミレ　v-8ミーー↑

トラック5l8v100
o4r4音色(CalliopeLead)方向右前
`ラー`ラー`ソー`ミr`ミー`ソー`ミーl12`ミー`ソl8v-10「`レ`ファ」ーーーーーv+10q90
r4`ラー`ラー↑`ドーラーーー`レー`ドラrーv-6↓「レラ」ー「ミソ＃」ーv+2「レラ」ーv+4q87
r4↓v-10`ラー`ラー`ソー`ミー`ミー`ソー`ミーl12`ミー`ソl4`ファー
l12`レー`ドl8`レーー`レ`ラー`ソーー`ソーー
↑`レーラl8ソーーラーーv-8l8「ファラ＃」ー方向右「レラ」ーーーーーーーーーーーー方向前音量戻す
`レーラl8ソーー「レラ」ーーl8「ファラ＃」ーv(70)q120「レラ」ーーーーーーーーーーーー
時間(43:1:0)q110v99
o5r4`ラー`ラー`ソー`ミr`ミー`ソー`ミーl12`ミー`ソl8`ファーーーーー
o4r4`ラー`ラー↑`ドーラーーー`レー`ドラrーv-6「レラ」ー「ミソ＃」ーv+2「レラ」ーv+4
r4`ラー`ラー`ソー`ミー`ミー`ソー`ミーl12`ミー`ソl4`ファー
l12`レー`ドl8`レーーー`ラー`ソーー`ソーー
`レーラl8ソーーラーーl8v-14「ファラ＃」ー「レラ」ーーーーーーーーーーーー
`レーラl8ソーーラーーl8「ファラ＃」ー「レラ」ーーーーーーーーーーーー
v-8↑
「"ラ`レ」ーラl8「"ラ＃ソ」ーー「"ララ」ーーl8「"ラ＃ラ＃」ー「"ララ」ーーーーーーーーーーーー


TR(4)o2音色(FretlessBass)
["ラ＃ー"ラ＃ドード"ラー"ラ：レーレ]レミレ
[["ラ＃ー"ラ＃ドード"ラー"ラ：レーレ]レミレ]


TIME(25:1:0)v-10
[ファーーソーーミーーラーーv-2]
[ファーーソーードーードーー]v+5
ファーーーーーソーーソーー
ミーーミーー


時間(43:1:0)o2v100l4
[3["ラ＃ー"ラ＃ドード"ラー"ラ：レーレ]レミレ]

TR(7)o2音色(SynthBass1)v82方向左前
TIME(13:1:0)l8
"ラドミミファラ
r1
"ラドミミv+2ファラ
r1r1
"ラドミミファラ
r1r1r1
"ラドミミファラ
r1r1v-1
"ラドミミファファラ

時間(43:1:0)↑v-8
ドミミファファラ
r2
"ラ＃ドミミファラ
r1r1
ドミミファファラ
r1r1r1↓
"ラドミミファラ

TR(9)l8音色(Marimba)方向左前↑
r1r1r1r1r1r1r1r2r1r1r2r2r1
[v.T(20,57,!1)ファーファ「ミソド」ーー「ドミラ」ーー「レファラ」ーーv72]


時間(61:1:0)
ドミミファファラr2ソファミレレミ
r1
ドミミファファラr2ソファミレレミ

TR 15 q100 o7音色(Seashore)EP.T(60,100)c1^
TIME(35:2:0)EP.T(60,127,!4)c1^
時間(42:1:0)EP.T(60,100,!4)c1^
時間(47:1:0)EP.T(30,70,!4)c1^
IF(MEN=1){
トラック10;          チャンネル10;        

~{ず}={n(Kick1),}    // 楽器の割り当て
~{た}={n(Snare1),}
~{つ}={n(ClosedHiHat),}
~{ち}={n(OpenHiHat),}
~{ぱ}={n(CrashCymbal1),}

      

//------------------------------------------------------------------------------
System.Keyshift=0 
CH(10);
System.Keyshift=0 
CH(10); REV=75 音色(BrushSet)
#DRUM1 = { l8 // v120 

Sub{v80 っちっっ|っっっっ|っっっっ|ちっっっ } //HH open 
Sub{v125 つっつっ|つっつっ|つっつつ|っつっつ } //HH close 
Sub{v110 っったっ|っったっ|っっP(85) たっ|っP(63）たった } //Sn 
v120 ずっっず|ずっっっ|っっっず|っずっっ //BD 

} 
[33#DRUM1　v-1] 

v90　＃DRUM1
}
IF(MEN=2){
トラック10;          チャンネル10;        

~{ど}={n(Kick1),}    // 楽器の割り当て
~{た}={n(Snare1),}
~{つ}={n(ClosedHiHat),}
~{ち}={n(OpenHiHat),}
~{ぱ}={n(CrashCymbal1),}

時間(1:1:0);  音色(StandardSet) ;音量110      ;音符8              

//------------------------------------------------------------------------------
System.Keyshift=0 
CH(10);

[8どつつどつつどつP(70)たP(52)]
どつつ どつつ どつつ P(70)たた「どぱ」方向前
どつつどつつどっP(70)ちP(52)
どつつ どつつ どつつ P(70)たつ「どぱ」方向前
[3どつつどつつどつP(70)つP(52)]
どつつ どつつ どつつ P(70)たた「どぱ」方向前
方向前
v+10
[3どつたつちど　どつたつたど]どつたつた「ぱつ」
v-10
[4どっつどっつどつた]
どつつどつつどつつどつち
[どつつどつつどつた]
どつつどつつどつつどつち
[どつつどつつどつた]
[4「`ソ＃つ」っつ：どつつ　どっつどつつ]
[14どつつ どつつ どつつ： た「つど」ど]
[12v-5どつつどつつどつた]} 
/*

「性格診断」24.5.5　ごま

性格診断　相性のモンダイ
トウケイテキニ　タダシイ結論
正確予想　くわしく知りたい
明日の天気が　雨だって　晴れだって
どっちだっていいのに　

苦手なんだ　だいじなことって
わかんないし　わかるわけもない

うらない　まじない　神だのみ　運任せ
水晶は　未来をうつさないでしょう

のぞきこんだ姿　逆さになって
なにも　なにも　見えない

性格診断　相性のモンダイ
ドコカノダレカノ　タダシイ結論
正確確率　データを元に
明日の天気が　雨だって　晴れだって
どっちだっていいのに　どっちだっていいのに


*/
}


If(no=2)
{
曲名{"ブーブークッション"}

コメント{"変"}
//------------------------------------------------------------------------------
音源初期化
拍子4,4
テンポ(120)Key(5)
Include(unison.h);Include(fadeio.h);
~{にょ}={PitchBend.onNoteWaveEx((-$2000,0,!4),(0,-$2000,!4));}

トラック１
音量(120)//←ダブルクリックで変更できます
音階3 音符4

　v.N(95,117,127,75)音色(PolySynthPad)
[17にょModulation(0); l8 cdePitchBend(0)f
Modulation(127); l8 cdにょef
Modulation(0); l8 cdef]
TIME(23:1:0)Fadeout(5)

トラック2;音階2 ;Panpot.onNoteWave((0,127,!4))
　v.N(100,117,127,85)音色(FingerBass)
[17にょModulation(0); l8 cdePitchBend(0)f
Modulation(127); l8 cdにょef
Modulation(0); l8 cdef]

TR　5　rl2　o2　q69　[32v.T(119,80,!2)「c"c」]

TR　3　TIME(5:1:0)音色(SquareLead)
l16v95
ドレミファソミファ方向右ラッシv99にょファーーーーー方向前PitchBend(0)
ドレミファソミファ方向右前ラッシファーーにょv-14↑シーファ方向前↓v99
方向左前ドレミファソミ方向前PitchBend(0)ファラッシファーーーーー
ドレミファソミファにょラッシファーーv-9↑ラーファ
TIME(15:1:0)v89
PitchBend(0)o8
[4OctaveUnison({方向左ファファファファミドっ方向左前ドレドっシドドっ"ソv-8にょ})]

TR(8)
TIME(15:1:0)v100o4にょ
[OctaveUnison({方向左ファファファファミドr方向左前v-10ドレドっシドドっ"ソv-4})]

TR　9TIME(5:1:0)l8v45o4音色(GuitarHarmonics)
Unison3th{[[4e][g]rr[4e]grrr]　TIME(15:1:0)　[4[4e][g]rr]}

TR(4)TIME(10:1:0)v100音色(Timpani)o3
l32[10ev+3]e1

トラック10;          // トラックの設定
チャンネル10;        // リズムを使うには必ずチャンネルを10番にする
System.Keyshift=0 
~{ど}={n(Kick1),}    // 楽器の割り当て
~{た}={n(Snare1),}
~{つ}={n(ClosedHiHat),}
~{ち}={n(OpenHiHat),}
~{ぱ}={n(MuteTriangle),}

時間(1:1:0);         // (小節:拍:ティック)でタイムポインタを移動します。

音符16               // 基本となる音長
v.N(110,70)音色(BrushSet)
[8どつつつP(124)たP(62)つつP(30)どっちっつP(62)たどぱん]

TIME(11:1:0)
[16どつつつたつつどっつつんたどぱん]

TR　11　CH　10
時間(1:1:0);~{ち}={n(ScratchPush),}
~{ぱ}={n(ScratchPull),}
v.T(20,70,!4)l16ぱちぱちv77ぱん
時間(4:1:0)v.T(20,70,!4)l16ぱちぱちv77ぱん

}