hsc3-graphs-0.8: src/discretion.lhs

discretion (rd)

> import Sound.SC3.Monadic

> main =
>   let { mkls bp t = envGen kr 1 1 0 1 RemoveSynth (envCoord bp t 1 EnvLin)
>       ; part = do { f1 <- clone 2 (rand 50 55)
>                   ; f2 <- clone 2 (rand 50 65)
>                   ; f3 <- clone 2 (rand 50 55)
>                   ; a <- clone 2 (rand 0.01 0.035)
>                   ; let { t = 21
>                         ; f_ = mkls [(0, f1), (0.33, f2), (1, f3)] t
>                         ; a_ = mkls [(0, 0), (0.33, a), (1, 0)] t }
>                     in return (saw ar f_ * a_) } }
>   in audition . out 0 . mix =<< clone 8 part