Skip to content

Instantly share code, notes, and snippets.

@rogerallen
Created July 13, 2013 22:16
Show Gist options
  • Save rogerallen/5992428 to your computer and use it in GitHub Desktop.
Save rogerallen/5992428 to your computer and use it in GitHub Desktop.
;; play{a=LFTri;l=LocalBuf(b=600,9).clear;BufWr.ar(a.ar(c=(3..11)*3.5),l,a.ar(9/c,c/99)*b);Splay.ar(PlayBuf.ar(9,l,loop:1)/2)}
;;
;; play{
;; a=LFTri;
;; l=LocalBuf(b=600,9).clear;
;; BufWr.ar(
;; a.ar(
;; c=(3..11)*3.5
;; ),
;; l,
;; a.ar(9/c,c/99)*b
;; );
;; Splay.ar(
;; PlayBuf.ar(9,l,loop:1)/2
;; )
;; }
(defsynth red-frik-356151997256306691
[]
(out 0
(let [b 600
l (local-buf b 9)
_ (clear-buf l)
_ (buf-wr:ar
(lf-tri:ar
(for [c (* (range 3 11) 3.5)] c))
l
(* (lf-tri:ar
(for [c (* (range 3 11) 3.5)] (/ 9 c))
(for [c (* (range 3 11) 3.5)] (/ c 99)))
b))]
(* 3 (splay:ar (play-buf 9 l :loop 1))))))
;; I needed to amplify it rather than attenuate it
(red-frik-356151997256306691)
(stop)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment