do
  d1 $ s "bd" # gain 0.8
  d2 $ ply ("<1!2 2 4>" * "<4!3 1>") $ s "drum:8"
  d3 $ slice 8 ("0 1 2 3")
    $ sound "break:8" # gain 0.95
  d4
    $ whenmod 8 6 (degrade)
    $ superimpose (
      every 2 (often (# silence))
      . slow 2 . arp "updown" . (|- note 24))
    $ struct "t([3|5|7],8,<0 4>)"
    $ note ("<c'maj f'maj c'min c'maj>")
    # s "superpiano" # velocity 0.45

-- TECHNO JAMBON FROMAGE SLICE
do
  solo 1 -- kick
  solo 2 -- drumroll
  unsolo 3 -- bass
  solo 4 -- clap simple
  solo 5 -- piano
  solo 6 -- Vocal British
  unsolo 7 -- Vocal bev
  solo 9 -- clap double echo
  solo 10 -- Jambon fromage
  setcps 0.5
  d1
    -- $ "k k k <k!3 [~ k]>"
    $ "k . k(<3 <1 5 3 4>>,8)"
    # s "reverbkick"
    # lpf (slow 16 $ range 200 2000 perlin)
    # gain 0.95
  d2 -- Drumroll / hat regulo 8 accelere
    $ superimpose ( -- Hats
      const $ s "ho:[0|1](3,8,<2>)" # gain 0.8 # cut 2
      )
    $ whenmod 32 24 (degradeBy "0 0.5!7")
    $ whenmod 32 16 (fast 2)
    $ fast "16 8"
    $ s "drum:8"
  d2 -- Drumroll ternaire!
    $ fast 4 $ s "d d*1 d*2"
    # s "dr"
    # note ("<0!12 -2 -4 -8 -10>")
  d3 -- SMOKE ON THE BAD RYTHM
    $ mask "t(1,4)"
    $ superimpose ((|+ note 12) . (# gain 0.65))
    $ note (slowcat
      ["c ds f ~", "c ds [fs f] ~", "c ds f [~ ds]", "~ c"]
    - 24)
    # s "supersaw"
    # voice 0.1 # gain (slow 40 $ range 0.5 0.8 sine)
  d3 -- Basse slow sonore
    $ mask "t(<1!2 2!2 3!2 4!2>,4,<0 1 2 3>)"
    -- $ chop "4"
    $ note ("c <ds!4 gs!4> [g <f!3 gs>]") # octave 3
    # s "supersaw" # voice 0.1 # gain 0.85
  d4 $ s "cp"
    # gain 0.8 # room 0.5 # dry 1
  d5 -- Piano fou
    $ superimpose (|> note ("c4'maj*12" + "<0 12 24>"))
    $ note ("c!6 [c <ds f ds!2 f!3 [f c] [c f]>] ~")
    # s "superpiano" # velocity 0.65
    # gain (slow 100 $ range 0.6 0.9 cosine)
  d6
    $ often (# crush 16)
    $ slice 4 "<0!3 1>*4" $ s "bsvocals"
    # gain (slow 40 $ range 0.3 0.8 sine)
    # cut 6
  d7
    $ slice 4 "0(<4!7 1>,8)" $ s "bev" # cut 7
    # gain 1 # room 0.9 # sz 0.4
  d9
    $ every' 4 3 (off 0.125 id)
    $ s "~ ~ ~ cp"
    # room 0.8 # sz 0.5 # lpf 2000
  d10
    $ slice 4 ("<3!3 <0!3 1>>")
    $  "macron:7" # gain 0.95
    # cut 10

-- DUBIFICATION?
do
  d1
    $ s "jazz(3,8)"
  d2
    $ fast "<16!3 [4 <4 8>]>" $ s "drum:8"
  d3
   $ whenmod 32 24 (mask "t(1,4)")
   $ note ("[0*2 <7!5 5!2 3!2 2>]*2")
   # s "superpiano"
   # octave 6
   # velocity 0.4
   # room 0.4 # sz 0.2
  d4 -- Basse electrique
    $ often (superimpose (# crush 4.5))
    $ note (scale "aeolian" ("0 ~ . ~ 4 ~ 0(2,<2!2 4 8>)"))
    # s "bassWarsaw" # octave 3
    # gain (slow 16 $ range 0.75 0.9 sine)
  d5
    $ s "ho(<1 3 <5 7>>,8) hc([1|2|4],4)" # n "0 [2]"
    # cut 5
    # gain 0.75


-- Jazz-hop?
do
  d1 $ "k . k(3,8)" # s "reverbkick" # gain 0.6
  d2 $  "~ sn:1" # gain 0.8
  d3 $ s "dr*4" # gain 0.7
  d4
    $ scramble "<4!4 8 2>"
    $ note (scale "aeolian" (run 8))
    # s "brass:13" # gain 0.5

do
  d1 $ whenmod 32 24 (slow 2) $ "sequential:3*4"
  d2 $ "~ sequential"
  d3
    $ jux rev
    $ "sequential:2(6,8,<0 4>)"
    # gain (slow 32 $ range 0.6 0.9 saw)
  d4
    $ superimpose ( -- Arpeges
        superimpose ( -- Bassline
          swing 2 . (|> "bassWarsaw")
          . (# octave 2)
          . (|* gain 1.3)
          ) .
        arp "downup" . (|- note 12) . (# cut 41)
    )
    $ note ("<c7'maj'4 f7'maj'2 c7'min'4 c7'maj'2>") # "sax:6"
    # gain 0.85
    # cut 4
  d5 $ ""
