//_
/*
いつもタイトルに悩みます。
鍵盤と弦はいつも通り良く分かりませんw
*/
//------------------------------------------------------------------------------------------------------------------------------
//_SETTING
TrackName = {"HUMMINGBIRD"};
Copyright = {"CATE"};
System.MeasureShift(3);
System.TimeBase (96);
TimeSignature = 4,4;
System.KeyFlag+();
Include(fadeio.h);
ResetGS;
Function Instrument(n1,n2,n3,n4,n5,n6,n7,n8,n9,nA,nB){TR=n1;LD(0)CH=n2;@=n3;Key=n4;P=n5;CHO=n6;REV=n7;V=(n8);EP=(n9);q=(nA)M=(nB)}
Function PER(_D){Int _TCH=Channel;Int _CH;If(_TCH==10){ _CH=$00; }Else{
         If(_TCH<10){ _CH=_TCH; }Else{_CH=_TCH-1 }} _CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{ $40,(_CH),$15,(_D) },$F7; }
Function PW(pa=127){P.onTime(0,pa,!1,pa,0,!1,0,pa,!1,pa,0,!1,0,pa,!1,pa,0,!1,0,pa,!1,pa,0,!1) }
Function PC(pa=127){P.onTime(0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,
                             0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,0,pa,!2,pa,0,!2,) }
Function US(Str SA){Sub{Key=12SA;Key=0}SA}
Function US2(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}
Function US3(Str SA){Sub{Key=3SA;Key=0}SA}
Function LD(ti){Time(ti:1:0)}

Time(-1:1: 0) Tempo=999;
Time( 1:1: 0) Tempo=130;
//Time( 25:1: 0) Tempo=108;

//_INSTRUMENT SETUP
//          TR, CH, @ ,Key,Pan,Cho,Rev,Vol,Ep ,Var,Mod
Instrument(  1,  1, 81,  0, 64,127,  0,127,127,100,  0) // Melody
Instrument(  2,  2, 81,  0,127,127,  0, 80,127,100,  0) // Chorus
Instrument(  3,  3, 81,  0,  0,110,  0, 80,127,100,  0) // Chorus
Instrument(  4,  4, 85,  0,  0, 57, 20, 70,127,100, 80) // 
Instrument(  5,  5, 35,  0, 64,127,  0,127,127,100,  0) // Bass
Instrument(  6,  6, 49,  0, 64,127,127, 87,127,100,  0) // Strings
Instrument(  7,  7,  2,  0, 64,127,117,127,127,100,  0) // Piano
Instrument(  8,  8, 28,  0,127, 57, 20, 70,127,100, 80) // 
Instrument(  9,  9, 37,  0, 64,127,  0,100,127,100,  0) // 
Instrument( 10, 10, 27,  0, 64,127,  0,127,127,100,  0) LD(-2)PER(1)r8// Drums
Inst...(続く)...