setcps 0.5

d1 $ s "jazz"
# lpf 200
# gain 0.6
# pan 0.6

d2 $ s "ho hh [hc hh?]"
# n "[0|1|2|3]*2 0 [0 <0 1>]"
# cut 2
# gain 0.5
# pan 0.4

d3
-- $ every 2 (degrade . ply 2)
$ fast 2
$ s "d*2 <~ [~ d]>" #"drum:8" # gain 0.7

d4
$ note ("[0(3,16),<3!3 5>(2,16,4),[<5 3>,<12 10>](1,2,1)]"
- 24
)
# sustain "[0.5,0.25]"
-- # s "supersaw" # voice 0.1
# s "bassWarsaw"
# lpf (slow 64 $ range 10 1000 sine)
# gain 0.8


unmute 5

d5 -- Guitare pompe contretemps
$ note ("[~ <<0!2 3!2> <2 <7 12>>!2>]*2") # s "bsguitar:3"
# gain 0.7
# room (slow 64 $ range 0.25 0.7 sine)
# size (slow 50 $ range 0 0.9 sine)

-- TODO arguments definition.
let ffreq = pF "ffreq"