/* wartz.h
/*------------------------------------------------------------------------
/*	トラック設定
.track	1	port:A	ch:1	macro:System	/* システム・トラック	*/
.track	2	port:A	ch:1	macro:Vn1		/* 第１バイオリン		*/
.track	3	port:A	ch:2	macro:Vn2		/* 第２バイオリン		*/
.track	4	port:A	ch:3	macro:Va		/* ビオラ		*/
.track	5	port:A	ch:4	macro:Vc		/* チェロ		*/
.track	6	port:A	ch:5	macro:Db		/* ベース		*/
.track	7	port:A	ch:6	macro:Hn		/* ホルン		*/
.track	8	port:A	ch:7	macro:Ob		/* オーボエ		*/
.track	9	port:A	ch:8	macro:fl		/* フルート		*/
.track	10	port:A	ch:9	macro:Tb		/* トロンボーン	*/
.track	11	port:A	ch:11	macro:Cl		/* クラリネット	*/
.track	12	port:A	ch:10	macro:ryt		/* 打楽器	*/
.track	13	port:A	ch:12	macro:Tr		/* トランペット	*/
.track	14	port:A	ch:13	macro:Ap		/* ハープ	*/
.track	15	port:A	ch:14	macro:Fg		/* ファゴット	*/
.track	16	port:A	ch:15	macro:Cl2		/* クラリネット２	*/

/*------------------------------------------------------------------------
/*	音色設定用マクロ定義

#define	T_vn	$BANK(0,0) @PROG(41)
#define	T_va	$BANK(0,0) @PROG(42)
#define	T_STR	$BANK(0,0) @PROG(49)
#define	T_SSTR	$BANK(0,0) @PROG(50)
#define	T_PIZ	$BANK(0,0) @PROG(46)
#define	T_Hn	$BANK(0,0) @PROG(61)
#define	T_Tb	$BANK(0,0) @PROG(58)
#define	T_Tr	$BANK(0,0) @PROG(57)
#define	T_Ob	$BANK(0,0) @PROG(69)
#define	T_Fg	$BANK(0,0) @PROG(71)
#define	T_Cl	$BANK(0,0) @PROG(72)
#define	T_Fl	$BANK(0,0) @PROG(74)
#define	T_Ap	$BANK(0,0) @PROG(47)
#define	T_ryt	 @PROG(49)

#define	DEFAU	$LEVEL(100) x120 	!1(vel:'14,gateper:100)	!2(vel:'-18)
#define	DEFso	$LEVEL(110) x120	!1(vel:'14,gateper:100)	!2(vel:'-18)
#define	DEFPIZ	$LEVEL(100) x120 q45
#define	DEFOb	$LEVEL(90) x105 $REVERB(120) $VIB_DEPTH($4a) $VIB_RATE($43)
#define	DEFFg	$LEVEL(90) x110 $REVERB(110) $VIB_DEPTH($48) $VIB_RATE($41) !1(vel:'12)
#define	DEFFl	$LEVEL(85) x110 $REVERB(115) $VIB_DEPTH($49) $VIB_RATE($44)
#define	DEFHn	$LEVEL(95) x120 $REVERB(120) !1(vel:'12)	


/*------------------------------------------------------------------------
/*	セットアップ
CTRL(1)		= @TEXT($MEMO()) t250
System(1)	= $exGs_reset()							/* GS音源の初期化	*/		/*------------------------------------------------------------------------			GS セットアップ	*/															$exGs_masterVolume(114)				/* Volume */								$exGs_reverbMacro(4)				/* Hall 2 */								$exGs_reverbpara(4,1,127,85,0,0)	/**/										$exGs_chorusMacro(2)				/* chorus 3 */								$exGs_choruspara(0,127,10,55,3,20,0)											$PBND_RANGE(12)
Vn1(1)	= @INSTNAME("vn1") $(r64)2	$T_str()	$DEFAU()	$panp(-55)	$chorus(18)
Vn2(1)	= @INSTNAME("vn2") $(r64)2	$T_str()	$DEFAU()	$panp(-20)	$chorus(18)
Vn1(11)	= 					$(r64)3	!7(gateper:96)	$DEFAU()
Vn2(21)	= 					$(r64)3	!7(gateper:96)	$DEFAU()
Va(1)	= @INSTNAME("va")	$(r64)2	$T_str()	$DEFAU()	$panp(20)	$chorus(37)
Va(31)	= 					$(r64)3	!7(gateper:96)	$DEFso()	?1(delay:20)
Vc(1)	= @INSTNAME("vc")	$(r64)2	$T_str() $DEFso() ?1(pitch:50) $chorus(18)
Vc(41)	= 					$(r64)3	!7(gateper:96)	$DEFAU()	$panp(40)
Db(1)	= @INSTNAME("db")	$(r64)2	$T_str()	$DEFAU()	$panp(63)	$chorus(18)
Db(51)	= 					$(r64)3				$DEFAU()
Hn(1)	= @INSTNAME("HN")	$(r64)2	$T_hn()		$DEFhn()	$panp(30)
Hn(61)	= 			$(r64)3			$DEFhn()	?1(delay:20)
Hn(62)	= 			$(r64)3			$DEFhn()
Hn(63)	= 			$(r64)3			$DEFhn()
Hn(64)	= 			$(r64)3			$DEFhn()
Ob(1)	= @INSTNAME("Ob")	$(r64)2	$T_ob()		$DEFob()	$panp(-07)
Ob(71)	= 					$(r64)3	$DEFob()	!1(vel:'14)
Ob(72)	= 					$(r64)3	$DEFob()	!1(vel:'14)
Cl(1)	= @INSTNAME("Cl")	$(r64)2	$T_cl()		$DEFau()	$panp(07)
Cl(71)	= 					$(r64)3	$DEFau()	!1(vel:'5)	!7(gateper:96)
Cl2(1)	= @INSTNAME("Cl")	$(r64)2	$T_cl()		$DEFau()	$panp(07)
Cl2(75)	= 					$(r64)3	$DEFau()	!1(vel:'5)	!7(gateper:96)
Cl(72)	= 					$(r64)3	$DEFau()	!1(vel:'5)	!7(gateper:96)
Fl(1)	= @INSTNAME("Fl")	$(r64)2	$T_Fl()		$DEFFl()	$panp(-15)
Fl(81)	= 					$(r64)3	$DEFFl()	!1(vel:'5)	!7(gateper:96)
Fl(82)	= 					$(r64)3	$DEFFl()	!1(vel:'5)	!7(gateper:96)
Fg(1)	= @INSTNAME("Fg")	$(r64)2	$T_Fg()		$DEFFg()	$panp(15)
Fg(88)	= 					$(r64)3				$DEFFg()	!7(gateper:96)
Fg(89)	= 					$(r64)3				$DEFFg()	!7(gateper:96)
Tb(1)	= @INSTNAME("Tb")	$(r64)2	$T_Tb()		$DEFAU()	$panp(-35)
Tb(91)	=					$(r64)3				$DEFAU()	$REVERB(100)
Tb(92)	=					$(r64)3				$DEFAU()
Tb(94)	=					$(r64)3				$DEFAU()
Tr(1)	= @INSTNAME("Tr")	$(r64)2	$T_Tr()		$DEFAU()	$panp(0)
Tr(55)	=					$(r64)3				$DEFAU()
Tr(56)	=					$(r64)3				$DEFAU()
Ap(1)	= @INSTNAME("Ap")	$(r64)3	$T_ap()		$DEFAU()	$panp(-13)
Ap(98)	= 					$(r64)3				$DEFAU()	!1(vel:'15)
Ap(99)	= 					$(r64)3				$DEFAU()	!1(vel:'15)
/* Va(35)	= 										$DEFpiz()
/* Db(55)	= 										$DEFpiz()
RYT(10)	=	$T_ryt()							$REVERB(100)	$panp(-25)
/* for Db(1) bun! cha! cha! の BUN
#define bun	 l32$slide(r,x,24,,e^x,127,80)
#define bun4 l32$slide(r,x,8,,e^x,127,105)
#define bun2 l32$slide(r,x,16,,e^x,127,90)
#define bunt2 l32$slide(r,x,16,,x^2,127,79)
#define bun1 l32$slide(r,x,24,,e^x,$1,$2)
#define tan1 l32$slide(r,x,48,,e^x,$1,$2)
#define tan2 l32$slide(r,x,48,,e^x,127,80)
#define tan3 x127r8l32$slide(r,x,24,,x,99,68)
/* for Db(1) bun! cha! cha! の cha
#define cha	 r4r8x'-15$(r32x'-7)3 r32x'36r8x'-15$(r32x'-7)3 r32x'36