police-state.lhs

police state (jmcc)

> let node = do { r0 <- M.rand 0.02 0.12
>               ; r1 <- M.rand 0 (pi*2)
>               ; r2 <- M.rand 0 600
>               ; r3 <- M.rand 700 1300
>               ; r4 <- M.rand (-1) 1
>               ; r5 <- M.rand 80 120
>               ; n0 <- M.lfNoise2 ar r5
>               ; let f = sinOsc kr r0 r1 * r2 + r3
>                 in return (pan2 (sinOsc ar f 0 * n0 * 0.1) r4 1) }
> in do { nodes <- clone 4 node
>       ; n0 <- clone 2 (M.lfNoise2 kr 0.4)
>       ; n1 <- M.lfNoise2 ar (n0 * 90 + 620)
>       ; n2 <- M.lfNoise2 kr (mce2 0.3 0.301)
>       ; let e = n1 * (n2 * 0.15 + 0.18)
>         in audition (out 0 (combL (mix nodes + e) 0.3 0.3 3)) }

{ var node = { var r0 = Rand.new(0.02, 0.12)
             ; var r1 = Rand.new(0, 2pi)
             ; var r2 = Rand.new(0, 600)
             ; var r3 = 1000 + Rand.new(-300, 300)
             ; var r4 = Rand.new(-1, 1)
             ; var r5 = 100 + Rand.new(-20, 20)
             ; var n0 = LFNoise2.ar(r5)
             ; var f = SinOsc.kr(r0, r1, r2, r3)
             ; Pan2.ar(SinOsc.ar(f, 0) * n0 * 0.1, r4, 1) }
; var n0 = LFNoise2.kr([0.4, 0.4])
; var n1 = LFNoise2.ar(n0 * 90 + 620)
; var n2 = LFNoise2.kr([0.3,0.3])
; var e = n1 * (n2 * 0.15 + 0.18)
; Out.ar(0, CombL.ar(Mix.fill(4, node) + e, 0.3, 0.3, 3)) }.play