hsc3-graphs-0.14: gr/bitwise.hs

-- a0f253ff89f6b244ea29a1e431dd9e5df5571a8b (jl)

import Data.Bits
import Sound.SC3 {- hsc3 -}

(.%.) :: UGen -> UGen -> UGen
(.%.) = modE

bitwise_operators :: UGen
bitwise_operators =
    let t = pulseCount (impulse AR 8e3 0) 0
        s = ((((t * 15) .&. (t .>>. 5)) .|.
              ((t *  5) .&. (t .>>. (mce2 3 4))) .|.
              ((t *  2) .&. (t .>>. 9)) .|.
              ((t *  8) .&. (t .>>. 11))) - 3) .%. 256
    in tanh (hpf (((s / 127) - 1) * 3) 20)

main :: IO ()
main = audition (out 0 bitwise_operators)