bpm 132
key c maj
Theme ::= '1 _8 '3 _4 '5 _4 7 _6 '1 '2 '1 _4 - _4
Alberti ::= {1 5 3 5}_2
Open ::= {Theme, Alberti *4}
Open
Answer ::= '6 _8 '5 _4 ''1 _4 '5 _4 '4 _2 '3 '4 '3 _4 - _4
{Answer, Alberti *4}
unit 1/4
Cell ::= {1 5 3 5}_2 = {2 5 4 5}_2 = {1 6 4 6}_2 = {.7 5 2 5}_2
Phrase ::= | Cell#1 Cell#1 | Cell#2 Cell#1 | Cell#3 Cell#1 | Cell#4 Cell#1 |
Phrase
Run ::= 6 _2 7 '1 '2 '3 '4 '5 '6 '5 '4 '3 '2 '1 7 6
Run Run@~-1 Run@~-2
{Theme Answer, Phrase} Run Run@~-1 Run@~-2 5Maj _2 1Maj _2
Rise ::= 2 5 7 _4 - 1 3 5 '1 _4
Climb ::= 3 4 5 6 7 '2b '2 6 7 '2b '2 '3 '4 '5
Trill ::= .7 2 .7 2
Rise
Climb
Trill Trill .7 2 Trill .7 2
Fall ::= ''2 ''1 '7 '6 '5 '4 _4 - _4
- '6 ''3 Fall
- '5 ''2 Fall @~-1
- '4 ''1 Fall @~-2
{Theme @~3, Alberti @~3 *4}
{Theme, Alberti *4}
Rise @-5
Trill Trill .7 2 Trill .7 2
{Theme Answer, Phrase} Run Run@~-1 Run@~-2
Rise Climb Trill Trill .7 2 Trill .7 2
- '6 ''3 Fall - '5 ''2 Fall @~-1 - '4 ''1 Fall @~-2
{Theme @~3, Alberti @~3 *4} {Theme, Alberti *4} Rise @-5
Trill Trill .7 2 Trill .7 2 5Maj _2 1Maj _2 {.1, 1} _4
bpm 132
meter 4
unit 1/4
key c4 maj
mode diatonic
assert Run@~-3 == e4 _2 f4 g4 a4 b4 c5 d5 e5 d5 c5 b4 a4 g4 f4 e4
Theme Answer Run Run@~-1 Run@~-2 Run@~-3
Stair ::= 2 _2 3 4 5 6 7 '1# '2 6 7 '1# '2 '3 '4 '5
Crest ::= '6 '7 ''1 '7 '6 '5 '4 '3 '4 '5 '6 '5 '4 '3 '2 '1
Close ::= 7 _2 '5 _2 '3 _2 '1 _2 '2 _2 '5 _2 '3 _2 '1 _2
'2 _4 {7, '2, '5} _4 5 _4 - _4
Song ::= '5 _2 '3 _2 '1 _6 '2 '3 '2 _2 '1 _2 '1 _3 7 7 _4 - _8
assert Close[:8] == b4 _2 g5 _2 e5 _2 c5 _2 d5 _2 g5 _2 e5 _2 c5 _2
assert Song@7 == d6 _2 b5 _2 g5 _6 a5 b5 a5 _2 g5 _2 g5 _3 f#5 f#5 _4 - _8
Stair Crest Close - _16 Song@7
Song@7
key g4 maj
Peal ::= '5 _4 - '5 '3 '1 6 _4 - 6 '1 6
Reel ::= '1 5 '1 '3 '5 '3 '1 '3 '4 '2 7 '2
assert Peal \7 {'4} @~-3 == a5 _4 - a5 f#5 d5 b4 _4 - g5 d5 b4
assert Theme[:3]@~-6 == a4 _8 c5 _4 e5 _4
Peal Peal@~-1 Peal@~-2 Peal \7 {'4} @~-3
Theme[:3]@~-6
'2 _6 '3/2 '2/2 '1#/2 '2/2 '4 _2 '2 _2 '4 _2 '2 _2
'3 _2 '1 _2 '5 _8 '4 '3 '2 '1
'2 _16
'1 _4 Reel '1 _4 Reel@-12
1 _4 {5, '3} _4 {3, '1} _4 - _4
key g4 harm
assert Reel == g5 d5 g5 bb5 d6 bb5 g5 bb5 c6 a5 f#5 a5
1 _4 Reel '1 _4 Reel@-12
key c4 maj
5 _4 - _5 '5 '7b '6 '5 '4 '3 '2
'1# _4 - _5 ''1# ''3 ''2 ''1# '7b '6 '5
Vault ::= - '6 ''3 ''2 ''1 '7 '6 '5 '4 _4 - _4
assert Reel[:8]@~1 == d5 a4 d5 f5 a5 f5 d5 f5
assert Vault \4 {''1#} @~-3 == - e5 b5 a5 g#5 f5 e5 d5 c5 _4 - _4
'4 _4 Reel[:8]@~1 '5 '3 '1# '3
'2 _4 Reel[:8]@~-6 5 3 1# 3
- 2 3 4 5 6 7 '1# '2 _4 - _4
- 7 '1 '2 '3 '4# '5# '6 '7 _4 - _4
Vault Vault@~-1 Vault@~-2 Vault \4 {''1#} @~-3
key f4 maj
assert Theme == f5 _8 a5 _4 c6 _4 e5 _6 f5 g5 f5 _4 - _4
- 4 6 5 4 3 2 1 .7 1 2 3 4 5 6 7
Theme Answer Run Run@~-1 Run@~-2 Run@~-3
'3 _4 - _8 {5, '3} _4
key c4 maj
assert '2 Stair \0 {2} == d5 d4 e4 f4 g4 a4 b4 c#5 d5 a4 b4 c#5 d5 e5 f5 g5
{'1, '5} _4 - _8 {'1, '5} _4
{'1, '4} _4 - _8 {7, '4} _4
{'1, '3} _4 - _8 {'1, '3} _4
'2 Stair \0 {2} Crest Close
- _16
assert Peal[:7]@~-1 '5 '7 '5 == f5 _4 - f5 d5 b4 g4 _4 - g5 b5 g5
Song*2
Peal
Peal[:7]@~-1 '5 '7 '5
Peal@~5
Peal \7 {'4} @~4
'2 _8 '2 _4 '2 _4
assert Reel@-12 == c4 g3 c4 e4 g4 e4 c4 e4 f4 d4 b3 d4
'6 _8 '6 _4 '6 _4
'5 _2 '6 '7 ''1 ''2 ''3 ''2 ''1 '7 '6 '5 '4 '3 '2 '1
'2 _16
'1 _4 Reel '1 _4 Reel@-12
1 _4 {'3, '5, ''1} _4 '1 _4 - _4