bpm 100
meter 4
key c3 min
Root ::= 1Dia
Six ::= 1Dia$3
SixFour ::= 1Dia$5
assert Six == {3, 5, '1}
assert SixFour == {5, '1, '3}
{Root _4 Six _4 SixFour _4 Six _4, .1 _4 .3 _4 .5 _4 .3 _4}
{Root, .1} _16
Tresillo ::= $1 -*2 $2 -*2 $3 -
Arp ::= Tresillo(.1 .3 .5 1 .5 .3)
assert Arp == .1 -*2 .3 -*2 .5 - 1 -*2 .5 -*2 .3 -
Arp*2
{Arp, Root _16}*2
Riff ::= Tresillo(.1 .1 .5 .1 .5 1)
Chop ::= {-*2 $1 - $1 _2 -*2}*2
Vamp ::= Chop(1Dia .4Dia$5 .6Dia$3 1Dia)
assert .4Dia$5 == {1, 4, 6}
assert .6Dia$3 == {1, 3, 6}
{Riff*4, Vamp}
Roots ::= Chop(1Dia 4Dia 6Dia 1Dia)
{Riff Riff@~3 Riff@~5 Riff, Roots}
{Riff*4, Vamp}
Horn ::= -*4 '5 '7 - ''1 -*3 '7 - '5 -*2
{Riff*4, Vamp, Horn*4}
{Riff*3 Arp, Vamp, Horn*3 Horn~}
Land ::= {SixFour, .5} _8 {5Dom7, .5} _8 {Root, .1} _16
{Riff*3 Arp, Vamp} Land
Riff*2
{Riff, Root _16}*2
{Riff*4, Vamp}
{Riff*3 Arp, Vamp, Horn*3 Horn~}
{Riff Riff@~3 Riff@~5 Riff, Roots}
key d3 min
{Riff*4, Vamp, Horn*4}
{Riff*3 Arp, Vamp, Horn*3 Horn~}
{Arp, Root _16}*2
Land