音源初期化
//*memo*  2021.02.07 伴奏とエンディングをいじった
TrackName     = {"[Count the night] by sonny"}       //曲名
Copyright     = {"[Count the night] by sonny"}       //著作権表示

Include(delay.h);
Tempo=081//70 
INT KE=3
Key(KE)
/*code
G     - D/F# - Em - D
C - G/B  - Am    
D/F#  - G    -D/F# -G

Em - D -C
D- C - G/B -
Bb6 - Am7 -AbM7 - D7


*/
Function Vib (Str A={}){M 127 A ;M 0}//ビブラート
Function Dec (Str A={}){Int B=NoteNo(A); r-48 n(B-1),48,,30   A}//フラム(前倒し)
//Function Gld (Str A={}){Int B=NoteNo(A); p%.T(0,-2000,!1) A p%(0)}//グリスダウン
Function MD(STR A={}){A Sub{v-20 r2 A}}

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 INT J=0 INT K=0 ){V(A) v(B) @(C,CC) q(D) o(E) l(F) P(G) M(H) FineTune (64+I) CHO(J) REV(K)}
ペダル　STR E={放す ペダル} 

INT NE=5
//*************** MIXER ***************************************************
//       V  ,v  ,@ ,@2,q  ,o ,l ,P   ,M  ,DET ,CHO ,REV
TR 1 MIX(059,070,72,0 ,099,02,02,000 ,000,000,000,000)   
TR 2 MIX(125,125,NE,0 ,099,05,08,064, 000,000,000,000)  EP.W(127,64,!1) //VOCAL   
TR 3 MIX(113,120,NE,0 ,099,04,08,100, 000,000,000,000)  EP.W(127,64,!1) E//GUITAR
TR 4 MIX(120,090,NE,0 ,190,05,08,020 ,000,002,000,000 ) EP.W(127,64,!1)//vocal2
TR 5 MIX(120,093,NE,0 ,200,04,08,030 ,000,0-2,000,000)  EP.W(127,64,!1)//GU2

TR 6 MIX(085,070,41,0 ,099,05,08,000 ,000,001,000,000)  //Violin1
TR 7 MIX(085,080,41,0 ,099,05,08,127 ,000,000,000,000)  //Violin2  
TR 8 MIX(090,080,42,0 ,099,04,08,080 ,000,000,000,000)  //Viola
TR 9 MIX(090,080,43,0 ,099,04,08,060 ,000,000,000,000)  //Cello

Mute 10


TR 2 
#UTA={
l8  
b4.b>d4f#8g^^^^rrf#d16e16&e^^^^rde16c16&c^^^^r Dec(c)<b

l16 a^^^^^a>Dec(d^^^^^^)<a>Dec(c^^)<b^rrrr a^^^b^g^ ^^ ^^ ^^ ^^ ^r rrl8>Dec(d)c<

b4.b>d4f#8g^^^^^r Dec(f#)d16e16&e^^^^rde16c16&c^^^^r Dec(c)<b

l16 a^^^^^a>d^^^^^^<a>Dec(c^^)<b^rrb^ a^^^b^g^^^^^rrDec(b^)a^^^b^g^^^^^^^^^ rrrrrrrr

l8>Dec(g^)a^f#^ge^^^^rrrrf#^g^e^f#d^^^^rrr
l16dd^^^^^^cc^^^^Dec(g^^^^^^^^^^^^^^^^^)
   dd^^^^^^cc^^^^Dec(a^^^^^^^^^^^)l8<

b`c Dec(`d)g^g`g`f#^`g^^^^^^ >ef#gf#^g^Dec(a^)gd^^^^^<
b`c Dec(`d)g^g`g`f#^`g^^^^^^ >ef#gf#^g^Dec(a^)ag^^^^^
}
#UTA

TR 3 
#BAN={
//AMERO
"gdg^ E "f#a^^E "egb^ E dg^^ E
cg`c^ E "bg^^ E "aebe E'"aa`c'^ E '"a`c' E '"gb' E
"f#d E rd "f#d E rd E '"gg'g E rg E  d^^^ E "gdgb `g^ E  "e E"f# E
//AMERO-2
"gdg^ E "f#a^^E "egb^ E dg^^ E
cg`c^ E "bg^^ E "aebe E'"aa`c'^ E '"a`c' E '"gb' E
"f#d E rd "f#d E rd E '"gg'g E rg E  d^^^ E "gdgb  E  d^^^ E "gdgb`g^^^Slur(1)

//BMERO

'"e`e'g E `f# g  E | '`dd'g E `e^  | cg`c^ 　ceg`c
 '`dd'a`d^ E | 'c`c'g^g   |"bg`d^"bdg`d E |
 
 "b-fg^^fg^E | "aeg^^eg^ E |"a-g^ g"a-g E  |d`c`d^E |'d`d`f#'^^^ E  
 
//SABI
"gd^d' E "b`d'`d^^ E cegeg^c E "b E '"a`c'`c E "a bd E`cd E b "gdgb^^'"g`d' E '"f#`c'E
'"eb'e^b E 'd`d'g`f# E `gc#gbg`e ^^^ E 'db'adbd E '`c`e-'d'`c`e-' E
//"gg`c"g"g"g'"gg`c' E r '"ggb'1 

"gdg`d^^^^ E '"g`c#'eg`c#^^^^ E '"g`c'eg`c^^^^ '"ggb'1
}
#BAN

TR 4 //
#UTA








TR 5 //A

#BAN


TR 10 CH=10 l8 TrackKey(-KE)
音色(AnalogSet)
//_リズムマクロの定義
$b{n36,}//bass drum
$s{n40,}//snare
$h{n42,}//hi-hat
$m{n46,}//hi-hat open
$c{n49,}//Cymbal
$L{n43,}//low-Tom
$M{n47,}//Mid-Tom
$H{n50,}//High-Toml

Rhythm{
{hhhhhhhh|hhhhhhhh|hhhhhhhh|hhhhhhhh|}
 b_s_b_s_|b_s_b_s_|b_s_b_s_|b_s_b_sb|
{chhhhhhh|hhhhhhhh|hhhhhhhh||}
 b_s_b_s_|b_s_b_s_|b_s_b_s_||
 
{chhhhhhh|hhhhhhhh|hhhhhhhh|hhhhhhhh|}
 b_s_b_s_|b_s_b_s_|b_s_b_s_|b_s_b_sb|
{hhhhhhhh|hhhhhhhh|hhhhhhhh|hhhhhhhh|}
 b_s_b_s_|b_s_b_s_|b_s_b_s_|b_s_b_s_|
 
{chhhhhhh|hhhhhhhh|hhhhhhhh|hhhhhhhh|}
 b_s_b_s_|b_s_b_s_|b_s_b_s_|b_s_b_sb|
{hhhhhhhh|hhhhhhhh|hhhhhhhh|hhhhhhhh|}
 b_s_b_s_|b_s_b_s_|b_s_b_s_|b_s_b_s_|
  
 }