bpm 60
unit 1/4
key g maj
Ask ::= 5 _4 6 _2 5 _2 3 _4 2 _4 1 _2 2 _2 3 _4 5 _6 - _2
Close ::= 5 _4 6 _2 '1 _2 7 _4 6 _4 5 _2 4 _2 3 _4 2 _4 1 _4
Ground ::= .1 _4 .5 _4 .6 _4 .3 _4 .4 _4 .1 _4 .5 _4 .5 _4
{Ask Close, Ground*2}
Trill ::= 5 6 5 6 5 6 5 6
Turn ::= 6 5 4 5
assert Turn@~-2 == 4 3 2 3
AskOrn ::= Trill/2 Ask[1:3] Turn@~-2 Ask[4:]
{AskOrn Close, Ground*2}
Mordent ::= 5 4 5 _2
Steps ::= Mordent@~3 Mordent@~2 Mordent@~1 Mordent
Walk ::= .1 _4 ..7 _4 ..6 _4 ..5 _4
assert Mordent@~3 == '1 7 '1 _2
{Steps Close[5:], Walk Ground[2:6]}
Dom ::= {.5, .7, .2}
Lean ::= {6 5}_4
Snap ::= 6 5 _7
assert Lean == 6 _4 5 _4
{Lean Snap Lean Snap, Dom _8*4}
{Lean@~-1 Lean@~-3 Lean@~-4, Ground[:6]}
Tonic ::= {.1, .3, .5, 1}
Roll ::= {.1 .3 .5 1}/4 Tonic _7
{AskOrn, Roll Roll@~3 Roll@~4 Roll}
CloseOrn ::= Close[:3] Mordent@~2 Close[4:8] {Trill@~-3}/2 Close[9:]
assert {Trill@~-3}/2 == {2 3 2 3 2 3 2 3}/2
{AskOrn CloseOrn, Ground*2}
{{Trill@~-3}/2 1 _4, Dom _4 Tonic _4}