//_初期設定

TrackName     = {"蛇口"}//曲名を書き込みます
Copyright     = {"騎士王321"}//作者の名前を書き込みます
MetaText      = {"ひよこが水浴びをするような曲です"}//ひとことコーナーです

テンポ 192;
拍子   3,4;//DTMにおいて拍子は気休め以下です。
TimeBase = 96;//四分音符のステップ数の設定です。tの指定とかをする人には重要です。

TrackSync;

Include(gs.h);//XG音源でない人はこれを絶対に書き込んでおきましょう
Include(delay.h);Include(groove.h);Include(unison.h);//これくらいあればだいたい事足ります。
//あとはお好みでギターとかコードとかのインクルードファイルでも
System.MeasureShift(1);ResetGS;

TrackSync;

//リズムトラックの拡張です。それぞれの行の『//』を外すことによって有効になります。
//CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7;//トラック11
//CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7;//トラック12
//CH(13) SysEx$ = f0,41,10,42,12,{40,1c,15,02},f7;//トラック13
//CH(14) SysEx$ = f0,41,10,42,12,{40,1d,15,02},f7;//トラック14

//音の基準の高さを決めるチューニング(0~127)です。どれかひとつを有効にしておきましょう
//GSScaleTuning(3,3,3,3,3,3,3,3,3,3,3,3);//424Hz
GSScaleTuning(25,25,25,25,25,25,25,25,25,25,25,25);//430Hz
//GSScaleTuning(64,64,64,64,64,64,64,64,64,64,64,64);//440Hz
//GSScaleTuning(74,74,74,74,74,74,74,74,74,74,74,74);//442Hz
//GSScaleTuning(80,80,80,80,80,80,80,80,80,80,80,80);//443Hz

//知る人ぞ知るTW-Music2のパラメータ設定。リバーブとコーラスを扱います
//ReverbSetting    Time Dpth High
CuePoint={"TwmParam( 40,125, 60)"}//リバーブ。各値は上記を参照
CuePoint={"TwmChorus(  0,127, 16, 25, 32, 40, 1)"}

//Slur(1);//スラーの種類を指定します

//==================================================================================================

//_作曲時に役立つツールたち

//PlayFrom(1:0:0);//途中から演奏するときにつかいます
//Solo();//『,』で複数トラック指定可
//Mute();//『,』で複数トラック指定可

STR KeyP = {KeyFlag+(fcgd);Key(0);}//各トラックの頭に書き込んでおくと転調するタイプの曲で便利です
STR KEEP = {}//なにもしない
STR RS08 = {r%2304}//8小節休み
STR RS16 = {r%4608}//16小節休み

//==================================================================================================

/*_演奏情報

TR1		アメリカンホームダイレクト
TR2		鉄琴
TR3		ベース(コントラバスのような音を再現)
TR4		普通にオルガン
TR5と6	ギターとギター
TR7と8	ワワワワワワワ
TR9		空席
TR10		オーケストラシンバル(10円玉でこするような音を再現)
TR11〜16	ひよコーラス

==================================================================================================*/

STR CA01 = {[16 'cf'r'b`e',191'dg',290,,-4'b`e',192e,11,20]}
STR CA02 = {[2 r2^4]EP.T(127,8,4000);[14 'cf'r'b`e',191'dg',290,,-4'b`e',192e,11,20]}
STR CA03 = {r-2^4EP(127);[17 'cf'r'b`e',191'dg',290,,-4'b`e',192e,11,20]}

TR(1);KeyP;
@109,0,0;
V(127);EP(127);P(64);M(0);p%(0);
REV(60);CHO(20);
o5;l8;q91;v40;t2;r1

CA01 CA01 CA01 CA01 CA01 CA01 CA01 CA01 CA01 CA02 RS16 CA03 CA01 CA01 CA01 CA01 CA01 CA01



STR MA01 = {r`f`f`f`f4[6 r2^4][4 `f]`f4[4 r2^4]b1^2[2 r2^4]}

TR(2);KeyP;
@13,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(100);CHO(80);
o6;l8;q59;v120;t-2;r1

MA01 MA01 RS16 RS16 MA01 MA01 RS16 RS16 RS16 MA01 MA01 RS16 MA01 MA01 RS16 RS16 MA01 MA01



STR BA01 = {[2 "a%2304&]}
STR BA02 = {"e%2304,100&"a%2304&}
STR BA04 = {"b%2304,100&"a%2304&}
STR BA03 = {[2 "e%2304&]}
STR BA05 = {"b%2304,100&"e%2304&}
STR BA06 = {"g-%2304,100&"a%2304&}
STR BA07 = {"a%2304&"b%2304&}
STR BA08 = {c%4608&}
STR BA09 = {"f^^^^^^^^&"g^^^^&"f&"f-&}
STR BA10 = {"e^r"b&"er"e^r"e^&"b&"err"e&}
STR BA11 = {"e%2304,100&"a%2304}
STR BA12 = {"f^^^^^^&"g^^^^^^&"a^&}

TR(3);KeyP;
@64,8,0;
V(80);EP(127);P(64);M(100);BR(12);p%(0);
REV(20);CHO(127);
o3;l2^4;q99;v125;t0;r1

BA01 BA02 BA03 BA05 BA01 BA04 BA03 BA06 BA01 BA01 BA07 BA08 BA09 BA10 BA12 BA01 BA03 BA11



STR OR01 = {e^^"b^^^^e^^^^^fg}

TR(4);KeyP;
@19,110,0;
V(30);EP(127);P(64);M(40);p%(0);
REV(40);CHO(120);
o6;l2^4;q99;v120;t0;r1

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 OR01 OR01 OR01 OR01 OR01 OR01 RS16 RS16 RS16 RS16



STR GT01 = {MidiDelay({[2 '"e"g,,,2"b,,,4'8r4^8[2 r2^4]
			        '"gc,,,2e,,,4'8r4^8[2 r2^4]r2
				  '"bd,,,3f,,,6'8r2^8r2^4]},3,!4);}
STR GT02 = {MidiDelay({'"e"g,,,2"b,,,4'8r2^8[15 r2^4]},3,!4);}

TR(5);KeyP;
@25,32,0;
V(60);EP(127);P(32);M(10);p%(0);
REV(0);CHO(0);
o6;l8;q99;v120;t0;r1

RS16 RS16 GT01 GT01 GT02 RS16 GT01 GT01 GT02 RS16 GT01 GT02 RS16 GT01 GT01 GT02 RS16 RS16



TR(6);KeyP;
@25,32,0;
V(40);EP(127);P(96);M(0);p%(0);
REV(120);CHO(90);
o5;l8;q99;v120;t0;r1

RS16 RS16 GT01 GT01 GT02 RS16 GT01 GT01 GT02 RS16 GT01 GT02 RS16 GT01 GT01 GT02 RS16 RS16



STR XS00 = {'""a"ecgb'%4608}
STR XS01 = {V.T(0,30,9216+4608);'""a"ecgb'%4608}
STR XS02 = {V.T(0,30,4608,30,0,4608);'""a"ecgb'%4608}
STR XS03 = {V.T(30,0,4608);'""a"ecgb'%4608}

TR(7);KeyP;
@55,110,8;
V(30);EP.WR(127,127,!16,32,0,!16,0,32,!8);P(0);M(0);p%(128);
REV(8);CHO(40);
o4;l2^4;q100;v120;t0;r1

XS02 XS00 XS00 XS00 XS02 XS00 XS00 XS00 XS01 XS00 XS00 XS00 XS00 XS03 XS00 XS02 XS00 XS02



TR(8);KeyP;
@55,110,8;
V(30);EP.WR(0,32,!8,127,127,!16,32,0,!16);P(127);M(0);p%(-128);
REV(8);CHO(40);
o4;l2^4;q100;v120;t0;r1

XS02 XS00 XS00 XS00 XS02 XS00 XS00 XS00 XS01 XS00 XS00 XS00 XS00 XS03 XS00 XS02 XS00 XS02



STR CC01 = {Sub{EP.T(0,120,!8);'`c+`a'}r%4608}
STR CC02 = {Sub{EP.T(0,60,!8);'`c+`a'}r%4608}

TR(10);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@26,0,0;
V(120);EP(127);P(64);BR(12);p%(6000);
REV(127);CHO(0);
o3;l16;q9;v120;t0;r1

CC01 RS16 RS16 RS16 RS16 RS16 CC02 RS16 RS16 CC02 RS16 RS16 RS16 CC01 RS16 RS16 RS16 RS16



STR PIYO = {Sub{[16 P(Random(0,127))r2^4]}
		Sub{[16 p%(Random(0,127))r2^4]}
		Sub{[16 EP(Random(0,127))r2^4]}
		Sub{[16 t(Random(-32,32))r2^4]}
		[16 g2^4]}

TR(11);KeyP;
@124,3,0;
V(120);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;r1

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



TR(12);KeyP;
@124,3,0;
V(120);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;r1^4

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



TR(13);KeyP;
@124,3,0;
V(120);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1^2

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



TR(14);KeyP;
@124,3,0;
V(60);EP(127);P(64);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1^8

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



TR(15);KeyP;
@124,3,0;
V(60);EP(127);P(64);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1^4^8

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



TR(16);KeyP;
@124,3,0;
V(60);EP(127);P(64);M(0);BR(2);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1^2^8

RS16 RS16 RS16 RS16 RS16 RS16 RS16 RS16 PIYO PIYO PIYO RS16 RS16 RS16 RS16 RS16 RS16 RS16



//↓仕切り線です。ご自由にお使いください
//==================================================================================================
//--------------------------------------------------------------------------------------------------