bpm 120
meter 8
unit 1/8
key c harm
Theme ::= 5 _2 '3 _2 5 _2 '2 _2 '1 7 '1
Theme
ThemeB ::= '4 _2 '5 _2 '1 _2 7 _2 6# _2 5 _2
ThemeB Theme
Theme {Theme}@-24 Theme
A ::= Theme ThemeB
B ::= {ThemeB}@~-2 Theme
A A B B
key c4 harm
mode diatonic
Ped ::= $1 _2 5 _2
Arp ::= 1 .5 1 3 5 _2
Drop ::= Ped('4 '3) '2 _2 '1 7
DropPair ::= Drop Arp[:4]@12 Drop '1
assert Arp[:4]@12 == '1 5 '1 '3
Answer ::= '2 _2 '3 _2 ThemeB
assert ThemeB[2:]@-12 == 1 _2 .7 _2 .6# _2 .5 _2
assert Ped('3 '2) == Theme[1:4] 5 _2
5 _4 7 _7/2 6#/2 '1 _6 Answer 4 _2 3 _2 4 _2 5 _2 ThemeB[2:]@-12 Answer '2 _2
| Ped('3 '2) '1 _2 7 6# 7 5 7 '2 |*2
DropPair 7 '1 '2
key g4 harm
Tetra ::= 7 _2 6 _2 5 _2 4 _2
Trill ::= 2 3/2 2/2 3/2 2/2 1/2
TrillPair ::= Trill@~1 1/2 Trill .7/2
Min3 ::= {2, .7} _2
assert 1 == g4
assert '1 7b Tetra@~-1/2 2 1 == '1 7b 6 5 4 3 2 1
assert Trill@~8 == '3 '4/2 '3/2 '4/2 '3/2 '2/2
assert Min3 == {f#4, a4} _2
Approach ::= Arp 4 _2 TrillPair 5 3? 1 5? 3 '1? 5 '1 _2 4 _2 TrillPair
Descent ::= 1 '1 7b Tetra@~-1/2 2 1 1 .7b Tetra@~-8/2 .2 .1 - _3 1Min _4
6 5 4 4b Tetra@~-3/2 2 1 .7 .6# .7 .5 .6# .7
Arp Min3@~2 TrillPair
Approach Descent
1Min$3-5-1 _4 - _4
key c4 harm
.5 - _3 5Dia _4 5Dia$1-3-5-1 _4 - _4
7 _4 '1 _7/2 7/2 '2 _6 '3 _2
Step ::= '4 '3 '2 _2
assert Step@~-2 == '2 '1 7 _2
Min3@~9 Min3@~8 _2 Min3@~7 '3/2 '4/2 '3/2 '4/2 '3 '2/2 '3/2 '1 _2 5 _2
6 _2 4 _2 5 _2 3 _2 4 _2 2 _2 3 2 1 _2
.7 _2 .5 _2 1 _4 .5 _6 '5 _2
Step Step@~-1 Step@~-2 '1 '2 '3 _2
'2/2 '3/2 '4 _3 Trill@~8 '3/2 '2 _6 '3 _2
DropPair 7b 6 5
Tetra@~-1/2 Tetra@~-3/2 2 1 .7 1 .7 .5 .6 .7
assert Arp@~7 == Arp@12
Arp 4 _2 TrillPair
Approach#8@~7 Descent@~7 ''1Dia$1-3-5-1 _4