Skip to content

Instantly share code, notes, and snippets.

@kindohm

kindohm/ghost.hs

Created November 11, 2015 05:09
Show Gist options
  • Save kindohm/e310f27e844a9f11e7ea to your computer and use it in GitHub Desktop.
Save kindohm/e310f27e844a9f11e7ea to your computer and use it in GitHub Desktop.
Download ZIP
ghost notes in Tidal
Raw
ghost.hs
let ghost'' a f p = superimpose (((a/2 + a*2) ~>) . f) $ superimpose (((a + a/2) ~>) . f) $ p
ghost' a p = ghost'' a ((|*| gain "0.7") . (|=| end "0.2") . (|*| speed "1.25")) p
ghost p = ghost' 0.125 p
cps 0.5
d1 $ ghost $ sound "sd(3,8)"
d1 $ ghost' (-0.375) $ sound "sd(3,8)"
d1 $ ghost'' (0.125) ((|*| gain "0.7") . (|+| accelerate "-2")) $ sound "bass2(3,8)"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment