setcps 0.8

once $ s "bogdan:11"
# gain 1.3
# cut 1


d1
$ someCycles (0.25 ~>)
$ fix (# s "sn:2") (s "t")
$ fix (# s "kick:8") (s "p")

-- $ s "p ~ <t <t t?>> ~ ~ p t <~ <~ t?>>" -- reggaeton
# gain 0.7

-- helico?
d1
$ s "[a*4 ~] a*8"
# s "armora"
# note "-15 .. 15"

-- DNB
d1
-- $ fix (# s "nass:2") (s "sn:1")
$ s "bd ~ sn:1 ~ ~ bd sn:1 <~ sn:1>"
# gain 1


d1 $ "<dr <dr*2 dr?*8>>" # s ( choose ["hh", "dr"])

d2 $ euclid "<1 3>" 8
$ s "glitch"
# n 1
# gain (1 + rand)

d9 $ "808bd:1"
# gain 0.9

d2
$ every 2 (off (6/12) id)
$ every' 2 1 (off (3/12) id)
$ every' 4 1 (off (5/12) id)
$ every' 4 1 (off (6/12) id)
$ every' 8 6 (# n "2 0 0")
$ every' 8 7 (# gain 0)
$ s "dr"
# n 0

d2 $ s "dr*2 ~ dr  ~ dr*8"

d1
$ degrade
$ s "dr dr dr dr dr dr sn ~ dr dr dr dr sn"

d1
$ every 1 (off (8/16) id)
$ every 2 (off (10/16) id)
$ every 2 (off (14/16) id)
-- $ every 4 (off (15/16) id)
$ every' 4 3 (# pan 1)
$ every' 4 4 (# pan 1)
$ s "dr"
-- $ every 1 (# s "~")

d1 -- progression geometrique de tk
$ every 1 (off 0.125 id)
$ every 2 (off 0.5 id)
$ every 4 (off 0.375 id)
$ every 8 (off 0.75 id)
$ every 16 (off 0.875 id)
$ "jazz:3"

d1 -- batterie chaloupee
$ every 4 (off 0.125 id)
$ every 4 (off 0.25 id)
$ euclid 3 8
$ s "dr"
# n 0

d2 -- contretemps tercets
$ s "~ dr:1(<1 <2 3> 3 1>,3)"


--
-- d3 $ s "bassWarsaw?*8" # note (scale "aeolian" (irand 2))
-- |- note 21
-- # gain 0.7

d1 $ s "[a*4 ~] a*8"
# note "-15 .. 15"
# s "armora"

d1 $ "jazz" # 3


--  TODO : 80s drum transition
once
-- $ rarely (superimpose (# n 4))
$ degrade
$ fast 2
$ n ("0 . 0 0 0 . 0 . 0 <0 ~> <0 ~> . 0 . 0 . <0 ~>" + "2 [2|3] 2 [2 3]")
# s "electro1" # gain 1.3
# room 0.2

-- Rythme de l'été
do
setcps (130/60/4)
d1
  $ fast 2
  $ fix (# "sn:1") ("sn")
  $ fix (# "jazz") ("k")
  -- $ "[k ~ <~!7 k> k] [<k!7 [~ k]> . k]"
  $ "k ~ <~!3 sn> sn . k sn"
  # gain 0.7
-- d2 $ "hh*8" # gain 0.6
