do
setcps (120/60/4)
d1
  $ superimpose (const $ "jazz"
  )
  $ loopAt 4 $ "dusty"
  # gain 0.8
  # cut 1
d2 $ fast "<4!3 8>" $ "dr" # gain 0.5
d3
  $ sometimesBy "0.75 0.5 0.25 0.1" (ply 2)
  $ fast "<1!3 2>"
  $ "~ ~ ~ [sn:1,snare:2]"
  -- # gain 0.8

-- TECHNO-CLAP
do
d1
  $ "k . <~!4 k!4 k(<3 5>,8)!4>"
  # "jazz" # gain 1.8
d2
  $ fix (
    (stut 2 0.9 "<q e s>") .
    (|* gain 2)
    ) ("hh")
  $ "c*2 c*<4 [2 4]>"
  # "cpu:3!7 [cpu2:2,hh]"
  # lpf (fast 4 $ range 2000 10000 rand)
  # gain (slow 16 $ range 0.8 2 sine)


-- Samedi après-midi venteux
do
setcps (130/60/4)
let glob = (degradeBy ("0 1 1 [1 0]" * 0.95) . (# djf 0.3))
d1
  $ glob
  $ "bd*<4!16 2 2 1 2>" # gain 1.5
d2 -- continuous laser
  $ glob
  $ whenmod 32 0 (|* gain (slow 16 $ range 1 0.5 isaw))
  $ jux rev
  $ slow 2
  $ "bd" >| speed (segment (slow 24 "<32 64 128>") $ range 40 5 sine)
d3
  -- $ glob
  $ jux rev
  $ iter 4
  $ whenmod 64 32 (# squiz 2)
  $ "bd*<[8 <8 8 2> 4 8]!3 [16!3 8]>"
  # gain 2.5
  # hpf 5000
d4
  $ glob
  $ superimpose (
    swing 2 . arp "<updown!3 downup>"
    . (|+ note 12)
  )
  $ "supersaw"
  # note ("<c3'maj c3'maj c3'min g3'maj>")
  # voice 0.1
  # gain (slow 8 $ range 0.55 1 sine)
d5
  $ glob
  $ arp "up"
  $ "supergong"
  # note ("<c3'maj c3'maj c3'min g3'maj>")
  # octave "<7 7 8 9>"
  # gain 1.2
d6 -- bourrasque
  $ glob
  $ every 16 (jux rev) -- echo
  -- $ every 8 (# gain 0.9)
  $ s "space:3"
  # speed 0.25
  # gain 1.25
  # pan 1
