bpm 100
meter 4
unit 1/4
key d maj
Ground ::= | ..1 ..5 | ..6 ..3 | ..4 ..1 | ..4 ..5 |
Ground
Chords ::= | .1Dia .5Dia | .6Dia .3Dia | .4Dia .1Dia | .4Dia .5Dia |
Chords
{Chords, Ground}
Theme ::= | '3 '2 | '1 7 | 6 5 | 6 7 |
ThemeB ::= | '1 7 | 6 5 | 4 3 | 4 2 |
Verse ::= {Theme ThemeB, Chords*2, Ground*2}
Verse
Wave ::= | '3 '4 '5 '3 '4 '5 '4 '3 |
WaveB ::= | '4 '2 '3 '4 '3 '2 '3 '1 |
Run ::= Wave WaveB Wave@~-1 WaveB@~-1
assert Wave@~-1 == | '2 '3 '4 '2 '3 '4 '3 '2 |
{Run, Chords, Ground}
{Run, Theme, Chords, Ground}
Canon ::= {Theme ThemeB Run,
Chords*3,
Ground*3}
Canon
{'1 _16, 1Dia _16, ..1 _16}