bpm 144
meter 6
unit 1/4
key e4 harm
mode diatonic
Strike ::= .1 _6
Long ::= Strike - _6
Toll ::= Long@~2 Long
assert Toll == g3 _6 - _6 e3 _6 - _6
Wag ::= ..7 _2 .1 _2 ..7 _2
Turn ::= Wag - _6
Slip ::= ..7 _2 ..6 _2 ..5 _2
Fall ::= Slip - _6
assert Wag == d#3 _2 e3 _2 d#3 _2
assert Slip == d#3 _2 c3 _2 b2 _2
Lean ::= Toll Turn Fall Toll
Step ::= Lean Turn Turn
Tread ::= Step Lean@~-5 ..1 _24
Tread
Beat ::= .1 _2*3
Knock ::= Beat - _6
Stamp ::= Knock@~2 Knock
Close ::= Knock@~1 Knock
Stomp ::= Stamp Turn Fall Stamp Turn Turn
Squat ::= Close Turn Fall Close Turn Turn
Grind ::= Stomp@~-9 Squat@~-13
assert Stamp@~-9 == e2 _2*3 - _6 c2 _2*3 - _6
{Tread, Grind}
Dig ::= {..7 _6 - _6, - _2 Wag[1:] - _6}
Sink ::= {..7 _6 - _6, - _2 Slip[1:] - _6}
Anchor ::= {..7 _24, - _2 Wag[1:] - _6 Turn}
Drag ::= Toll Dig Sink Toll
Heave ::= Drag Anchor
Trudge ::= Heave Drag@~-5 ..1 _24
Peer ::= .5 _6 .3 _6 .2 _6 ..5 _6
Squint ::= ..7 _6 ..5 _6 ..4 _6 ..1 _6
Echo ::= - _6 .1 _6 - _6 .1 _6
assert Squint[:3] == Peer[:3]@~-5
{Trudge, Grind, Peer Echo Peer - _24 Squint Echo@~-5 Squint ..5 _24}
Spill ::= Beat Beat@~-1 Beat@~-2 Beat@~-3 Beat@~-4 Beat@~-5 Beat@~-6 Beat@~-7
{Grind, Spill Spill@~-1 - _96, Tread@~14}
Rock ::= Wag Wag@~-1
Churn ::= Close Turn Fall Close Rock Rock
Stair ::= Slip~
Grope ::= Stair - _6 Stair@~-1 - _6
Wind ::= ..3 _2 ..4 _2 ..5 _2 ..4 _2 ..3 _2 ..2 _2 ..1 _2 ..2 _2 ..3 _2 ..4 _2 ..3 _2 ..2 _2
assert Stair == b2 _2 c3 _2 d#3 _2
{Tread, Stomp@~-9 Churn@~-13, Spill@~14 Spill@~13 Spill@~8 Grope@~7 Wind@~7}
Dug ::= {Strike, - _2 .1 _2 .1 _2}
Bite ::= Beat Beat@~-1 Beat@~-2 Dug@~-3 Beat@~-4 Beat@~-5 Beat@~-6 Beat@~-7
{Trudge,
Bite Spill@~-1 Spill@~-6 Grope@~-7 Wind@~-7,
Peer[:3] - _6 Echo Peer - _24 Squint Echo@~-5 Squint ..5 _24,
- _96 Churn@~1}
Rise ::= .1 _24 .3 _24 .5 _24 .7 _24
Surge ::= ...7 _2 ..1 _2 ..2 _2 ..1 _2 ..2 _2 ..3 _2 ..4 _2 ..1 _2 ..2 _2 ..3 _2 ..4 _2 ..3 _2
Burst ::= .5 _2 .6 _2 .5 _2 .4 _2 .5 _2 .6 _2 .7 _2 .6 _2 .7 _2 1 _2 .7 _2 .6 _2
assert Rise@~-9 == c2 _24 e2 _24 g2 _24 b2 _24
{Rise@~-9, Wind@~-7 Wind@~-5 Wind@~-3 Surge, Rise@~-5, Rock*2@~1 Rock*2@~3 Rock*2@~5 Burst}
Lurch ::= ..5 _6 ..6 _6 ..3 _6 ..2 _6
Plunge ::= ..5 _6 ..6 _6 ..3 _6 ...6 _6
Limp ::= Lurch@~-7 Lurch@~-8 Lurch@~-9*2
Arch ::= .3 _6 .4 _6 .5 _6 .4 _6
Ladder ::= Arch@~7 Arch@~6 Arch@~5 Arch@~4
Peal ::= Strike*4 Strike@~-1*4 Strike@~-2*4 Strike@~-3*4
Waver ::= ..7 _6 .1 _6
assert Plunge[:3] == Lurch[:3]
assert Peal@~-7 == e2 _6*4 d#2 _6*4 c2 _6*4 b1 _6*4
{Limp*2, Peal@~-7*2, Plunge@~14 Plunge@~13 Plunge@~12 Plunge@~11 Peer Waver*2 Peer ..7 _24, Ladder*2}
Fold ::= Long Long
Lament ::= Fold Fold@~-1 Fold@~-2 Fold@~-3
Call ::= Long@~4 Long@~1
Creep ::= Drag Dig Dig
{Creep*2, Lament@~-7 Stomp@~-9, {Call - _24}*4, - _96 Lament@~7}
Lift ::= Long Long@~2
{Toll@~-12 Toll@~-13 Toll@~-14*2, Lament@~-7, Toll@~9 Toll@~8 Toll@~7 Toll@~6, Lift@~9 Lift@~8 Lift@~7 Lift@~6}
{Step Lean, Lament@~-7 Fold@~-7 Fold@~-8 Fold@~-9, Lift@~9 Lift@~8 Lift@~7 Lift@~6 - _72}
{Turn Wag, Long@~-10 Strike@~-10}