Include(gs.h);
ResetGS(); r4
TimeBase=240
SysEx$ = F0,41,10,42,12,{40,00,00,00,04,07,06},F7;r48 //MASTER TUNE 443Hz
MetaText ={" '3分21秒'"}
TrackName ={"3分ポップス"}
Copyright ={"庚申works"}
Tempo=123
BR=12
Slur( 1,(TimeBase*2) );
System.RandomSeed =71039;
/* ---趣旨説明
交流掲示板の決められたコードを使用する企画、参加曲です。
提案されたコードの支配が強いためならばあえてポップスを、と選択する運びとなりました。
目安として、3分間ポップスを目標にしました。
Am | Bb(7) | Dm | F //題目その2
T SDM SD SD
Ab | Bb(7) | Am | G(7)
SDM,TM SDM T D
Dm | Bb | C(7) | F //題目その1
SD SD 2D SD // 2Dはセカンダリードミナントの略
Gm | Bb | Fsus2 | F
DM SD SD
出来るだけシンプルにしようと心がけてます。
ドラムは、エイトビートのみTR-808音色を選択、
ベースはルート弾きです、、
シーケンシャルフレーズは最低限のリディアンクロマチックコンセプトに基づいた自動演奏です。
逆にリードのソロフレーズは、手打ちで打ち込んでます。
音色はサイン波、三角波、矩形波をゲート長のみで対応し、使用しました。
それとスケール考察やリードギター打ち込みのノウハウを以下ドキュメントに書き込みました。
曲づくりの支援になれば幸いです、、
※TW-Music2が良です、sakuraでもまあ良。
※構造化エディタに対応します。tabの桁数は8に設定しております。
アウトラインプロセッサとしては、Mery等もあるようですが、自分的にはまだつかいづらい、、
※仮完成時、一応ヘッドホンでもチェックしてますが、WinXP MSGS or XG音源 スモールSPが最終チェックです。
幾分前、掲示板のほうに書き込んだ掲示板の曲「with」のアレンジ完全版はでないかもしれません。
アップ後、停滞気味で実はあれから完全に止まってます、。
すみません。、
庚申works
追伸 >>
#kikakuChord2で使った方法は、#kikakuChord1で使用されたリディアンスケールから、逆計算し、
4度堆積和音を導き出したものです。
サウンドとしては過激な部類かもしれません。、
コードの流れは、一行で全トラックの記述をしているため、なかを見ればすぐわかると思います。
なおアップ前に再チェックはしましたが、追い込みで仕上げたため不完全な点があるかもしれません。
何らかの問題があれば、コメントなどよろしくお願いします。、
余談 >> くじら様の、スマホ向けWebアプリケーション制作ガイドブックを読んでます。
もちろん借りてです。すみません、、珍しく図書館が買ってくれた。。
自分にはちょっと難しい。読み返せばなるほどと理解はできてます。
某ブログ様に記載があったナツメ社の楽しく学べる作詞・作曲も借りてみました。
理論よりも即戦力的な面があるので、わかっている人には逆引き書としてなら良い本かもしれません。
やさしく書いてありますがあまり、初心者向けではないような気がします、。
今回珍しく、久石譲のピアノストーリーズの譜面を買ってしまいました、。
コードが記載してあるかな、と思ったら見あたらない。五線譜で学べということか、、と
なっとくしてます。
*/
/* コードからスケール適用の仕組み ---
C7th c c# d e f g a b
0, 4, 7,10 8F 0, 1, 3, 4, 6, 7, 9,10 8F / C con dim
G7th
7,11, 2, 5 15F > 3F 2, 3, 5, 6, 8, 9,11, 0 10F / D con dim / 7th M3:11 m7:5 のため可
C7th c c# d e (f) g a b
0, 4, 7,10 8F 0, 1, 3, 4, 6, 8,10 8F / C Altered
G7th
7,11, 2, 5 15F > 3F 11, 0, 2, 3, 5, 7, 9 7F / B Altered / 7th M3:11 m7:5 を含むため可
* 数字はド[0]から順に半音づつ数字を当てたものです。、
コンディミ[con dim]をドミナント7th[G7]適用する場合、
C7の構成音、'cega#'-> (0, 4, 7,10)
G7の構成音は、(0+7, 4+7, 7+7,10+7) -> (7,11, 2, 5)となるはずです。
特にG7のキャラクターを決定しているのは、m7:5 M3:11 です、この音がスケールにあれば適用可です。
C con dimの構成音、(0, 1, 3, 4, 6, 7, 9,10)
D con dimの構成音は、(0+2, 1+2, 3+2, 4+2, 6+2, 7+2, 9+2,10+2) -> (2, 3, 5, 6, 8, 9,11, 0)
D con dim には m7:5 M3:11 、2つともあるようです。-> M3:11 はなくても良い場合があったりします。、
*/
/* スケールによるリードギターの演奏法 ---
G7thにおける D con dimのポジションを
指板を見ながら打ち込めるように配置を書きます。
入力しやすいように、KeyFlagを設定します。
TrackKeyで、6FセーハのCコンディミのポジションから、2F下のDへ移動します。
// a b c c# d e f g
// 9 10 0 1 3 4 6 7
#CD={ TrackKey=2; KeyFlag=( 1,-1, 0, 1, 0, 1, 0) } //コンディミ
-- ポジション
6F b0 d5 c#3 b0 8F / +2F Dコンディミ
e6 a11 f8
8F c2 b0 d5 g9 c2 10F
9F c#3 f8 e6 c#3 11F
数字が実際の音の高さです。アルファベットはCコンディミのポジションです。
TR=1 @27 TrackKey=2; KeyFlag=( 1,-1, 0, 1, 0, 1, 0) o4 // D Con dim
l16 "bc#dfabdfc# dfab`c#`e`c#abf ab`c#`e`f`g`f`c#`eb `c#`e`f`g`b``c`f`g`b``c#&``d#
TR=2 @1 l8 TrackKey=-7; KeyFlag=( 0,0,0, 0,0,0,0) o4 // G7th
[3 'cega#'^^ 'cega#' 'cega#'^^^ ]
こんな感じで打ち込みます。
*/
/* ポジション表
-- マイナーペンタ
// a c d e f f# g
//10 0 3 [4] 5 [6] 7
TrackKey=0; KeyFlag=( 1, 0, 0, 1, 0, 0, 0) //マイナーペンタ
0F
""f5""a10 "d3 "g7 c0 f5 1F
""g7 "c0 "f5 "a10 g7 3F / Key:C マイナーペンタ / ポジションA
d3
"g7 C0 5F
""a10"d3 F5 A10 6F
"c0 "f5 "a10 d3 g7 `c0 8F / Key:C マイナーペンタ / ポジションB
"g7 c0 F5 10F
"d3 A10 `D3 11F / D <- チョーキングポイント表示
"f5 "a10 d3 g7 `c0 `f5 13F
14F
-- コンディミ
// a b c c# d e f g
// 9 10 0 1 3 4 6 7
TrackKey=0; KeyFlag=( 1,-1, 0, 1, 0, 1, 0) //コンディミ
e4 a9 g7 e4 0F
b10 d3 c0
f6 e4 a9 c#1 f6
g7 c0 b10 g7 3F / Key:C コンディミ - 3F単位で同じパターン
c#1 f6 d3
a9 g7 c0 e4 a9
b10 d3 c#1 b10 6F
e4 a9 f6
c0 b10 d3 g7 c0
c#1 f6 e4 c#1 9F
g7 c0 a9
d3 c#1 f6 b10 d3
e4 a9 g7 e4 12F
b10 d3 c0
f6 e4 a9 c#1 f6 14F
-- オルタード
// a b c c# d e (f) g
// 8 10 0 1 3 4 6
TrackKey=0; KeyFlag=(-1,-1, 0, 1, 0, 0,-1) //オルタード
e4 e4 0F
b10 d3 a8 c0 1F
g6 e4 c#1 g6
c0 b10
a8 c#1 g6 d3 a8 4F
c0 e4
b10 d3 a8 c#1 b10 6F / Key:C オルタード / ポジションA
e4 g6
c0 b10 d3 c0 8F
c#1 g6 e4 a8 c#1
c0
d3 a8 c#1 g6 b10 d3 11F / Key:C オルタード / ポジションB
e4 e4 12F
b10 d3 a8 c0
g6 e4 c#1 g6 14F
*/
/* 打ち込みに於けるリードギターらしくするための秘訣 ---
一応元ギター弾きなので弾き方は今でも心得てますので、
打ち込みの際それらしく見せるための､自分なりの方法をリストアップしました。
-- まず、発音タイミングを早めます。
演奏する人はすぐ勘づくと思いますが、バンドでは誰よりも早いタイミングで
音を出さなければなりません。
理由は色々ありますが、これはギタリストの本能みたいなものです。
TR=3 Time(1:1:0) Time=Time-6; <- この文言を加えます。
これで当該トラックは、6ステップ早く音が出るようになります。
タイムベースとの兼ね合いにもよりますが、自分の場合[6-8]辺りです。
-- 入力はr-2, Sub を使う。
どうしても指定が細かくなるため、まずSub{}を使用します。
これで何処で終わるか考えなくて良くなります。
１小節分の指定は、最後の r1 に任せます。
Sub{ r-2 "f16&"g8 | r12 l24 "f"g"a"f&"g^^^ "g"ac"g&"a^^^ "acd"a&c^^^ } r1
r-2みたいな手を使って、出だしを小節の前から始めさせます。
よく装飾音符は小節区切りの前から始まるように、
ギターの演奏も区切りをまたぐことが多いです。
r-2は、2分音符分もどすことを意味します。
r-2 "f16&"g8 は小節区切りより前のいわば、装飾音符として打ち込んでます。
-- 最後にスラーとベンドレンジの設定
BR=12
Slur( 1,(TimeBase*2) );
こんな指定で良いかと思います。、
*/
/* リディアンクロマチックコンセプトの解る部分のみ解説 ---
まずスケール理論の簡単な説明です。
コード展開が決まっている場合、フレージングの制限に直面します。
明らかに親和しない音があるためです。これをアボイドノートと呼びます。
曲中のコードからスケールアサインする場合、このアボイドを意識しなければなりません。
コードを決定づける音の半音隣はあきらかに、不協和音となるためこれをアボイド、
また他のコードとして聞こえてしまう音の組合せであっても困るので、このケースもアボイド、
フレージングに於いては強調しないよう、避ける存在の音です。
C M ['ceg'] -> 0, 4, 7 に於いてキャラクターを決めるコードトーンは、M3:4 [e] のため、
Cイオニアン(ピアノの白鍵)スケール -> 0, 2, 4, 5, 7, 9, 11 であれば、5 [f] の音がアボイドノートになります。
スケールをコードに適用するためにはいくつかの諸条件をクリアしなければならない難しさがあるため、
より扱いやすい仕組みが考えられてきました。その中のひとつにリディアンクロマチックコンセプトがある気がします。
リディクロはコンセプトの難解さに比べると、コードから親和性の高いスケール選択に於いては実は意外にも簡単です。
C 7th -> Bb Lidian -2F
C sus4 -> Bb Lidian -2F
C m7 -> D# Lidian +3F
C M7 -> C Lidian
これで解ると思いますが、Cリディアンで使用するスケール配置のまま、ルートチェンジするだけです。
弦楽器であれば面倒なスケールチェンジがないため、フレージングの自由度は高くなります。。
企画コードのフレージングは、これを自動化して演奏してます。
スケール適用についてはこちらのチャート図が全て語っていると思います。
http://homepage2.nifty.com/dangozaka/netjazztime/LCC3/lcc3.htm
もっともこれに調性引力というのが出てくるのが、リディクロの面白い部分だと思います。
ただし、ここから先は奥が深くなります。
さらにここまでの部分は静的なバーティカルトーナルグラビティの範疇ですが、
これよりの先のホリゾンタルトーナルグラビティはより以上に深いです。
リディクロを理解するには、コーダルとモーダルの関係性を定義した
モードジャズを迂回したほうが解りやすいかもしれません。、
モードジャズのコンセプトはもっとスケールに主張させようというものでした。
そのためアボイドをキャラクタノートとして積極的に活用しようという試みともいえます。
Cドリアンスケール -> 0, 2, 3, 5, 7, 9, 10 であれば、9 [a] の音がキャラクタノートになります。
つまり、ラを積極的に使うとドリアンスケール感が出ます、。
http://www.guitarholic.com/sok/sok_16.html
ちなみにモードではスケール指定により使用できるコードが決まってしまうため、楽曲面ではかなり制限がかかります。、
またスケール優先のためアボイドコードが発生し、適用できないコードができるようです。
http://legthkvk.web.fc2.com/html/gakuten06_1.html
モードはまだ解らない点が多々あるので、機会を見て学びたいと思ってます。
*/
/* ブルースの簡単な説明
standard jazz
┃C7┃F7┃C7┃C7┃ ┃C7┃F7┃C7┃C7┃
┃F7┃F7┃C7┃C7-12┃ ┃F7┃F7┃C7┃C7-12┃
┃G7┃F7┃C7┃G7┃ ┃Dm┃G7┃C7┃G7┃
基本構造は上記の動きです。
今回は、ロックなどで適用されるstandardを使用しました。
通常リードギターの場合スケールは、マイナーペンタを使用します。
Cマイナーペンタだけで最初から最後まてフレージングしても実はあまり違和感がありません。
ただ曲を考える以上、良い機会なので今回はテスト的に
コンディミとオルタードスケールをG7に適用しました。
最初のG7は Dコンディミ、最後のG7は Bオルタードを適用しました。
C7 F7は Cマイナーペンタのみで打ち込みました。
ブルースらしくするための秘訣は、D#, Eの間の音を出すことです。
ブルーススケールにはメジャーともマイナーとも言えない面があるのはこのためです。
これにマイナーブルースを主張するのであれば、F#が必須です。
ですがマイナーペンタは、
// c d# [e] f [f#] g a#
// 0 3 5 7 10
どちらの音もありません、、
これらのない音を出す方法論としては、ふたつの音を同時鳴らす方法、トリルで表現、
またベンド(チョーキング)という手を使います。
ブルースギタリストはブルージーな感じを出すために、ベンドを実はしてたんですね。
ちなみに、コードでは7th#9で同時音となります。 -> (0, 4[e], 7, 10, 15[d#])
ロックはブルースが根底に流れている音楽なので、このスケールがよく適用されます。
ブルースは単純な12小節の繰り返しですが飽きない仕組みがあり、
かつ音楽的にはシンプルで扱いやすい点が魅力的です。
*/
/* --- 履歴
'13 1 14 与えられたコード展開をつなげる -> kikakuChord
ブルース展開を追加 -> BluesChord
'13 1 15 コード展開を増量、ポップス的に賽を振る
7thコード[ドミナントモーション]で流れをつかむ。
できるだけ一度出てきた同一コードを使いまわす、ただしヲクターブ違いにするなど工夫はする、、
ルートモーション、最低音の上下動の動きは手を抜いてはいけない。
D -> SD 半終止でまだまだ続くようなつなぎへ変更。
solo -> 主に同主調のみで組みあわせる。
'13 1 16 ベースパターンをスケール理論で修正
'13 1 17 タイミング調整、ベースとバスドラの発音タイミングを合わせる、スネアにモタリを入れる
'13 1 19 ベースフレーズ修正、ドラムシンバル追加、パート構成見直し
スケールの考察と支援ドキュメント生成
'13 1 26 ソロフレーズ完成、シーケンシャルパターン修正済み
'13 1 27 仮完成 v1.0
'13 1 28 コメント書き込み
'13 1 29 コメント修正、バランス調整
'13 1 30 四度堆積和音へ変更
アップロード v1.13
`13 1 31 コメント間違い修正版 アップロード v1.14
*/
// TW-Music2(DirectX[Music]) Effect
// ReverbSetting Time Dpth High Mix
CuePoint={"TwmParam ( 63, 63, 9, 127)"} //初期値(127,117,0,127)
// CuePoint={"TwmParam (127, 127, 60)"} //tenjyou.mmlより参照設定
// 高周波を比較的強く出し //tenjyou.mmlより参照コメント
// タイム・デプス共に最大で演出的に
// ChorusSetting Wave Mix Dpth FB Freq Dly Phs
CuePoint={"TwmChorus ( 1, 33, 66, 111, 66,111, 4)"} //初期値(0,64,25,79,14,114,3)
// CuePoint={"TwmChorus ( 1, 127, 30, 60, 1, 50, 0)"} //tenjyou.mmlより参照設定値
// ゆらぎの周期を最も遅くし、フランジャー設定 //tenjyou.mmlより参照コメント
// ディレイを長めにとって、擬似ステレオに
//Function
Function Chdx(Str Part, Str Beat, Array Elm_chd){ //"BluesChord >" / l8 zrrrz^ / 0, 0,4,7,10
// Array Elm_tmp=();
// IF(POS({kikakuChord},Part)!=0){ //パートチェック <- 発見できた
// FOR(Int I=0; I< 4; I++){
// Elm_tmp=( Elm_tmp, Elm_chd(I) );
// }
// Elm_chd =Elm_tmp; // 3和音化 (-2, 0,4,7,10) -> (-2, 0,4,7)
// //Print(Elm_chd)
// } //不要
Int CC= MML(o)*12;
Str Chd_str={'} //出力コード
FOR(Int I=1; I< SizeOf(Elm_chd); I++){ //Elm_chd(1)から
Chd_str=Chd_str+{n(}+(CC+Elm_chd(0)+Elm_chd(I))+{)};
}
Chd_str=Chd_str+{'};
Beat.s({z},Chd_str);
RESULT= Beat; // 'n48n52n55n58'
} //Func
Function Sqx_RootChg(Str RC, Int Z){ // Bb(7) / Int Z はバグ対策?
Int Root_out=0; //M
IF(POS({7},RC)!=0){ //7があるか <- 発見できた
IF(POS({M},RC)!=0 | POS({m},RC)!=0){
IF(POS({M},RC)!=0){
IF(POS({qua},RC)!=0){ Root_out= 0; } // qua M7
ELSE{ Root_out= 0; } // M7
}
IF(POS({m},RC)!=0){
IF(POS({qua},RC)!=0){ Root_out= 1; } // qua m7
ELSE{ Root_out= 3; } // m7
}
}
ELSE{
Root_out=-2; //7th qua7
}
}
ELSE{
IF(POS({sus2},RC)!=0){ Root_out= 0; } //sus2
IF(POS({sus4},RC)!=0){ Root_out= -2; } //sus4
IF(POS({m},RC)!=0){ Root_out= 3; } //m
}
//Print(Root_out)
RESULT= Root_out; // [Lidian's Root change]
} //Func
Function Sqx_Reader(Int SW){ // Random(2,3)
Str NN={};
SWITCH(SW){ //Ptn読込み
CASE(0){ NN={ Tmp= CC +Root +Mero(I%MM) + I/2 /MM *12; } } //上昇
CASE(1){ NN={ Tmp= CC +Root +Mero(I%MM) - ( (I/MM)-1 )*12; } }
CASE(2){ NN={ Tmp= CC +Root +Mero( (MM-1)-I%MM ) + I/MM *12; } } //下降
CASE(3){ NN={ Tmp= CC +Root +Mero( (MM-1)-I%MM ) - ( I/2 /MM )*12; } }
} //SW
// Print(NN)
RESULT= NN; // [Lidian's Mero Reader]
} //Func
Function Sqx_Mero(Int SW){ // Random(2,6)
Array Mero=();
SWITCH(SW){ //Ptn読込み
CASE(0){ Mero=(0, 2, 4, 6, 7, 9,11); }
CASE(1){ Mero=(0, 4, 7, 0, 6, 9, 0, 2,11); }
CASE(2){ Mero=(0, 4, 7); }
CASE(3){ Mero=(0, 2, 6,11); }
CASE(4){ Mero=(0, 2, 6, 9, 11); }
CASE(5){ Mero=(7, 2, 6, 4,11, 0, 9, 7, 4, 0,11, 2); }
} //SW
// Print(Mero)
RESULT= Mero; // [Lidian's Mero]
} //Func
Function Sqx_Splitter(Str TT,Int Z){ // l16 zrzz z^^^ / 配列スプリッタ / Int Zはバグ?回避の飾り
// Str TT={l16 zrzz z^^^}; //打ち込み記述
Array ZZ=(); //最終出力
Str FF=TT+{_FIN}; //再起出力
Str RR={}; //分離出力
Array CC=({z},{r},{^}); //切り取り指定キャラクタ
Int Temp=0; //_FINまでのカウント
Int Top=0; //カット後の最初のノートカウント
Int Tmp=0;
WHILE(1){
Temp= POS( {_FIN}, FF); //Print({Temp:}+Temp)
Top=Temp;
FOR(Int I=0; I< SizeOf(CC); I++){
Tmp= POS( CC(I), FF);
IF(Tmp< Top & Tmp!=0){ Top= Tmp; } //最小数選別
} //
IF(Temp==Top){ EXIT; } ///
RR=MID(FF, 0, Top+1);//Print({RR:}+RR) //カット
FF=MID(FF, Top+1, Temp+4-Top);//Print({FF:}+FF) // _FINで4つ分 -> +4
ZZ=(ZZ,RR);
} //
//Print(ZZ)
RESULT=ZZ; //l8 z,r,z,z, z,^,^,^
} //Func
Function Sqx(Str ChdChk, Str Beat, Array Elm_chd){ // Bb(7) / l16 zzzz / 0, 0,4,7,10
//KeyChk -gbl
Array Mero=();
Str NN={};
IF( Elm_chd(0)-KeyChk< -4 ){ // -5以下 / 音程開き幅チェック
Mero= Sqx_Mero(Random(1,2));
NN= Sqx_Reader(Random(3,4));
}
ELSE{
IF( Elm_chd(0)-KeyChk < 1){ // -4,0
Mero= Sqx_Mero(Random(2,6));
NN= Sqx_Reader(Random(2,3));
}
ELSE{
IF( Elm_chd(0)-KeyChk < 6){ // 1,5
Mero= Sqx_Mero(Random(2,6));
NN= Sqx_Reader(Random(2,3));
}
ELSE{ // 6以上
Mero= Sqx_Mero(Random(1,2));
NN= Sqx_Reader(Random(1,2));
}
}
}
//NN; - 出力時必要
Int Root= Elm_chd(0)+Sqx_RootChg(ChdChk); // [Lidian's Root change]
Int MM=SizeOf(Mero); //可読性のため
Int CC= MML(o)*12;
Int Tmp=0; //n.number output
Array RR= Sqx_Splitter(Beat); //配列分離 ->音符数、ループ回数
Str WW={}; //Str変換と可読性
Str Chd_str={} //出力コード
FOR(Int I=0; I< SizeOf(RR); I++){
NN; //Tmp
//Limit -gbl
IF(Tmp< 72-Limit*12){ Tmp=60-Limit*12+Tmp%12; } //下がり過ぎチェック
IF(84+Limit*12< Tmp){ Tmp=60+Limit*12+Tmp%12; }
WW=RR(I);
WW.s({z},{n(}+Tmp+{)}); //差替え
//TT -gbl
//Delay -gbl
SWITCH(Delay){
CASE(2){
Chd_str=Chd_str +{TT=Time; r6^3^3 v}+(VEL/4) +WW +{Time=TT; r6^3 v}+(VEL/2) +WW +{Time=TT; r6 v}+(VEL/4*3) +WW +{Time=TT; v}+(VEL) +WW;
}
CASE(1){
Chd_str=Chd_str +{TT=Time; r3^6 v}+(VEL/4) +WW +{Time=TT; r3 v}+(VEL/2) +WW +{Time=TT; r6 v}+(VEL/4*3) +WW +{Time=TT; v}+(VEL) +WW;
}
CASE(0){
Chd_str=Chd_str +{TT=Time; r24 v}+(VEL/2) +WW +{Time=TT; v}+(VEL) +WW;
}
} //SW
} //
//Print(Chd_str)
RESULT= Chd_str; // TT=Time;r24v51 #ML;l16 n(62) Time=TT;v103 #ML;l16n(62) TT=Time;r24v51 n(71) Time=TT;v103 n(71)...
KeyChk= Elm_chd(0); //音程チェック出力 - gbl
} //Func
Function Bsx(Str Beat, Array Elm_chd){ //l8 ccrr `c"caa# / 0, 0,4,7,10
Int VV= VEL;
Int CC= MML(o);
Int KK= Elm_chd(0);
Str Chd_str={} //出力
Chd_str={TT=Time;} +{ TrackKey=}+KK +{ } +{o}+(CC+1) +{v}+(VV/4*3) +Beat +{Time=TT;} +{o}+CC +{v}+VV +Beat; //unison
//Print(Chd_str);
RESULT= Chd_str; // TT=Time;TrackKey=-3 o4v87 l8 ccrr `c"caa# Time=TT;o3v116 l8 ccrr `c"caa#
} //Func
Function Gtx(Str Beat, Array Elm_chd){ //l12 "acd f&g^ / 0, 0,4,7,10
Int VV= VEL;
Int CC= MML(o);
Int KK= Elm_chd(0);
Str Chd_str={} //出力
Chd_str={TT=Time;} +{r32} +{o}+(CC+1) +{v}+(VV/5) +Beat +{Time=TT;} +{o}+(CC+1) +{v}+(VV/3) +Beat +{Time=TT;} +{o}+(CC) +{v}+(VV) +Beat;
//Print(Chd_str);
RESULT= Chd_str; //TT=Time;r32o7v23 l12 "acd f&g^ Time=TT;o7v39 l12 "acd f&g^ Time=TT;o6v119 l12 "acd f&g^
} //Func
Function Drx(Str Beat, Int TT){ //l8 ZCXZ ZCXC / Int TTはバグ対策含む
// Function Drx(Str BD, Str Sn, Str HH, Str CT, Int TT){ //Intはバグ対策?
// BD.s({Z},{t0 'n35n36'}); //BD
// Sn.s({X},{t1 'n37n40'}); //Sn
// HH.s({C},{t0 'n42'}); //closeHH
// HH.s({V},{t0 'n46'}); // openHH
Beat.s({Z},{t0 'n35'}); //BD
Beat.s({X},{t1 'n40'}); //Sn
Beat.s({C},{t0 'n42'}); //closeHH
Beat.s({V},{t0 'n46'}); // openHH
Beat.s({A},{t0 'n57'}); //CrashCymbal
Int VV= VEL;
//Beat=Sub{BD}Sub{Sn}Sub{HH}Sub{CT} //出力
Str Chd_str= {TT=Time;} +{v}+(VV/3) +{ r32 } +Beat +{Time=TT;} +{v}+(VV) +Beat; //ゲート[v/3 r32]
//Print(Chd_str);
RESULT= Chd_str; //Beat.sで書き替え
} //Func
// マクロ(固定値)
Int Ti=TimeBase*4; //ラグ
// a b c d e f f# g
//10 (2) 0 3 [4] 5 [6] 7
#MP={ TrackKey=0; KeyFlag=( 1,-9, 0, 1, 0, 0, 0) } //マイナーペンタ+[M3][b5]
// a b c c# d e f g
// 9 10 0 1 3 4 6 7
#CD={ TrackKey=2; KeyFlag=( 1,-1, 0, 1, 0, 1, 0) } //コンディミ
// a b c c# d e (f) g
// 8 10 0 1 3 4 6
#AL={ TrackKey=-1; KeyFlag=(-1,-1, 0, 1, 0, 0,-1) } //オルタード
#MS={ TrackKey=0; KeyFlag=( 0, 0, 0, 0, 0, 0, 0) } //リセット
// 変数
Str Pa={}; //リリックパート
Str Cd={}; //リリックコード
Str Sc={}; //リリックスケール
Array Ar=(); //コード
Str Kb={}; //バッキング
Str Bs={}; //ベース
Str Gt={}; //ギター
Str Dr={}; //ドラム
Str Sq={}; //リディアンシーケンシャル
Int KeyChk=0; //キーチェック - gbl
Int Delay=0; //ディレイsw - gbl
Int Limit=1; //[1,2] - gbl
Str Le={}; //小節長さ
Str Be={}; //出力
Int VEL=0; //音量 - gbl
Int TT=0; //キャプタイム - gbl
FOR(Int J=1; J<= 10; J++){ //トラック
IF(J==5){ J= 10; }
TR=J;
IF(TR==1 ){ @81,1 t.Random=2 v116 VEL=MML(v); v.Random=32 q.Random=24 q87 o3 P=33 REV=44 CHO=0 Time=Time+Ti+1; #Pi={ Be=Bsx(Bs,Ar); Sub{Lyric=Pa+Cd+Sc; Be;} Le;} }
IF(TR==2 ){ @82,1 t.Random=4 v111 VEL=MML(v); v.Random=30 q.Random=8 q57 o5 P=70 REV=33 CHO=1 Time=Time+Ti-2; #Pi={ Be=Chdx(Pa,Kb,Ar); Sub{Be;} Le; } }
IF(TR==3 ){ @81,8 t.Random=4 v119 VEL=MML(v); v.Random=32 q.Random=16 q66 o6 P=111 REV=33 CHO=0 Time=Time+Ti-8; #ML={M.onNoteSine(1,24,4,!2,2)} #Pi={ Be=Gtx(Gt,Ar); Sub{Be;} Le; } }
IF(TR==4 ){ @81,8 t.Random=6 v103 VEL=MML(v); v.Random=48 q.Random=48 q71 o4 P=99 REV=44 CHO=1 Time=Time+Ti-6; #ML={M.onNoteSine(1,24,4,!2,1)} #Pi={ Be=Sqx(Cd,Sq,Ar); Sub{Be;} Le; } }
IF(TR==10){ @26 t.Random=2 v111 VEL=MML(v); v.Random=30 UseKeyShift(off) P=63 REV=44 CHO=0 Time=Time+Ti; #Pi={ Be=Drx(Dr); Sub{Be;} Le; } }
//曲データ
#openning={
Pa={"openning >"}
//コード //フレーズ
//Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8rz } Bs={ r } Gt={ r } Sq={ r } Sc={" "} Dr={ l8 rrrr C } Le={ r1 } #Pi;
//Cd={" F7"} Ar=(-7, 0,4,7,10) Le={ r1 } #Pi;
//Cd={" C7"} Ar=( 0, 0,4,7,10) Le={ r1 } #Pi;
//Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8rzrrz } Le={ r1 } #Pi;
//Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8rz } Le={ r1 } #Pi;
//Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8rzrrz } Le={ r1 } #Pi;
//Cd={" C7"} Ar=( 0, 0,4,7,10) Le={ r1 } #Pi;
//Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8rz } Le={ r1 } #Pi;
Cd={" G7"} Ar=( 7, 0,4,7,10) Kb={l8 r } Dr={ l8 CCrr X } Le={ r1 } #Pi;
Cd={" F7"} Ar=( 5, 0,4,7,10) Kb={l8 r } Dr={ l8 CrCr X } Le={ r1 } #Pi;
Cd={" C7"} Ar=(-12,0,4,7,10) Kb={l8 r } Dr={ l8 CCCC X } Le={ r1 } #Pi;
Cd={" G7"} Ar=(-5, 0,4,7,10) Kb={l8zrzrrz } Bs={ l8 c^^^ cccc } Gt={ r-96 l12 "f#32^16&""f4^8^16&"f4^8^32 } Dr={l8 rZZZ ZZXX } Le={ r1 } #Pi;
};
#BluesChord={
Pa={"BluesChord >"}
//c0d3[e4]f5[f#6]g7a10
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c a a#} Gt={ #ML; #MP; l12 dfga16&`c2 } Sq={ r } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r c "c d d#} Gt={ l12 g24&a2^4 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l12 "c1^8 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r a#"a#a`a} Gt={ l24 [6 f:g]g4 } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c d d#} Gt={ l12 a24c^^^ d16c4^16 } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a#a a} Gt={ l12 c16&d2^4 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l12 d8^2&c8^16 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r d"d d# d#} Gt={ l12 f16d16c2^4 } Le={ r1 } #Pi;
Cd={" G7"} Ar=( 7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr a#"a g"f#} Gt={ #CD; l12 "bc#df32&g#8 } Sc={" > D Con Dimi"} Le={ r1 } #Pi;
Cd={" F7"} Ar=( 5, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a g f#} Gt={ #MP; l12 d32fdc8^16 } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi;
Cd={" C7"} Ar=(-12,0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc d "d#f`f#} Gt={ l12 gargacd32&f4 } Dr={l8 ACXZ ZCXV } Le={ r1 } #Pi;
Cd={" G7"} Ar=(-17,0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r c#"d#e f#} Gt={ #AL;l24 c# e32&g8^16 r8 #MS; e24&g4^8 M=0; r } Sc={" > B Altered"} Dr={l8 ZCXZ ZCVZ } Le={ r1 } #Pi;
};
#BluesChord1={
Pa={"BluesChord 1 >"}
//c0d3[e4]f5[f#6]g7a10
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c a a#} Gt={ #ML; #MP; l12 "acd f&g^ ga&`c`d^^^ } Sq={ M=0;r } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r c "c d d#} Gt={ l24 `c`d`ca cagf gfdc dc"a"g "a"g"f"d "c4 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l12 r24a8&`c2 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r a#"a#a`a} Gt={ l24 [2 `c`d`ca ga] gagf dfdc "ac"ac16 &d2 } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c d d#} Gt={ r } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a#a a} Gt={ r-2 "f16&"g8 r12 l24 "f"g"a"f&"g^^^ "g"ac"g&"a^^^ "acd"a&c^^^ } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l32 "gcd"gcd"gcd a16&`c4^8 l16`d16&`c16^8r16 [4 `c`d g`d] } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r d"d d# d#} Gt={ r } Le={ r1 } #Pi;
Cd={" G7"} Ar=( 7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr a#"a g"f#} Gt={ #CD; l16 "g"bcd cdfg fgb`c# b`c#`d`e } Sc={" > D Con Dimi"} Le={ r1 } #Pi;
Cd={" F7"} Ar=( 5, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a g f#} Gt={ #MP; l16 "f"g"f "ac"a "g "ac"a dfdc ga } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi;
Cd={" C7"} Ar=(-12,0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc d "d#f`f#} Gt={ l12 [2 dfg adf ] } Dr={l8 ACXZ ZCXV } Le={ r1 } #Pi;
Cd={" G7"} Ar=(-17,0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r c#"d#e f#} Gt={ #AL; l24 ""b"c#"d"g"a"b "d"g"a"bc#e "a"bc#ega c#ega #MS; a16&b3 M=0; r } Sc={" > B Altered"} Dr={l8 ZCXZ ZCVZ } Le={ r1 } #Pi;
};
#BluesChord2={
Pa={"BluesChord 2 >"}
//c0d3[e4]f5[f#6]g7a10
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c a a#} Gt={ r-2 #ML; #MP; l24[12 a`c]l12 a&`c^^^ } Sq={ r } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r c "c d d#} Gt={ l24 `c`d`ca cagf gfdc dc"a"g "a"g"f"d "c4 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l12 r24"c2&""a8 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r a#"a#a`a} Gt={ l24 [2 `c`d`ca ga] gagf dfda gf#fe d4&"d^^^ "c4&c^^ } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr `c "c d d#} Gt={ r } Le={ r1 } #Pi;
Cd={" F7"} Ar=(-7, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a#a a} Gt={ l24 [4 ga] g2 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc `c "c`a a#} Gt={ l12 dfdc dfdc dfga ga`c`d a16&`c4 } Le={ r1 } #Pi;
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r d"d d# d#} Gt={ r } Le={ r1 } #Pi;
Cd={" G7"} Ar=( 7, 0,4,7,10) Kb={l8 zrrrz^ } Bs={l8 ccrr a#"a g"f#} Gt={ #CD; l16 cdfg fgb`c# b`c#`d`e `d`e`g`b } Sc={" > D Con Dimi"} Le={ r1 } #Pi;
Cd={" F7"} Ar=( 5, 0,4,7,10) Kb={l8 rz^^^^ } Bs={l8 c^^r a#"a g f#} Gt={ #MP; l16 "f"g"ac "acdf dfga gacd } Sc={" > C Blue Note"} Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi;
Cd={" C7"} Ar=(-12,0,4,7,10) Kb={l8 rrrz^^ } Bs={l8 c^rc d "d#f`f#} Gt={ l48 a`c`d `f`g`a `a`g`f`d`ca l24 fga `c`d`f cdf ga`c "g"ac dfg } Dr={l8 ACXZ ZCXV } Le={ r1 } #Pi;
Cd={" G7"} Ar=(-17,0,4,7,10) Kb={l8 z^^rrz } Bs={l8 cc^r c#"d#e f#} Gt={ #AL; l24 `c#`cbag bagec# gec#"b"a c#"b"a"g"d "a"g"d"c#""b #MS; "c24&"d#4^8 M=0; r } Sc={" > B Altered"} Dr={l8 ZCXZ ZCVZ } Le={ r1 } #Pi;
};
#solo={
Pa={"solo >"}
Cd={" CM7"} Ar=(-12,0,4,7,11) Kb={l8 z^^^ ^ } Bs={l8 ccrr rrrr } Gt={ r } Sq={ r } Sc={" "} Dr={l8 Crrr Crrr } Le={ r1 } #Pi;
Cd={" Em7"} Ar=(-8, 0,3,7,10) Le={ r1 } #Pi;
Cd={" Am7"} Ar=(-15,0,3,7,10) Le={ r1 } #Pi;
Cd={" Am7"} Ar=(-15,0,3,7,10) Le={ r1 } #Pi;
};
#soloA={
Cd={" CM7"} Ar=(-12,0,4,7,11) Kb={l8 z^^^ ^ } Bs={l8 ccrr rrrr } Dr={l8 Crrr Crrr } Le={ r1 } #Pi;
Cd={" Am7"} Ar=(-15,0,3,7,10) Le={ r1 } #Pi;
Cd={" Caug"} Ar=(-12,0,4,8) Kb={l8 z^^^^ ^^^ } Bs={l8 c^^^ crrr } Dr={l8 r } Le={ r2 } #Pi;
Cd={" C7#9"} Ar=(-12,0,4,7,10,15) Kb={l8 z^^^ ^^^ } Le={ r2 } #Pi;
Cd={" Fsus4 add9"} Ar=(-19,0,5,7,14) Le={ r2 } #Pi;
Cd={" G7b13"} Ar=(-17,0,4,7,10,20) Le={ r2 } #Pi;
};
#soloB={
//Key=-5
Cd={" CM7"} Ar=(-12-5,0,4,7,11) Kb={l8 z^^^ ^ } Bs={l8 ccrr rrrr } Dr={l8 Crrr Crrr } Le={ r1 } #Pi;
Cd={" Em7"} Ar=(-20-5,0,3,7,10) Le={ r1 } #Pi;
//Key=0
Cd={" F#m7b5"} Ar=(-18, 0,3,6,10) Kb={l8 z^^^ ^^^ } Bs={l8 c^^`c } Dr={l8 r } Le={ r2 } #Pi;
Cd={" FM7"} Ar=(-19, 0,4,7,11) Le={ r2 } #Pi;
Cd={" E7sus4"} Ar=(-20, 0,5,7,10) Le={ r2 } #Pi;
Cd={" E7"} Ar=(-20, 0,4,7,10) Le={ r2 } #Pi;
Cd={" E7"} Ar=(-20, 0,4,7,10) Kb={l8 z^^ } Bs={l8 c`g } Dr={l8 r } Le={ r4 } #Pi;
Cd={" E7"} Ar=(-20, 0,4,7,10) Le={ r4 } #Pi;
Cd={" E7"} Ar=(-20, 0,4,7,10) Le={ r4 } #Pi;
Cd={" E7"} Ar=(-20, 0,4,7,10) Le={ r4 } #Pi;
};
#SoloBreak={
Pa={"SoloBreak >"}
Cd={" Equa 7"} Ar=(-32, 0,10,16) Kb={l8 z^^ } Bs={l8 c&`g } Gt={ r } Sq={ r } Sc={" "} Dr={l8 r } Le={ r4 } #Pi;
Cd={" Equa 7"} Ar=(-32, 0,10,16) Le={ r4 } #Pi;
Cd={" Equa 7"} Ar=(-32, 0,10,16) Le={ r4 } #Pi;
Cd={" Equa 7"} Ar=(-32, 0,10,16) Le={ r4 } #Pi;
Cd={" Equa 7"} Ar=(-32, 0,10,16) Kb={l8 z^^^ ^^^^ | ^^^ } Bs={l8 c^^^ 'cg'^^^ } Le={ r1 } #Pi;
Cd={" Equa 7"} Ar=(-32, 0,10,16) Kb={l8 r } Bs={l8 c^^^ d#"a# "g"e } Dr={l8 XrrX XXXX } Le={ r1 } #Pi;
};
#kikakuChord1={
Pa={"kikakuChord 1 >"}
Cd={" 2 > Am"} Ar=(-3, 0,3,7) Kb={l8 z^rrz^ } Bs={l8 cccc cccc } Sc={" > C Lydian"} Sq={ #ML; l16 zzzz zzzz zzzz zzzz } Gt={ r } Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi; //２
Cd={" 2 > Bb(7)"} Ar=(-2, 0,4,7) Kb={l8 z^rrrz } Sc={" > Ab Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi; //
Cd={" 2 > Dm"} Ar=( 2, 0,3,7) Kb={l8 z^rrz^ } Sc={" > F Lydian"} Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi; //
Cd={" 2 > F"} Ar=( 5, 0,4,7) Kb={l8 z^rrz^ } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzz^ } Dr={l8 ZCXZ ZCXX } Le={ r1 } #Pi; //
Cd={" Ab"} Ar=(-4, 0,4,7) Kb={l8 z^rrrrz } Bs={l8 cccc cccc } Sc={" > Ab Lydian"} Sq={ l16 zrzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi;
Cd={" Bb(7)"} Ar=(-2, 0,4,7) Kb={l8 z^rrz^ } Sc={" > Ab Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi;
Cd={" Am"} Ar=(-3, 0,3,7) Kb={l8 z^rrz^ } Sc={" > C Lydian"} Dr={l8 ZCXZ ZCXA } Le={ r1 } #Pi;
Cd={" G(7)"} Ar=(-5, 0,4,7) Kb={l8 z^rrrrz } Bs={l8 cccc cc^^ } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zz^^ } Dr={l8 ZZXZ VCXA } Le={ r1 } #Pi;
IF(TR==4){ Limit=2; }
Cd={" 1 > Dm"} Ar=( 2, 0,3,7) Kb={l8 z^rrz^ } Bs={l8 cccc cccc } Sc={" > F Lydian"} Sq={ l16 zrzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi; //１
Cd={" 1 > B♭"} Ar=(-2, 0,4,7) Kb={l8 z^rrrrz } Sc={" > Bb Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r1 } #Pi; //
Cd={" 1 > C(7)"} Ar=( 0, 0,4,7) Kb={l8 z^rrz^ } Sc={" > Bb Lydian"} Dr={l8 ZCXZ ZCXZ } Le={ r1 } #Pi; //
Cd={" 1 > F"} Ar=(-7, 0,4,7) Kb={l8 z^rrz^ } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzz^ } Dr={l8 ZCXZ ZCXX } Le={ r1 } #Pi; //
Cd={" Gm"} Ar=(-5, 0,3,7) Kb={l8 z^rrz^ } Bs={l8 cccc cccc } Sc={" > Bb Lydian"} Sq={ l16 z^zz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r1 } #Pi;
Cd={" B♭"} Ar=(-2, 0,4,7) Kb={l8 z^rrrrz } Sc={" > Bb Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXA } Le={ r1 } #Pi;
Cd={" Fsus2"} Ar=(-7, 0,2,7) Kb={l8 z^rrrrz } Bs={l8 cccc ccc^ } Sc={" > F Lydian"} Dr={l8 ACXZ ZCXV } Le={ r1 } #Pi;
Cd={" F"} Ar=(-7, 0,4,7) Kb={l8 z^rrz^r } Bs={l8 crcr crcr } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz M=0; r } Dr={l8 ZXXV ^^^^ } Le={ r1 } #Pi;
IF(TR==4){ Limit=1; }
};
#kikakuChord2={
Pa={"kikakuChord 2 >"}
Cd={" 2'> B qua m7"} Ar=( -1, 0,5,10,15) Kb={l8 z^ } Bs={l8 cccc cccc } Sc={" > C Lydian"} Sq={ #ML; l16 zzzz zzzz zzzz zzzz } Gt={ r } Dr={l8 ZCXZ ZCXV } Le={ r4 } #Pi; //２
Ar=(-13, 0,5,10,15) Kb={l8 z^^^ ^^ } Bs={r } Sq={ r } Dr={ r } Le={ r2 } #Pi; //
Ar=(-25, 0,5,10,15) Kb={l8 z^ } Bs={r } Sq={ r } Dr={ r } Le={ r4 } #Pi; //
Cd={" 2'> Bb qua 7"} Ar=(-14, 0,10,16) Kb={l8 z^ } Bs={l8 cccc cccc } Sc={" > Ab Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r4 } #Pi; //
Ar=(-26, 0,10,16) Kb={l8 z^^^ z } Bs={r } Sq={ r } Dr={ r } Le={ r4^2 } #Pi; //
Cd={" 2'> E qua m7"} Ar=(-20, 0,5,10,15) Kb={l8 z^^ } Bs={l8 cccc cccc } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r4 } #Pi; //
Ar=( -8, 0,5,10,15) Kb={l8 z^^^ } Bs={r } Sq={ r } Dr={ r } Le={ r2^4 } #Pi; //
Cd={" 2' > F qua M7"} Ar=( -7, 0,11,16) Kb={l8 z^rr } Bs={l8 cccc cccc } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzz^ } Dr={l8 ZCXZ ZCXX } Le={ r2 } #Pi; //
Ar=(-19, 0,11,16) Kb={l8 z^z^ } Bs={r } Sq={ r } Dr={ r } Le={ r2 } #Pi; //
Cd={" Ab qua M7"} Ar=( -4, 0,11,16) Kb={l8 z^ | ^^ } Bs={l8 cccc cccc } Sc={" > Ab Lydian"} Sq={ l16 zrzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r4 } #Pi;
Ar=(-16, 0,11,16) Kb={l8 z^ } Bs={ r } Sq={ r } Dr={ r } Le={ r2 } #Pi;
Ar=(-28, 0,11,16) Kb={l8 z^^^ } Bs={ r } Sq={ r } Dr={ r } Le={ r4 } #Pi;
Cd={" Bb qua7"} Ar=(-14, 0,10,16) Kb={l8 z^ } Bs={l8 cccc cccc } Sc={" > Ab Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r4 } #Pi;
Ar=(-26, 0,10,16) Kb={l8 z^^z } Bs={ r } Sq={ r } Dr={ r } Le={ r2 } #Pi;
Ar=(-14, 0,10,16) Kb={l8 z^ } Bs={ r } Sq={ r } Dr={ r } Le={ r4 } #Pi;
Cd={" Bqua m7"} Ar=(-13, 0,5,10,15) Kb={l8 z^ } Bs={l8 cccc cccc } Sc={" > C Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXA } Le={ r4 } #Pi;
Ar=( -1, 0,5,10,15) Kb={l8 z^^z zr } Bs={ r } Sq={ r } Dr={ r } Le={ r2^4 } #Pi;
Cd={" G qua7"} Ar=(-17, 0,10,16) Kb={l8 z^^ } Bs={l8 cccc cc^^ } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zz^^ } Dr={l8 ZZXZ VCXA } Le={ r4 } #Pi;
Ar=( -5, 0,10,16) Kb={l8 z^^z ^z } Bs={ r } Sq={ r } Dr={ r } Le={ r2^4 } #Pi;
IF(TR==4){ Limit=2; }
Cd={" 1'> Equa m7"} Ar=(-32, 0,5,10,15) Kb={r4 | l8 z^ } Bs={l8 cccc cccc } Sc={" > F Lydian"} Sq={ l16 zrzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r8 } #Pi; //１
Ar=(-20, 0,5,10,15) Kb={r4 | l8 z^ } Bs={ r } Sq={ r } Dr={ r } Le={ r8 } #Pi; //１
Ar=( -8, 0,5,10,15) Kb={r4 | l8 z^ } Bs={ r } Sq={ r } Dr={ r } Le={ r8 } #Pi; //１
Ar=( 4, 0,5,10,15) Kb={r4 | l8 z^^^ ^ } Bs={ r } Sq={ r } Dr={ r } Le={ r2^8 } #Pi; //１
Cd={" 1'> Bb qua M7"} Ar=( -2, 0,11,16) Kb={l8 z^^z } Bs={l8 cccc cccc } Sc={" > Bb Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXV } Le={ r2 } #Pi; //
Ar=(-14, 0,11,16) Kb={l8 z^^z | rz } Bs={ r } Sq={ r } Dr={ r } Le={ r2 } #Pi; //
Cd={" 1'> C qua7"} Ar=( 0, 0,10,16) Kb={l8 z } Bs={l8 cccc cccc } Sc={" > Bb Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXZ } Le={ r8 } #Pi; //
Ar=(-12, 0,10,16) Kb={l8 r } Bs={ r } Sq={ r } Dr={ r } Le={ r8 } #Pi; //
Ar=( 0, 0,10,16) Kb={l8 z^ ^^ } Bs={ r } Sq={ r } Dr={ r } Le={ r2^4 } #Pi; //
Cd={" 1'> F qua M7"} Ar=(-19, 0,11,16) Kb={l8 z^^^ } Bs={l8 cccc cccc } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzz^ } Dr={l8 ZCXZ ZCXX } Le={ r2 } #Pi; //
Ar=(-31, 0,11,16) Kb={l8 z^^^ } Bs={ r } Sq={ r } Dr={ r } Le={ r2 } #Pi; //
Cd={" A qua m7"} Ar=(-15, 0,5,10,15) Kb={l8 z^^^ } Bs={l8 cccc cccc } Sc={" > Bb Lydian"} Sq={ l16 z^zz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXC } Le={ r2 } #Pi;
Ar=(-27, 0,5,10,15) Kb={l8 z^^z } Bs={ r } Sq={ r } Dr={ r } Le={ r2 } #Pi;
Cd={" Bb qua M7"} Ar=( -2, 0,11,16) Kb={l8 z^^^ } Bs={l8 cccc cccc } Sc={" > Bb Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ZCXZ ZCXA } Le={ r4^8 } #Pi;
Ar=(-14, 0,11,16) Kb={l8 z^^ } Bs={ r } Sq={ r } Dr={r } Le={ r4 } #Pi;
Ar=(-26, 0,11,16) Kb={l8 z^^^ } Bs={ r } Sq={ r } Dr={r } Le={ r4^8 } #Pi;
Cd={" F qua M7"} Ar=( -7, 0,11,16) Kb={l8 z^^ } Bs={l8 cccc ccc^ } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz } Dr={l8 ACXZ ZCXV } Le={ r4 } #Pi;
Ar=(-19, 0,11,16) Kb={l8 z^^ } Bs={ r } Sq={ r } Dr={r } Le={ r4 } #Pi;
Ar=(-31, 0,11,16) Kb={l8 z^^^ ^^ | ^ } Bs={ r } Sq={ r } Dr={r } Le={ r2 } #Pi;
Cd={" F qua M7"} Ar=( -7, 0,11,16) Kb={l8 z^ } Bs={l8 crcr crcr } Sc={" > F Lydian"} Sq={ l16 zzzz zzzz zzzz zzzz M=0; r } Dr={l8 ZXXV ^^^^ } Le={ r4 } #Pi;
Ar=(-19, 0,11,16) Kb={l8 z^ } Bs={ r } Sq={ r } Dr={r } Le={ r4 } #Pi; //
Ar=(-31, 0,11,16) Kb={l8 z^z^ z^^ | ^ } Bs={ r } Sq={ r } Dr={r } Le={ r2 } #Pi; //
IF(TR==4){ Limit=1; }
};
#break2={
Pa={"break 2 >"}
Key=0
Cd={" F qua M7"} Ar=(-19, 0,11,16) Kb={l8 rrrz ^^^^ | ^ } Sc={" > F Lydian"} Bs={ r } Gt={ r } Sq={l16 zzzz zzzz zzzz zzzz } Dr={l8 ZZrr Zrrr } Le={ r1 } #Pi;
IF(TR==4){ Delay=1; }
Ar=(-19, 0,11,16) Kb={ l8 z^^^ ^ } Le={ r2 } #Pi;
Ar=( -7, 0,11,16) Kb={ l8 z^^^ ^ } Le={ r2 } #Pi;
Cd={" F7#9"} Ar=( -7, 0,4,7,10,15) Kb={ l8 zrrr rrrr z } Le={ r1^4 } #Pi;
IF(TR==4){ Delay=2; }
Cd={" F7#9"} Ar=(-19, 0,4,7,10,15) Kb={ l8 z^ | z^z^ | zzzz zzzz } Bs={ r4^2 l8 rrrr cccc } Dr={ r4^2 l8 ZZrZ ZZZZ } Le={ r4^2^1 } #Pi;
IF(TR==4){ Delay=0; }
};
#break1={
Pa={"break 1 >"}
Key=0
Cd={" FM7"} Ar=(-7, 0,4,7,10) Kb={ r } Sc={" > F Lydian"} Sq={l16 rzzz rzzz rzzz rzzz } Gt={ r } Bs={l1 c^ r4 l16crcr cccc cccc c } Dr={ r } Le={ r1 } #Pi;
IF(TR==4){ Delay=1; }
Cd={" FM7"} Ar=(-7, 0,4,7,10) Bs={ r } Le={ r1 } #Pi;
IF(TR==4){ Delay=2; }
Cd={" FM7"} Ar=(-7, 0,4,7,10) Dr={ l8 r1 rXZX } Le={ r1^2 } #Pi;
IF(TR==4){ Delay=0; }
};
#Fin={
Pa={"Fin >"}
Cd={" C7"} Ar=( 0, 0,4,7,10) Kb={l8 z^^^ ^ } Bs={l8 c^^^ ^ } Gt={ r } Sc={" > Blue Note"} Sq={ r } Dr={l8 rZZA Zrrr16Z16C16X^ } Le={ r1 } #Pi;
};
//演奏読込み
// ------
//PlayFrom(Time);
Key=-5
#openning;
#BluesChord;
Key=0 IF(TR==4){ > }
#kikakuChord1;
#break1;
Key=-5
#BluesChord1;
Key=-5 IF(TR==2){ > } IF(TR==1){ >> }
#solo;
#soloA;
#solo;
Key=0
#soloB;
Key=1
#SoloBreak;
Key=1 IF(TR==1){ << } IF(TR==4){ > }
#kikakuChord2;
#break2;
Key=-4
#BluesChord2;
#Fin;
//r1 PlayTo(Time);
// ------
//Print(System.GetKeyFlag)
} //