WalshHadamard.hs

-- | decomposition into square waves, and reconstruction
module Sound.SC3.UGen.Record.WalshHadamard where
import qualified Sound.SC3.UGen as S
import Sound.SC3.UGen.Record
data WalshHadamard = WalshHadamard {
  input :: S.UGen,
  which :: S.UGen
  } deriving (Show)
walshHadamard :: WalshHadamard
walshHadamard = WalshHadamard {
  input = 0.0,
  which = 0.0
  }
mkWalshHadamard :: WalshHadamard -> S.UGen
mkWalshHadamard (WalshHadamard  a' b') = S.mkOsc S.AR "WalshHadamard" [a',b'] 1
instance Make WalshHadamard where
  ugen = mkWalshHadamard