@@ -2,7 +2,7 @@
# name: b1bass1
# group: battery123
# key: b1bass1
-# expand-env: (yas-indent-line 'fixed)
+# expand-env: (yas-indent-line fixed)
# --
-- @b1bass1
d'bass $ slow 4 $ s "bass3 [~ bass3] ! ~"
# name: b1bass2
# key: b1bass2
-- @b1bass2
d'bass $
# name: b1drum1
# key: b1drum1
-- @b1drum1
d'drum $ cf $ stack [
# name: b1drum2
# key: b1drum2
-- @b1drum2
d'drum $ cf $
# name: b1hand
# key: b1hand
-- @b1hand
d'hand $ slow 8 $ rev . striate 256 $ s "hand*8"
# name: b1perc
# key: b1perc
-- @b1perc
d'perc $ cf $
# name: b1setup
# key: b1setup
let bpm b = cps (b/60)
msil = mapM_ ($ silence)
# name: b1tac
# key: b1tac
-- @b1tac
d'tac $ cf $
# name: b1warbler
# key: b1warbler
-- @b1warbler
d'warb $ slow 4 $ striate 32 $ s "warbler"
# name: b2arpy
# key: b2arpy
-- @b2arpy
d'arpy $ cf $
# name: b2bass
# key: b2bass
-- @b2bass
d'bass $ slow 8 $
# name: b2drum
# key: b2drum
-- @b2drum
d'drum $ -- overlay (s "peri") $ -- (3,4) toggle
# name: b2perca
# key: b2perca
-- @b2perca
d'perc $ cf $ s "uxay*2" -- (1) uxay*4
# name: b2percb
# key: b2percb
-- @b2percb
let -- b = brak . iter 4 -- (1)
# name: b2trump
# key: b2trump
-- @b2trump
d'tr $ cf $ whenmod 5 4 rev $ s "[~ trump ! !] ~"
# name: b3bass
# key: b3bass
-- @b3bass
let p = "bass*4" -- "{bass*4, wobble*3}" (4)
# name: b3drum
# key: b3drum
-- @b3drum
# name: battery123
# key: battery123
b1setup
b1bass1