JMCC_pond_life_hp.hs

-- pond life (jmcc)
{-# OPTIONS_GHC -F -pgmF hsc3-hash-paren #-}
module Sound.SC3.Graph.JMCC_pond_life_hp where

import Sound.SC3.Monad {- hsc3 -}
import Sound.SC3.Lang.Control.OverlapTexture {- hsc3-lang -}

pond_life :: UId m => m UGen
pond_life = do
  let f = fSinOsc KR (20 + #(rand 0 30)) 0
          * #(rand 100 400)
          + #(linRand 500 2500 0)
  let a = lfPulse KR (3 / #(rand 1 9)) #(rand 0.2 0.5) 0.04
  return (pan2 (sinOsc AR f 0 * a) #(rand (-1) 1) 0.5)

main :: IO ()
main = overlapTextureU (8,8,4,maxBound) =<< pond_life