setcps 0.5

d1 -- vents aigus respiration
$ stut "<0 2 4 0>" 0.5 0.125
$ n "[0,1] 9"
# s "wind"
# gain (slow 64 $ cosine * 0.3 + 0.4)

d2 -- beat
$ fast 2
$ every 4 (sometimes (off "<0.125 0.25>" id))
$ whenmod 32 30 degrade
$ whenmod 32 26 degrade
$ s "house"
# room 0.8
# size 0.7
# dry 1
# gain (slow 32 $ cosine * 0.25 + 0.7)
# lpf 800

d3 -- glitch reseau
$ every 4 (someCyclesBy 0.2 (chop 4))
$ s "~ glitch:5"
# gain (slow 64 $ sine * 0.7 + 0.2)

d5 -- bourrasque space
$ whenmod 16 10 (
  (swing 2) . (chop 2)
)
$ s "space:3"
# speed 0.4
# gain (slow 64 $ cosine * 0.5 + (rand / 4))
# room 0.8

d6 -- oiseaux
$ sometimes (off 2 (|- gain 0.4)) -- copie mesure d'apres
$ sometimes (off 1 (|- gain 0.2)) -- copie mesure suivante
$ sometimes (1 ~>) -- decalage mesure suivante
$ degradeBy (slow 64 $ sine * 0.8 + 0.2)
$ s "birds" # n (irand 10)
# gain 0.6

d7 -- moineau roll
$ sometimesBy (slow 16 $ sine * 0.95) (off (1/16) id)
$ s "birds3(<[3|6] 8>,8)"
# gain (slow 64 $ 0.9 - sine * 0.4)

d9 -- scratched birds
$ fast 2
$ s "~ [b b?]"
# s "birds3"
# n (wchoose [(9,13),(1,14)])
# gain (slow 64 $ cosine * 0.5 + 0.2)
# room (slow 64 $ cosine * 0.8 + 0.05)
# size (slow 64 $ cosine * 0.8 + 0.05)
# dry 0

d10 -- basse
-- $ superimpose -- echos crushes!
  -- (fast 2) . (chop 4)  . (# crush (4 + (irand 10))) . (|- gain 0.2)
-- $ jux rev
$ whenmod 8 4 (off 0.125 (|+ note "<12 <7 [7 7]> <12 [3 0]>>"))
$ every 4 (someCycles (fast 2 . degrade))
$ often (fast 2 . (0.25 ~>))
$ note "<0 <3 [3 3]> <0 [3 0]>>"
# s "bassWarsaw"
# hpf (slow 64 $ cosine * 900 + 100)
# room (slow 64 $ 1 - cosine * 0.9)
|- note 24
# gain 0.95

d11 -- cymbale
$ whenmod 64 32 (always (# n 3)) -- prolonge
$ whenmod 16 8 (# note 4)
$ whenmod 16 0 (# note 7)
$ almostNever (superimpose (const $ s "~ ~ 808cy:1 ~"))
$ swing (slow 64 $ "<3 5>")
$ sometimesBy "0 0.05 0.05 0.5 0" ((1/8) ~>)
$ sometimes (|- gain 0.1)
$ euclid 5 4
$ s "~ cy"
# s "808cy"
# gain (slow 32 $ sine * 0.4 + 0.3)
