bpm 25
key g maj
Rough ::= 1Dia _2 4Dia _2 5Dia _2 1Dia _2
Smooth ::= {1, 3, 5} _2 {1, 4, 6} _2 {2, 5, 7} _2 {3, 5, '1} _2
assert Rough == {1, 3, 5} _2 {4, 6, '1} _2 {5, 7, '2} _2 {1, 3, 5} _2
Rough Smooth
Sop ::= 5 _2 6 _4 5 _4 6 _2 7 _2 '1 _2
Alt ::= 3 _4 4 _4 3 _2 4 _4 3 _2
Ten ::= 1 _6 .7 _2 1 _2 2 _4 1 _2
Bass ::= .1 _2 ..6 _2 ..4 _2 ..5 _2 .1 _2 .4 _2 .5 _2 .1 _2
Chorale ::= {Sop, Alt, Ten, Bass}
Chorale
Close ::= {Sop[3:], Alt[3:], Ten[3:], Bass[5:]}
Close Close _2
Rise ::= 1 2 3 4 5 6 7 '1
Fall ::= .1 ..7 ..6 ..5 ..4 ..3 ..2 ..1
assert Fall == {Rise}^@-12
Wedge ::= {Rise, Fall}
Wedge Wedge~ Close
Tune ::= 5 6 '1 7 6 _2 7 _2 5 _2 6 _2 7 _2 '1 _2
Verse ::= {Tune, Alt, Ten, Bass}
Verse
Chorale Verse
key a maj
Verse Close _2