@@ -2,7 +2,7 @@
# name: haddeo
# group: haddeo
# key: haddeo
-# expand-env: (yas-indent-line 'fixed)
+# expand-env: (yas-indent-line fixed)
# --
hsetup
hdrum0
# name: hbass
# key: hbass
-- @hbass
let s = striate 16
# name: hbass2
# key: hbass2
-- @hbass2
d'bass2 $ swing 0.14 $
# name: hdorr1
# key: hdorr1
-- @hdorr1
d'fx1 $ -- mt $ -- (1)
# name: hdorr2
# key: hdorr2
-- @hdorr2
d'fx1 $
# name: hdrum0
# key: hdrum0
-- @hdrum0
d'drum $ stack [
# name: hdrum1
# key: hdrum1
-- @hdrum1
# name: hdrum2
# key: hdrum2
-- @hdrum2
d'drum $ mt $ stack [
# name: hdrum23
# key: hdrum23
-- @hdrum23
d'drum $ n "0*4" # s "kit" # gain 0.9 -- (1) s "drum"
# name: hdrum3
# key: hdrum3
-- @hdrum3
d'drum $ swing 0.14 $ stack [
# name: hdrum4
# key: hdrum4
-- @hdrum4
d'drum $ swing 0.14 $ -- mt $ -- (3)
# name: hduck
# key: hduck
-- @hduck
d'fx2 $ mt $
# name: hduon
# key: hduon
-- @hduon
d'fx3 $ 3 ~> n "[0 1]/8" # s "duon"
# name: hhi
# key: hhi
-- @hhi
d'hi $
# name: hic1
# key: hic1
-- @hic1
d'wax $ slow 16 . striate 256 $ s "icarus"
# name: hic2
# key: hic2
-- @hic2
d'wax $ retrig $ slow 20 $ sound "icarus:1"
# name: hnim1
# key: hnim1
-- @hnim1
d'nim $
# name: hnim2
# key: hnim2
-- @hnim2
# name: hnim3
# key: hnim3
-- @hnim3
# name: hnim4
# key: hnim4
-- @hnim4
d'nim $ -- mt $ -- (2)
# name: hsetup
# key: hsetup
let bpm b = cps (b/60)
withmod a b c d = (whenmod a b . within (c, d))
# name: hsnoo
# key: hsnoo
-- @hsnoo
d'fx3 $