setcps 0.5

d1
$ fast 2
$ sometimes (off 0.5 id) -- retente
$ almostNever (off 0.125 (|> 3)) -- dérape
$ euclid "<1 2 4 8>" 8
$ s "lighter"
# n (choose [0,1])

d3
$ every' 4 3 (# silence)
$ fast 2
$ s "sitar:1"
# up (-0.15)
# note (scale "dorian" "<0 1 2 <0 4>>")
-- # gain 0.6

d5
$ slow 2
$ s "bass2"
# speed 0.25

d6 $ s "~ ~ dr:1 ~"
--
-- d7 $ s "[bd ~] ~ ~ [cp ~]"

d7 $ s "<[bd ~ ~ [~ bd]] [[bd ~ bd bd] [~ bd bd ~] ~ bd]>"

d8
-- $ sometimes (off 0.125 (|+ 1))
$ sometimes (off 0.125 id)
$ somecyclesBy 0.8 (fast 1.5) $ somecycles (slow 2)
$ s "bass3(<2 4 2 6>,8)"
# note (scale "minPent" "3 3 4 0")
