resetCycles

setcps (90/60/4)

do
let chorus = pF "chorus"
d1
  $ (off "e" (mask "<t f>" . (# "hh27") . ( # n "[8,16]") . (# cut 12)))
  $ superimpose (
    (# "reverbkick")
    . (|* gain 0.75)
    . (# lpf 4000)
    . (# cut 11)
  )
  $ "<k [k <~ k> ~ k]> ~"
  # "808bd:1" # gain 1.2
  # release "[0.7 2] ~"
  # cut 1
d2
  $ "~ . s <~ s [~ s*2] s*[4 [<4 2> 4]]>"
  # "snare"
  # n "[2,3]"
  # gain 0.8
d3
  $ whenmod 8 6 (fast "<2 [2 4]>")
  $ "dr*8" # gain 0.6
d4
  $ superimpose ((|- note 12) . (# cut 41))
  -- $ degradeBy ("0 1!7" * (slow 32 $ range 1 0.8 sine))
  $ mask "t <f t f> [t|f]"
  $ note (4 + -- offset en mi
  scale "major" ( -- gamme choisie
    "[0 1 2 3] [2 3]" -- arpège
    + "<0 1 2 [3 4]>" -- progression montée
    )
  ) # "moogBass"
  # cutoff 1000
  # chorus 0.25
  # pan 0.9
  # legato 2
  # room 0.5 # sz 0.6
  # cut 4
  # gain (slow 16 "<0.55 0.7>")
d5
  $ superimpose (# crush 6)
  $ note (4 + -- offset en mi
    scale "major" ( -- gamme choisie
      "<0 0(<3 5>,8)> [~ [1 2] [2] <~ 2>]" -- arpège
      + "0 <0!3 2>" -- spread
      + "<0 1 2 [3 [0,4]]>" -- progression
      )
  ) # "[bassWarsaw]"
  # voice 0.1
  # octave 3
  # gain 0.7
  # pan 0.2
  # room 0.8 # sz 0.9 # dry 1
d9
  $ whenmod 8 4 (juxBy 0.5 rev)
  $ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
  $ "hh:3"
  # speed (segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
  # gain (slow 8 $ range 0.6 1.2 saw)

-- breaks

-- bourrasque
$ every 16 (jux rev) -- echo
$ every 8 (# gain 0.9)
$ s "space:3"
# speed 0.25
# gain 0.7
