-- | (Undocumented class) module Sound.SC3.UGen.Record.SawDPW where import qualified Sound.SC3.UGen as S import Sound.SC3.UGen.Record data SawDPW = SawDPW { rate :: S.Rate, freq :: S.UGen, iphase :: S.UGen } deriving (Show) sawDPW :: SawDPW sawDPW = SawDPW { rate = S.AR, freq = 440.0, iphase = 0.0 } mkSawDPW :: SawDPW -> S.UGen mkSawDPW (SawDPW r a' b') = S.mkOsc r "SawDPW" [a',b'] 1 instance Make SawDPW where ugen = mkSawDPW