resetCycles

do
setcps 0.5
d1
  $ every' 8 7 (<| s ("1 1 1 [~ 1]"))
  $ fast 4
  -- $ fast "<0!4 1!4 4!8 4!3 2 4!2 [8 4] 4>"
  $ s "[jazz,techno]"
  # gain 0.8
d2
  $ someCyclesBy "<0!8 1!8>" (# speed "<0.75!3 0.5 0.75!2 0.5!2>")
  $ mask "t f t f t <f!3 t> t t"
  $ chop 8
  $ "fbonus:2"
  # gain 0.7
  # cut 2
d3 -- snares synchro
  $ sometimesBy "0!3 1" (stut "<2 3 4>" 1 "<e!3 s>")
  $ "s s s t" # "sn" # n "20" # note ("0 0 0 -12") # gain 0.8
d7
  $ whenmod 16 8 (superimpose (
    (|* gain 0.8)
    . (# lpq 0.75)
    . (# room 0.4)
    . (# legato 0.2)
  ))
  -- $ fast "<0!8 1!3 2 1!7 2>"
  $ "~ cp"
  # gain 1
  # lpf 2000
  # note 6
d5
  -- $ whenmod 16 10 (mask "t(<2!4 1!2>,4)")
  $ someCyclesBy "<0!32 1!96>" ( -- L'action
      splice 8 "0 1 <2!3 <3 6>> <3 7>"
    )
  $ someCyclesBy "<1!32 0!96>" ( -- L'attente
      degradeBy "<[0 <1!2 0!2> <0 1> <1 0>]!4 0!28>"
      . splice 8 "2 4 0 0*2"
  )
  $ s "fclav:8"
  # cut 1
  # gain 0.75

once -- TODO?
  -- $ mask "<f!28 t!36>"
  $ note (scale "aeolian" (
    "d(3,8) ds" + "<c5'maj c5'maj <c5'min a4'maj> a4'min>")
  )
  # "FMRhodes1"
  # gain 0.85