bpm 124
meter 4
unit 1/4
key a3 min
Four ::= {kick -*3}*4
assert Four == kick -*3 kick -*3 kick -*3 kick -*3
Four*4
Off ::= -*2 ohat -*3 ohat -*3 ohat -*3 ohat -
Clap ::= -*4 clap -*7 clap -*3
assert Clap == - - - - clap - - - - - - - clap - - -
{Four, Off}*2
{Four, Off, Clap}*4
Alberti ::= .1 .5 .3 .5
Deep ::= {Four, Off, Clap}
Bass ::= Alberti*4 Alberti@~3*4 Alberti@~-1*4 Alberti@~2*4
assert Alberti@~3 == .4 1 .6 1
{Deep, Alberti*4}
{Deep*4, Bass}
Riff ::= .1 _2 .3 _2 .5 _2 .7 _2 '.1 _2 .7 _2 .5 _2 .3 _2
assert Riff~ == Riff[::-1]
{Deep, Riff}
{Deep, Riff~}
Climb ::= s2 s2 s2
assert .1 Climb[::-1] == .1 Climb
{Four, .1 _4 Climb _4}
{Four, '.1 _4 Climb~ _4}
Arp ::= s2 s2 s2
assert Arp(1 4) == {1 Arp 4 Arp}
{Deep*4, Bass, Arp(1 7b 6 5) _2 Arp(1 3 5 4) _2 Arp(1 7b 6 5) _2 Arp(1 3 5 4) _2}
Even ::= $1 _2 $2 _2 $3 _2 $4 _2
assert Even(1 3 5 3) == {1 3 5 3}_2
{Deep, {1 3 5 3}_2}*2
assert 1Dia7 == {a3, c4, e4, g4}
assert .7Dia7 == {g3, b3, d4, f4}
{Deep*4, Bass, 1Dia7 _16 4Dia7 _16 .7Dia7 _16 3Dia7 _16}
Stab ::= -*2 $1 _2 -*2 $1 _2 -*2 $1 _2 -*2 $1 _2
Loop ::= Stab(1Dia7 4Dia7 .7Dia7 3Dia7)
assert Stab(1Dia7) == -*2 1Dia7 _2 -*2 1Dia7 _2 -*2 1Dia7 _2 -*2 1Dia7 _2
{Deep*4, Bass, Loop}
Break ::= {Riff~ _2 Riff _2, Loop}
Break
{Break, Four*4}
assert 3Dia7 == {c4, e4, g4, b4}
{Deep*4, Bass, Loop}
key c4 min
{Deep*4, Bass, Loop}
key a3 min
Four*4
{Four, Off}*4
Deep*4
{Deep*4, Bass}
{Deep*4, Bass, Loop}
{Deep*4, Bass, Loop, Riff*4}
{Deep*4, Bass, Loop, Arp(1 7b 6 5) _2 Arp(1 3 5 4) _2 Arp(1 7b 6 5) _2 Arp(1 3 5 4) _2}
Break
key c4 min
{Deep*4, Bass, Loop, Riff*4}
key a3 min
{Deep*4, Bass, Loop, Riff~*4}
{Deep*4, Bass}
{Four, Off}*4
Four*2