bpm 60
meter 4
unit 1/4
key d4 min
Subject ::= 1 _2 5 _2 4 3 2 3 4 5 6 5 3 2 1 _2
Ground ::= .1 _4 .5 _4 .6 _4 .5 _4
assert Subject~ == Subject[::-1]
{Subject, Ground}
{Subject~, Ground}
assert {1 _2 5 _2}^ == 1 _2 .4 _2
{Subject^, Ground}
{Subject~^, Ground}
{Subject Subject^ Subject~ Subject~^, Ground*4}
assert 2@7 == 6#
assert Subject@7@5 == Subject@12
{Subject Subject@7 Subject@12, Ground*3}
{Subject@12, Subject, Ground}
Head ::= Subject[0:6]
assert 2@~4 == 6
assert Head@~4 == 5 _2 '2 _2 '1 7 6 7
{Subject Subject@~4, Ground*2}
{Head Head@~-1 Head@~-2 Head@~-3, Ground*2}
axis 3
assert {1 3 5}^ == 5 3 1
{Subject, Subject^, Ground}
axis first
assert {5 6 7 '1}^ == 5 4 3 2
{Subject@~4, Subject@~4^, Ground}
{Subject@~4 Subject@~4^, Ground*2}
axis 1
{Subject Subject@~4, Ground*2}
{Subject Subject, - _8 Subject^ - _8, Ground*2}
{Head Head@~-1 Head@~-2 Head@~-3, Ground*2}
{Subject~^ Subject, Ground*2}
{1, 3, 5, .1} _8