;---------------------------
;   Ring Clear
;===========================

#evenw
_RingEnv
#word	4,32000,320,0,0,0

_Ring_Sub
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,0, 64 ,  0
	panmode,1
 	svolume,127

	bprg,BANK_SYS,4
	envelope,_RingEnv
	release,24

	vibdepthmv,0,16,8
	vibpitch,100
	vibdelay,2
_Ring_Transpose
	strans,0
	opennote,0,@_Note0
	opennote,2,@_Note0D
	opennote,1,@_Note1
	waitw,260
	fin

@_Note0D
	nprg,3	;???
	nenv,_RingEnv,16
	velo,96
	tgate,15
	tieon
	gn3,004
	bn3,004
	dn4,004
	gn4,004
	tieoff

	tieon
	velo,80
	bn3,006
	dn4,006
	gn4,006
	bn4,006

	velo,64
	dn4,008
	gn4,008
	bn4,008
	dn5,016
	tieoff
	fin

@_Note0
	velo,127
	tgate,15
	tieon
	gn3,004
	bn3,004
	dn4,004
	gn4,004
	tieoff

	tieon
	velo,110
	bn3,006
	dn4,006
	gn4,006
	bn4,006

	velo,96
	dn4,008
	gn4,008
	bn4,008
	dn5,016
	tieoff
	fin



@_Note1
	nprg,0
	ntrans,+12
	nenv,_RingEnv,48
	tgate,8
	velo,90
	 gn3,008
	velo,54
	 bn3,008
	
	velo,90
	 gn3,008
	velo,54
	 dn4,008
	 gn3,008
	
	velo,90
	 bn3,008
	velo,54
	 gn3,008
	 bn3,008
	 dn4,016

	fin