bpm 45
meter 6
key g min
Tune ::= 5 '1 7 6 5 4
Bass ::= .1 .5 .6 .5
assert {Tune, Bass} == {Tune, Bass _3 /2}
{Tune, Bass}
{Tune, Bass}@~-1
{Tune, Bass}@~-2
{Tune, Bass}
Hemi ::= 4 3 2
Pulse ::= .5 .5 .5 .5 .5 .5
Cad ::= {Pulse, Hemi} {.5 _3, 2 7#} {.1 _3, 1 _3}
{Tune, Bass}@~-1
{Tune, Bass}@~-2
Cad
Grace ::= 5 '1 {7 6, 2} 5 {4 3, .6} 3
Under ::= {Bass, ..1 ..5}
assert {7 6, 2} == {7 6, 2 _2}
{Grace, Under}
{Grace, Under}@~-2
{Grace, Under}@~-4
{Grace, Under}
Run ::= '1 7 6 5 4 3 2 1 2 3 4 5
assert {Tune, Run} == {Tune, Run /2}
assert {Run, Tune} == {Run, Tune _2}
{Tune, Run, Bass}
{Run, Tune, Bass}
{Tune, Run, Bass}
{Run, Tune, Bass}
Kit ::= kick hat snare hat hat snare
{Tune, Bass, Kit}
{Grace, Under, Kit}
{Tune, Run, Bass, Kit}
{Run, Tune, Bass, Kit}
Cad
{Tune, Bass, Kit}@~-2
{Grace, Under, Kit}@~-2
{Run, Tune, Bass, Kit}
{Tune, Bass, Kit}
Cad