bpm 144
meter 4
unit 1/4
key a3 maj
Dom7 ::= {1, 3, 5, 7b}
Chop ::= {Dom7 _2 -}*4
assert Dom7@5 == {4, 6, '1, '3b}
assert Dom7@7 == {5, 7, '2, '4}
Changes ::= | Chop |*4
| Chop@5 |*2
| Chop |*2
| Chop@7 | Chop@5 | Chop | Chop@7 |
Changes
Blue ::= '1 '3b '4 '5b '5 '7b ''1 -
= ''1 '7b '5 '5b '4 '3b '1 -
assert Dom7 == {1Dia, 7b}
{| '1 '2 '3 '4 '5 '6 '7 ''1 |, | Dom7 _4 |}
{| Blue | Blue#2 | '4 _2 '5b '5 _9 | '3b _2 '1 _10 |, | Dom7 _4 |*4}
Shuffle ::= $1 _2 $2 $3 _2 $4 $5 _2 $6 $7 _2 $8
Climb ::= .1 .3 .5 .6 .7b .6 .5 .3
Walk ::= Shuffle(Climb)
assert Walk == .1 _2 .3 .5 _2 .6 .7b _2 .6 .5 _2 .3
Bass ::= | Walk |*4
| Walk@5 |*2
| Walk |*2
| Walk@7 | Walk@5 | Walk | Walk@7 |
{Bass, Changes}
Cry ::= | '1 _2 '3b '4 _2 '5b '5 _2 - _4 |
| ''1 _2 '7b '5 _8 - |
Fall ::= | ''1 _2 '7b '5 _2 '4 '3b _2 '1 - _2 - |
| - _9 '5 _2 - |
Turn ::= | ''1 _2 '7b '5 _2 '5b '4 _2 '3b '1 _2 - |
| '4 _2 '3b '1 _9 |
Head ::= Cry Fall Cry Fall Turn Fall
{Head, Changes, Bass}
Ride ::= {hat _2 hat}*4
Kit ::= | {Ride, kick snare kick snare} |
Kit*4
{Bass, Kit*12}
Shuffle(.1 .3b .4 .5b .5 .4 .3b .1)
{Shuffle(Climb), Kit}
{Changes, Bass, Kit*12}
{Head, Changes, Bass, Kit*12}
| Chop@7 | {Dom7, .1, crash} _4 |