bpm 90
meter 4
unit 1/4
key g maj
Cadence ::= .1Dia .4Dia .5Dia .1Dia
Slack ::= Cadence \2 .5Min
assert .5Dia == {.5, .7, 2}
assert .5Min == {.5, .7b, 2}
assert Slack == .1Dia .4Dia .5Min .1Dia
Cadence _8
Slack*2 _8
Drone ::= {..1, ..5} _16
Tune ::= | 5 6 7 '1 |
| '1 _2 7 _2 |
| 6 5 4 _2 |
| 2 3 5 _2 |
Mixo ::= Tune \2 7b \5 {7b _2}
assert Tune[2] == 7
assert Mixo[2] == 7b
{Tune, Drone*4}
{Mixo, Drone*4}
assert ..7bMaj == {..7b, .2, .4}
Vamp ::= .1Dia ..7bMaj .4Dia .1Dia
{Mixo, Vamp _16, Drone*4}*2
key g min
Minor ::= .1Dia .4Dia .1Dia .5Dia
Dorian ::= Minor \1 .4Maj
assert .4Maj == {.4, .6#, 1}
assert Dorian == .1Dia .4Maj .1Dia .5Dia
Minor _8
Dorian _8
Ground ::= .1Dia .4Maj
Air ::= | 5 3 4 5 |
| 6# _2 5 _2 |
| 3 4 5 '1 |
| 6# 5 4 _2 |
{Air, Ground*2 _16, Drone*4}*2
Descent ::= .4Dia .3Dia .2Dia .1Dia
Phrygian ::= Descent \2 .2bMaj
Fall ::= | 4 5 4 3 |
| 4 3 2b 1 |
Descent _8
{Fall, Phrygian _8}*2
key g maj
{Mixo, Vamp _16, Drone*4}
key g min
{Air, Ground*2 _16, Drone*4}
{Fall, Phrygian _8}*2
{.1Dia _16, Drone}