-- Confine au bureau

setcps 0.45


d6 -- LEAD basse motif
$ jux id
$ whenmod 60 64 (
  swing 2
  . (# gain 1.1)
  )
$ arp ("<thumbup thumbup thumbup thumbdown>")
$ n "c'maj e'min <d'maj d'min> <~ d'maj>"
# s "subBass1"
|- n 24

d4 -- Hats motif rythme
$ sometimesBy (slow 16 $ isaw) (slow 2)
$ arp (slow 8 $ "<up [up updown] updown down [down up] downup>")
$ n "d'maj e'min f'maj ~"
# s "superhat"
# sustain 0.2
# gain 0.85

d3 -- randomized drumroll
$ whenmod 8 5 (sometimesBy (slow 8 $ "0 <0.75 0.25>") (off (2/12) id))
$ whenmod 4 2 (sometimesBy (slow 4 $ "<0.25 0.75>") (off (1/12) id))
$ whenmod 16 8 (>| n "0*8")
$ n "0*4"
# s "dr"
# gain (slow 16 $ sine / 4 + 0.75)
# pan (rand / 2)

d1 -- randomly offset kick
$ sometimesBy (slow 4 $ iter 4 $ "0 0 0 1") (0.125 <~)
$ sometimesBy "0 0.1 0 <0 0.1 0.2 0.3>" (0.125 ~>)
$ s "k k k k"
# s "clubkick:9"
# gain 0.7

d2 -- claps contretemps
$ sometimesBy ("0 <0 0 0 0.5>") (off (1/16) id) -- echo court
$ sometimesBy "0 <0,0.05 .. 1>" (off (1/8) id) -- echo long
$ sometimesBy "0 0" (fast 2) -- decalage
$ sometimesBy "0 <0.25 <0.5 0>>" ((# n 0) . (|- gain 0.15)) -- plus grave
$ s "[~ ~ ~ c]*2"
# s "cp:1"
# gain 0.7

d7 -- piano impro
$ sometimes ((1/96) <~)
$ sometimesBy (slow 16 $ saw) (|- velocity 0.1)
$ whenmod 16 12 (swing 2)
$ n (fastcat [
  "0(<1 1 1 1 2 2 2 2 5 5 5 5>,6)",
  "0(<2 1 2 1 3 2 3 2>,6)",
  "0(<1 3 1 2 2 2 3 3 3 6 6 6>,6)",
  "~"])
|> n "[0|4|7][0|4|7][0|4|7] [4|7|11][4|7|11][4|7|11] [2|6|9][2|6|9][2|6|9] ~"
|- n 12
# s "superpiano"
# velocity (slow 16 $ 0.7 + saw / 20)
# sustain "0.25 0.25 1 ~"
# gain (slow 32 $ sine * 0.4 + 0.5)

d10 -- scratch moineau!
$ sometimesBy 0.2 (off (1/32) id)
$ degradeBy "0 0.1 0.8 0"
$ euclid (slow 8 $ "<8 16>") 16
$ n "0"
# s "birds3"
# n (choose [0,0,2])
# gain 0.85

unsolo 10

-- TODO: REWORK


d5 -- basse elec lead - trop repetitive
$ swing 8
$ whenmod 8 6 (|- n 2)
$ whenmod 8 4 (|+ n 2)
$ whenmod 8 2 (|+ n 5)
$ superimpose ((# s "violin") . (|- gain 0.2))
$ superimpose (arp (slow 4 $ "<up down updown downup>"))
$ n "d'maj e'min f'maj ~"
# gain 0.7
# s "subBass2"
|- n 12

unmute 7

d8 -- lead siren
-- $ whenmod 4 2 (sometimes $ jux rev)
$ whenmod 8 4 (sometimes $ degradeBy 0.25)
$ every 4 (chunk 4 (|- n "[5,12]" )) -- variante chunkee quinte
$ superimpose (|- n 12) -- octave
$ arp (slow 2 $ "<up [up updown] updown down [down up] downup>")
$ n ("~ <f'maj f4'maj> e'min <d'maj d6'maj>" - 12)
# s "supersiren"
# gain 0.6
