//_初期設定
TrackName = {"Progressive -2013-"}//曲名を書き込みます
Copyright = {"騎士王321"}//作者の名前を書き込みます
MetaText = {"今年って2013年だよね。。。"}//ひとことコーナーです
テンポ 127;
拍子 4,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
//BR(2);においてp%(512);はだいたい442Hz
//知る人ぞ知るTW-Music2のパラメータ設定。リバーブとコーラスを扱います
//ReverbSetting Time Dpth High
CuePoint={"TwmParam( 48,125, 40)"}//リバーブ。各値は上記を参照
//ChorusSetting Wave Mix Dpth FB Freq Dly Phs
CuePoint={"TwmChorus( 1,127, 40, 80,127, 2, 1)"}
/*
パワーコーラス (三番目の値〔Dpth〕を動かすと少しずつ変化します)
クラブトラック向け。深いリバーブに合う。ディチューンや音の割れ具合がカッコイイ
基本的に高域が強調された音色に合うのでクラブ方面でなくてもいける。
*/
//CuePoint={"TwmChorus( 0,127, 16, 88,127, 48, 1)"}
/*
ポリコーラス
パワーコーラスが原音を強化するタイプに対し、こちらはディチューンを強くかける。
最大までかけると@39とかが別の音色みたいになる。ほんと、パワーコーラスといい勝負。
*/
//CuePoint={"TwmChorus( 0,127, 16, 25, 32, 40, 1)"}
/*
ジャズコーラス(アンプの名前ではない)
エレガントなコーラス
あんまりこだわりのないときにコンプレッサと一緒にちょっと通すと音がまとまるくん
V.W(100,120,!8);//みたいにアタックの強い音は出だしの音を小さくする//Compresser
*/
//CuePoint={"TwmChorus( 1,127, 0, 64, 8, 64, 1)"}
/*
ピアノ用コーラス (三番目の値〔Dpth〕は0固定)
名前そのまま。ピアノソロの曲とかにどうぞ。少しは「らしく」なります。
ほかのトラックに使ってもあんまり意味のない特化型コーラス
*/
//CuePoint={"TwmChorus( 1,127, 30, 60, 1, 50, 0)"}
/*
高い天井コーラス (故 梅本先生の作品『高い天井』で使われていた設定です)
ロングトーンやハイハットの音色とかに良く効く設定です。
以下、本人によるメモです。
ゆらぎの周期を最も遅くし、フランジャー設定
ディレイを長めにとって、擬似ステレオに
*/
//CuePoint={"TwmChorus( 1,127, 40, 16, 16, 24, 1)"}
/*
ステレオ&エンハンサー
微妙にリバーブがかかったみたいにこもって聞こえる。
低音はかなり高域強調。音色によっては和音で音割れ(というか音域をつぶしあうことも)
*/
//CuePoint={"TwmChorus( 1,127,120, 64, 88,120, 1)"}
/*
メジャーキーコーラス(不思議ちゃん)
なぜか和音が出来ちゃう!! (正確にはトレモロ)
面白トラックを作るときとか。そういうときは真面目なトラックはコーラスなしで我慢(ディチューンがあるよ)
p%(250);//複数トラックを使い、それぞれのトラックのピッチベンドを微妙にずらすこと//Detune
*/
//Slur(1);//スラーの種類を指定します
//==================================================================================================
//_作曲時に役立つツールたち
//PlayFrom(1:0:0);//途中から演奏するときにつかいます
//Solo();//『,』で複数トラック指定可
//Mute();//『,』で複数トラック指定可
STR KeyP = {KeyFlag+(fc);Key(0);}//各トラックの頭に書き込んでおくと転調するタイプの曲で便利です
STR KEEP = {}//なにもしない
STR RS08 = {r%3072}//8小節休み
STR RS16 = {r%6144}//16小節休み
//通常トラック用
/*
TR(1);KeyP;
@1,0,0;
V(120);EP(127);P(64);M(0);p%(0);
REV(0);CHO(0);
o5;l4;q99;v120;t0;r1//予動。プレカウントとも
*/
//リズムトラック用
/*
TR(10);KeyFlag+();Key(0);//ドラムトラックはいつでも同じキーにしておきましょう
@1,0,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(0);CHO(0);
o3;l16;q9;v120;t0;r1//予動はとりあえず1小節にしてます。4拍子が多いから
*/
//↓仕切り線です。ご自由にお使いください
//==================================================================================================
//--------------------------------------------------------------------------------------------------
/*演奏情報
TR1 ベース
TR2 ベース
TR3 シンセパッド
TR4 シンセパッド
TR5 ピアノ
TR6 キーボード
TR7 ギター（リード）
TR8 ギター（カッティング）
TR9 パーカスループ
TR10 バスドラム
TR11 スネアドラム
TR12 ハイハット
TR13 シンバル（クラッシュ・ライド）
TR14 タム
TR15 シーケンサ
TR16 シーケンサ
--------------------------------------------------------------------------------------------------*/
STR BA01 = {[2 [3 p%.T(0,0,!8,0,-8191,!2^4);"b2^4^8r p%(0);]:d4"g4c4f4]"a1^2r2}//第一主題を用いた序奏
STR BA02 = {"cc"c,19[2 `c16][2 "cr16]r|""b"b""b,19[2 b16]d+r16`d+r16"d+
""b+"b+""b+,19[2 b+16][2 ""b+r16]r|""b-"b-""b-,19[2 b-16][2 ""b-r16]r
""b"b""b,19[2 b16][2 ""br16]r|""b"b""b,19[2 b16]d+r16`d+r16"d+
""b+"b+""b+,19[2 b+16][2 "b+r16]r|c[2 c16,19]f[2 f16,19]b12"b12b12"b+12b+12"b+12}//序奏（推移部）
STR BA03 = {KeyFlag+(fcgda);l16[2
c^^g^^rr|f^^`c^^rr|"b^^f^^rr|e^^b^^rr|"a^^e+^^rr|d^^a^^rr:g^^`d^^d^|"g^^"b+^^rr]l8
"gd"b"g KeyFlag+(fc);c-^d^}//提示部第二主題
STR BA13 = {KeyFlag+(fcgd);l16[2
f^^`c^^rr|b^^`f^^rr|e^^b^^rr|a^^`e^^rr|d^^a^^rr|"g^^d^^rr:c^^g^^rr|c^^e+^^rr]l8
c`c"bb"aa"gg KeyFlag+(fc);}//再現部第二主題
STR BA04 = {"g8^16r16[2 "gg][2 "aa][4 "bb]|[2 "gg][2 "aa][2 "bb]d[3 `d24]d16`d16d16,19`d16
"gg"gb"aa"a`c"bb"b`e"b`d+"bf|[2 "gg][2 "aa][3 "bb]"b^}//提示部第一主題
STR BA14 = {[2 "gg][2 "aa][4 "bb]"b"a|[2 "gg][2 "aa][2 "bb]d[3 `d24]d16`d16d16,19`d16
"gg"gb"aa"a`c"bb"b`e"b`d+"bf|[2 "gg][2 "aa][4 "bb]}//再現部第一主題
STR BA05 = {[3 p%.T(0,0,!8,0,-8191,!2^4);"b2^4^8r p%(0);]
p%.T(0,0,!8,0,-4191,!4);"b2 p%(0);"e2}//推移部
STR BA15 = {KeyFlag+(fc);
[3 p%.T(0,0,!8,0,-8191,!2^4);"b2^4^8r p%(0);]
l4"bd"bde+de+g+e+g l8 g+r"g+1^2^4}//コーダ（最終カデンツ）
STR BA06 = {l8^16[2 [2 [4 da]:d8e8]d8c16`c16]
[2 "bd"be"bd"be"b8f8]
[2 [4 da]:d8e8]d8c16`c16 l8}//展開部A（7拍子）
STR BA16 = {[3 "bf:d]Key(3);[3 "bf:d]Key(6);[3 "bf:d]Key(9);"bfd"bd"b"f""b Key(0);
"a4^8[3 "a24,19]"a16""a16,19a16"a16""a24,19"a24,19a24[2 "a16]
[5 "a12]"b-12 p%.T(0,-8191,!2);"a2 p%(0);}//展開部A（4拍子）
STR BA07 = {[2 [3 errrrdr16d8^16]"gr16"gr16"ar16"ar16"b^]
[2 e"e16,19`e16rrrdr16d8^16[2 errrrdr16d8^16]:"gr16"gr16"ar16"ar16"b^]
Key(1);gr16gr16ar16ar16b^}//展開部B（ホ長調）
STR BA17 = {l16[4 [2 e^^d^^e^"e,19:"g^"g"a^"bd]aa+agage]Key(0);l8}//展開部B（ヘ長調）
STR BA24 = {KeyFlag+(fcgd);
p%.T(0,0,!16,0,-8191,!4^16);a^^b^bbb+|p%.T(-8191,-8191,!8,-8191,0,!4);`c^^`c^`c`c^
p%.T(0,0,!16,0,-8191,!4^16);a^^b^bbb+|`cr16`cr16 p%.T(-8191,-8191,!4,-8191,0,!8);e2^8
p%.T(0,0,!16,0,-8191,!4^16);a^^b^bbb+|p%.T(-8191,-8191,!8,-8191,0,!4);`c^^`c^`c`c^
p%.T(0,0,!16,0,-8191,!4^16);a^^b^bbb+|[2 `cc16,19`c16]l16 c,19``ccc,19``cc,19 l8 p%(0);c+}//コーダ（イ音から）
STR BA34 = {KeyFlag-(be);
p%.T(0,0,!16,0,-8191,!4^16);e^^f^ffb^|p%(0);b"bb[2 "a-a-]
p%.T(0,0,!16,0,-8191,!4^16);e^^f^ffg^|p%(0);g"gg[2 "a-a-]
p%.T(0,0,!16,0,-8191,!4^16);e^^f^ffb^|p%(0);b"bb[2 "a-a-]
p%.T(0,0,!16,0,-8191,!4^16);e^^f^ffb^|p%(0);b"bbc`cd-`d-}//コーダ（変ホ音から）
STR BA44 = {KeyFlag-(beadgc);
p%.T(0,0,!16,0,-8191,!4^16);g^^a^aa`d^|p%(0);`dd`d[2 c`c]
p%.T(0,0,!16,0,-8191,!4^16);g^^a^aab^|p%(0);b"bb[2 c`c]
p%.T(0,0,!16,0,-8191,!4^16);g^^a^aa`d^|p%(0);`dd"g+^g+g+ p%(8191);g+
p%.T(0,0,!16,0,-8191,!4^16);g^^a^aa p%(0);a|br16br16"b16r16[2 "br16:"b16]b16}//コーダ（変ト音から）
TR(1);KeyP;
@82,1,0;
V(120);EP(127);P(68);M(0);p%(0);BR(12);
REV(60);CHO(60);
o3;l8;q99;v120;t0;r1
BA01 BA02 BA03 BA04 BA05 BA06 BA16 BA07 BA17 BA13 BA14 BA24 BA34 BA44 BA24 BA34 BA44 BA15
//--------------------------------------------------------------------------------------------------
TR(2);KeyP;
@39,1,0;
V(120);EP(127);P(60);M(0);p%(0);BR(12);
REV(1);CHO(120);
o3;l8;q99;v120;t0;r1
BA01 BA02 BA03 BA04 BA05 BA06 BA16 BA07 BA17 BA13 BA14 BA24 BA34 BA44 BA24 BA34 BA44 BA15
//--------------------------------------------------------------------------------------------------
STR XS01 = {Sub{[2 ""b1^1^1:"d4""g4"c4""f4]""a^^r}
[2 [3 Lyric{"Bm7"}'dfa' Lyric{"E(on B)"}'eg+b']:
Lyric{"D7"}'dfa`c-'4 Lyric{"G7"}'df-gb'4 Lyric{"C#7"}'ce+g+b'4 Lyric{"F#7"}'cefa+'4]
Lyric{"Adim"}'c-d+fa`c-'^^r}
STR XS02 = {Sub{Lyric{"C#"}"c^ Lyric{"B"}""b Lyric{"Eb"}"d+
Lyric{"C"}"c-^ Lyric{"C7(on Bb)"}""b-^
Lyric{"B"}""b^^ Lyric{"Eb"}"d+
Lyric{"C"}"c-^ Lyric{"C#m7"}"c4 Lyric{"F#7"}""f4 Lyric{"B7"}""b4 Lyric{"Cdim"}"c-4}
'"g+ce+g+'^'"f"bd+g+''"g"a+d+g''"gc-eg'^^^
'"f"bd+f'^^'"g"a+d+g'Sub{gb-}'"gc-e'^'"g+ceb'4'"fcea+'4'"f"bd+a'4'"fc-d+a'4}
STR XS03 = {Sub{<[2 cf"be|"a+d+"g+c-]>}
[2 Lyric{"C#m7"}'eg+b' Lyric{"F#7"}'efa+'
Lyric{"BM7"}'d+fa+' Lyric{"EM7"}'d+eg+'
Lyric{"Bb7"}'df-a-' Lyric{"Eb7"}'"a+cg'
Lyric{"Abm7"}'"bd+f':Lyric{"Ab7(on C)"}'"g+d+f']
Lyric{"D7"}'"ac-df'}
STR XS13 = {Sub{<f"be"a|d+g+c"e+|"f"be"a|d+g+c4"b4"a4"g+4>}
[2 Lyric{"F#m7"}'"ace' Lyric{"B7"}'"a"bd+'
Lyric{"EM7"}'"g+"bd+' Lyric{"AM7"}'"acg+'
Lyric{"Ebm7(-5)"}'"acf' Lyric{"Abm7"}'c-d+f':
Lyric{"C#m7"}'"beg+' Lyric{"C#7(on F)"}'"be+g+']
Lyric{"C#7"}'"g+"bce+'4 Lyric{"B"}'"f"bd+f'4 Lyric{"AM7"}'"aceg'4 Lyric{"Ab7"}'"g+c-dfg+'4}
STR XS04 = {Lyric{"G"}'""g"g"bdg'4
Sub{<[2 Lyric{"GM7"}"g Lyric{"A6"}"a
Lyric{"Bsus4(add9)"}"b^ r-2 Lyric{"B"}r2
Lyric{"GM7"}"g Lyric{"A6"}"a:
Lyric{"B"}"b Lyric{"D7"}"d]
Lyric{"B"}"b^>}
Sub{f%3072}Sub{"b^^^^^^}'"gd''ce'^'"fd+'|'"gd''ce''"fd+''"ac-d'
Sub{"b^^^^^^^}'"gd''ce'^'"fd+'|'"gd''ce''"fd+'^}
STR XS14 = {Sub{<Lyric{"GM7"}"g Lyric{"A6"}"a
Lyric{"Bsus4(add9)"}r2 Lyric{"B"}r-2 "b1^4
Lyric{"GM7"}"g Lyric{"A6"}"a
Lyric{"B"}"b Lyric{"D7"}"d
Lyric{"GM7"}"g Lyric{"A6"}"a
Lyric{"Bsus4(add9)"}"b^ r-2 Lyric{"B"}r2
Lyric{"GM7"}"g Lyric{"A6"}"a
Lyric{"B"}"b^>}
Sub{f%3072+96}Sub{"b1^1^1^2^4}'"gd''ce'^'"fd+'2^4|'"gd''ce''"fd+''"ac-d'
Sub{"b^^^^^^^}'"gd''ce'^'"fd+'|'"gd''ce''"fd+'^}
STR XS05 = {Sub{<"b1^1^1^2"e2>}
[4 Lyric{"Bm7"}'dfa' Lyric{"E(on B)"}'eg+b']}
STR XS15 = {KeyFlag+(fc);
Sub{<"b1^1^1^2^4d2^4f-^"g+1^1>}
[3 Lyric{"Bm7"}'dfa' Lyric{"E(on B)"}'eg+b']
Lyric{"Bm7"}'df"a'Lyric{"E(on B)"}'e"g+"b'4
Lyric{"Dm7(-5)"}'e+"g+"b+' Lyric{"Gm(on D)"}'"g"a+d'4
Lyric{"Fm7"}'"g+"b+d+' Lyric{"Bb(on F)"}'"a+de+'
Lyric{"AbM7"}'"b+d+g'1^1}
STR XS06 = {Sub{<d^^^^^^^^^^^^^|"b^^^^^^|d^^^^^^>}
[4 [2 Lyric{"Am(on D)"}'"ac-e' Lyric{"Bm(on D)"}'"bdf'4]Lyric{"C#m(on D)"}'ceg+'4]
[2 [2 Lyric{"Bm7"}'"d"f"a' Lyric{"E(on B)"}'"e"g+"b'4]Lyric{"F#m(on B)"}'"f"ac'4]
[2 [2 Lyric{"Am(on D)"}'"ac-e' Lyric{"Bm(on D)"}'"bdf'4]Lyric{"C#m(on D)"}'ceg+'4]}
STR XS16 = {Sub{<"b^"d^"e+^"g+^"a^^^>}
Lyric{"Bm7"}'"d"f"a' Lyric{"E(on B)"}'"e"g+"b'4 Lyric{"F#m(on B)"}'"f"ac'4
Lyric{"Dm7"}'"f-"ac-' Lyric{"G(on D)"}'"g"bd'4 Lyric{"Am(on D)"}'"ac-e'4
Lyric{"Fm7"}'"g+"b+d+' Lyric{"Bb(on F)"}'"a+c+e+'4 Lyric{"Cm(on F)"}'"b+d+f+'4
Lyric{"Abm7"}'"bd+f' Lyric{"Db(on Ab)"}'ce+g+'4 Lyric{"Ebm(on Ab)"}'d+fa+'4
Lyric{"Adim"}'c-d+fa'^^^}
STR XS07 = {Sub{<[4 [3 "e2^4"d4]:"g"a4"b4]Key(1);"g"a4"b4 Key(0);>}
[4 [3 Lyric{"E"}'"g+"be'2^4 Lyric{"D"}'"f"ad'4]:
Lyric{"G"}'dgb' Lyric{"A"}'cea'4 Lyric{"B"}'"bd+f'4]
Key(1);Lyric{"Ab"}'"bdg' Lyric{"Bb"}'cea'4 Lyric{"C"}'d+fb'4 Key(0);}
STR XS17 = {Lyric{"F7(and Ab and Bb)"}'""f-"f-"ac-f-'%3072}
STR XS24 = {KeyFlag+(fcgd);
Sub{<[2 Lyric{"AM7"}"a Lyric{"B6"}"b Lyric{"C#sus4(add9)"}c Lyric{"C#"}"c
Lyric{"AM7"}"a Lyric{"B6"}"b Lyric{"C#"}c:Lyric{"E7"}"e]
Lyric{"C#"}"c4 Lyric{"Bb7(on D)"}"d-4>}
Sub{g%3072}Sub{c^^^^^^}'"ae'Sub{d^}'"f''f''"ge+'|'"ae''"fd''"ge+''"bd-e'
Sub{c1^1^1^2^4}'"ae'Sub{d^}'"f''f''"ge+'|'"ae''"fd'Sub{e+^}"g2^4'"a+d-'4}
STR XS34 = {KeyFlag-(be);
Sub{<[2 Lyric{"EbM7"}"e Lyric{"F7"}"f Lyric{"BbM7"}"b Lyric{"Bb7(on Ab)"}"a-
Lyric{"EbM7"}"e Lyric{"F"}"f:Lyric{"Gm7"}"g Lyric{"Bb7(on Ab)"}"a-]
Lyric{"Bb(add9)"}"b Lyric{"Db7"}"d->}
'"g"bdg'Sub{"f^^}'cea'Sub{f^^^^^}Sub{'db'^^}rr|"g'"fca'Sub{'"bd'^}"gb
'"g"bdg'Sub{"f^^}'cea'Sub{f^^^^^}Sub{'db'^^}rr|"g'"fca''"fd`c'2^4'"a-c-`c-'4}
STR XS44 = {KeyFlag-(beadg);
Sub{<Lyric{"GbM7"}"g Lyric{"Ab"}"a Lyric{"DbM7"}d Lyric{"Db7(on B)"}c-
Lyric{"GbM7"}"g Lyric{"Ab"}"a Lyric{"Bbm7"}"b Lyric{"Db7(on B)"}c-
Lyric{"GbM7"}"g Lyric{"Ab"}"a Lyric{"DbM7"}d Lyric{"Eb7(on G)"}"g+
Lyric{"GbM7"}"g Lyric{"Ab"}"a Lyric{"Bb"}"b^>}
Sub{a^^^}'"bdf'Sub{"a^^}Sub{c^}e Sub{f^^}r Sub{d^}r
'"g"b'Sub{a^^^^^}'"ace'Sub{'df'^^}"b"a
"b Sub{"a^}'ce''c-f'Sub{'"bb'^}'eg+'
'df'Sub{c^^}'"aea''d+fb'^}
TR(3);KeyP;
@82,90,1;
V.WR(25,50,!4);/*EP.W(127,60,!1^1);*/EP(127);P(0);M(0);p%(256);
REV(80);CHO(125);
o5;l2;q99;v120;t2;r1
XS01 XS02 XS03 XS04 XS05 XS06 XS16 XS07 XS17 XS13 XS14 XS24 XS34 XS44 XS24 XS34 XS44 XS15
//--------------------------------------------------------------------------------------------------
TR(4);KeyP;
@82,90,1;
V.WR(25,50,!4);/*EP.W(127,60,!1^1);*/EP(127);P(127);M(0);p%(-256);
REV(80);CHO(125);
o5;l2;q99;v120;t0;r1
XS01 XS02 XS03 XS04 XS05 XS06 XS16 XS07 XS17 XS13 XS14 XS24 XS34 XS44 XS24 XS34 XS44 XS15
//--------------------------------------------------------------------------------------------------
STR PF01 = {>>[3 b^abfaef^:de"bd"a"b"f<]defafaa+|b4>d4f-^^g+ara+r
[3 b^abfaef^de"bd"a"b"f:<][4 "a32c-32d+32f32a32`c-32`d+32`f32:>]`a1,99,127 o5/*[9 r1]*/}
STR PF02 = {Sub{< l8^16 c4[4 c] "b4"b[3 d+] [2 "b+4[4 "b+]]
"b4[4 "b] "b4"b[3 d+] "b+4[4 "b+][2 c]"f8[2 "b]"b+8}
> l8^16 r8[4 'ce+g+']'ce+g+'8 r8[2 '"bd+f'][2 'd+ga+']'d+ga+'8
r8[4 '"b+eg']'"b+eg'8 r8[4 '"a+eg']'"a+eg'8
r8[4 '"bd+f']'"bd+f'8 r8[2 '"bd+f'][2 'd+ga+']'d+ga+'8
r8[4 '"b+eg']'"b+eg'8 [2 '"g+"be']'"a+ce'8 [2 '"ad+f']'d+fa'8 l16}
STR PF03 = {[2 [2 '""ceg+b'r]r4[2 '""fcea+'r]r4[2 '""bd+fa+'r]r4[2 '""e"bd+g+'r]r4:
[2 '""a+c+e+g+'r]r4[2 '"d+"a+cg'r]r4[2 '""g+"bd+g+'r]r4[2 '""g+"b+d+fb'r]r4]
[2 '""a+c+e+g+'r]r4[2 '"d+"a+cg'r]r4'""g+"bd+g+'4^8r8'"""g+"b+df'8 Sub{r8'`f`a`c-``e+'4}l24
d+,229c,229"a+,229"g+,229"f,229"d+,229"c,229""a+,229""g+,229 l16}
STR PF13 = {KeyFlag+(fcgd);
[2 [2 '""f"ace'r]r4[2 '""b"adf'r]r4[2 '"e"bdg'r]r4[2 '""aceg'r]r4
[2 '"d"acf'r]r4[2 '""g"b+df'r]r4:[2 '"c"beg'r]r4[2 '""e+"bcg'r]r4]
<'"ccb`e+`g'4'""b"b`d`f`b'4'""a"a`e`g``c'4'""g"g`d`f`b+``d'4>KeyFlag+(fc);}
STR PF04 = {'""g"g`g`b``d``g'4|'""g""b"d'2'""a"c"e'2'""b"e"f'2'""b"d+"f'2
'"g"bdf'2'"acef'2'"bd+f'2'"ac-df'2
'"g"bdf'2'"acef'2'"bcef'2'"bd+f'2
'"g"bdf'2'"acef'2'"bd+f'2'"bd+f'2}
STR PF14 = {'""g""b"d'2'""a"c"e'2'""b"e"f'2'""b"d+"f'2|'b`d+`f`b'rrr
'"g"bdf'2'"acef'2'"bd+f'2'"ac-df'2
'"g"bdf'2'"acef'2'"bcef'2'"bd+f'2
'"g"bdf'2'"acef'2'"bd+f'2'"bd+f'2}
STR PF05 = {Sub{o3 l8^16 [3 b4,44[4 b,44]]b4,44b,44b16,44`e2}
o4 l8^16 [3 r8[2 'dfa'][2 'eg+b']'eg+b'8]r8[2 'dfa',48]'g+b'2 o5}
STR PF15 = {KeyFlag+(fc);
Sub{o3 l8^16 [3 b4,44[4 b,44]]
b4,44[2 b,44]b8,44|`d4,44[2 `d,44]`d8,44|`e+4,44[4 `e+,44]|l16 'g+`g+'rrr'"g+g+'1^2^4 o5}
l8^16<[3 r8[2 'dfa'][2 'eg+b']'eg+b'8]
r8[2 'dfa',48]'eg+b''eg+b'16|r8[2 'e+g+b+',48]'ga+`d''ga+`d'16>
KeyFlag-(bea);
r8[2 '"ace'][2 '"bdf']'"bdf'8|Sub{l16 'ceg'rrr'ceg'1^2^4}
r2|"g"acega`c`e|b`c`e`g`b``c``e``b2^16|r-2 TempoChange(127,32,!2);r2"""a8}
STR PF06 = {Sub{<l8^16 q98[4 d4[2 d]d8 d4[4 d]]
[2 "b4[2 "b]"b8 "b4[4 "b]]
d4[2 d]d8 d4[4 d] d4[2 d]d8 d4[3 d]c}
[4 r8[2 'ab+`e']'b`d`f''b`d`f'8 r16[2 'ab+`e'][2 'b`d`f']'`c8`e8`g+8']
[2 r8[2 'dfa']'eg+b''eg+b'8 r16[2 'dfa'][2 'eg+b']'f8a8`c8']
[2 r8[2 'ab+`e']'b`d`f''b`d`f'8 r16[2 'ab+`e'][2 'b`d`f']'`c8`e8`g+8']l16}
STR PF16 = {Sub{o3 l8^16 b4,44[4 b,44]
Key(3);b4,44[4 b,44]
Key(6);b4,44[4 b,44]
Key(9);b4,44[4 b,44]Key(0);}
o4 l8^16 r8[2 'dfa'][2 'eg+b']'fa`c'8 Key(3);r8[2 'dfa'][2 'eg+b']'fa`c'8
Key(6);r8[2 'dfa'][2 'eg+b']'fa`c'8 Key(9);r8[2 'dfa'][2 'eg+b']'fa`c'8 Key(0);o5
t.N(0,3,6,9,12,15,18,21,24);'"ac-d+fa`c-`d+`f`a'2>'"ac-d+fa`c-`d+`f`a'2<t0
<[3 "a32c-32d+32f32a32`c-32`d+32`f32:>]`a4,,127 o5 l16}
STR PF07 = {<[2 [3 '"eeg+b`e'8r4^8r8'"ddfa`d'8r'"ddfa`d'^^]
'""g"ggb`d`g'^^'""g"ggb`d`g'^^'""a"aa`c`e`a'^^'""a"aa`c`e`a'^^'""b"bb`d+`f`b'^^^]>
[2 [3 '""e"eeg+b`e'8r4^8r8'""d"ddfa`d'8r'""d"ddfa`d'^^]:
'""g"ggb`d`g'^^'""g"ggb`d`g'^^'""a"aa`c`e`a'^^'""a"aa`c`e`a'^^'""b"bb`d+`f`b'^^^]
Key(1);'""g"ggb`d`g'^^'""g"ggb`d`g'^^'""a"aa`c`e`a'^^'""a"aa`c`e`a'^^'""b"bb`d+`f`b'^^^ Key(0);}
STR PF17 = {KeyFlag-(be);<
[2 '"ffa`c`f'^^'"eegb`e'^^'"ffa`c`f'^^'"eegb`e'^^'"ffa`c`f'^'"eegb`e'^
'"ffa`c`f'^^'"eegb`e'^^'"a-a-`c`e`a-'^^'"a-a-`c`e`a-'^^'"bb`d`f`b'^^^]
fa`c`fgb`e`ga`c`f`ab`e`g`b>cfa`cegb`efa`c`fgb`e`g>"acfa"begbcfa`cegb`e
fa`c`fgb`e`g>l32[3 ba-g-ed-<]b o5 l16}
STR PF24 = {KeyFlag+(fcgd);
Sub{<[2 '"ace'2'"bdf'2'cfg'2'ce+g'2'"ace'2'"bdf'2'ce+g'2:'"bd-eg'2]'f-b-'2>}
'dg'^^'cg'^^'dg'^^'dg'^^'cg'^'dg'^|'fg'^^'dg'^^'fg'^'e+g'rrr'e+g'4
'dg'^^'cg'^^'dg'^^'dg'^^'cg'^'dg'^|[3 'e+g'^:r]>[6 e24f24]
'dg'^^'cg'^^'dg'^^'dg'^^'cg'^'dg'^|'fg'^^'dg'^^'fg'^'e+g'rrr'e+g'4
'dg'^^'cg'^^'dg'^^'dg'^^'cg'^'dg'^|'e+g'4'ce+'4'"gc'4'e+g'4<}
STR PF34 = {KeyFlag-(be);
Sub{<[2 'egb'2'fa`c'2'b`d`f'2'a-df'2'egb'2'fa`c'2:'gb`d'2'a-b`d'2]'b`d`f'1>}
[2 'df'^^'"be'^^'df'^^'df'^^'"be'^'df'^:[3 'dfb'^:r]bcdfba-fd]
[3 'dfg'^:r]'"bb'8'd-`d-'32'e`e'32'g-`g-'32'a-`a-'32'b`b'4>
[2 'df'^^'"be'^^'df'^^'df'^^'"be'^'df'^:[3 'dfb'^:r]bcdfba-fd]
[3 'dfb'^:r]Sub{d4d-4}'fb'2<}
STR PF44 = {KeyFlag-(beadg);
'""g"gb`d`f'rrrSub{'""g`f'^^'""g`f'}'"gb`d'^^^'""a"aa`c`e'r'""a"aa`c`e'rrr'"dda`c`f'^^^
'"dda`c`f'r'"dda`c`e'^'"dda`c-`e'4^8'"dda`c-`e'4
'""g"gb`d`f'rrr'""g"gb`d`f'^^'""g"gb`d`f''""a"aa`c`e'r'""a"aa`c`e'rrr'a`d`f'^^^
'""b"b'^'a`d`f'^'""b"b'^'"c-c-a`d`f'4'"c-c-a`d`f'4
'""g"gb`d`f'rrrSub{'""g`f'^^'""g`f'}'"gb`d'^^^'""a"aa`c`e'r'""a"aa`c`e'rrr'"dda`c`f'^^^
'"dda`c`f'rSub{`e24`f24`f+24}'"dda`c'^'g+b`e`g+'4^8'""g+"g+eb`e`g+'4
'""g"gb`d`f'rrr'""g"gb`d`f'^^'""g"gb`d`f''""a"aa`c`e'r'""a"aa`c`e'rrr'a`d`f'^^^
'""b"b'^'a`d`f'^'""b"b'^'""b"ba`d+`f'4'""b"ba`d+`f'4}
STR PF54 = {KeyFlag+(fcgd);<
rrr'"ace'^^^^r'"bdf'^^^^^^'cfg'2'ce+g'2
rrr'"ace'^^^^r'"bdf'^^^^^^'ce+g'2'"bd-eg'2
rr'"ace'^^^^^r'"bdf'^^^^^^'cfg'2'ce+g'2
rr'"ace'^^^^^r'"bdf'^^^^^^'ce+g'2'f-b-'2>}
STR PF64 = {KeyFlag-(be);
<[2 'egb'2'fa`c'2'b`d`f'2'a-df'2'egb'2'fa`c'2:'gb`d'2'a-b`d'2]'b`d`f'1>}
STR PF74 = {KeyFlag-(beadg);
Sub{<<'"gg'2'"aa'2'd`d'2'd`d'2|'"gg'2'"aa'2'"bb'2'c-`c-'2
'"gg'2'"aa'2'd`d'2'"g+g+'2|'"gg'2'"aa'2'"bb'2'"bb'2>>}
r12'"bdf'4^6r12'"ace'4^6r12'"acf'4^6r12'"ac-f'4^6
r12'"bdf'4^6r12'"ace'4^6r12'"adf'4^6r12'"adf'4^6
r12'"bdf'4^6r12'"ace'4^6r12'"acf'4^6r12'"beg+'4^6
r12'"bdf'4^6r12'"ace'4^6r12'"adf'4^6r12'"bd+f'4^6}
TR(5);KeyP;
@3,0,0;
V(90);EP(127);P(32);M(0);p%(256);
REV(40);CHO(10);
o5;l16;q119;v120;t0;r1
PF01 PF02 PF03 PF04 PF05 PF06 PF16 PF07 PF17 PF13 PF14 PF24 PF34 PF44 PF54 PF64 PF74 PF15
//--------------------------------------------------------------------------------------------------
STR EF01 = {>>[3 b^abfaefr:de"bd"a"b"f<]defafaa+|b4>d4f-^^g+ara+r
[3 b^abfaefrde"bd"a"b"f:<][4 "a32c-32d+32f32a32`c-32`d+32`f32:>]
EP.T(127,32,!1);`a1,99,127 o5}
STR EF02 = {[8 r1]}
STR EF03 = {[8 r1]}
STR EF13 = {[8 r1]}
STR EF04 = {EP(127);r4>[2 [3 b^abfaef]rde"bd"a"b"f<[2 b^abfaef]:b^ab`d^b`d>rdefafaa+]
b^abfaefrerrd+^^^}
STR EF14 = {[3 b^abfaef]rde"bd"a"b"f|"bbdb^^abfaefb^abfaefb^ab`d^b`d>rdefafaa+
[3 b^abfaef]rde"bd"a"b"f<[2 b^abfaef]b^abfaefrerrd+^^^ o5}
STR EF05 = {>>[3 b^abfaef|rde:"bd"a"b"f<]fafaa+>"b"a"bdedefg+2,99}
STR EF15 = {KeyFlag+(fc);>>
[3 b^abfaef|rde:"bd"a"b"f<]fafaa+>"b"a"bdedefg+2,99}
STR EF06 = {[8 r1^2^4]}
STR EF16 = {[6 r1]}
STR EF07 = {[16 r1]}
STR EF17 = {[8 r1]}
STR EF24 = {[8 r1]}
STR EF34 = {[8 r1]}
STR EF44 = {[8 r1]}
STR EF54 = {KeyFlag+(fcgd);
cd-c"a^^ded"b^"bdrfrf^^d^^f^e+rrre+4,109
cd-c"a^^ded"b^^d^f^[3 e+r:r]e12f12g12f12e12d-12>
crd-c"a^dred"b^d^f^fc"gdc"gdfe+rrre+4,109
crd-c"a^dred"b^drfr[3 c24e+24][3 "g24e+24][3 "a+24e+24][3 "c+24e+24]<}
STR EF64 = {KeyFlag-(be);>q209
"e"d"e"bedeb|^edebede|bedebede|fdgda-dgd
edebedeb|^edebede|edfdf+dgd|a-dbda-dfd>
"e"d"e"bedeb|^edebede|bgfgfdcd|c"b"g"b"g"f"d"f<
edebedeb|^edebede|dfbdfb`df|b`e`f`e`b`b+`b`a-<q129}
STR EF74 = {KeyFlag-(beadg);
v90[8 [12 ``a24``b24]]v127}
TR(6);KeyP;
@82,111,3;
V(70);EP(127);P(24);M(0);p%(128);
REV(60);CHO(127);
o5;l16;q129;v127;t0;r1
EF01 EF02 EF03 EF04 EF05 EF06 EF16 EF07 EF17 EF13 EF14 EF24 EF34 EF44 EF54 EF64 EF74 EF15
//--------------------------------------------------------------------------------------------------
STR LG01 = {b2e2f2g+2a2b2>"b4d4f-^^g+ara+rb1^1^1,99'"ad+,,,2f,,,4a,,,6`c-,,,8'1^1,99}
STR LG02 = {[8 r1]o5}
STR LG03 = {KeyFlag+(fcgda);
b4^8agf4`c^b+b|a4^8gag2|g4^8b8a4`c4|b2b+4`d4
`c4^8`e8`d4`c^b+b|a4^8gag2|g4^8b8a4`c4|b2 KeyFlag+(fc);b`d`eb`d`eb`d}
STR LG13 = {KeyFlag+(fcgd);
e4^8dc"b4f^e+e|d4^8cdc2|c4^8e8d4f4|e2e+4g4
f4^8a8g4f^e+e|d4^8cdc2|c4^8e8d4f^^r|'e+g'2 p%.T(0,-8191,!2);'e+g'2,99}
STR LG04 = {`b1^1^4,99[6 r1]}
STR LG14 = {r4^1^1p%(0);[6 r1]/*LG13から4分音符ひとつ分拝借*/}
STR LG05 = {[4 r1]}
STR LG15 = {}
STR LG06 = {[8 r1^2^4]}
STR LG16 = {[6 r1]}
STR LG07 = {[16 r1]}
STR LG17 = {[8 r1]}
STR LG24 = {KeyFlag+(fcgd);
""a"e"f"g"bcce|fgb`c`c`d`f`g|[3 `d`f`g][3 c,51]'`e+`g'4,101
[2 c,51]`f`f+`g`f`d`c|bff+gfcfg|[2 f[2 [2 c,51]:g]b:`c]`c+
`cbgfeff+f|"bfgb`c`f`f+`g|[2 [2 'g`g'][2 c,51]][2 c,51]ceff+gb
`cbgfeff+f|fec"b"g"f""b"c|<cdfg>cdfg[4 'd-`d-',31]d-4^8}
STR LG34 = {KeyFlag-(be);l8
efb^a16b16af^edd16e16d"b^^^ [4 "b16,51]df16g16fc`fb^b`c`c`c+16`c16b'fg'
>defb^a^b^^^^^^rr<'f`f'^^^l16 'b`b'[2 'b`b',21]'a`a'[2 'a`a',21]'b`b'1[2 'b`b',21]}
STR LG44 = {[8 r1]}
STR LG54 = {KeyFlag+(fcgd);
[2 cd-c"arrded"b^"bdd,51f^:f^^d^^f^e+[3 e+,31]e+4]e+^^e+^^[5 f:g]"b
crd-c"ardred"b^d^f^f^cdfgb`c`e+[3 e+,31]`e+4
`cr`d-`car`dr`e`db^`d^`f^[2 'e+`e+',21][3 [2 'e+`e+',61][2 'e+`e+',21]]}
STR LG64 = {[8 r1]}
STR LG74 = {[8 r1]}
TR(7);KeyP;
@31,0,0;
V.W(100,90,!4,90,60,!1);EP(100);P(96);M(10);BR(12);p%(128);
REV(120);CHO(127);
o4;l16;q121;v120;t0;r1
LG01 LG02 LG03 LG04 LG05 LG06 LG16 LG07 LG17 LG13 LG14 LG24 LG34 LG44 LG54 LG64 LG74 LG15
//--------------------------------------------------------------------------------------------------
STR CG01 = {[9 r1]}
STR CG02 = {[2 [3 'ce+g+',9][2 'ce+g+'r:'ce+g+',9]]/*1bar*/
[3 '"bd+f',9][2 '"bd+f'r:'"bd+f',9][3 '"a+d+g',9][2 '"a+d+g'r:'"a+d+g',9]/*1bar*/
[2 [3 'c-eg',9][2 'c-eg'r:'c-eg',9]]
[2 [3 '"a+eg',9][2 '"a+eg'r:'"a+eg',9]]
[3 [3 '"bd+f',9][2 '"bd+f'r:'"bd+f',9]][3 '"a+d+g',9][2 '"a+d+g'r:'"a+d+g',9]/*2bar*/
[2 [3 'c-eg',9][2 'c-eg'r:'c-eg',9]]
[3 '"beg',19]'"beg'[3 '"fce',19]'"fce'[3 '"ac-d+',9][2 '"ac-d+'r:'"ac-d+',9]}
STR CG03 = {[8 r1]}
STR CG13 = {[8 r1]KeyFlag+(fc);}
STR CG04 = {e4[4 r1]
[3 '"bdf',9][2 '"bdf'r:'"bdf',9] [3 '"ace',9][2 '"ace'r:'"ace',9]
[3 '"f"be',9][2 '"f"be'r:'"fbe',9] [3 '"f"bd+',9][2 '"f"bd+'r:'"f"bd+',9]
[3 '"bdf',9][2 '"bdf'r:'"bdf',9] [3 '"ace',9][2 '"ace'r:'"ace',9]
[2 [3 '"f"bd+',9][2 '"f"bd+'r:'"f"bd+',9]]}
STR CG14 = {r1^1^4
[3 '"bdf',9][2 '"bdf'r:'"bdf',9] [3 '"ace',9][2 '"ace'r:'"ace',9]
[3 '"f"bd+',9][2 '"f"bd+'r:'"f"bd+',9] [3 '"ac-f',9][2 '"ac-f'r:'"ac-f',9]
[3 '"bdf',9][2 '"bdf'r:'"bdf',9] [3 '"ace',9][2 '"ace'r:'"ace',9]
[3 '"f"be',9][2 '"f"be'r:'"fbe',9] [3 '"f"bd+',9][2 '"f"bd+'r:'"f"bd+',9]
[3 '"bdf',9][2 '"bdf'r:'"bdf',9] [3 '"ace',9][2 '"ace'r:'"ace',9]
[2 [3 '"f"bd+',9][2 '"f"bd+'r:'"f"bd+',9]]}
STR CG05 = {[4 r1]}
STR CG15 = {}
STR CG06 = {[8 r1^2^4]}
STR CG16 = {[6 r1]}
STR CG07 = {[16 r1]}
STR CG17 = {KeyFlag-(be);[4
'"acf'^'"acf',9'"g"be'^^'"acf'^^^[2 '"g"be',97]'"acf'^'"g"be'^
'"acf'^^'"g"be'^^'"a-ce'^'"a-ce',9'"a-ce'^^:'"bdf'^^^][4 '"bdf',29]}
STR CG24 = {[8 r1]}
STR CG34 = {[8 r1]}
STR CG44 = {KeyFlag-(beadg);[2
[4 '"bda',19][2 Sub{a&b}'df'^][4 'cea',19][2 Sub{a&b}'"be'^]
[2 '"aea',19][2 Sub{a&b}'"ae'^][4 '"aea',59]:a&baf&ef][3 a&b]
[4 '"bda',19][2 Sub{a&b}'df'^][4 'cea',19][2 Sub{a&b}'"be'^]
[4 '"aea',19][2 Sub{a&b}'"ae'^][2 '"bdg+',19]b`c&`c+`c&bg
[4 '"bda',19][2 Sub{a&b}'df'^][4 'cea',19][2 Sub{a&b}'"be'^]
[2 '"aea',19][2 Sub{a&b}'"ae'^][4 '"aea',59][3 a&b]}
STR CG54 = {[8 r1]}
STR CG64 = {KeyFlag-(be);>
[2 [6 '"bdg',29][2 '"bdg'][6 '"acf',29][2 '"acf']:
[6 '"acf',29][2 '"acd'][6 '"a-cf',29][2 '"a-cd']]
[6 '"adf',29][2 '"adf'][6 '"a-c+f',29][2 '"a-c+f']
[2 [6 '"bdg',29][2 '"bdg'][6 '"acf',29][2 '"acf']:
[6 '"acf',29][2 '"acd'][6 '"a-cf',29][2 '"a-cd']]
[6 '"adf',29][2 '"adf'][6 '"a-c-f',29][2 '"a-c-f']<}
STR CG74 = {}
TR(8);KeyP;
@31,0,0;
V(80);EP(127);P(96);M(0);p%(0);
REV(50);CHO(100);
o5;l16;q77;v100;t.onCycle(!16,0,3);r1
CG01 CG02 CG03 CG04 CG05 CG06 CG16 CG07 CG17 CG13 CG14 CG24 CG34 CG44 CG54 CG64 CG44 CG15
//--------------------------------------------------------------------------------------------------
STR SQ01 = {}
STR SQ02 = {}
STR SQ03 = {}
STR SQ13 = {}
STR SQ04 = {}
STR SQ14 = {}
STR SQ05 = {}
STR SQ15 = {}
STR SQ06 = {}
STR SQ16 = {}
STR SQ07 = {}
STR SQ17 = {}
STR SQ24 = {}
STR SQ34 = {}
STR SQ44 = {}
STR SQ99 = {MidiDelay({[4 br`br`a`brr]},3,!4^8);}
TR(15);KeyP;
@81,1,0;
V.W(80,0,!16);EP(127);P(16);M(0);p%(512);
REV(10);CHO(10);
o5;l16;q61;v120;t0;r1
SQ01 SQ02 SQ03 SQ04 SQ05 SQ06 SQ16 SQ07 SQ17 SQ13 SQ14 SQ24 SQ34 SQ44 SQ24 SQ34 SQ44 SQ15
//--------------------------------------------------------------------------------------------------
TR(16);KeyP;
@81,1,0;
V.W(40,0,!16);EP(127);P(112);M(0);p%(0);
REV(100);CHO(100);
o5;l16;q61;v120;t0;r1^8^16
SQ01 SQ02 SQ03 SQ04 SQ05 SQ06 SQ16 SQ07 SQ17 SQ13 SQ14 SQ24 SQ34 SQ44 SQ24 SQ34 SQ44 SQ15
//--------------------------------------------------------------------------------------------------
STR BD01 = {[2 [3 '"g+"ac'r2^4]:[4 '"g+"ac']]'"g+"ac'r1^2^4}
STR BD02 = {[2 [3 [4 '"g+"ac']]/*3bars*/[3 '"g+"ac']'"g+"ac'8[2 '"g+"ac'16]/*1bar*/]/*8bars*/}
STR BD03 = {r-1 TempoChange(127,124,!1);r1
[7 [2 [2 '"g+c'8]r]][4 '"g+"ac']}
STR BD13 = {Tempo(124);[7 [2 [2 '"g+c'8]r]][4 '"g+"ac']}
STR BD04 = {r TempoChange(124,127,!1);[8 [4 '"g+"ac']]}
STR BD14 = {TempoChange(124,127,!1^1);'"g+"ac'[2 [4 [4 '"g+"ac']]:r-16'"g+"ac'16]}
STR BD05 = {[4 [4 '"g+"ac']]}
STR BD15 = {[3 [4 '"g+"ac']]/*4分の4*/[2 [3 '"g+"ac']]/*3分の4*/[6 '"g+"ac']}
STR BD06 = {[2 [3 [7 '"g+"ac']]/*3bars*/[6 '"g+"ac'][2 '"g+"ac'8]]}
STR BD16 = {[4 [4 '"g+"ac']]'"g+"ac'1'"g+"ac'r8^16'"g+"ac'8^16'"g+"ac'8r4}
STR BD07 = {[4 [4 '"g+"ac']]
[4 [4 '"g+"ac']]
[3 [4 '"g+"ac']]'"g+"ac'[4 '"ac'16][3 '"g+"ac'16r16:r16]
[4 [4 '"g+"ac']]}
STR BD17 = {[7 [4 '"g+"ac']][8 '"g+"ac'8]}
STR BD24 = {[8 [4 '"g+"ac']]}
STR BD34 = {[8 [4 '"g+"ac']]}
STR BD44 = {[2 [3 [4 '"g+"ac']][2 '"g+"ac']r-24'"ac'24[4 '"g+"ac'8]]}
TR(10);KeyFlag+();Key(0);
@26,100,0;
V(120);EP(127);P(64);BR(12);p%(-1000);
REV(0);CHO(0);
o3;l4;q91;v120;t0;r1
BD01 BD02 BD03 BD04 BD05 BD06 BD16 BD07 BD17 BD13 BD14 BD24 BD34 BD44 BD24 BD34 BD44 BD15
//--------------------------------------------------------------------------------------------------
STR SD01 = {[9 r1]}
STR SD02 = {[7 [2 r'"ed+e',,100]]r'"ed+e'r[2 e8]}
STR SD03 = {[7 r1]v40[8 e16 v+10]r2 v125}
STR SD13 = {[7 r1]r2 v40[8 e16 v+10]v125}
STR SD04 = {r[3 [2 r'"ed+e',,100]]r'"ed+e',,100r8^16e16[4 '"ed+e'16][4 [2 r'"ed+e',,100]]}
STR SD14 = {r1^1 r-32e32,,60[2 e8][4 r'"ed+e',,100][3 [2 r'"ed+e',,100]]l16
[5 '"ed+e',,100]r'"ed+e',,100'"ed+e',,100[2 rrr'"ed+e']l4}
STR SD05 = {[4 r1]}
STR SD15 = {[3 [2 r'"ed+e']][2 r'"ed+e'r]r'"ed+e'}
STR SD06 = {[8 r1^2^4]}
STR SD16 = {[4 r1]r1 v125[2 r r-48'"ed+e'48,,60'"ed+e']}
STR SD07 = {[3 r1][4 v40 e8 v+20]v125 r8[2 [2 e16]r16]
[2 [2 r'"ed+e',,100]]r1^1
[2 [3 r'"ed+e',,100]r8[2 [2 e16]r16]]
[4 [2 r'"ed+e',,100]]}
STR SD17 = {[7 [2 r'"ed+e',,100]]r'"ed+e',,100r[4 e16,,60]}
STR SD24 = {[7 [2 r'"ed+e',,100]]r'"ed+e',,100r2}
STR SD34 = {[8 [2 r'"ed+e',,100]]}
STR SD44 = {[8 [2 r'"ed+e',,100]]}
STR SD54 = {[7 [2 r'"ed+e',,100]]r'"ed+e',,100r2}
STR SD64 = {[8 [2 r'"ed+e',,100]]}
STR SD74 = {[7 [2 r'"ed+e',,100]]r'"ed+e',,100re8e8}
STR SD99 = {[2 r'"ed+e']rd8d8}
TR(11);KeyFlag+();Key(0);
@1,7,0;
V(100);EP(127);P(64);BR(12);p%(1000);
REV(90);CHO(1);
o3;l4;q93;v125;t0;r1
SD01 SD02 SD03 SD04 SD05 SD06 SD16 SD07 SD17 SD13 SD14 SD24 SD34 SD44 SD54 SD64 SD74 SD15
//--------------------------------------------------------------------------------------------------
STR HH01 = {[7 r1]r4^8[3 f+24]a+2r1}
STR HH02 = {[8 [4 f+g+a+g+]]}
STR HH03 = {Sub{t0[8 [4 r8g+8]]t.onCycle(!16,-1,6);}
[3 r1]r2^8[3 f+24]a+4[4 r1]}
STR HH13 = {Sub{t0[8 [4 r8g+8]]t.onCycle(!16,-1,6);}
[3 r1]r2^8[3 f+24]a+4[4 r1]}
STR HH04 = {r4[8 [4 f+g+a+g+]]}
STR HH14 = {[2 [4 f+g+a+g+]]a+4,,80[6 [4 f+g+a+g+]]}
STR HH05 = {[3 [4 f+g+a+g+]][2 f+g+a+g+]a+2}
STR HH15 = {[3 [4 f+g+a+g+]][2 [3 f+g+a+g+]][2 f+g+a+g+]f+g+a+^f+g+f+f+a+}
STR HH06 = {t.onCycle(!16,0,4);
[8 [2 f+8]a+8[3 f+24]g+,,60a+g+,,60g+
[3 f+24,,80]a+g+,,100g+,,60a+[2 f+,,80]a+g+,,60g+a+,,80[3 g+24]g+,,80a+]
t.onCycle(!16,-1,5);}
STR HH16 = {[4 f+g+f+g+a+^f+f+[2 f+g+a+g+]][2 [4 r8g+8]]}
STR HH07 = {[16 [4 r8g+8]]}
STR HH17 = {[8 f+g+f+g+a+^f+f+:[2 f+g+a+g+]]f+g+a+g+[6 g+24]}
STR HH24 = {[4 [6 f+g+a+g+]f+g+a+g+f+g+f+a+]}
STR HH34 = {[4 [6 f+g+a+g+]f+g+a+g+f+g+f+a+]}
STR HH44 = {[2 [3 [4 f+g+a+g+]][8 f+]f+g+a+g+f+g+f+a+]}
STR HH99 = {[4 f+g+a+a+,,60]}
TR(12);KeyFlag+();Key(0);
@1,100,0;
V(100);EP(127);P(64);BR(12);p%(2000);
REV(10);CHO(30);
o3;l16;q95;v120;t.onCycle(!16,-1,5);r1
HH01 HH02 HH03 HH04 HH05 HH06 HH16 HH07 HH17 HH13 HH14 HH24 HH34 HH44 HH24 HH34 HH44 HH15
//--------------------------------------------------------------------------------------------------
STR CC01 = {[2 [3 '`c+`a'1]:v40[4 '`c+`a'4 v+20]]'`c+`a'1^1,,80 v120}
STR CC02 = {'`c+`a'1[7 r1]}
STR CC03 = {[7 `d+`d+r4`b`br4]'`c+`a'1,,80}
STR CC13 = {[7 `d+`d+r4`b`br4]v40[4 `a4 v+20]v120}
STR CC04 = {'`c+`a'4r1^1^1v40[4 `a4 v+20]v120 '`c+`a'1r1^1^1}
STR CC14 = {'`c+`a'4r1^1'`c+`a'1[5 r1]}
STR CC05 = {[3 '`c+`a'1]r2`c+4`a4}
STR CC15 = {[3 '`c+`a'1][2 r2^4]r1r4'`c+`a'}
STR CC06 = {'`c+`a'1^2^4[3 r1^2^4][2 '`c+`a'1^2^4r1^2^4]}
STR CC16 = {`e1[3 r1][2 r8^16`c+8^16]r4'`c+`a'1}
STR CC07 = {[2 '`c+`a'1r1^1v40[4 '`c+`a'4 v+20]v120 '`c+`a'1r1^1^1]}
STR CC17 = {'`c+`a'1[6 r1]'`c+`a'1}
STR CC24 = {[2 '`c+`a'1^2`g4`e4r1^2`c+4,,100`a4,,100]}
STR CC34 = {[2 '`c+`a'1r1^1^1]}
STR CC44 = {[2 '`c+`a'1r1`e1r1]}
STR CC64 = {Sub{'`c+`a'}
r1[7 [8 `b8]]}
STR CC99 = {`e2`g2`c+2`a2'`c+`a'1[4 `d+4][4 `b4][4 `f4]}
TR(13);KeyFlag+();Key(0);
@9,90,1;
V(120);EP(127);P(64);BR(12);p%(1000);
REV(50);CHO(60);
o3;l8;q97;v120;t0;r1
CC01 CC02 CC03 CC04 CC05 CC06 CC16 CC07 CC17 CC13 CC14 CC24 CC34 CC44 CC24 CC64 CC44 CC15
//--------------------------------------------------------------------------------------------------
STR TM01 = {[2 [3 r2g2]r1]r2`c8[3 f24]`cgr`c}
STR TM02 = {[7 r1]r2r-32`c32,,50`c8a8g8f8}
STR TM03 = {[7 r1]r2^8`c`caagf}
STR TM13 = {[7 r1]r[3 `c][4 a][4 g]frrr}
STR TM04 = {r4[8 r1]}
STR TM14 = {r4[7 r1]r2[2 gaar]}
STR TM05 = {[3 r2g2]r2`c8^16a8^16g8}
STR TM15 = {}
STR TM06 = {[4 r1^2^4r1^2:g4]`cagf}
STR TM16 = {[4 r1][2 gaarrr]`cagf|r1}
STR TM07 = {rrrg,,80g4r2|`c`c`c,,100`c,,80a4[3 `c24,,60`c24,,40a24,,40:g]|rrrg,,80gg,,60r8r2|[4 v40'fg'8 v+20]v120r2
r2^8a8r4|r4^8g8r4^8g8|rrr`c`c^^aa^^gg4|`cagf`c[3 `c24,,80]`caraagggg
[2 r4^8agr2^1]
r2^4^8g8|f8r2^4`ca|rrr`c`c^^aa^^ggg[3 g24,,60]|v.N(120,70);[4 [2 `c32][2 a32][2 g32][2 f32]]v120}
STR TM17 = {[7 r1]r2r-32`c32,,50`c8a8g8f8}
STR TM24 = {[7 r1]r2`c8a8g8g8}
STR TM34 = {[8 r1]}
STR TM44 = {[8 r1]}
STR TM99 = {`d`cbagf}
TR(14);KeyFlag+();Key(0);
@26,100,0;
V(120);EP(127);P(64);BR(12);p%(0);
REV(40);CHO(90);
o3;l16;q111;v120;t0;r1
TM01 TM02 TM03 TM04 TM05 TM06 TM16 TM07 TM17 TM13 TM14 TM24 TM34 TM44 TM24 TM34 TM44 TM15
/*--------------------------------------------------------------------------------------------------
Tempo = 127 に対応するもの
@127,110,0 o4 d1
@127,110,1 o4 c2
@127,110,2 o3 e1*/
STR DX01 = {[9 r1]}
STR DX02 = {V(80);@127,110,1;P(24);REV(10);p%(4096);[8 [2 c]]}
STR DX03 = {[8 r1]}
STR DX13 = {[8 r1]}
STR DX04 = {r4[8 [2 c]]}
STR DX14 = {[2 [2 c]]r4[6 [2 c]]}
STR DX05 = {[7 c]/*3.5bars*/r}
STR DX15 = {[3 [2 c]]/*3bars*/[3 c]/*2bars*/[2 c]}
STR DX06 = {[8 r1^2^4]}
STR DX16 = {[6 r1]}
STR DX07 = {[16 r1]}
STR DX17 = {[8 [2 c]]}
STR DX24 = {[8 [2 c]]}
STR DX34 = {[8 [2 c]]}
STR DX44 = {[8 [2 c]]}
STR DX81 = {V(127);@127,110,0;P(64);REV(16);p%(1280);[8 d1]}//@127,110,0
STR DX82 = {V(80);@127,110,1;P(24);REV(16);p%(4096);[8 [2 c]]}//@127,110,1
STR DX92 = {V(80);@127,110,1;P(24);REV(16);p%(4096);[6 [2 c]]}//@127,110,1
トラック9//@127,110,Xのテンポは音程依存。テープの録音を早まわしにすると音が高くなるやつと同じ感覚です。
V(80) REV(0) CHO(20) q100 P(24) o4 l2 @127,110,1 BR(2) p%(0) v127 r1
DX01 DX02 DX03 DX04 DX05 DX06 DX16 DX07 DX17 DX13 DX14 DX24 DX34 DX44 DX24 DX34 DX44 DX15
//==================================================================================================