Squiz.hs

-- | Wave squeezer. Maybe a kind of pitch shifter.
module Sound.SC3.UGen.Record.Squiz where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data Squiz = Squiz {
  rate :: S.Rate,
  input :: S.UGen,
  pitchratio :: S.UGen,
  zcperchunk :: S.UGen,
  memlen :: S.UGen
  } deriving (Show)
squiz :: Squiz
squiz = Squiz {
  rate = S.AR,
  input = 0.0,
  pitchratio = 2.0,
  zcperchunk = 1.0,
  memlen = 0.1
  }
mkSquiz :: Squiz -> S.UGen
mkSquiz (Squiz r a' b' c' d') = S.mkOsc r "Squiz" [a',b',c',d'] 1
instance Make Squiz where
  ugen = mkSquiz