-- 8-bit blues
hush

setcps 1.1


hush

d4 $ s "sn sn sn cp"

-- Baseline grid
d1
$ off 0 (|+ n 7)
$ off 0.25 id
$ s "<<arpy:1 arpy:2 arpy:3 arpy:1> arpy:2 arpy:1 <arpy:1 arpy:1 arpy:3 arpy:3>>"

-- Base rythm
d2 $ sound "[bd <sn:2 sn:2 sn:3*3>]/3 [bd sn*1 bd*1]/3"

d2 $ sound "[bd sn(3,2)]" # gain "1 0.5 1.5"
-- Gammes?
-- d3 $ sound "808:6"
-- # gain "1 0.8 0.8 0.8 1" to add emphasis?