MetaText  ={"                                                  '2分 00秒 - `16 1/2 update'"} 
TrackName ={"prologue. - ver.4"}
Copyright ={"庚申works"}

/*
  guitar2.h ver4.01以降が必要です

  TW向けにタイミング調整済み、サクラでも可
  構造化エディタ対応

  XPでのみチェックしています


*/

 
Include(gs.h) ResetGS()r4 

Include(guitar2.h)
 #Down_set=3
 #Up_set=2

 TimeBase=120;
 Time=(!1) TrackSync Int j=0; Array Cap;

//	TW-Music2(DirectX[Music]) Effect
//	      ReverbSetting     Time Dpth High Mix
   	CuePoint={"TwmParam	( 16, 118,  48,117)"}	//初期値(127,117,0,127)

//	       ChorusSetting    Wave  Mix Dpth  FB Freq Dly Phs
//	CuePoint={"TwmChorus	( 1,   44,  66, 111, 66,111,  1)"}	//初期値(0,64,25,79,14,114,3)


 Function GSScaleTuningKAI(Int j,""){

	j= j+ 64; //
	If(j<0| j>127){ Print({"数値エラー[+63,-64] RPN"}) End; }

	Int DeviceNumber = $10;
	For(Int i=$10;i<= $1F;i++){
		Switch(i){
			Case($10){}	//[TR=10に該当]
			//Case($1A){}	//[TR=11に該当]
			//Case($1D){}	//[TR=14に該当]
			Default{ SysEx= $F0,$41,DeviceNumber,$42,$12,{$40,i,$40,j,j,j,j, j,j,j,j, j,j,j,j},$F7; }
		} //sw
	} //
 } //func

 GSScaleTuningKAI(20)r3; // (1200*log(445/440))/log(2)
 Int Key_chger= -2;
 Int Pitch_adj= -44;
 
TR=1 t_-1 V=100 l8 o3 CHO=0 TrackKey= Key_chger 

 Tempo=111;
 r-%3 @25 q106 v118 P=64 REV=34 v_.Random=4 q_.Random=4 r%3


   #Mode_set="arp"
   #Arp_set="r t+1 121 t-1 31u1"

  [ Am Dm(,,5) Bm7b5("r t+1 121 t-1 3121") : E("r t+1 1h1 t-1 3121") ]
   E7sus4("r t+1 131 t-1 u1h1") E7("r t+1 131 t-1 u1h1")
 
   Amadd9(" [r t+1 323 : t-1 q+20 123 t+2 h q-20] t+2 q+20 123u t+4 q-20 '3 t+6 2 t+13 1'^^^^ ^^^ t0 ",,6) r%6 


 
 Tempo=116; 
 #Cut_set= "d^du ^udu"
 #Arp_set= "r t+1 u2 q-40 1^ q+40 2 t-1 r[u:31] 3"

[

  r%-3 @26 q91 v88 P=64 REV=34 r%3 Cap(j)=Time; j++; // タイムキャプ
   #Mode_set="cut" v_.Random=12 q_.Random=0

[
  Chdprint("d^du^",,"r22 102 A")  // Aadd9
  Chdprint("udu",,"r22 100 A")  // A
  Chdprint("r22 010 A")  /...(続く)...