-- 8-bit blues
hush
setcps 1.1
hush
d4 $ s "sn sn sn cp"
-- Baseline grid
d1
$ off 0 (|+ n 7)
$ off 0.25 (|+ 0)
$ 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?