INT KS=(001)//()内の数値 (1 or 2) でモードを選択してください
								
/**************************************************************

   1.ノーマルモード　　　　 　　★★★
   2.シャッフル・ブギー・モード ★★★★★
						  
もとはシャッフルじゃないです。試しにやったらいいと思ったので良かったら聴いてみてください
発音タイミングをいじった簡易なシャッフルですが妙にお気に入りです。8分ウラもはねることによって
3連符もいけることがわかってしまいました。素晴らしい！
ところどころの風の音もお気に入りです。乃〇坂46の”夜明けまで強がらなくてもいい”のイントロの音に似せられてうれしいです
2020.08.23 15:13 Remix
2023.04.09 22:56 Re-ReMIX
***************************************************************///
//------------------------------------------------------------------------------
Include(gs.h);
TimeSignature=4,4;           //拍子記号の設定
Tempo(147);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGM; r2 ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
Include(delay.h);

TimeBase      = 564 // 四分音符分解能

TrackName     = {"[day by day] by sonny"}       //曲名
Copyright     = {"sonny"}       //著作権表示
//MetaText      = {"For win10 MSGS"}       //説明・コメントなど
//------------------------------------------------------------------------------
Include(gs.h);
//------------------------------------------------------------------------------
INT HN16=0 INT HN8=0
IF (KS=1) { HN16=0  HN8=0}
IF (KS=2) { HN16=48 HN8=48} 
STR HANE={t__2.onCycle(!16, 0, HN16) t__3.onCycle(!8,0,HN8)} //
//------------------------------------------------------------------------------
//Major
~{い}={'"e"beg#b`e'}//E 
~{ふ}={'"fcfa`c`e'}//F   FM7
//Miner
~{エ}={'"aea`c`er'}//Am
//7th
~{ど}={'rda`c`er'}//D7  D9
~{う}={'"e"bdg#b`e'}//E7

~{ガ}={'"eeg#`d`gr'}//E7#9
~{ギ}={'"e"beg#b`e'}//E7#9
~{ー}={'rrrrrr'}//長音
~{ん}={'r0r0r0r0r0r0'}//アップダウンがひっくり返ったらこれ

INT KE=0 Key(KE）//

//******　各種変数・関数 *******************************************
Function PARA (Str A={}){ t.N(0,3,6) A;t0}//バラ弾き
Function Vib (Str A={}){M 60 A ;M 10}//ビブラート
Function Dec (STR A={}){Int B=NoteNo(A);  n(B-2),32,,90 & A r-32 }//フラム(後ろ倒し) 歌専用

INT A=20//ギター・ストロークの弦のばらつき量
INT A10=6 //弦の本数
INT A6=0  INT A5=A10/5 INT A4=A10/4 INT A3=A10/3 INT A2=A10/2 INT A1=A10/1 //パラ弾きの遅延間隔の均等化
INT C=A*5//アクセント・ストロークでの弦のばらつき量
INT KH=112 //表
INT JH=100 //裏
STR DYN={EP.onCycle(!16,KH,JH,KH,JH,  KH+3,JH,KH,JH, KH,JH,KH,JH,  KH+5,JH,KH,JH)} //ダイナミクス的な何か

STR D={t.N(A6*A,A5*A,A4*A,A3*A,A2*A,A1*A, A1*A,A2*A,A3*A,A4*A,A5*A,A6*A)}//ギターの弦のばらつき加減
Function PA(STR I={} ) {t.N(A6*C,A5*C,A4*C,A3*C,A2*C,A1*C, A1*C,A2*C,A3*C,A4*C,A5*C,A6*C)  I; D}//アクセント・ストロークでのばらつき加減
INT SF=0 //シャッフルによる裏拍の遅延値
INT ZT=((A*A10)+(SF))　//弦パラ弾き値+シャッフル値
STR B={ r*%(ZT) 放す　ペダル r*-%(ZT) } //コードチェンジのときの濁り防止 (数字は A*5)(5+8;シャッフルの分)
STR ZTS={t-((ZT/2))}//ずれ訂正
STR Z={  放す　ペダル  } //コードチェンジのときの濁り防止2 (数字は A*5)
STR F={放す}

Function CT(STR I={} ) {放す;q 80 I;B;q99}//ミュート・カッティング
Function CT2(STR I={} ) {放す;q %1 I;B;q99}//ミュート・カッティング2
Function CT3(STR I={} ) {放す;q 50 I;B;q99}//ミュート・カッティング3
Function CT4(STR I={} ) {放す;q 30 I;B;q99}//ミュート・カッティング4

INT PV=63//ギターのパン偏差　

INT GE=110//80 //ギターのコードストローク時の基本音量 
INT HF=50//これを上げるとギターの高音がカットされる

Array AAA=(GE       ,GE-(HF/10),GE-(HF/5),GE-(HF/3),GE-(HF/3),GE-(HF/2))

Array BBB=(GE-(HF/2),GE-(HF/2), GE-(HF/2),GE-(HF/3),GE-(HF/3),GE-(HF/4))
//Array BBB=(80,10,10,10,10,10)
//                
STR E={v.N(AAA,BBB)}//ギターのエクスプレッション(強迫・弱拍・表裏・弦毎の疑似イコライズ)
PRINT ({表拍 　６弦　５弦　４弦　3弦　2弦　１弦 裏拍 　６弦　５弦　４弦　3弦　2弦　１弦})
PRINT ({"音量"},AAA,{　　　　　},BBB)
PRINT ({遅延},A6*A,A5*A,A4*A,A3*A,A2*A,A1*A, { 　　　 },A1*A,A2*A,A3*A,A4*A,A5*A,A6*A)	 
Function FL(STR A={}){INT N=NoteNo(A) n(N-1),32,,50 A  r-32}//フラム 

Function MIX(Int A=1,INT B=1,INT C=1,INT CC=0,INT D=1,INT E=1,INT F=1,INT G=1,INT H=1,INT I=1){V(A) v(B) @(C,CC) q(D) o(E) l(F) P(G) M(H) FineTune (64+I)}

//*************** MIXER ***************************************************
//                       V  ,v  ,@  ,@2  ,q  ,o  , l ,P    ,M  ,DET
TR 1 GS_RHYTHM(0) r8 MIX(115,110,035,000 ,099,003,016,054 ,000,0) v.Random=10 HANE //BASS

TR 2 GS_RHYTHM(0) r8 MIX(120,120,031,000 ,100,005,008,107, 010,4)    P.WR(87,127,!64) HANE//GUITAR SOLO
TR 3 GS_RHYTHM(0) r8 MIX(115,100,031,000 ,100,005,008,054, 010,-4)   t10 P.WR(74,034,!64) HANE//GUITAR SOLO sub

TR 4 GS_RHYTHM(0) r8 MIX(079,100,030,000 ,099,004,008,010, 000,-1) t5 v.Random=5 P.WR(0,020,!64) HANE// L_GUIT
TR 5 GS_RHYTHM(0) r8 MIX(107,100,031,000 ,099,004,008,117, 000,1）   v.Random=5  P.WR(127,107,!64) HANE//R_GUIT

TR 6 GS_RHYTHM(0) r8 MIX(118,100,082,000 ,099,005,008,054, 000,000）v.Random=05  P.WR(44,084,!64) HANE//VOCAL
TR 7 GS_RHYTHM(0) r8 MIX(127,127,081,000 ,050,008,008,000 ,000,000)  //SHUWAAAAAAAAA 
TR 8 GS_RHYTHM(0) r8 MIX(050,127,082,000 ,059,005,008,127 ,127,000) v.Random=5 HANE P.WR(64,127,!64)//RIFF
TR 9 GS_RHYTHM(0) r8 MIX(050,127,082,000 ,059,005,008,000 ,127,000) v.Random=5 p%70 HANE P.WR(64,0,!64)//RIFF %70

TR 10 GS_RHYTHM(1) r8 CH=10 TrackKey(-KE) HANE
     V 110 v 110 l 16 p% 2000 v.Random=10
TR 12 GS_RHYTHM(1) r8 CH 12 l8 V 110 v 127 TrackKey(-KE) HANE P.WR(0,127,!32) //clap


TR 10 CH 10 
//_リズムマクロの定義
$b{n(36),?,,100 n(36),16,,30 r-16}//bass drum
$s{n(Snare1),32,0,,0 n(Snare1),32,,30,0 }//snare(Kari)
$s{'n(37)n(Snare2) n(65),?,,60 '  n(65),16,,30 r-16}//snare(Kari2)
//$s{n(Snare1)}
$h{n42,}//hi-hat
$m{n46,?,,85}//hi-hat open
$c{n49,}//Cymbal
$T{n(ChineseCymbal),?,,120}
$C{n(CrashCymbal2),}
$L{n43,}//low-Tom
$M{n47,}//Mid-Tom
$H{n50,}//High-Tom
$t{'n39 n39,,,,2 n39,,,,4'}//手拍子
v.onCycle(!16,107,57,107,57, 127,57,107,57 )  

Rhythm{h4h4h4h4[
// A

{c___ m___ m___ m___|m___ m___ m___ m___|m___ m___ m___ m___|m___ m___ m___ m___|}
 b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|
 
{m___ m___ m___ m___|m___ m___ m___ m___|m___ m___ m___ m___|m___ m___ m___ m___|}
 b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|
 
{c___ m___ m___ m___|m___ m___ m___ m___|c___ m___ C___ m___|c___ C___ ____ ____|}
{b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b___ s__s b_b_ s_b_|b_s_ s_MM ssMM MLLL|}
 ____ ____ ____ ____|____ ____ ____ ____|____ ____ ____ ____|____ ____ b___ b___|
//B

{m___ T___ m___ m_c_|m___ m___ m___ m_C_|m___ m___ m___ m_c_|m___ m___ m___ m___}
 b___ s__s b_b_ s_b_|__b_ sb_s b_b_ s_b_|__b_ sb_s b_b_ s_b_|__b_ sb_s b_b_ s_b_|
 
{m___ T___ m___ m_C_|m___ m___ m___ m_c_|m___ m___ m___ m_C_|m___ m___ m_c_ _C__}
 b___ s__s b_b_ s_b_|__b_ s_bs b_b_ s_b_|__b_ sb_s b_b_ s_b_|__b_ sb_s b_b_ sb__|
 
 
 
//SABI
 l16{c_m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|}
    {____ s___ ____ s___|____ s___ ____ s___|____ s___ ____ s___|____ s___ _s__ s___|}
     b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|
     
    {c_m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|C___ __c_ ____ C___}
    {____ s___ ____ s___|____ s___ ____ s___|____ s___ ____ s___|____ s___ __ss MMLL|}
     b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b__b __b_ _b__ b__b
 
 
   {C_m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|}
   {____ s___ ____ s___|____ s___ ____ s___|____ s___ ____ s___|____ s___ _s__ s___|}
    b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|
    
   {c_m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|__m_ _hm_ __m_ _hm_|C___ __c_ ____ C___}
   {____ s___ ____ s___|____ s___ ____ s___|____ s___ ____ s___|____ s___ __ss MMLL|}
    b___ b___ b___ b___|b___ b___ b___ b___|b___ b___ b___ b___|b__b __b_ _b__ b__b
 
 {C2h2c2h2}(l2.) b r8 (l8)b (l1) b (l16)
 
] 
}
//HandClap------------------------------------------------------------------------------

TR 12 CH 12 

Rhythm{
//A
r1r1r1r1|r1r1r1r1
r1r1r1r1|
//B
r1r1r1r1|r1r1r1r1
//C
_____tt_|_____tt_|_____tt_|________
_____tt_|_____tt_|__t___t_|__t___t_
_____tt_|_____tt_|_____tt_|_____tt_
_____tt_|_____tt_|__t___t_|__t___t_
________|________
//A
r1r1r1r1|r1r1r1r1
r1r1r1r1|
//B
r1r1r1r1|r1r1r1r1
//C
_____tt_|_____tt_|_____tt_|________
_____tt_|_____tt_|__t___t_|__t___t_
_____tt_|_____tt_|_____tt_|_____tt_
_____tt_|_____tt_|__t___t_|__t___t_
________|________

}
//BASS------------------------------------------------------------------------------
 TR 1 
l8<
r1
[
 //A

 [aaga rgaa rga`c ^ag16a16`c]>
  ddcd rcdd rcdd#  ^d^c< 
 
  aaga rgaa r`ca`c ^`d16&`d+16`d`c 
  eeee re`e`e- >ddcd rc<gg+
  
  aaga rgaa rga`c ^aef l16 >
 //B
"f#rrr f#^^c# "bc#e^ c#^"br|rr"b^  "b"b^"b  "b^"b^  c#^d^|^^d^ dd^d d^c#^ "b^"a^
^^"a^ "a"a^"a "a^"a^ "g#^"g#^ 
"f#rrr f#^^c# "bc#e^ c#^e^|^^"e^ ^^"e^ "g#^"a^ "b^d^|^^d^ dd^d d^d^ d^d^|^^d^ dd^d d^dr rdrr
//SABI
 "a^^^ a^^a deg^ ^^e^ | "a^^^ a^^a deg^ ^^e^ |"f^^^ f^^f crf^ ^^c^|"f^^^ f^^f crf^ ^^dr|>
 "d^^^ d^^d<ga>c^ ^^"a^| "d^^^ d^^d<ga>c^ ^^"a^|"e^^^ e^^e<ab>d^ ^^"b^|l8<eg#b>d^fg#b<l16
 "a^^^ a^^a deg^ ^^e^ | "a^^^ a^^a deg^ ^^e^ |"f^^^ f^^f crf^ ^^c^|"f^^^ f^^f crf^ ^^dr|>
 "d^^^ d^^d<ga>c^ ^^"a^| "d^^^ d^^d<ga>c^ ^^"a^|"e^^^ e^^e<ab>d^ ^^"b^|l8<eg#b>d^fg#b
 
 l8[4'f`c`e'^^^ ]l8<<
]
//GUITAR SOLO------------------------------------------------------------------------------
TR 2 
#GS={
//A
r1r1r1r1|r1r1r1r1
r1r1r1r1
//B
r1r1r1r1|r1r1r1r1
//SABI
r1r1r1r1|r1r1r1r1
r1r1r1r1|r1r1r1r1
r1r1r1
//SOLO
/*Vib(Dec(e2)d4.)Dec(d4) d4c"bc l16"b&c&<ba l8 baga&aDec(a)`ca&a Dec(a)`ca l16 >c&d&c"a l8 cd
Dec(e)ggVib(a&a) gaVib(`c&`c) agVib(a&a) age dd#d#16&e16g&g ega&a `cVib(a^^)r Dec(a)`c
>Dec(e)g4g l16d&e&d&c l8 dc <Dec(a)`cag16&a16&g16e16&ege gg16&a16 `ca`c`c`c  g16&a16 `ca `c16a16 `c a4*/

/*e^^^ ^^rd rd^c "bc"b16&c16&"b16"a16| "b"a"g"a  r"ac"a  r"ac"a  c16&d16&c16"a16cd |egga ^ga`c raga rage |dd#eg ^ega ^`ca^ ^r a`c |
>eg^g d16&e16&d16c16 dc <|a`ca16r16 g16a16g16e16r g4 |gg16&a16 `ca16r16 `c`c`c g16&a16 `ca `c16a16 `ca4*/

Vib(Dec(e^^^ ^^)rDec(d^) d^c "bc"b16&c16&"b16"a16| "b"a"g"a^ <Dec(a)>c"a^ <Dec(a)>c"a  c16&d16&c16"a16c&d | Sub{Dec(e^^)}rgga ^ga`c ^agg16&a. age |dd#Sub{Dec(e^)}rg ^ega ^`c Vib(a^^) r a`c |

>eSub{e^e}g^g d16&e16&d16c16 dc <|Sub{Dec(a^)}r IF(KS=1){`ca16.r32 g16&a16&g16e8+32r32 g4 |gg16&a16 `ca16r16 `c`c`c g16&a16 `ca `c16a16 `ca4}
                                                IF(KS=2){`cag16&a16&g16e16&ege gg16&a16 `ca`c`c`c  g16&a16 `ca `c16a16 `c a4}
}
#GS
//GUITAR SOLO------------------------------------------------------------------------------
TR 3
#GS
//歌------------------------------------------------------------------------------

TR 6
 r1//M 127

#UTA={
//AMERO------------------------------------------------------------------------------
`c`cbaagaa8.g16errrre`c^`cbaa^e`c^`cbaagaa8.g16errrrrrrrr
`c`c`cbaa^`c#r rrrrrrrrr aaag#^f#ereeef#f#aa`cbaa16b16a^rrrrrr r1
//BMERO------------------------------------------------------------------------------
`c#^^^^b`c#brrrrreeef#f#aa`c#baarrrrrrrr
`c#^^^^`d`c#brrrrreeef#f#aa`c16r8`c16r8a^rrrrrrr
//SABI------------------------------------------------------------------------------
a^^^`e^^^`d^^^`c^^^b^^`c16b16a^rr rrrrraab`c`ca`c raab`c`ca`cr a`c`d`e`dr`d^`e`d^rrrrrrrr
a^^^`e^^^`d^^^`c^^^b^^`c16b16a^rr rrrrraab`c`ca`c raab`c`ca`cr a`c`d`e`dr`d^`e`d^rrrrr`e`d`c
bb`c`c^rrrrrrrga`ca
//Kansou
r1r1r1r1|r1r1r1r1
r1r1r1r1|
//BMERO------------------------------------------------------------------------------
`c#^^^^b`c#brrrrreeef#f#aa`c#baarrrrrrrr
`c#^^^^`d`c#brrrrreeef#f#aa`c16r8`c16r8a^rrrrrrr
//SABI------------------------------------------------------------------------------
a^^^`e^^^`d^^^`c^^^b^^`c16b16a^rr rrrrraab`c`ca`c raab`c`ca`cr a`c`d`e`dr`d^`e`d^rrrrrrrr
a^^^`e^^^`d^^^`c^^^b^^`c16b16a^rr rrrrraab`c`ca`c raab`c`ca`cr a`c`d`e`dr`d^`e`d^rrrrr`e`d`c
bb`c`c^rrrrrrrga`ca}
Sub{#UTA;}>Sub{v-10 #UTA;}>> v-30 #UTA
//------------------------------------------------------------------------------

//ギター伴奏 左ch-----------------------------------------------------------------------------
TR 4 r1
//A
'"ae''"ae''"ag''"ae' r'"ag''"ae''"ae' | r'"ag''"ae'Sub{"a^}g^'"ae'Sub{d16e16a}"a^//A
'"ae''"ae''"ag''"ae' r'"ag''"ae''"ae' | r'"ag''"ae'Sub{"a^}g^'"ae'Sub{d16e16a}"a^

'da''da''dg''da' r'dg''da''da'|r 'dg''da'Sub{d^}a#^'da'^'dg'//D

'"ae''"ae''"ag''"ae' r'"ag''"ae''"ae' |r'"ag''"ae''"ag'^'"ae'^'"ae'//A

'"ee''"ee''"ee''"ee'rrrr|'df#''df#''df#''df#'rrrr//E D

'"ae''"ae''"ag''"ae' r'"ag''"ae''"ae' | r'"ag''"ae''"ag'^'"ae'^^ //A
|
//B1

'"f#c#f#'^^^ ^^^ '"f#"bd#'^'"f#"bd#''"f#"be'r'"f#"be''"f#"bd#'r| 'df#"'^'df#''dg'r'dg''df#'r
Sub{"a^"a^^^^^^} 'ea`c#'^'ea`c#'`d`c#baf# l16 CT('c#"f#''c#"f#') l8 F
'"f#c#f#'^^^ ^^^ '<b`e`g#'^'b`e`g#''b`e`a'r'b`e`a''b`e`g#'r>| 'df#'^'df#''dg'r'dg''df#'r
'df#'^'df#''df#'rrl16 'df#g'rr 'df#g'rr
//C
Z l8 D E 
エーーーーーーー｜エーーエーーエーZ｜ふーーーーーーー｜ふーーふーーーー Z
どーーーーーーー｜どーーどーーどーZ｜いーーーーーーーF t0 ｜ ギ^rギ^rギ^ Z D E
エーーーーーーー｜エーーエーーエーZ｜ふーーーーーーー｜ふーーふーーーー Z
どーーーーーーー｜どーーどーーどーZ｜いーーーーーーーF t0 ｜ ギ^rギ^rギ^ Z D E 
ふーーーーーーー ｜ふーーーーーーー　F 

//KANSOU
l8 v 105 t0
'"aea''"aea''dg''"aea' r'dg''"aea''"aea' | r'dg''"aea'Sub{`c^}g^'"aea'Sub{g16a16`c}d16e16g
'"aea''"aea''dg''"aea' r'dg''"aea''"aea' | r'dg''"aea'Sub{`c^}g^'"aea'Sub{g16a16`c}d16e16g

'da`d''da`d''g`c''da`d' r'g`c''da`d''da`d'|r 'g`c''da`d'Sub{`d#^}a#^'da`d'^'g`c'

'"aea''"aea''dg''"aea' r'dg''"aea''"aea' |r'`e`cg''"aea''`cg'^Sub{a16&a#16&ag}`d16&`d#16&`d`c

'eb`e''eb`e''eb`e''eb`e'rrrr|'da`d''da`d''da`d''da`d'rrrr

'"aea''"aea''dg''"aea' r'dg''"aea''"aea' | r'`e`cg''"aea''`cg'^'"aea'^ l16 CT('c#"f#''c#"f#') l8 F
//B 2
v 100

'"f#c#f#'^^^ ^^^ '"f#"bd#'^'"f#"bd#''"f#"be'r'"f#"be''"f#"bd#'r| 'df#"'^'df#''dg'r'dg''df#'r
Sub{"a^"a^^^^^^} 'ea`c#'^'ea`c#'`d`c#baf# l16 CT('c#"f#''c#"f#') l8 F
'"f#c#f#'^^^ ^^^ '<b`e`g#'^'b`e`g#''b`e`a'r'b`e`a''b`e`g#'r>| 'df#'^'df#''dg'r'dg''df#'r
'df#'^'df#''df#'rrl16 'df#g'rr 'df#g'rr
//C
Z l8 D E 
エーーーーーーー｜エーーエーーエーZ｜ふーーーーーーー｜ふーーふーーーー Z 
どーーーーーーー｜どーーどーーどーZ｜いーーーーーーーF t0 ｜Sub{eg#b`d^`f`g#`b}ギ^rギ^rギ^ Z D E
エーーーーーーー｜エーーエーーエーZ｜ふーーーーーーー｜ふーーふーーーー Z
どーーーーーーー｜どーーどーーどーZ｜いーーーーーーーF t0 ｜Sub{eg#b`d^`f`g#`b}ギ^rギ^rギ^ Z D E 
ふーーーーーーー ｜ふーーーーーーー　F

//ギター伴奏 右ch------------------------------------------------------------------------------
TR 5 r1
//A
'ea''ea''dg''ea' r'dg''ea''ea' | r'dg''ea'Sub{`c^}g^'ea'Sub{g16a16`c}d16e16g
'ea''ea''dg''ea' r'dg''ea''ea' | r'dg''ea'Sub{`c^}g^'ea'Sub{g16a16`c}d16e16g
'a`d''a`d''g`c''a`d' r'g`c''a`d''a`d'|r 'g`c''a`d'Sub{`d#^}a#^'a`d'^'g`c'
'ea''ea''dg''ea' r'dg''ea''ea' |r'`e`cg''ea''`cg'^Sub{a16&a#16&ag}`d16&`d#16&`d`c
'b`e''b`e''b`e''b`e'rrrr|'a`d''a`d''a`d''a`d'rrrr
'ea''ea''dg''ea' r'dg''ea''ea' | r'`e`cg''ea''`cg'^'ea'^l16 CT('c#f#''c#f#') l8 F
|
//B1

'c#f#a'^^^ ^^^ 'f#b`d#'^'f#b`d#''f#b`e'r'f#b`e''f#b`d#'r| 'a`d`f#"'^'a`d`f#"''a`d`g"'r'a`d`g"''a`d`f#"'r
Sub{a^a^^^^^^}'ea`c#'^'ea`c#'`d`c#baf#e
'c#f#a'^^^ ^^^ 'b`e`g#'^'b`e`g#''b`e`a'r'b`e`a''b`e`g#'r| 'a`d`f#"'^'a`d`f#"''a`d`g"'r'a`d`g"''a`d`f#"'r
'a`d`f#"'^'a`d`f#"''a`d`f#"'rrl16 'g`c`e'rr 'g`c`e'rr
//C
l8
'"aa'^^^ ^^^^|'"bb'^^^ 'c`c'^^^| Sub{"f^^^ ^^^ Dec("g ^)"gr"f^"frr}f^^^ ^^^ Dec(g ^)grf ^fer
Sub{d^d^ ^^^Dec(d^)|d^^^^^^}>rrrd^drrrrrd^drr|< Sub{e^e^ ^^^^}>rrre ^err<
 ガ^rガ^rガ^ t0
'"aa'^^^ ^^^^|'"bb'^^^ 'c`c'^^^| Sub{"f^^^ ^^^ Dec("g ^)"gr"f^"frr}f^^^ ^^^ Dec(g ^)grf ^fer
Sub{d^d^ ^^^Dec(d^)|d^^^^^^}>rrrd^drrrrrd^drr|< Sub{e^e^ ^^^^}>rrre ^err<
 ガ^rガ^rガ^ t0>
'cea'^^^ ^^^^ ^^^^ ^^^^　F <

//KANSOU
l8 v 105

r1r1r1r1|r1r1r1r1
r1r1r1r1|
//B 2

'c#f#a'^^^ ^^^ 'f#b`d#'^'f#b`d#''f#b`e'r'f#b`e''f#b`d#'r| 'a`d`f#"'^'a`d`f#"''a`d`g"'r'a`d`g"''a`d`f#"'r
Sub{a^a^^^^^^}'ea`c#'^'ea`c#'`d`c#baf# l16 CT('c#f#''c#f#') l8 F 
'c#f#a'^^^ ^^^ 'b`e`g#'r Dec(b)>eg#aDiv{g#&a&g#}e<| 'a`d`f#"'^'a`d`f#"''a`d`g"'r'a`d`g"''a`d`f#"'r
'a`d`f#"'^'a`d`f#"''a`d`f#"'rrl16'g`c`e'rr 'g`c`e'rr
//C
l8
'"aa'^^^ ^^^^|'"bb'^^^ 'c`c'^^^| Sub{"f^^^ ^^^ Dec("g ^)"gr"f^"frr}f^^^ ^^^ Dec(g ^)grf ^fer       
Sub{d^d^ ^^^Dec(d^)|d^^^^^^}>rrrd^drrrrrd^drr|< Sub{e^e^ ^^^^}>rrre ^err<
 ガ^rガ^rガ^ t0
'"aa'^^^ ^^^^|'"bb'^^^ 'c`c'^^^| Sub{"f^^^ ^^^ Dec("g ^)"gr"f^"frr}f^^^ ^^^ Dec(g ^)grf ^fer
Sub{d^d^ ^^^Dec(d^)|d^^^^^^}>rrrd^drrrrrd^drr|< Sub{e^e^ ^^^^}>rrre ^err<
 ガ^rガ^rガ^ t0>
'cea'^^^ ^^^^ ^^^^ ^^^^　F <

//しゅわーとか------------------------------------------------------------------------------
TR 7
@81  BR(24) 
r1
//A
r1r1r1r1|r1r1r1r1
r1r1r1r1|
//B
r1r1r1r1|r1r1r1r1
//C
r1r1r1r1|r1r1r1r1|
r1r1r1r1|r1r1r1r1|

@127
Sub{p%.W(0,-8000,!1+1)P.WR(0,127,!1)c1+1+1+1}
r1r1
//A
r1r1r1r1|r1r1r1r1
r1r1r1r1|
//B
r1r1r1r1|r1r1r1r1
//C
r1r1r1r1|r1r1r1r1|
r1r1r1r1|r1r1r1r1|
@127
Sub{p%.W(0,-8000,!1+1)P.WR(0,127,!1)c1+1+1+1}
r1r1
//リフ------------------------------------------------------------------------------
 
TR 8

r1
~{ら}={'"aea`c'}//Am
~{へ}={'"fcfa'}//F
~{れ}={'da`d`e'}//Dadd9
~{み}={'"e"beg#b'}//E
~{フ}={'"f#c#f#a`c# '}//F#m
~{シ}={'"bf#b`e'}//Bsus4
~{し}={'"bf#b`d#'}//B
~{ラ}={'"aeac#'}//A
~{ミ}={'"e"beab'}//Esus4
~{レ}={'df#`c`f'}//D#9
//AMERO------------------------------------------------------------------------------
#A={
r1 r1 r1 r1
r1 r1 r1 r1
r1 r1 r1 r1}
//BMERO------------------------------------------------------------------------------
#B={l16
rrrr フ^rフ  フフフr rrし^ |rrしr シ^rr  シ^し^ rrれ^|rrれr れ^rr れ^^r rrラ^|^rラr cc#'ae'^ b^ar `c#^br
rrrr フ^rフ  フフフr rrみ^ |rrみr ミ^rr  ミ^み^ rrれ^|rrれr れ^rr れ^rr rrれ^|^rれr れ^rr　れrレ^ rレ^r}
//SABI------------------------------------------------------------------------------
#S={l8rrらr ららrら rrrr l16deg^ ga`c^ l8 |rrへr へへrへ l16rrdega gedc l8rrr|rrれr れれrd ^`e`da l16`e`dl8a`e`d |rrみr みみrみ Sub{g+^a^a+^b^}r`e^`f#^`g^`g#
    l8rrらr ららrら rrrr l16deg^ ga`c^ l8 |rrへr へへrへ l16rrdega gedc l8rrr|rrれr れれrd ^`e`da l16`e`dl8a`e`d |rrみr みみrみ Sub{g+^a^a+^b^}r`e^`f#^`g^`g#
r1r1
}
#A;
Sub{#B;}Sub{>#B;<}r4v40#B;r-4v127
Sub{#S;}Sub{>#S;<}r8v40#S;r-8v127
[12r1]
Sub{#B;}Sub{>#B;<}r4v40#B;r-4v127
Sub{#S;}Sub{>#S;<}r8v40#S;r-8v127

//リフ2------------------------------------------------------------------------------
 
TR 9
 r1
#A;
Sub{#B;}Sub{>#B;<}r4v40#B;r-4v127
Sub{#S;}Sub{>#S;<}r8v40#S;r-8v127
[12r1]
Sub{#B;}Sub{>#B;<}r4v40#B;r-4v127
Sub{#S;}Sub{>#S;<}r8v40#S;r-8v127