INT KS=(001)//()内の数値 (1 or 2) でモードを選択してください
								
/**************************************************************

   1.ノーマルモード       ★★★
   2.シャッフル・ブギー・モード ★★★★★
						  
もとはシャッフルじゃないです。試しにやったらいいと思ったので良かったら聴いてみてください
発音タイミングをいじった簡易なシャッフルですが妙にお気に入りです。8分ウラもはねることによって
3連符もいけることがわかってしまいました。素晴らしい!
ところどころの風の音もお気に入りです。乃〇坂46の”夜明けまで強がらなくてもいい”のイントロの音に似せられてうれしいです

***************************************************************///
//------------------------------------------------------------------------------
Include(gs.h);
TimeSignature=4,4;           //拍子記号の設定
Tempo(147);                  //テンポの設定
System.MeasureShift = 1;     //(弄らないこと)
ResetGM; r2 ResetGS; r2      //音源初期化命令
TrackSync;                   //全てのトラックを同期する
Include(delay.h);

TimeBase      = 564 // 四分音符分解能

TrackName     = {"[day by day] by sonny"}       //曲名
Copyright     = {"sonny"}       //著作権表示
//MetaText      = {"For win10 MSGS"}       //説明・コメントなど
//------------------------------------------------------------------------------
Include(gs.h);
//------------------------------------------------------------------------------
INT HN16=0 INT HN8=0
IF (KS=1) { HN16=0  HN8=0}
IF (KS=2) { HN16=48 HN8=48} 
STR HANE={t__2.onCycle(!16, 0, HN16) t__3.onCycle(!8,0,HN8)} //
//------------------------------------------------------------------------------
//Major
~{い}={'"e"beg#b`e'}//E 
~{ふ}={'"fcfa`c`e'}//F   FM7
//Miner
~{エ}={'"aea`c`er'}//Am
//7th
~{ど}={'rda`c`er'}//D7  D9
~{う}={'"e"bdg#b`e'}//E7

~{ガ}={'"eeg#`d`gr'}//E7#9
~{ギ}={'"e"beg#b`e'}//E7#9
~{ー}={'rrrrrr'}//長音
~{ん}={'r0r0r0r0r0r0'}//アップダウンがひっくり返ったらこれ

INT KE=0 Key(KE)//

//****** 各種変数・関数 *******************************************
Func...(続く)...