Created
July 13, 2013 22:16
-
-
Save rogerallen/5992428 to your computer and use it in GitHub Desktop.
Overtone translation of https://twitter.com/redFrik/status/356151997256306691
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 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