define #voice tabla_inst(#int vel, #int accent)
{
	
	define Ta		tone (36, 3, vel+accent)
	define ta		tone (36, 3, vel)
	define keke		tone (36, [1 1 1], vel)
	
	define Do		tone (39, 3, vel+accent)
	define do		tone (39, 3, vel)
	
	define Te		tone (40, 3, vel+accent)
	define te		tone (40, 3, vel)
	
	define da		tone (42, 6, vel)
	define daa		tone (42, 36, vel)
	define daaa		tone (42, 48, vel)
	
	define dom		tone (44, 6, vel)

	define #node #modal #toggle tintal [
			{daa Ta} ta ta ta
			Ta ta ta ta
			Te te Ta ta
			if (roll(0.5)) [
				{da Ta} te te te
			] else [
				{da Ta} keke {da keke} keke
			]
	]
	
	define #node #modal #toggle noxtal [
		{daa Ta} te te ta
		Te keke ta te
		if (roll(0.5)) [
			{da Ta} te te te
		]
		if (roll(0.5)) [
			keke keke keke keke
		]
		if (roll(0.5)) [
			{daa Ta} te te keke te
			Ta te te keke Ta
			ta te
		]
		if (roll(0.5)) [
			{daa ta} ta te
			Ta ta te
			Ta keke te
			Ta keke ta
			{daa Ta} keke keke keke
		]
	]
	
	define #node #modal #toggle frenzied(#int base, #int rate) {
		tempo = rate * waketime + base,
		[
			{daa Ta} te te ta
			Te te ta te
			if (roll(0.5)) [
				{da ta} te keke te
			]
		]
	}
	
	<- [
		tintal
		noxtal
		frenzied
	]
	
	>> 1
}
