// dSakura.dll Version.2.383
//_初期設定
Include(stdmsg.h);
System.MeasureShift(1);ResetGM();ResetGS();ResetXG();Time(1:1:0);TrackSync;//音源初期化
System.TimeSignature(4,4);Tempo(80);//拍子＆テンポ
//トランスポーズ
Key(+3)
//_【レ】著作者表記
曲名{"寄り添いたくて..."} 作者{"レイン望"}
コメント{"「優しさ」を意識した音作りに挑戦してみました。"}
/*

『もしも、自分の好きな人が密かに"心の病気"を抱えている事を知ったら、あなたはその人に優しく寄り添ってあげられるでしょうか？』
そんなテーマを意識して、今回作曲してみました。

どうも、レイン望です。
ゴールデンウィーク期間中、STEAMで配信されているゲームがいくつかセール中だったので、ついつい気になって購入し遊び呆けてしまいました。
おかげで作曲のペースが牛歩状態になっておりますｗ

さて、今回の曲ですが、「ドキドキ文芸部(英題:Doki Doki Literature Club)」というゲーム内の、とあるヒロインの話を読み進めている中でふと思いつきました。
「寄り添う」って、一見単純そうに思えるけど、心の病気を抱えている人が相手だと案外難しいものなのかもしれない。でも、寄り添いたい。だってその気持ちに嘘偽りなんて無いから。

自分なりに「優しさ」を意識した音作りを頑張りました。

*/
//_演奏時間
Str Part_X	={Time(001:1:0)}//前奏
Str Part_A	={Time(002:1:0)}//Aパート
Str Part_B	={Time(018:1:0)}//Bパート
Str Part_C	={Time(030:1:0)}//Cパート
Str Part_Z	={Time(038:1:0)}//〆

//_Track01_主旋律
TR(01)CH(01)REV(48)CHO(16)@1o6
Part_X;r2.e8f16g16^4r8
//A,A2
[(2) l8ggfed de16c16^2c"b16"a16^4 rffedc16d16^2 r4ef16g16^4
l8rgg+e>de16d16^8 c8^4r<`cb`c16a16^4r `cb4ab16`c16^2. :P(64-16)e8f16g16^4r8 ] P(64)r8f16g16
//B
Part_B;
l8[(2) a2rab`c b2raba :g2re`db `c2.r8f16g16 ] g2e8.>d8.e8 d2c4r8"a16"b16<
l8[(2) `cb16ab16:`c8+4.a16b16 ] `c8+8a`ca a4.g16g16+2 r1
//C
Part_C;r-4e8f16g16^4r8
l8ggfed de16c16^2c"b16"a16^4 rffedc16d16^2 r4ef16g16^4
l8rgg+e>de16d16^8 c8^4r<`cb`c16a16^4r `cb4ab16`c16^2.r4
//Z
Part_Z;r-4ef16g16^4
l8rgg+e>de16d16^8 c8^4r<`cb`c16a16^4r `cb4ab16`c16^1

//_Track11_主旋律補助
TR(11)CH(11)REV(64)CHO(16)@74o5q100v(100)V(64)
//A2
Time(09:1:0);//P(64+16)
r2.e8f16M(16)g16^4M(0)r8
l8ggfed de16M(16)c16^2,95M(0)c"b16"M(32)a16^4,95M(0) rffedc16M(16)d16^2M(0) r4ef16M(48)g16^4M(0)
l8rgg+e>de16M(16)d16^8 M(32)c8^4M(0)r<`cb`c16M(16)a16^4M(0)r `cb4ab16M(48)`c16^2.M(0) r8f16g16
//C
Part_C;r-4e8f16M(16)g16^4M(0)r8
l8ggfed de16M(16)c16^2,95M(0)c"b16"M(32)a16^4,95M(0) rffedc16M(16)d16^2M(0) r4ef16M(48)g16^4M(0)
l8rgg+e>de16M(16)d16^8 M(32)c8^4M(0)r<`cb`c16M(16)a16^4M(0)r `cb4ab16M(48)`c16^2.M(0)

//_Track02_ベース
TR(02)CH(02)@33q100o3
r1
//A2
Time(010:1:0);
l2[c<g a1 :fe dg>]fg >c1
//B
Part_B;
v64l.N(!4,!8,!16,!16,!16,!16,!8,!8,!8)[(2)ff"ffr"f"ff"f|gg"ggr"g"gg"g|:ee"eer"e"ee"e|aa"aar"a"aa"a]ee"eer"g+"g+g+"g+|aa"aar"a"aa"a
v70l.N(!8.,!8.,!8^2)ff,30f|f+f+,30f+|gg,30g l1g
//C
Part_C;
l2[c<g a1 :fe dg>]fg >c1

//_Track03_伴奏
TR(03)CH(03)REV(32)CHO(0)@50v40o4q100
r1
//A2
Time(10:1:0);
l2'"cceg''"g"bdg' '"acea'1 '"fcfa''"e"beg' '"d"adf''"g"bdg'
l2'"cceg''"g+"bdeg+' '"acea'1 '"fcfa''"gdgb' 'cfg`c''ceg`c'
//B
Part_B;
l1['"fcfa''"gdgb':'"eegb''"a`cea']'"eegb'2'"g+eg+b'2'"a`cea'
l1'"fcfa''"f+df+a''"gdgb''"gdg`c'2'"gdgb'2
//C
Part_C;
l2'"cceg''"g"bdg' '"acea'1 '"fcfa''"e"beg' '"d"adf''"g"bdg'
l2'"cceg''"g+"bdeg+' '"acea'1 '"fcfa''"gdgb' 'cfg`c''ceg`c'

//_Track04_伴奏（ピアノ）
TR(04)CH(04)REV(16)CHO(0)q100@1o4v50
//A
Part_A;
l8'ceg'2r-2>rceg<'"bdg'2r-2>r"bdg< 'cea'1r-1>rcea^4e4< 'cfa'2r-2>rcfa<'"beg'2r-2>r"beg< '"adf'2r-2>r"adf<'"bdg'2r-2>r"bdg<
l8'ceg'2r-2>rceg<'"bdeg+'2r-2>r"bdg+< 'cea'1r-1>rcea^4e4< 'cfa'2r-2>rcfa<'dgb'2r-2>rdgb< 'fg`c'2r-2>rfg`c<'eg`c'2r-2t.N(-8,0,8)>'eg`c'2<t(0)
//B
Part_B;
[(2)l8'cfa'1,100,75r8-1>[(7)'cfa'8,50,50]< 'dgb'1,100,75r8-1>[(7)'dgb'8,50,50]< :'egb'1,100,75r8-1>[(7)'egb'8,50,50]< 'cea'1,100,75r8-1>[(7)'cea'8,50,50]<] 'egb'2,100,75r8-2>[(3)'egb'8,50,50]<'deg+b'2,100,75r8-2>[(3)'deg+b'8,50,50]< 'cea'1,100,75r8-1>[(7)'cea'8,50,50]<
l8'cfa>cf<'4.,75'cfa'4.+4r-4.+4>'cf'4,90cfa< 'df+a>df+<'4.,75'df+a'4.+4r-4.+4>'df+'4,90df+a< 'dgb'1r-1>rdgb4gbd< 'dg`c'2r-2>rdg`c<t.N(0,4,8)'dgb'2,90t.N(0)
//C
Part_C;
l8'ceg'2r-2>rceg<'"bdg'2r-2>r"bdg< 'cea'1r-1>rcea^4e4< 'cfa'2r-2>rcfa<'"beg'2r-2>r"beg< '"adf'2r-2>r"adf<'"bdg'2r-2>r"bdg<
l8'ceg'2r-2>rceg<'"bdeg+'2r-2>r"bdg+< 'cea'1r-1>rcea^4e4< 'cfa'2r-2>rcfa<'dgb'2r-2>rdgb< 'fg`c'2r-2>rfg`c<'eg`c'2r-2t.N(-8,0,8)>'eg`c'2<t(0)
//Z
Part_Z;
l8'ceg'2r-2>rceg<'"bdeg+'2r-2>r"bdg+< 'cea'1r-1>rcea^4e4< 'cfa'2r-2>rcfa<'dgb'2r-2>rdgb< 'fg`c'1r-1>rfg`c^g`cg<
t.N(0,16,32,48,64,80)'eg`c>eg`c<'1t(0)

//_Track16_パーカッション
TR(16)CH(16)REV(32)q100@120o5
//B
Part_B;r-2;V(75);'c`c``c'2
//Z
Part_Z;r-2;V(75);'c`c``c'2

//_Track10_ドラム
UseKeyShift(off)
TR(10)CH(10)REV(16)@1o3v.Random(10)
//l4[(200)n34,,,40[(3)n33,,,40]]
//B
Part_B;V(96)
Sub{ v105;[(2)[(3)l8c2rcrr]l8c2ccrr] }[(2) `c+1r-1l16[(8)v.N(100,75,90,60)[(4)f+]v.N(105,75,90,60)d[(3)f+]] ]
Sub{l8.[(3)c]r16c8c4}[(2)l8.v.N(105,90,105)`c+`a`c+ v100l16'n45,d'n41,8dn45,n48,n41,]
Sub{ v105;[(2)l8c2:rcrr]c2 }`c+1r-1l16[(3)v.N(100,75,90,60)[(4)f+]v.N(105,75,90,60)d[(3)f+]] | `a2
//C
Part_C;V(100)
[(8)l8crc+rrcc+r]
//Z
Part_Z;n55,
//Sub{ v105;[(2)[(3)l8c2rcrr]l8c2ccrr] }[(2) `c+1r-1l16[(8)v.N(100,75,90,60)[(4)f+]v.N(105,75,90,60)d[(3)f+]] ]