bpm 72
meter 4
unit 1/4
key d4 maj
mode diatonic
Step ::= 2 _2 1 _2*2
{Step Step@~-1 Step@~-2 Step@~-3}
Walk ::= 1 _2 Step@~-1 .6 _2 Step@~-3
Bass ::= Walk .4 _2*2 .4# _2*2 .5 _2 Step@~-4
assert Walk == 1 _2*2 .7 _2*2 .6 _2*2 .5 _2*2
Bass
Tune ::= '3 _18 '6 '4 {'2, '3} '1 7 '1 7 _4 5 _4
Tune
{Tune, Bass}
{Tune, Walk}
Sequence ::= | '5 _9 '3 7b 6 '2 '2b '5 '4 |
| '4 _9 '2 6 5 '1 7 '4 '3 |
Sequence
Arch ::= '3 _6 '4# '5 '1 _2 '1 '3 _2 '2 '2 '1
Return ::= Walk[:3] 4# 5 - _4
{Arch, Return}
Turn ::= 7 6 6/2 7/2 '1 _3 7 6 5 _8
assert Arch[1] == '5b
Tune[:2] '4/2 '3/2 '2 Tune[4:7] 7 _7/2 6/2 Tune[8:]
Sequence
| Arch[:4] '1/2 '2/2 Arch[5:] |
| Turn |*2
| 7 _5 '1/2 7/2 6/2 7/2 5 '5 _6 7b _2 |
Lift ::= '1 _5 '3
Sigh ::= '1 _6 '3 '2
assert Sigh[:2] == Lift \0 {'1 _6}
assert | Sigh Sigh@~1 | == | '1 _6 '3 '2 '2 _6 '4 '3 |
| 6 _2 '6 _3 '5 '4 '3 '4 _9/2 '3/2 '2/2 '1/2 7 6 |
| 6b 6 7 _3 '1 '2 _3 '3 '4 _4 '3 _2 |
| '2 '1 7 6 7 '1/2 '2/2 '1 _2 6 _8 |
| Lift '2 '1 '6 _6 '5 '5b |
| '3/2 '2/2 '5 5 _2 6 _3 7/2 '1/2 7 _3 6 5 _4 |
| Sigh Sigh@~1 |
| Sigh@~2 '4 _8 |
| Lift@~-3 '2 '4 '4 '2 '3 _5 '4/2 '5/2 |
| Lift '5 '7b '6 _6 '1 _2 |
| 7 '2 '4 _4 6 _2 5 _2 '2 '3/2 '4 _3/2 '3 _2 '2 |
| '1/2 7/2 6 _2 7 '1 _2 7 '1 '1 _8 |