bpm 75
key f# min
Motif ::= 1 _2 5 _2 4 _2 3 _2
Head ::= Motif Motif@~-2
assert Motif@~-2 == .6 _2 3 _2 2 _2 1 _2
Head Head@~-2
Open ::= 4 _2 6 _2 5 _2 4 _2 '1 _4 7# _4
Close ::= Open[:4] 3 _2 2 _2 1 _4
Ant ::= Head Open
Con ::= Head Close
assert Close == 4 _2 6 _2 5 _2 4 _2 3 _2 2 _2 1 _4
Ant Con
Ton ::= {.1, .3, .5}
Six ::= {.1, .3, .6}
Sub ::= {.1, .4, .6}
Dom ::= {..7#, .4, .5}
Bed ::= Ton _8 Six _8 Sub _8
{Ant, Bed Dom _8}
{Con, Bed Dom _4 Ton _4}
Wash ::= {.1 .5 .3 .5} _2 {.1 .6 .3 .6} _2 {.1 .6 .4 .6} _2
Hang ::= {..7# .5 .4 .5} _2
Land ::= {..7# .5} _2 {.1 .5} _2
{Ant, Wash Hang}
{Con, Wash Land}
key a maj
Counter ::= .1 _4 .4 _2 .3 _2 .2 _2 .5 _2 .4 _2 .1 _2
Echo ::= {Head - _16, - _16 {Head}@-12}
{Head, Counter}
{Head@~-1, Counter@~-1}
{Head@~-2, Counter@~-2}
Echo
key f# min
Coda ::= Motif@~-2 5 _2 4 _2 .7# _4 1 _16
Wash Hang
{Ant, Bed Dom _8}
{Con, Bed Dom _4 Ton _4}
{Ant, Wash Hang}
{Con, Wash Land}
key a maj
{Head, Counter}
{Head@~-1, Counter@~-1}
{Head@~-2, Counter@~-2}
Echo
key f# min
{Ant, Wash Hang}
{Con, {Con}@12, Wash Land}
{Coda, Six _8 Dom _8 Ton _16}