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

#evenw
_RingEnv
;#word	8,32000,640,0,0,0
#word	4,32000,-1,0

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

	bprg,BANK_SYS,2
	envelope,_RingEnv
	release,16
;	sreverb,120
	sreverb,100

	vibdepthmv,0,16,8
	vibpitch,100
	vibdelay,2
;	vibdepth,0
_Ring_Transpose
	strans,0
	opennote,0,@_Note0
	opennote,1,@_Note1
	opennote,2,@_Note2
	opennote,3,@_Note0X
	waitw,260
	fin
@_Note0X
	detune,-8

@_Note0
	velo,100
	tgate,15
	tieon
	gn5,008
	an4,008
	bn4,006
	dn5,006
	an4,006
	bn4,004
	dn5,004
	bn4,004
	dn5,004
	gn5,032
	tieoff
	fin


@_Note1
	detune,+8
	nprg,4
	nenv,_RingEnv,6
	velo,96
	tgate,12
	xxx,016
	gn5,008
	an4,008
	bn4,006
	dn5,006
	an4,006
	bn4,004
	dn5,004
	bn4,004
	dn5,004
	gn5,032
	fin

@_Note2
	nprg,11
	nenv,_RingEnv,12
	velo,96
	tgate,15
	tieon
	gn3,008
	an3,008
	bn3,006
	dn4,006
	an3,006
	bn3,004
	dn4,004
	bn3,004
	dn4,004
	gn4,008
	tieoff
	fin