Skip to content

Instantly share code, notes, and snippets.

@lvm
Last active December 23, 2015 21:57
Show Gist options
  • Save lvm/362671712c062865b23e to your computer and use it in GitHub Desktop.
Save lvm/362671712c062865b23e to your computer and use it in GitHub Desktop.
cps 1
b1 $ every 2 (sometimes (within (0, 0.5) ((# std "0.9")))) $ foldEvery [3,5,7] (sometimes ((# stt "0"))) $ stack[
drum "[ch(1,3)] ! ! !"
|+| nudge (scale 0 0.5 sine1)
,
drum "[~ oh] !"
,
foldEvery [3,5] (sometimes (chop 2)) $ slowcat[
drum "[[cp cr] ~]"
,
drum "[cp ~]"
]
]
|+| dch "0.5"
|+| doh "0.15"
|+| scr "0.9"
|+| stt "0.1"
|+| std "0.15"
b2 $ stack[
drum "[bd ~ ~] [~ ~ ~ ~] [bd ~ ~] [~ ~ ~ ~]"
,
every 8 (sometimes (chop 2)) . slow 2 $ drum "[~ ~ ~ ~] [~ ~ sn ~] [~ ~ ~ ~] [~ ~ sn ~]"
]
b3 $ sometimes (# sag "0.8") $ stack[
degrade $ drum "[cl ag ag ag]"
,
slow 2 $ drum "[~ cl cl cl] !"
]
|+| sag (scale 0.5 0.7 $ sine1)
|+| nudge (scale 0 0.25 sine1)
|+| scl (scale 0.5 0.7 $ sine1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment