bpm 60
key g maj
Ant ::= 5 _2 '1 _2 7 _2 5 _2 6 _2 '1 _2 7 _4
Con ::= Ant[:2] 7 _2 5 _2 6 _2 4 _2 2 _2 1 _2
Theme ::= Ant Con
BassA ::= .1 _4 .3 _4 .4 _4 .5 _4
BassB ::= .1 _4 .3 _4 .4 _4 .5 _2 .1 _2
Ground ::= BassA BassB
assert Ant[:2] == Con[:2]
Theme
{Theme, Ground}
Head ::= Ant[:2]
Fall ::= Con[4:6]
Var1 ::= Head Head@~2 Head@~3 Head@~4 Fall@~4 Fall@~1 Fall Con[6:]
assert Head Fall == 5 _2 '1 _2 6 _2 4 _2
Var1
{Var1, Ground}
axis 5
Var2 ::= {Theme}^
assert {Ant}^ == 5 _2 2 _2 3 _2 5 _2 4 _2 2 _2 3 _4
Var2
{Theme, Var2, .1 _16 .5 _8 .1 _8}
Var3 ::= {Theme Theme, {Theme} _2@-12}
assert {Ant} _2 == 5 _4 '1 _4 7 _4 5 _4 6 _4 '1 _4 7 _8
Var3
{Var3, Ground*2}
key g min
{Theme, Ground}
{Var1, Ground}
key g maj
{Theme, Ground}
{Var1, Ground}
{Theme, Var2, .1 _16 .5 _8 .1 _8}
{Var3, Ground*2}
key g min
{Theme, Ground}
key g maj
{Theme, Ground}