bpm 144
meter 4
unit 1/4
key e4 harm
mode diatonic
Rock ::= .3 .2 .3 - ..6 - ..6 -
Plunge ::= ..2 ..1 ..2 - .5 - .5 -
Ground ::= Rock Plunge Rock@~-2 Rock
Ground[:16] _2
assert Rock@~-2 == .1 ..7 .1 - ..4 - ..4 -
Tune ::= 2 3 4 3 - 3 - 3 2 1 2 3 - 3 - 3 1 .7 1 - 6 - 4 - 3 2 1 .7 - .7 - .7
{Ground[16:], -*4 Tune[20:]} _2
assert Tune[20:24] == 6 - 4 -
Turn ::= ..1 ..2 ..1 - ..5 - ..5 -
Climb ::= Turn Turn@~2 Turn@~3 Turn@~7
Echo ::= 1 2 1 - 5 - 5 - 3 4 3 - 3 - 3 - 4 5 4 - 1 - 1 - '1 '2 '1 - 3 - 1 -
{Climb, Echo} _2
assert Echo[:8] == Turn@~14
assert Turn@~2 == ..3 ..4 ..3 - ..7 - ..7 -
{Ground, Tune} _2
{Turn@~3 Turn@~1 Turn@~2 Turn@~7,
1 2 1 - - 5 - 5 Turn@~16 Echo[16:]} _2
assert Turn@~16 == 3 4 3 - 7 - 7 -
Answer ::= Tune[:24]@~2 - - 3 4 - 4 - 4
Verse ::= {Tune, Answer}
Verse*2 _2
assert Tune[:8]@~2 == 4 5 6 5 - 5 - 5
Chant ::= 3 - 3 - 3 4 5 4 - 1 - .6 - 3 4 3 1 - 1 - 1 2 3 2 1 - 1 - 1 .7 1 2
Mirror ::= .6 - .6 - .6 .5 .4 .5 - .3 - .3 - .3 .4 .3 .5 - .5 - .5 .4 .3 .4 .2 - .2 - .2 .3 .4 .5
Weave ::= {Chant, Mirror}
Weave _2
assert Mirror[:8] == Chant[:8]^
assert Mirror[16:24] == Chant[16:24]^@~-3
Toll ::= {.1, 1, '1} - {.3, 3, '3} - {..6, .6, 6} - {.1, 1, '1} -
Settle ::= {..6, .1, .3} - {.1, .3, .5} - {..4, ..6, .1} - {..6, .1, .3} -
Knell ::= Toll Toll@~-4 Settle {..1, .3, 5} _8
Knell _2
{Knell, -*16 Chant[16:]} _2
assert Toll@~-4 == {..4, .4, 4} - {..6, .6, 6} - {..2, .2, 2} - {..4, .4, 4} -
{Ground, Chant} _2
{Ground, Verse} _2
{Climb, Verse} _2
Weave _2
Knell*2 _2