bpm 60
meter 4
key g maj
Tonic ::= .1Dia _4 .6Dia _4 .3Dia _4
Pre ::= .4Dia _4 .2Dia _4
Dom ::= .5Dia _4 .7Dia _4
Tonic Pre Dom Tonic[0]
Tonic[0] Pre[0] Dom[0] Tonic[0]
Tonic[1] Pre[1] Dom[1] Tonic[0]
assert ..1 == ..5@-7
assert ..7 == ..4@6
Out ::= {..1, .1Dia} _16 {..4, .4Dia} _8 {..7, .7Dia} _8 {..3, .3Dia} _8
Back ::= {..6, .6Dia} _8 {..2, .2Dia} _8 {..5, .5Dia} _8 {..1, .1Dia} _16
Out Back
Arc ::= 1 _4 3 _4 5 _8 6 _4 5 _4 3 _8
Ask ::= 4 _4 6 _4 '1 _8 '1 _4 7 _4 5 _8
Open ::= {..1, .1Dia} _16 {..6, .6Dia} _16
Away ::= {..4, .4Dia} _16 {..5, .5Dia} _16
{Arc Ask, Open Away}
Lift ::= 7 _8 '1 _8
Auth ::= {..5, .5Dia} _8 {..1, .1Dia} _8
Plag ::= {..4, .4Dia} _8 {..1, .1Dia} _8
Fool ::= {..5, .5Dia} _8 {..6, .6Dia} _8
assert Plag[1] == Auth[1]
assert Fool[0] == Auth[0]
{Arc Lift, Open Auth}
{Arc '1 _16, Open Plag}
{Arc Lift Lift, Open Fool Auth}
Answer ::= 4 _4 2 _4 .7 _8 1 _16
Shut ::= Back[1:]
Verse ::= Arc Ask Arc Answer
Under ::= Open Away Open Shut
{Verse, Under}
key e min
assert .5Dia == .5Min
{Arc Lift, Open Auth}
key e harm
assert .5Dia == .5Maj
{Arc Lift, Open Auth}
key g maj
assert .3Maj == {b3, d#4, f#4}
Turn ::= {.6 _8 .5# _8, {..3, .3Maj} _16}
Turn
key e harm
assert .5Dia == {b3, d#4, f#4}
{Verse, Under[:-1] {..1, .1Maj} _16}
key g maj
{Verse, Under}
Turn
key e harm
{Verse, Under[:-1] {..1, .1Maj} _16}
key g maj
{Answer 1 _16, Shut Plag}