//------------------------------------------------------------------------------
// dSakura.dll Version.2.383
//------------------------------------------------------------------------------
曲名{"放課後ラプソディ（Rainbow Arrange）"} 作者{"編曲：レイン望（原曲：音助）"}
コメント{"過去に制作した他者の楽曲を勝手にアレンジ"}
/*

他者楽曲アレンジシリーズ！（勝手に自分がそう呼んでるだけ）

2025年1発目の楽曲は、自作ではなくアレンジで幕開けさせていただきます。レイン望です。
過去に同じ音助さんの「星空デート」のアレンジ曲を投稿した後、引き続き音助さんの投稿されていた楽曲を一通り聴いてるなかで、またしてもアレンジしがいのありそうな楽曲を見つけたと感じた物が今回の楽曲でございます。
タイトルの「放課後」という単語から、夕暮れ時のイメージを表現することを意識しながら書きました。

どうぞ、お聴きくだされ！

（2025/01/13現在）

*/
//------------------------------------------------------------------------------
//_【レ】初期設定
Include(stdmsg.h);
音源初期化
拍子(4,4);テンポ(112);
//------------------------------------------------------------------------------
//_【レ】演奏時間
Str Part_X	= { Time(003:1:0) }//前奏
Str Part_A1	= { Time(011:1:0) }//A1
Str Part_B1	= { Time(027:1:0) }//B1
Str Part_A2	= { Time(043:1:0) }//A2
Str Part_B2	= { Time(059:1:0) }//B2
Str Part_Z	= { Time(075:1:0) }//〆
//------------------------------------------------------------------------------
//_Track00 テンポ調整
TR(00)CH(01)
Part_Z; r1 TempoChange(104,78,!1); r1+1+1
//------------------------------------------------------------------------------
//_Track01 主旋律
TR(01)CH(01)@1q100v105v.Random(10)REV(32)CHO(16)
#Melo1 = { o6[ f4c8f4l8gab- |: a4g8f4e4. ] `c4f8g4f4. || [ b-4a8f4l8gag^2. | r4 ] || [ f4c8f4l8gab- |: a4g8f4e4. ] `c4f8g4f4. | [ b-4a8f4:l8gag^2. | r4 ] l8cf`c^4 };
#Melo2 = { o7[ f8l4f | eder8 |: l4c<b-a8g4f8^2 | l8rfga || b-4a8g4f4. | e2>d4e8d4 | c8^2. | <l4rab->l8cd^2. || ] l4c"b-l8"agef8^2 | l8rfga || b-4a8g4f4. | e2d4l8e | f^1 | r1 };
#Melo3 = { o7[ f8l4f | eder8 |: l4c<b-a8g4f8^2 | l8rfga || b-4a8g4f4. | e2>d4e8d4 | c8^2. | <l4rab->l8cd^2. || ] l4c"b-l8"agef8^2 | l8rfga || b-4a8g4f4. | e2g4a8g4 | f8^2.^2 | r2 };
Part_A1;
o6r-1r2^8l8cfe #Melo1
Part_B1;
r-1P(96)o6l4rab->c8d8^2. | #Melo2
P(64)
//Part_A2;
//#Melo1
Part_B2;
r-1P(96)o6l4rab->c8d8^2. | #Melo3
Part_Z;
r-2P(96)o6l8rfga || b-4a8g4f4. | e2d4e4 | f^1 | r1 
//------------------------------------------------------------------------------
//_Track02 主旋律2 + ピアノ伴奏（局所）
TR(02)CH(02)v.Random(10)REV(32)
#Melo1A = { o5[ e16&f8.c8f4l8gab- |: g16&a8.g8f4e4. ] b-16&`c8.f8g4f4. || [ a16&b-8.a8f4l8gg16&a16g^2. | r4 ] || [ e16&f8.c8f4l8gab- |: g16&a8.g8f4e4. ] b-16&`c8.f8g4f4. | [ a16&b-8.a8f4:l8gg16&a16g^2. | r4 ] l8cfb-16&`c16^4 };
#Melo2A = { o6[ f8l4e16&f8. | eder8 |: l4"b-16&c8.<b-a8g4f8^2 | l8rfga || a16&b-8.a8g4f4. | e2>c16&d8.e8d4 | c8^2. | <l4rab->l8cc16&d16^2. || ] l4c"b-l8"af16&g16ef8^2 | l8rfga || a16&b-8.a8g4f4. | e2d4l8e | e16&f16^1 | r1 };
#Melo3A = { o6[ f8l4e16&f8. | eder8 |: l4"b-16&c8.<b-a8g4f8^2 | l8rfga || a16&b-8.a8g4f4. | e2>c16&d8.e8d4 | c8^2. | <l4rab->l8cc16&d16^2. || ] l4c"b-l8"af16&g16ef8^2 | l8rfga || a16&b-8.a8g4f4. | e2f16&g8.a8g4 | f8^2.^2 | r2 };
Time(1:1:0);@1v75q99
P(48)o5t.N(0,16,32)'dfb-'1'eg`c'1'a`c`f'1^1t(0)P(64)
Part_B1;@27v75q100
r-1P(32)o5l4rab->c8c16&d16^2. | #Melo2A 
Part_A2;@27v75q100
P(64)#Melo1A
Part_B2;@27v75q100
r-1P(32)o5l4rab->c8c16&d16^2. | #Melo3A 
Part_Z;@1v64q99
P(32)l8'<"b-f>'1r-1"b-dfb-4fdf | '<cg>'1r-1ceg`c4geg | '<cf>'1r-1ra`c`f4`ca`c t.N(0,16,32,48,64)'"fca`c`f'1^2t(0)r2
//------------------------------------------------------------------------------
//_Track03 ベース
TR(03)CH(03)@34q100v90v.Random(05)P(48)REV(16)
#Base1  = { o3l8[2 f4c,50f4cdc f,50 f4,50f4:gag ]cfa || [2 b-4f,50b-4dfb- | `c,50`c4,50`c4:fgf ]fg`c };
#Base2  = { l8 [ dfb-4,75b-fdf | eg`c4,75`cgeg |: cea4,75aece | fa`d4,75`daf`d || dfb-4,75b-fdf | eg`c4,75`cgeg | fa`d4,75`daf`d | cea4,75aece ] cea4eg`c+4 | fa`d4,75`daf`d || dfb-4,75b-fdf | eg`c4,75`cgeg | fa`c`f4`c4a | fa`c`f4`c`f4 };
#Base2A = { l8 [ dfb-4,75b-fdf | eg`c4,75`cgeg |: cea4,75aece | fa`d4,75`daf`d || dfb-4,75b-fdf | eg`c4,75`cgeg | fa`d4,75`daf`d | cea4,75aece ] cea4eg`c+4 | fa`d4,75`daf`d || dfb-4,75b-fdf | eg`c4,75`cgeg | dfa`d4a4`d | "acea4ea4 };
Part_X;
o3[(4)"f4c8f4c4"a8:"f8,50"f8c8f4c8"g8c8]"f4."g8^2
Part_A1;
#Base1 #Base1
Part_B1;
#Base2
Part_A2;
#Base1 #Base1
Part_B2;
#Base2A
//------------------------------------------------------------------------------
//_Track04 伴奏（エレピ）
TR(04)CH(04)@5,8q99v75o5P(80)REV(64)
#ChordPi1  = { l1 [2 ['<fc>fac'1^1] | [ '<"b-f>"b-df' | '<cg>ceg' ] ] };
#ChordPi2  = { l1 [ '<"b-f>"b-df' | '<cg>ceg' |: '<ea>cea' | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<da>dfa' | '<"ae>ce"a' ] '<ea>cea'2'<ea>c+ea'2 | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<fc>'1^1r-1^1'cfa+' | 'cfa' };
#ChordPi2A = { l1 [ '<"b-f>"b-df' | '<cg>ceg' |: '<ea>cea' | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<da>dfa' | '<"ae>ce"a' ] '<ea>cea'2'<ea>c+ea'2 | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<da>dfa' | '<"ae>ce"a' };
Part_X;
[4 '<fc>fac'1.'<cg>ceg'2 ]
Part_A1;
#ChordPi1
Part_B1;
#ChordPi2
Part_A2;
#ChordPi1
Part_B2;
#ChordPi2A
/*Part_Z;
'<"b-f>"b-df' | '<cg>ceg' | '<fc>fac'1^1 */
//------------------------------------------------------------------------------
//_Track05 伴奏（ストリングス）
TR(05)CH(05)@50v40q99P(32)REV(64)
#Chord2  = { o3l1 [ '<b-`f>b-`d`f' | >'<cg>ceg' |: '<ae>cea' | '<da>dfa'< || '<b-`f>b-`d`f' | >'<cg>ceg' | '<da>dfa' | '<ae>cea'< ] '<ae>'1r-1'cea'2'c+ea'2 | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<cf>'1^1r-1^1'cfa+' | 'cfa' };
#Chord2A = { o3l1 [ '<b-`f>b-`d`f' | >'<cg>ceg' |: '<ae>cea' | '<da>dfa'< || '<b-`f>b-`d`f' | >'<cg>ceg' | '<da>dfa' | '<ae>cea'< ] '<ae>'1r-1'cea'2'c+ea'2 | '<da>dfa' || '<"b-f>"b-df' | '<cg>ceg' | '<da>dfa' | '<"ae>ce"a' };
Part_X;
o4[(4)'<fc>'1^1r-1^1|'fac'1.|'fgc'2]
EP.T(127,1,!1^1)'<fc>fac'1^1r2EP(127)
Part_B1;
v+16r-1EP.T(64,127,!1)'<ce>ceg'1EP(127)
#Chord2
v-16
EP.T(127,1,!1^1)'<fc>fac'1^1r2EP(127)
Part_B2;v+16
#Chord2A
//------------------------------------------------------------------------------
//_Track06 ギター（アルペジオ）
TR(06)CH(06)@25P(16)v64q199REV(32)
#Arp1  = { o4l8[2 [ [ fa>cf4:c4"a< ]acg< ] | [ b->dfb-4f4d< | >ceg`c4f4`c< ] ] };
#Arp2  = { o5l8[ "b-dfb-4f4d | ceg`c4g4e :| "acea4e4c | dfa`d4a4`d ] dfa`d4a4f | "acea4e4a || [ "b-dfb-4f4d | ceg`c4g4e :| "acea4e4c | dfa`d4a4`d ] o6[ "f"acf4:c4"a ]cf4 };
#Arp2A = { o5l8[ "b-dfb-4f4d | ceg`c4g4e :| "acea4e4c | dfa`d4a4`d ] dfa`d4a4f | "acea4e4a || [ "b-dfb-4f4d | ceg`c4g4e :| "acea4e4c | dfa`d4a4`d ] dfa`d4a4f | "acea4e4a };
Part_X;
o5[2 [2 l8cf`cl4ag :| fdc8^2 ]f8^4.g8^2 ]
Part_A1;
//Slur(3)o4l8[ [ f&a&>c&f4:c4&f< ]a4&g< ]
#Arp1
Part_B1;
#Arp2
Part_A2;
#Arp1
Part_B2;
#Arp2A
//------------------------------------------------------------------------------
//_Track11 ハモリ
TR(11)CH(11)@1q100v70v.Random(10)REV(32)CHO(16)
#Harmony2 = { o6[ d8l4d | c"b-cr8 |: <l4agf8e4d8^2 | r2 || r1 | r1 | r1 | l4rfga8b-8^2.> || ] <l4agl8f>ecd8^2 | l8rdef || g4f8e4d4. | c2<b-4l8b- | a^1 | r1 	   };
Part_B1;
r-1P(64)o5l4rfga8b-8^2. | #Harmony2 
Part_B2;
r-1P(64)o5l4rfga8b-8^2. | #Harmony2 
//------------------------------------------------------------------------------
//_Track13 クリスタル
TR(13)CH(13)@99o8P(127)v40V(96)REV(127)CHO(32)
Part_B1;
"b-1f2e2d1c1
Time(35:1:0);
"b-1f2e2c2g2f1|"b-1c1f1^1
Part_B2;
"b-1f2e2d1c1
Time(67:1:0);
"b-1f2e2c2g2f1|"b-1c1d2"a2g2f2
//------------------------------------------------------------------------------
//_Track14 装飾音
TR(14)CH(14)REV(16)
Time(1:1:0);
P(80)@051v75q100o7 f2^4.e16f16 | c4.<b-16a16f4.e8 | EP.T((127,30,!1.),(30,0,!2))f1^1,90EP(127)
P(112)//出だし以外のパン振りは左記の数字通りで
//Part_A1;
Time(15:1:0);
@103v64 [r1|l8rcf`c^2,30]
Time(23:1:0);
@103v64 [r1|:l8rcf`c^2,30]r1
//Part_B1;
Time(30:1:0);
@103v64 l8rcf`c^2,30
Time(33:1:0);
@023v56 M(64)q95l8r2a16&b-8.`cb-4a16&b-16EP.T(127,96,!4^2)a4^2EP(127)q100M(0)
Time(38:1:0);
@103v64 l8rcf`c^2,30
Time(41:1:0);
@023v56 M(64)q95l8rfafafa`c|`e32&`f16.`cafaf`c`fq100M(0)
//Part_A2;
Time(47:1:0);
@103v64 [r1|l8rcf`c^2,30]
Time(55:1:0);
@103v64 [r1|:l8rcf`c^2,30]r1
//Part_B2;
Time(62:1:0);
@103v64 l8rcf`c^2,30
Time(65:1:0);
@023v56 M(64)q95l8r2a16&b-8.`cb-4a16&b-16EP.T(127,96,!4^2)a4^2EP(127)q100M(0)
Time(70:1:0);
@103v64 l8rcf`c^2,30
Time(73:1:0);
@049v56 o7"a2c2g4.f16g16f2
//------------------------------------------------------------------------------
//_Track15 リバシン
TR(15)CH(15)@120P(064)o4v096q102REV(064)
Part_B1; r-2'c`c``c'2
Part_B2; r-2'c`c``c'2
Part_Z; r-2'c`c``c'2
//------------------------------------------------------------------------------
//_Track16 流れ星
TR(16)CH(16)@125,5P(064)v080q102REV(127)
Str KIRA1={EP.T(127,0,!2.+2.+2.+2.)P.T(127,0,!2.+2.+2.+2.)o5`c2.+2.+2.+2.-64&&c64r4P(127)EP(000)}
Part_B1; KIRA1
Part_B2; KIRA1
Part_Z; KIRA1
//------------------------------------------------------------------------------
//_Track10 ドラム
TR(10)CH(10)@1o3q100v.Random(5)
#Drm_Cym1 = { v.N(095,075,090,065)l8n55,[(3)f+]   };// n55:SplashCymbal & n42:ClosedHihat
#Drm_HH1  = { v.N(100,075,090,065)l8    [(4)f+]   };// n42:ClosedHihat
#Drm_CH1  = { v.N(105,075,090,065)l8c+  [(3)f+]   };// n37:SideStick & n42:ClosedHihat 1
#Drm_CH1A = { v.N(105,075,090,065)l8e   [(3)f+]   };// n40:Snare2 & n42:ClosedHihat 1A
#Drm_CH2  = { v.N(105,075,065,100)l8c+  [(2)f+]c+ };// n37:SideStick & n42:ClosedHihat 2
#Drm_CH2A = { v.N(105,075,065,100)l8e   [(2)f+]e  };// n40:Snare2 & n42:ClosedHihat 2A
#Drm_Bas1 = { "b1,,105 }; #Drm_Bas2 = { ["b8,,100]r2. };//バス
#DrmPtn1  = { [ #Drm_Cym1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 || #Drm_Cym1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1 r-1 #Drm_Bas1 |: #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 ] v.N(100,075,090,065)l8[(4)f+] v.N(100,075,(095,105),080)l8eae16e16f r-1 "b2,,105["b4,,105] };
#DrmPtn1A = { [ #Drm_Cym1 #Drm_CH1A r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2A r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1A r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2A r-1 #Drm_Bas2 || #Drm_Cym1 #Drm_CH1A r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2A r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1A r-1 #Drm_Bas1 |: #Drm_HH1 #Drm_CH2A r-1 #Drm_Bas2 ] v.N(100,075,090,065)l8[(4)f+] v.N(100,075,(095,105),080)l8eae16e16f r-1 "b2,,105["b4,,105] };
Part_X;
#Drm_Cym1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 || #Drm_HH1 #Drm_CH1 r-1 #Drm_Bas1 | #Drm_HH1 #Drm_CH2 r-1 #Drm_Bas2 | #Drm_HH1 #Drm_CH1 r-1 #Drm_Bas1 | n55,4.'e`c'8'ea'4.'ef'8 r-1 ["b2]
Part_A1;
#DrmPtn1
Part_B1;
#DrmPtn1A
Part_A2;
#DrmPtn1
Part_B2;
#DrmPtn1A
Part_Z;
n55,1+1
//------------------------------------------------------------------------------
TR(26)CH(10)q100v.Random(5)//パーカッション用
#Claves1 = { r2[n75,8]r4 };
//Part_B1;
Time(30:1:0);#Claves1
Time(34:1:0);#Claves1
Time(38:1:0);#Claves1
Time(42:1:0);#Claves1
//Part_B2;
Time(62:1:0);#Claves1
Time(66:1:0);#Claves1
Time(70:1:0);#Claves1
Time(74:1:0);#Claves1