Int TYPE = 0;　//　0は新作　1は旧作
IF(TYPE=0){
TrackName     = {"精霊の歌、森の声"}
Copyright     = {"騎士王321"}
MetaText      = {""}
テンポ 111
拍子   2,4
KeyFlag+(fcg);Include(delay.h);Include(groove.h);Include(unison.h);System.MeasureShift(1);ResetGS;TrackSync;
CuePoint={"TwmParam(120,120,0)"}
CuePoint={"TwmChorus(1,127,60,64,64,48,1)"}
//==================================================================================================
STR RS08 = {[8 r2]}
STR RS16 = {[16 r2]}
//--------------------------------------------------------------------------------------------------
STR HL00 = {[4 "fcfga`c`e`g][4 "ccegb`c`d`e]}
STR HL01 = {[2 [4 "fcfga`c`e`g][4 "ccegb`c`d`e]]}
STR HL02 = {[4 "fcfga`c`e`g][4 "ccegb`c`d`e]"fcfga`c`e`g `b`a`g`a`g`e`d`e `d`ca`cageg fc"f"g"aceg
            c"c"e"gcdeg a`c`d`e`g`a`g`e `d`c`b`a`g`e`d`c be"b"e'"e"b,,,2d,,,4g+,,,6'4}
STR HL03 = {Key(4);
            [2 [3 "fcfga`c`e`g]"acega`c`e`g[4 "ccegb`c`d`e]]Key(0);}
STR HL04 = {Key(4);
            [3 "fcfga`c`e`g]"acega`c`e`g[4 "ccegb`c`d`e]
		[4 "fcfga`c`e`g] [3 "ccegb`c`d`e]'a`a'2 Key(0);}
STR HL05 = {"fcfga`c`f`a t.N(0,12,24,36,48,60,72);'fa`c`f`a``c``e'1}
トラック1
V(127) REV(40) CHO(16) M(0) q229 P(112) o4 l16 @47,0,0 KeyFlag+();r1 v70
HL00 HL01 HL01 HL02 HL03 HL04 HL01 HL01 HL05
//--------------------------------------------------------------------------------------------------
STR HR00 = {[4 agegrr"fc][4 agegrr"bd]}
STR HR01 = {[2 [4 agegrr"fc][4 agegrr"bd]]}
STR HR11 = {[2 [4 agegrr"fc][4 agegrr"bd]]}
STR HR02 = {[4 agegrr"fc][4 agegrr"bd]t.N(0,2,4,6);
            '"fcda'2'"fceg'2'"f"acf'2'"f"ade'2'""c"e"gd'2'"c"e"ac'2'""c""g"e"b'2^4'""e""b"g+d'4 t(0);}
STR HR03 = {Key(4);
            [2 [4 agegrr:"fc]"ac[4 agegrr"bd]]Key(0);}
STR HR04 = {Key(4);
            [2 [4 agegrr:"fc]"ac:[4 agegrr"bd]][2 agegrr"bd]agegra`c`d'cga`e'2Key(0);}
STR HR05 = {edc"a"g"e"d"c t.N(0,12,24,36,48,60,72);'cdfga`c`d'1}
トラック2
V(127) REV(40) CHO(16) M(0) q219 P(16) o5 l16 @47,0,0 KeyFlag+();r1 v70
HR00 HR01 HR01 HR02 HR03 HR04 HR01 HR11 HR05
//--------------------------------------------------------------------------------------------------
STR ME01 = {[2 `e^`e,19g2^16rga`d EP.T(127,127,!8,127,32,!2^4,32,127,!8);`e2^4^8r8]
            EP.T(127,127,!8,127,32,!1^2^4);a1^2^4^8r8 EP.T(127,127,!8,127,32,!1^2^4);e1^2^4^8r8 EP(127)}
STR ME02 = {g^g,19 EP.T(127,127,!8,127,32,!1^4);a1^2^16r EP(127);ga`c 
            d^d,19 EP.T(127,127,!8,127,32,!1^4);e1^2^4^16
		EP.T(127,127,!8,127,32,!1^2^4);`e1^2^4^8r8 EP.T(127,127,!8,127,32,!1^2^4);g1^2^4^8r8 EP(127)}
STR ME12 = {Sub{[12 r2]TempoChange(111,96,!1^1^1^1);}
            d1e1g1a1`d1`e1`g1`a2dega`d`e`g`a}
STR ME03 = {KeyFlag+(fcgd);
            `g^g,19b2^16r`c`d`f EP.T(127,127,!8,127,32,!2^4,32,127,!8);`g2^4^8r8
		EP.T(127,127,!8,127,32,!1^2^4);`d1^2^4^8r8 EP.T(127,127,!8,127,32,!1^2^4);f^f,19g1^2^8^16r8 r1^1KeyFlag+();EP(127);}
STR ME04 = {`b1^2^8}
STR ME14 = {`b1^8}
トラック3
V(100) REV(24) CHO(8) M(8) q99 P(54) o5 @80,0,0 l16 p%(256);KeyFlag+();r1
RS08 ME01 ME02 RS16 ME03 RS16 ME01 ME12 ME04
//--------------------------------------------------------------------------------------------------
トラック4
V(100) REV(24) CHO(8) M(16) q99 P(74) o5 @80,0,0 l16 KeyFlag+();r1
RS08 ME01 ME02 RS16 ME03 RS16 ME01 ME12 ME04
//--------------------------------------------------------------------------------------------------
トラック5
V(64) REV(64) CHO(16) M(12) q99 P(64) o5 @80,0,0 l16 KeyFlag+();r1^2
RS08 ME01 ME02 RS16 ME03 RS16 ME01 ME12 ME14
//--------------------------------------------------------------------------------------------------
STR ST01 = {Sub{[3 EP.T(40,32,!1,32,127,!2^4,127,64,!4);r1^1]EP.T(40,32,!1,32,127,!1);}
            ``d1^1`g1^1'f`e``d'1^1'`c`e`g'1^1}
STR ST02 = {Sub{[3 EP.T(40,32,!1,32,127,!2^4,127,64,!4);r1^1]EP.T(40,32,!1,32,127,!1);}
            'f`c`a'1^1'`c`e`b'1^1'fa``c'1^1'c`e``d'1^1}
STR ST12 = {Sub{[3 EP.T(40,32,!1,32,127,!2^4,127,64,!4);r1^1]EP.T(40,32,!1,32,127,!1);}
            'f`c`a'1^1'`c`e`b'1^1'fa``c'1^1'g+`e``d'1^1}
STR ST03 = {KeyFlag+(fcgd);EP.T(32,127,3072);
		Sub{v80<[4 frrfrrgrfrrcrr"br crrdrrgrfrrcrr"br]>v120}
		[4 frrfrrgrfrrcrr"br crrdrrgrfrrcrr"br]}
STR ST04 = {Sub{v127<[2 brrrrrrrarrrrrgr errfrrbr`er:r`frr`br]r4^8>v120}
            Sub{v80>[4 frrfrrgrfrrcrr"br crrdrrgrfr:rcrr"br]r4^8<v120}
            [4 frrfrrgrfrrcrr"br crrdrrgrfr:rcrr"br]r4^8 KeyFlag+();}
STR ST05 = {Sub{[3 EP.T(40,127,!1);r1^1]}'f`g``e'1^2,101}
トラック6
V(40) REV(80) CHO(0) M(0) q100 P(32) p%(128) o5 @49,90,1 v120 l16 KeyFlag+();r1
RS08 ST01 ST02 RS16 ST03 ST04 ST01 ST02 ST05
//--------------------------------------------------------------------------------------------------
トラック7
V(40) REV(80) CHO(0) M(0) q100 P(96) p%(-128) o5 @49,90,1 v120 l16 KeyFlag+();r1
RS08 ST01 ST02 RS16 ST03 ST04 ST01 ST02 ST05
//--------------------------------------------------------------------------------------------------
STR BA01 = {[2 "f1^2^4"g4c1^2^4"e4]}
STR BA02 = {Sub{"a1^1}RS16}
STR BA03 = {"a1^1e1"e1"a1^4r4 EP.T(40,100,!4^8);``a4^8,,40r8 EP(127);e1^2"e4,20r4}
STR BA04 = {"f1}
トラック8
V(120) REV(1) CHO(1) M.W(10,10,!2,10,64,!1) q98 P(64) o3 @33,0,0 r1 KeyFlag+();v125
RS08 RS16 RS16 BA01 BA02 BA03 BA01 BA01 BA04
//--------------------------------------------------------------------------------------------------
トラック9
V(64) REV(16) CHO(8) M.W(10,10,!2,10,64,!1) q100 P(64) o3 @79,0,0 r1 KeyFlag+();v125
RS08 RS16 RS16 BA01 BA02 BA03 BA01 BA01 BA04
//==================================================================================================
//Solo(1)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。
}
IF(TYPE=1){
TrackName     = {"泉と妖精"}
Copyright     = {"騎士王321"}
MetaText      = {"久しぶりのストトンでいきますよ!!　そして久しぶりの3拍子"}
テンポ 118
拍子   3,4
KeyFlag+(fcgd);
TrackSync;
Include(delay.h);Include(groove.h);Include(unison.h);
System.MeasureShift(1);ResetGS;TrackSync;
Function Tune444(){Int I;For(I=1; I<=16;I ++){CH(I)FineTune(80) DataLSB($03) RPN(127,127,0)} CH 1}
Tune444()
CuePoint={"TwmParam(120,120,0)"}
//==================================================================================================
STR Don   = {y64,127}   //ダンパーオン
STR Dof   = {y64,0}     //ダンパーオフ
STR RS8   = {【8 r2^4】}
//--------------------------------------------------------------------------------------------------
STR H01   = {【2 【2Don ””ラ8,,110”ミ8,,100「ドファ,,,2ソ,,,4シ,,,6‘レ,,,8」Dof ン16】
                 【2Don ”ド8,,110”ソ8,,100「”シ+ミ,,,2ファ,,,4シ,,,6」Dof ン16】】}
STR H02   = {【2Don ””ラ8,,110”ミ8,,100「ドファ,,,2ソ,,,4シ,,,6‘レ,,,8」Dof ン16】
              【2Don ”ド8,,110”ソ8,,100「”シ+ミ,,,2ファ,,,4シ,,,6」Dof ン16】
		  Don ””ラ8,,110”ミ8,,100「ドファ,,,2ソ,,,4シ,,,6‘レ,,,8」Dof ン16
		  Don ””ラ8,,110”ミ8,,100「ドファ,,,2ソ-,,,4シ,,,6‘ド,,,8」Dof ン16
              Don ”レ-8,,110”ラ8,,100「レ-ミ,,,2ファ,,,4‘レ-,,,6」Dof ン16
		  「””レ-2^4”レ-2^4,,,2”ラ2^4,,,4ミ2^4,,,6ファ2^4,,,8‘レ-2^4,,,10」}
STR H03   = {【2Don 「”ド2^4,,110”ソ2^4,,100,2”シ+2^4ミ2^4,,,4ファ2^4,,,6シ2^4,,,8」Dof】””ド1^2}
トラック1
V(90) REV(88) CHO(60) M(0) ゲート101 P(64) 音色(OrchestralHarp) 音量70 音符4^8^16
H01 H01 H01 H01 H01 H01 H01 H03
//--------------------------------------------------------------------------------------------------
STR P01   = {【4 r2^4】EP.T(96,32,!4,32,127,!1^1,127,0,!2^4);「ミシ」^^^}
トラック7
V(127) REV(64) CHO(120) M(20) ゲート101 P(0) 音色(BowedPad) 音符2^4 音量70
P01 RS8 P01 RS8 RS8 RS8 P01
//--------------------------------------------------------------------------------------------------
トラック8
V(127) REV(64) CHO(120) M(20) ゲート101 P(127) 音色(BowedPad) 音符2^4 音量70
P01 RS8 P01 RS8 RS8 RS8 P01
//--------------------------------------------------------------------------------------------------
STR O01   = {MidiDelay({【4 P.T(16,112,!2^4);‘ミシ‘ドソシン P.T(112,16,!2^4);‘ミシ‘ドソシン】},3,!8^16)}
STR O02   = {MidiDelay({【4 P.T(16,112,!2^4);”ミ”ラドファシン P.T(112,16,!2^4);”ミ”ソドファシン】},3,!8^16)}
トラック5
V(117) REV(100) CHO(80) M(0) ゲート29 音階6 音色(OrchestralHarp) 音符8 音量50
RS8 O01 RS8 O01 RS8 RS8 RS8
//--------------------------------------------------------------------------------------------------
トラック6
V(115) REV(100) CHO(80) M(0) ゲート29 音階6 音色(MusicBox) 音符8 音量50
RS8 RS8 O01 RS8 O01 RS8 RS8
//--------------------------------------------------------------------------------------------------
STR M01   = {ン-4ソ4,,60‘ミ‘レシ1ソ,,60ファ,,40‘ド1^4,,60シ4,,60‘ミ‘レシ1ソ‘レ‘レ‘ファ,,60‘レ2,,60‘ミ2,,60ン4}
STR M02   = {ン-4ソ4,,60‘ミ‘レシ1ソ,,60ファ,,40‘ド1^4,,60シ4,,60‘ミ‘レシ1ソ‘ド‘レ4‘ミ4‘ファ4,,60‘ソ4ン4ン4}
STR M03   = {ン-4>【2【2ファミファシファン】ファミファ”シドミファンソン】ラソ24,,60ラ24,,60ソ24,,60ファンファミ}
STR M04   = {ン-4【2【2ファミファシファン】ファミファ”シドミ:ファンソンンン】ファソ,,60ド32,,60レ32,,60ド8^16ンンン}
トラック2
V(127) REV(64) CHO(24) M(0) ゲート229 P(48) 音符8 音色(GrandPiano) 音量70
RS8 RS8 RS8 M01 M02 M03 M04
//--------------------------------------------------------------------------------------------------
トラック3
V(127) REV(80) CHO(48) M(10) ゲート129 P(64) 音符8 音色(ElectricPiano1) 音量70
RS8 RS8 RS8 M01 M02 M03 M04
//--------------------------------------------------------------------------------------------------
トラック4
V(127) REV(64) CHO(24) M(0) ゲート229 P(80) 音符8 音色(GrandPiano) 音量70
RS8 RS8 RS8 M01 M02 M03 M04
//--------------------------------------------------------------------------------------------------
STR S00   = {ンーーーーーシー}
STR S01   = {【2‘レーシー】}
STR S02   = {EP.T(127,32,!1^2);シー}
STR S10   = {ンーーーーー「”シ+ーファー」}
STR S11   = {【2「ファーシー」「”シ+ーファー」】}
STR S12   = {EP.T(127,32,!1^2);「”シ+ーファー」}
STR S20   = {ンーーーーーミー}
STR S21   = {【2ソーミー】}
STR S22   = {EP.T(127,32,!1^2);ミー}
STR S30   = {ンーーーーー”ソー}
STR S31   = {【2ドー”ソー】}
STR S32   = {EP.T(127,32,!1^2);”ソー}
STR S40   = {ンーーーーー「”ドードー」}
STR S41   = {【2「”ラーミー」「”ドードー」】}
STR S42   = {EP.T(127,32,!1^2);「”ドードー」}
トラック11
V(60) REV(80) CHO(60) M(10) ゲート99 P(24) 音符2^4 音色(Strings2)　【40ン2^4】EP.T(60,127,!1^2);【40ン-2^4】
RS8 RS8 RS8 RS8 S00 S01 S01 S02
//--------------------------------------------------------------------------------------------------
トラック12
V(50) REV(80) CHO(60) M(10) ゲート99 P(40) 音符2^4 音色(Strings2)　【40ン2^4】EP.T(60,127,!1^2);【40ン-2^4】
RS8 RS8 RS8 RS8 S10 S11 S11 S12
//--------------------------------------------------------------------------------------------------
トラック13
V(50) REV(80) CHO(60) M(10) ゲート99 P(60) 音符2^4 音色(Strings2)　【40ン2^4】EP.T(60,127,!1^2);【40ン-2^4】
RS8 RS8 RS8 RS8 S20 S21 S21 S22
//--------------------------------------------------------------------------------------------------
トラック14
V(50) REV(80) CHO(60) M(10) ゲート99 P(80) 音符2^4 音色(Strings2)　【40ン2^4】EP.T(60,127,!1^2);【40ン-2^4】
RS8 RS8 RS8 RS8 S30 S31 S31 S32
//--------------------------------------------------------------------------------------------------
トラック15
V(60) REV(80) CHO(60) M(10) ゲート99 P(102) 音符2^4 音色(Strings2) 音階4　【40ン2^4】EP.T(60,127,!1^2);【40ン-2^4】
RS8 RS8 RS8 RS8 S40 S41 S41 S42
//==================================================================================================
//Solo(1)//トラックソロ。複数トラックで指定可能
//Mute(1)//トラックミュート。
}