resetCycles

do
let sawHarmonic = pF "sawHarmonic"
let mix = pF "mix"
setcps (110/60/4)
d1
  $ mask "<<f!4 t f!3> t!12 f!4 t f!3 t!8>"
  $ "k . <k [~k~~]>"  # "[jazz,cpu2]"
  -- $ "k k k k" # "[jazz,kick:5]"
  # lpf 4000
  # gain 0.75
d2
  $ struct ("t*<4 4 4 4 [4 8]!2 16 [16 8]>")
  $ "~ s ~ s"
  # "sn:20"
  # lpf 2000
  # gain 0.8
d3
  -- $ mask "<f!7 f!21>"
  -- $ superimpose (
    -- (# "amencutup:4")
  -- . (# lpf 2000) . (|* gain 0.8)
  -- )
  $ "d d d d d d d*2 d"
  # "[drum:2,amencutup:5]"
  # gain (slow 16 $ range 0.4 0.6 saw)
  # pan (slow 16 $ sine)
  # room 0.2 # dry 0.99
d4 -- Gauche
  $ mask "<f!4 t!12 f!8 t!8>"
  $ note "<c3!3 as3> . ~ [gs3 g3]"
  # "superpiano"
  # velocity 0.45
  # gain (slow 64 $ range 0.8 1 sine)
  # pan 0.45
d5 -- Droite 2/3
  $ whenmod 16 10 (superimpose (const
    $ note (
      "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . ~"
    )
    # "superpiano"
    # pan 0.65
    # velocity 0.4
  ))
  $ mask "<f!6 t!10 t!8 f!4 t!4>"
  $ note (
    "<c3 [as4 gs3 g3 ~] cs3 c3> . ~ <[gs3 g3][gs3 g3 f3]>"
    + 12)
  # "superpiano"
  # pan 0.55
  # velocity 0.45
d6 -- Horloge
  $ fast 8
  $ note "<0 -2>"
  # "drum:2"
  # hpf 5000
  # hpq 0.3
  # room 0.1 # dry 0.98
  # gain 0.45
d7
  $ mask "<f!8 t!8>"
  $ note "[gs5 g5 gs5 ~] [g5 ~ . <gs5 as5>] . <~ ~ [<g5 ~> ~ . <gs5 ~>] [~ as5]> ~"
  # "strings"
  # sawHarmonic 1.9
  # pan 0.1
  # mix 0.8
  # gain 0.8
  # room 0.2