-- alien froggies (jmcc) #1 import Sound.SC3 {- hsc3 -} import Sound.SC3.Lang.Control.OverlapTexture {- hsc3-lang -} alien_froggies :: UGen -> UGen alien_froggies r = let r' = fold (r * exp (linRand 'α' (-0.2) 0.2 0)) 1 30 o = formant AR r' (expRand 'β' 200 3000) (rand 'γ' 0 9 * r' + r') in o * 0.05 -- > let u = alien_froggies 11 main :: IO () main = overlapTextureU (0.25,0.5,5,maxBound) (alien_froggies 11)