bpm 42
meter 4
unit 1/4
key f maj
Ask ::= 1 _2 3 _2 5 _4 6 5 3 _2 2 _4
Say ::= Ask[:3]@~3 7 6 5 _2 1 _4
assert Say == 4 _2 6 _2 '1 _4 7 6 5 _2 1 _4
Tune ::= Ask Say
Tune
Drone ::= {..1 _8, ..5 _8}
{Tune, Drone*4}
assert Ask@~-2 == .6 _2 1 _2 3 _4 4 3 1 _2 .7 _4
{Tune, Tune@~-2}
{Tune, Tune@~-5}
Hymn ::= ..1Dia _8 ..6Dia _4 ..5Dia _4 ..4Dia _4 ..1Dia _4 ..5Dia _4 ..1Dia _4
{Tune, Hymn}
Walk ::= .1 _2 ..6 _2 ..7 _2 .1 _2 .2 _2 .3 _2 ..5 _2 ..7 _2
Walkb ::= .1 _2 ..4 _2 ..1 _2 ..3 _2 ..5 _2 ..7 _2 .1 _2 ..1 _2
{Ask, Walk} {Say, Walkb}
Minor ::= ..6Dia _4 ..5Dia _4 ..4Dia _2 ..6Dia _2 ..2Dia _8 ..4Dia _4 ..3Dia _4 ..6Dia _4
{Tune, Minor}