音源初期化
                                                  TrackName={"LUNA"};             
                                          Copyright={"作曲・作詞:setunasa "};            

　
                                   INT I=(1) //()内の数値でモードを選択してください 　　(2.11 Track1と2を入れ替えました)
					     
/*************************************************************************************************************************************

                                                   Track 1: LUNA
							 
                                                   Track 2: LUNA (シーケンス)

                                                  (Track 3: LUNA (歌) MP3で)
							
**************************************************************************************************************************************/

                                                  IF (I==2) {Mute 6}

テンポ　105　

STR A={}//元ネタ (切り出し回数は5がベスト？)
STR B={}//リフ楽譜
STR C={}//弦楽譜
STR D={}//装飾音楽譜
STR E={}//アルペジオ楽譜
STR G={}//アルペジオにシンコペーションを与える
INT O=0//リフと装飾音のオクターヴ情報
INT L=0//リフと装飾音のL情報
INT N=0//元ネタから切り出した音符のノート番号。アルペジオと弦に使用。
INT F=0//元ネタから切り出した音符に与える+オクターヴ情報（1または2オクターヴ上、或いは変わらず）
//------------------------------------------------------------------------------
 [5 A=MID({cdefgab},Random(1,8),1)  N=NoteNo(A) L=RandomSelect(8,2,8,1,4,4,8,8) O=RandomSelect(5,6,7)
 F=RandomSelect(0,12,24) G=MID({ ^^},Random(1,4),1)
//------------------------------------------------------------------------------
B=B+A+#STR(L)+{,,,,}+#STR(O)  //リフの楽譜を作成
D=D+A+{-}+#STR(L)+{,,,,}+#STR(O)}　//装飾音の楽譜を作成
C=C+{n(}+(N+F)+{)}　//弦の楽譜を作成
E=E+{n(}+(N+12)+{)}+G　//アルペジオの楽譜を作成
]
//------------------------------------------------------------------------------
INT DL1=48 // (DL1)ティック分のDELAY
INT DLV1=20 //残響1の音量減値
INT DL2=96　// (DL2)ティック分のDELAY
INT DLV2=50　//残響2の音量減値
//------------------------------------------------------------------------------
TR 1 l16 q 209 o5 @2 P 0 //リフ
[50Sub{B;}Sub{t(DL1)v-(DLV1)B;t-(DL1)v+(DLV1)}t(DL2)v-(DLV2)B;t-(DL2)v+(DLV2)];PRINT {"Melody :     "}+(B)
TR 2 l16 q 80 o5 @2 P 0 t-5 V 40 //装飾音
[50D;];PRINT {"Melody Dec : "}+(D)
TR 3 l1+1. q 229 o5 @102 V 50 EP.W(50,127,!16) P(64) //弦
[7C;]; PRINT {"Wave :       "}+(C)
TR 4 l8 q 205 o5 @27  V 60  P(127)　//アルペジオ
[50Sub{E;}Sub{t(DL1)v-(DLV1)E;t-(DL1)v+(DLV1)}t(DL2)v-(DLV2)E;t-(DL2)v+(DLV2)];PRINT {"Alpegio :    "}+(E)
//------------------------------------------------------------------------------
TR 6 l8 q 220 o6 @ 12 V 127 v127 // 歌
[8r1]
[
 ミファーファーミミー^rrッシーラー`ドーーrッッッッッッッッッッッッ
 ミファーレー"シーーrrrッミミーソー:ファーーrrrrrッッッッッッッ
 [r1r1r1r1]]シーーrrrrrッッッ`ドーシー
 
 シー`ド`ドーーrrrrr`ドーシーラソーrrrrラーミーrrッッ`ドシ
 シー`ド`ドーーrrrrrrrラシ`ド`レーーrrr`ミ`ミーrrrrッッッ
//------------------------------------------------------------------------------
/*
　　　　　　　　　　　                                  LUNA   

                                                抱きしめて　ぎゅっと
								
　                                                  涙も　笑顔も

								    
　                                               見つめれば　いつも
								  
                                                 　許せた　全てが

								   
　　　　　　　　　                        　褪せてゆく　記憶（シーン）の中
　　　　　　　　　　                      
							　 　君だけは　消えない　まま

*/
//------------------------------------------------------------------------------

TR 7 l8 @ 34 o2 P 64 q40 V 100 //ベース
[8[8a][8g][8f][8g]]//24s
[16f][8g][4a][4g]//4s
[16f][8g][8e]//4s
TR 8 l8 @29 o3 P 0 V 80 INT m=23 //リズムギター
q.C(!8,m,m,m,m,m,m,m,m, m,m,m,m, m,m,m,50)
#GUITAR={
[8[8'a`e'][8'g`d'][8'f`c'][8'g`d']]//24s
[16'f`c'][8'g`d'][4'a`e'][4'g`d']//4s
[16'f`c'][8'g`d'][8'eb']//4s
}
#GUITAR;
TR 9 l8 @62 o3 P 127 V 80 t2 p% 200 M 20 //リズムギター
q.C(!8,m,m,m,m,m,m,m,m, m,m,m,m, m,m,m,50)
#GUITAR;
TR 11 l1 @ 51 o3 P 64 V 45+20 q 99 t10
[8agfg]

[f]ga2g2
[f]ge
//-------------------------------------------
TR 10 CH 10 BR(3) V 080 
p%(4192)
//_リズムマクロの定義
$b{'n36 | n36,,,30,48'}//bass drum
$s{'n(40)n(37)n(65),?,,70 | n65,,,30,72'}//snare
$h{'n42 | n42,,,40,48'}//hi-hat
$m{n46,}//hi-hat open
$c{n49,}//Cymbal
$L{n43,}//low-Tom
$M{n47,}//Mid-Tom
$H{n50,}//High-Toml

Rhythm{
[24r1]
[8 {hhhh}l8b___ ___bl4]
[16 {hhhh}bsbs]
}
TR 20 CH 10 l8
Rhythm{
[24r1]
[8c1 r1 r1 r1-4.HML]
}