setcps 0.5

d1 -- rythme
$ fast 4
$ whenmod 16 14 (const $ s "clubkick*2")
$ whenmod 16 12 (const $ s "[clubkick,sn hh]")
$ s "clubkick"
# n "<0 0 0 4>"

d2 -- basse au feeling
$ whenmod 8 7 (off 0.5 id)
$ whenmod 8 6 (# gain 0.8)
$ whenmod 8 4 (rev)
$ often (off 0.125 id)
$ rarely (off 0.25 (# note 0))
$ s "bass3(<1 <3 5>>,8)"
# note "0 <12 5> 7"
# n "0"


d3 -- melodie d'urgence
$ whenmod 32 8 (# gain 0)
$ whenmod 4 3 (off 0.125 (# note "0 7 5 3")) -- majeure
$ off 0.125 (# note "0 3 5 7") -- mineure
$ every 4 (jux rev)
$ chop 4 $ s "padlong"
# cut 1
# release 2
# gain 0.8

d4
$ whenmod 32 8 (# gain 1)
$ every 4 (rev)
$ fast 2
$ s "[bass3:9*8]"
# cut 2
# attack 1
# release 1
# note "<0 <7 10>>/2"
# gain 0

-- # note "0 4 7 <<[9,10] 10> <9 12>>"