scalePattern = slow 12 ""
d1 $ note ((scaleP scalePattern $ off 4 ((+ 2 ).slow 2) $ off 1 (inversion.slow 2) $ off 3 (inversion.slow 3) $ off 1.5 ((+ 2).rev.slow 2) $ generateMelodicSeed ))#s "[pe-gtr:10,midi]" #gain 1 #orbit 0 #midichan 1
generateMelodicSeed = slow 4 $ linger 0.5 $ repeatCycles 3 -- $ palindrome \n $ (+ (slow (irand (4)+1) (sometimes (inversion) (run (irand (4)+1))))) $ slow ((irand 3) + 1) $ e ("x"<~>(irand 8)) 8 $ "x*16"<~>(irand 5)
inversion = (* (-1))
new album incoming 1/27/2020 -- collective memory decay
I’m very excited to announce the release of my first full length album collective memory decay!
I’ve been working on these tracks for a long time now. Some of them started back in 2016. I am very excited to put them out into the world.
It will be available on bandcamp and all major streaming platforms on January 27th.
More soon.
David