bpm 75
meter 4
unit 1/4
key g4 harm
Tune ::= | 1 2 3 4 |
| 5 _2 4 3 |
| 6 5 4 3 |
| 2 _3 .7 |
Walk ::= | .1 _2 .5 .1 |
| .4 _2 .1 .4 |
| .5 _2 .2 .5 |
| .1 _2 .4 .5 |
Beat ::= | kick hat snare hat kick kick snare hat |
assert Beat*4 == Beat Beat Beat Beat
Verse ::= {Tune, Walk, Beat*4}
Verse
Climb ::= {Tune@~2, Walk@~2, Beat*4}
Retro ::= {Tune~, Walk, Beat*4}
Climb
Retro
Tag ::= | 2 _2 .7 2 | 1 _4 |
= | 2 _2 .7 2 | 5 _4 |
= | 4 _2 3 2 | 3 _4 |
Cad ::= | .5 _2 .2 .5 | .1 _4 |
enum Tag
assert Tag == Tag#1
Verse {Tag, Cad, Beat*2}
Climb {Tag#3, Cad, Beat*2}
Retro {Tag#1, Cad, Beat*2}
Verse {Tag#2, Cad, Beat*2}
Climb {Tag#3, Cad, Beat*2}
Retro {Tag#1, Cad, Beat*2}