音源初期化
TrackName={"E_no"};             
Copyright={"作曲・作詞:setunasa "};    
//***** 任意のパターンで演奏させる機構を新設しました　23.12.27 *****

 Str    CUSTOM={} //左の{}内に楽譜データをコピペすると、そのデータで演奏します    
				    　　　　　　　　　　　　 //例：　g1,,,,5e2,,,,7d4,,,,7b2,,,,7b2,,,,5　　　　　　
// ****** ピコサクラ非対応 ******
テンポ　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(1+1,1,2,4) 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　//アルペジオの楽譜を作成
]
//------------------------------------------------------------------------------
IF (CUSTOM=={}) {} ELSE {B=CUSTOM D=CUSTOM} //新規カスタム対応　23.12.27
//------------------------------------------------------------------------------
INT DL1=48 // (DL1)ティック分のDELAY
INT DLV1=20 //残響1の音量減値
INT DL2=96　// (DL2)ティック分のDELAY
INT DLV2=50　//残響2の音量減値
//------------------------------------------------------------------------------
BR(48)
TR 1 l16 q 209 o5 @102 P 84  EP.W(50,100,!16) v 107 //リフ　ディレイ成分
[40Sub{B;}Sub{t(DL1)v-(DLV1)B;t-(DL1)v+(DLV1)}t(DL2)v-(DLV2)B;t-(DL2)v+(DLV2)];PRINT {"Notes:"}+(B)

TR 2 l16 q 209 o5 @102 P 0 t-5 v 107 EP.W(50,100,!16)//リフ こちらがメイン
[40D;];PRINT {"Notes:"}+(D)

TR 3 INT GN=(27) l8 q 99 o4 @(GN) V 50  P(44) INT PA=5 #G0={r1r1r1r1} //ギター
#G1={t.N(1*PA,2*PA,3*PA,4*PA,5*PA,6*PA) '"gceg`c`e'1+1r1r1}
#G2={t.N(1*PA,2*PA,3*PA,4*PA) '"gceg'1+1 | '"adfg'1+1 | '"begg'1+1 | 'cfag'1+1 }
#G3={t.N(1*PA,2*PA,3*PA,4*PA,5*PA,6*PA) '"fcea`c`e'1+1r1r1}

 #G0 #G0 //INTRO
 #G0 #G1
 #G0 #G1
 
 #G0 #G0 //U1
 #G1 #G0
 #G0 #G0  //U2
 #G3 #G3 //SABI

 #G0 #G0 
 [4 #G3 #G1]
 

TR 4 l8 q 99 o4 @(GN) V 40  P(127)  INT AA=4 p%.WE(0,-4800,!(AA),-4800,0,!(AA)) 
//ギター2 ピッチダウンアームエフェクト
 #G0 #G0 //INTRO
 #G0 #G1
 #G0 #G0
 
 #G0 #G0 //U1
 #G0 #G0
 #G0 #G0 //U2
 #G3 #G0 //SABI
 
#G0 #G0
[4 #G0 #G0]

//------------------------------------------------------------------------------
TR 6 l8 q 220 o6 @ 1 V 127 v 127 EP.W(60,127,!16) INT AB=8 P.WR(127,0,!(AB),0,127,!(AB)) // 歌
[6 #G0]
[
 ミファーファーミミー^rrッシーラー`ドーーrッッッッッッッッッッッッ
 ミファーレー"シーーrrrッミミーソー:ファーーrrrrrッッッッッッッ
 [r1r1r1r1]]シーーrrrrrッッッ`ドーシー
 
 シー`ド`ドーーrrrrr`ドーシーラソーrrrrラーミーrrッッ`ドシ
 シー`ド`ドーーrrrrrrrラシ`ド`レーーrrr`ミ`ミーrrrrッッッ
//------------------------------------------------------------------------------
/*
　　　　　　　　　　　                                  LUNA   

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

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

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

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

TR 7 l8 @ 82 o3 P 64 q 99 V 80 //ベース
#B1={c1&c1&c1&c1} #B2={"f1&"f1 c1&c1} #B3={"f1&"f1&"f1&"f1}

#G0 #G0 //INTRO
#G0 #G0
#B1 #B1

#B1 #B1 //U1
#B1 #B1
#B1 #B1 //U2

#B2 #B2 //sabi

#B1 #B1 

[4#B3 #B1]

//-------------------------------------------
TR 10 CH 10 BR(3) V 070 
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{#G0 #G0 

[22 {hhhh hhhh hhhh hhhh}
     bsbs bsbs bsbs bsbs]
}
TR 20 CH 10 l8 
Rhythm{#G0 #G0 

[22c1 r1 r1 r1-4.HML]
}

//影響を受けてるもの；　Brian Eno "2/2", My Bloody Valentine, YMOとか あとはメロがJohn Lennon ぽくて気に入ってる