setcps 0.5
-- 2s / mesure
-- MicroPomodoro = 5m = 5*60 = 20 * 15 = 300 secondes = 150 mesures
-- Pomodoro = 25m = 25*60 = 100 * 15 = 1500 secondes = 750 mesures

d1
$ every' 2 1 (often (off 0.125 id))
$ whenmod 750 375 (fast 2)
$ whenmod 150 140 (# silence)
$ whenmod 150 75  (fast 2)
$ s "reverbkick" # lpf 400

d2
$ almostNever (fast 4)
$ s "~ snare:11"

d3
$ whenmod 150 140 (# room 0.5) . (# dry "<0 0.5 1 2>")
$ whenmod 150 130 (fast "8 . 2 4")
$ whenmod 24 20 (fast 2)
$ fast "<8 4 8 1>" $ s "drum:8"

d4 -- Bass tendue/detendue
$ whenmod 150 0 (off 0.125 (# crush 8))
$ sometimesBy "<0.5 0> 0"  (chop "<4 2>")
$ note (scale "aeolian" (
  "0(3,<4 8>)" + "<0 2 0 5 0 4 0 5>"
)
- 24
)
# s "supersaw" # voice 0.1
# sustain 0.5
# gain 0.9

d3 -- bass
$ note ("<<0 3> <0 3> <0 -4> <0 -4>>" +
"0 7 ~ 0 6 7 6 3")
# s "bass3"
# gain 0.8

d6 $ s "birds/4" # n (irand 16)
# speed (range 0.5 2 rand)
# gain 0.7

d9 -- Period end siren
$ whenmod 150 130 (# gain 0.8)
$ s "supersiren/16"
# note (-12)
# gain 0
