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