-- Nouvelle vague; NOUVEAU PUNK
do
setcps (155/60/4)
let gMute = (midiOn "^73" (mask "f*16"))
d1 $ gF1 $ gM1 -- Kick resolu
  $ midiOn "^42"  (<| "t t t*<1!3 2> <t t*2 t t*4>")
  $ midiOff "^42" (<| "t . ~ t ~ ~")
  $ "[rampleA0:1,jazz]"
  # gain 1.6
  # cpsbus 1 (155/60/4)
d2 $ gF1 $ gM2
  $ midiOn "^43" (<| "~ s ~ <s s*2 s [~ s]>")
  $ midiOff "^43" (<| "~ s ~ s*<1!4 2 2 4 8>")
  $ "[snare:38,snare:39]"
  # gain 1.2
d3 $ gF1 $ gM2
  $ midiOn "^76" (ply 2)
  $ "dr*<8!3 16>"
  # "h2ogmhh" # cut 3
  # gain 0.85
d8 $ gF1 $ gM2 $ chop 16 -- Breaks-in-a-box' (patent pending)
  $ loopAt 1
  $ midiOn "^92" (# "breaks165") -- BOUTON NASSIM <3
  -- $ midiOn ("^36" - "^56" - "^89") (loopAt 2 . (# n 45))
  $ midiOn ("^56" - "^92") (loopAt 4 . (# n 44))
  $ "jungle_breaks:79" -- Arguably not very drum-n-bass
d4 $ gF2 $ gM3 -- Ligne directrice: P-U-N-K
  $ midiOn "^89" (ply 2)
  $ midiOn "^57" (chop 2)
  $ chop 4
  $ "punk:0/4"
  # cut 4
  # gain 0.9
  # legato (range 0.42 1 "^33")
  # crushbus  41 (range 16 1.5 "^53")
  # room 0.2 # dry 1.9 # sz 0.6
d5 $ gF3 $ gM3
  $ midiOn "^90" (ply "2 <1 4>")
  $ midiOn "^58" (
    chop "<4 4 8 16>"
    . (# legato 0.5) . (# room 0.3) . (# sz 0.7))
  $ note "<e c d b4>"
  # "90s_synatm:9"
  # crushbus 52 (range 16 3.5 "^54")
  # octersubbus 51 (range 0 4 "^54")
  # octerbus 53 (range 0 1 "^34")
  # cut 5
  # pan 0.7
d6 $ gF3
  $ ply "<1!8 [4 <8 8 2 8>]!8>"
  $ note "<e g a <b4 b4>>"
  # "meth_bass:3"
  # cut 6
  # hpf 2000
d9 $ gF3 $ gM3 -- Violoncelle Manouche punko-magique
  -- $ chop "<4 4 8 16>"
  $ struct "t(<3!3 5>,8,<0!7 1>)"
  $ note (
    "<e g a <b4 b4>>"
    + (arp "up" "[0,<7 7 9 7>,12]")
    )
  # "cpluck:2"
  # cut 9
  # legato 0.5
  # pan 0.2
d11 $ gF3 $ gM3 -- Anges melodiques
  -- $ struct "t([5 <3!3 5>],8)"
  $ note "<e <a a e6 e6> <g c6 a6 c6> b5>"
  # "moogBass"
  # att 0.1
  # rel 1
  # gain 1.2
  # room 0.7
d10 $ gM3 -- Decoration/riser
  $ fix (
    (loopAt 8) . gMute . gMute2
    . mask "<f!8 t!8>"
    . (# gain 0.9)
    . (# speed 0.125)
    . (# cut 102)
    ) "risers" -- Riser occasionnel
  -- $ fix (mask "<f!3 t f!4 f!3 t f!3 t t!3 f t!2 f f t f!3 t!4>"
  --   . (# cut 101)
  -- ) "suns_voice" -- Could add sample
  $ stack ["risers:19/2"]
  # room 0.2

-- e c d b

once $ "cbow"
