bpm 132
meter 4
key c maj
assert .2Dia7 == {.2, .4, .6, 1}
assert .5Dom7 == {.5, .7, 2, 4}
Changes ::= .2Dia7 .5Dom7 .1Maj7 .6Dia7
Walk ::= | ..2 ..6 ..4 ..4# |
| ..5 ..4 ..3 ..2 |
| ..1 ..3 ..5 ..7 |
| ..6 ..5 ..3 ..1 |
{Walk, Changes}
Swing ::= $1 _2 $2
Guide ::= {| '1 | 7 | 7 | '1 |,
| 4 | 4 | 3 | 5 |}
Tune ::= | Swing('1 '2 '3 '2 '1 6 4 6) |
| Swing(7 '2 '1 7 6 5) 4 _3 |
| 3 _6 - _3 5 _2 7 |
| '1 _3 6 _2 '1 '2 _3 '3 _3 |
{Guide, Changes, Walk}
{Tune, Changes, Walk}
assert .6Dia7 == aMin7@-12
{Tune, Changes, Walk}
key g maj
assert .2Dia7 == aMin7@-12
{Tune, Changes, Walk}
key c maj
{Tune, Changes, Walk}
key bb3 maj
{Tune, Changes, Walk}
key ab3 maj
{Tune, Changes, Walk}
key c maj
assert .5Dom7$3-7 == .2bDom7$7-3
Close ::= .5Dom7 .1Maj7
Pair ::= | {4, 7} | {3, 7} |
{Pair, Close}
{Pair, .2bDom7 Close[1:]}
key gb3 maj
assert .5Dom7 == {.5, .7, 2, 4}
{Pair, Close}
key c maj
assert .2Dom7$7-3 == .6bDom7$3-7
Home ::= {| '1 _3 '3b _3 '1 _3 6b _3 |
| 7 _3 6 _3 5 _3 4 _3 |
| 3 _6 5 _3 '1 _3 |,
| .6bDom7 | .5Dom7 | .1Maj9 |,
| ..6b ..5b ..3b ..1 |
| ..5 ..4 ..3 ..2 |
| ..1 _12 |}
key ab3 maj
{Tune, Changes[:3] .1Dom7, Walk}
key c maj
Home
key c maj
{Tune, Changes, Walk}
key g maj
{Tune, Changes, Walk}
key bb3 maj
{Guide, Changes, Walk}
key ab3 maj
{Tune, Changes[:3] .1Dom7, Walk}
key c maj
Home