bpm 25
meter 4
key f maj
assert 1Maj7 == {1Dia, 7}
assert 1Min7 == {1, 3b, 5, 7b}
assert 1Dom7 == {1Dia, 7b}
1Dia _4 1Maj7 _4 1Min7 _4 1Dom7 _4 1Dia _8
assert 5Dia7 == 5Dom7
assert 5Dia7 == {5, 7, '2, '4}
assert {7, '4} == {7, 7@6}
1Maj7 _4 5Dia7 _4 1Maj7 _4
{7, '4} _4 -*2 5Dia7 _4 -*2 {7, '4} _2 {'1, '3} _6
V7 ::= {..5, .7, 4, 5}
I ::= {.1, 1, 3, 5}
Voices ::= {..5 .1, .7 1, 4 3, 5 5}
assert V7 == ..5Dia7$1-'3-7-1
assert I == .1Dia$1-1-3-5
assert Voices _4 == V7 _4 I _4
V7 _8 I _8
Voices _4
II7 ::= {..2, 1, 4, 6}
Turn ::= II7 _4 V7 _4 I _4
Tune ::= 6 '1 _2 6 '2 _2 '4 _2 '3 _2 '1 _2
assert 2Dia7 == 2Min7
assert 2Dia7 == {2, 4, 6, '1}
assert II7 == ..2Dia7$1-'7-3-5
Turn
{Tune, Turn}
Chain ::= {.1 .4 ..7 ..3 ..6,
3 3 2 2 1,
7 6 6 5 5,
'1 '1 7 7 6}
Chain _4 Turn
key d min
assert 2Dia7 == 2Min7b5
assert 5Dia7 == 5Min7
assert {7, '4} == {7, 7@7}
Chain _2 {Tune, Turn}
key d harm
assert 5Dia7 == 5Dom7
assert {7, '4} == {7, 7@6}
{Tune, Turn}
Close ::= {..7 .1, 2 1, 4 3, 6 5}
assert 7Dia7 == 7Dim7
assert 7Dia7 == {7, '2, '4, '6}
assert {7, '4}@3 == {'2, '6}
assert Close _4 == ..7Dia7$1-'3-5-7 _4 I _4
{7, '4} _4 {7, '4}@3 _4 7Dia7 _8
Close _4
key d min
Fall ::= '5 _2 '4 '3
Steps ::= Fall Fall@~-1 Fall@~-2 Fall@~-3 Fall@~-4
assert {.1, 1, 3#, 5} == .1Maj$1-1-3-5
{Steps, Chain _4}
key d harm
{7 _4 '1 _4, Close _4}
{Tune, Turn}
{.1, 1, 3#, 5} _8