define #pool qua6_1 [
	tone("f#5",	6, 80, "CellStart")
	tone("e5",	6, 80)
	tone("bb5",	6, 80, "CellStart")
	tone("c6",	3, 80)
	tone("ab5",	6, 80, "CellStart")
	tone("f#5",	6, 80)
	tone("e5",	6, 80)
	tone("bb5",	12, 80, "CellStart")

	tone("f#5",	6, 80, "CellStart")
	tone("e5",	6, 80)
	tone("bb5",	3, 80, "CellStart")
	tone("b5",	6, 80)
	tone("bb5",	3, 80)
	tone("c6",	3, 80) 
	tone("f#5",	24, 80, "CellStart") 

	tone("e5",	6, 80, "CellStart")
	tone("bb5",	6, 80) 
	tone("c6",	6, 80, "CellStart")
	tone("b5",	3, 80)
	tone("bb5",	6, 80)
	tone("c6",	6, 80, "CellStart")
	tone("ab5",	6, 80)
	tone("f#5",	3, 80) 
	tone("e5",	12, 80, "CellStart")

	tone("f#5",	6, 80, "CellStart")
	tone("e5",	6, 80)
	tone("f#5",	3, 80)
	tone("e5",	3, 80)
	tone("bb5",	6, 80, "CellStart")
	tone("c6",	9, 80)
	tone("f#5",	24, 80, "CellStart")
]

define #voice piano_inst
{

	define #node #modal piano_7_4
	{
		<- tone (markov(qua6_1).pitch, 12, markov(qua6_1).dynamic) : 7
		<- tone (markov(qua6_1).pitch, 12, markov(qua6_1).dynamic) : 4	
	}
	
	
	define #node #modal piano_3_2
	{
		<- tone (markov(qua6_1).pitch, 12, markov(qua6_1).dynamic) : 2
		<- tone (markov(qua6_1).pitch, 12, markov(qua6_1).dynamic) : 3
	}
	
	define #node #modal piano_1
	{
		<- markov(qua6_1)
	}
	
	define #node #modal piano_2_3
	{
		<- tone ([36 40 42], 12, [80 60 60]) : 3
		<- tone ([48 50], 12, [80 60]) : 2
	}
	
	define #node piano_perc
	{
		pitch = 72
		duration = 2
		dynamic = 60
		>> 3
	}
	
	{
		piano_2_3
		piano_3_2
		piano_7_4
		piano_1
	}
	>> 1
	piano_perc
}


