bpm 80
meter 4
unit 1/4
key f# min
Head ::= 1 _2 3 _2 5 _2 '1 _2 7 _2 5 _2 4 _2 3 _2
Turn ::= 2 _2 4 _2 3 _2 2 _2 1 _2 .7# _2 1 _4
Head Turn Head@~2 Turn
Cad ::= 3 _2 2 _2 .7# _4 1 _8
= 5 _2 4 _2 3 _2 2 _2 1 _8
= 2 _2 1 _2 .7# _2 .6 _2 .5 _8
enum Cad
assert Cad#1 == 3 _2 2 _2 .7# _4 1 _8
Head Cad#1 Head@~2 Cad#3 Head Cad#2
Vamp ::= {1 5 '1 5} _2
Climb ::= (Vamp Vamp@~2)& Vamp@~4 Cad#2
assert Vamp*2 == Vamp Vamp
enum Climb --reps 3
Climb#3
Kit ::= kick - hat - snare - hat (hat?) kick - hat (kick?) snare - hat hat?clap
Bass ::= .1 _4 .1 _4 .5 _4 .1 _4
enum Kit
{Kit#1, Bass, Head}
{Kit#4, Bass, Head@~2}
{Kit#1, Bass, Head}
{Kit#8, Bass, Turn}
inst tb = ohat
Roll ::= "tb tb tb tb"
Break ::= "{kick tb tb tb, .1 _4}" Roll "{snare tb tb tb, .5 _4}" Roll
Break Break@~2
{Break, Head} {Break, Cad#1}
Verse ::= {Kit#1, Bass, Head} {Kit#4, Bass, Head@~2} {Kit#7, Bass, Turn}
Piece ::= Verse Climb#3 Break Break@~2 Verse Cad#1
Piece