hunk ./synthesizer-dimensional.cabal 2 -Version: 0.8.0.2 +Version: 0.8.1 hunk ./synthesizer-dimensional.cabal 36 - Tag: 0.8.0.2 + Tag: 0.8.1 hunk ./src/Synthesizer/Dimensional/Amplitude/Control.hs 16 + + -- * Piecewise constant + piecewiseConstantGeneric, + piecewiseConstantStorable, hunk ./src/Synthesizer/Dimensional/Amplitude/Control.hs 24 +import qualified Synthesizer.PiecewiseConstant.Signal as PC +import qualified Synthesizer.PiecewiseConstant.Generic as PCG +import qualified Synthesizer.PiecewiseConstant.Storable as PCSt + hunk ./src/Synthesizer/Dimensional/Amplitude/Control.hs 29 --- import qualified Synthesizer.State.Signal as Sig + +import qualified Synthesizer.Generic.Signal as SigG + +import qualified Synthesizer.Storable.Signal as SigSt +import Foreign.Storable (Storable) hunk ./src/Synthesizer/Dimensional/Amplitude/Control.hs 67 + + +{-# INLINE piecewiseConstantGeneric #-} +piecewiseConstantGeneric :: + (SigG.Write sig y) => + SigA.T rate amp (PC.T y) -> + SigA.T rate amp (sig y) +piecewiseConstantGeneric = + SigA.processBody PCG.toSignal + +{-# INLINE piecewiseConstantStorable #-} +piecewiseConstantStorable :: + (Storable y) => + SigA.T rate amp (PC.T y) -> + SigA.T rate amp (SigSt.T y) +piecewiseConstantStorable = + SigA.processBody PCSt.toSignal