csound-sampler 0.0.4.0 → 0.0.5.0

raw patch · 2 files changed

+59/−2 lines, 2 filesdep ~csound-expressionPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: csound-expression

API changes (from Hackage documentation)

Files

• csound-sampler.cabal +2/−2
• src/Csound/Sam.hs +57/−0

@@ -1,5 +1,5 @@ name:                csound-sampler-version:             0.0.4.0+version:             0.0.5.0 license:             BSD3 license-file:        LICENSE author:              Anton Kholomiov@@ -25,7 +25,7 @@ library   Ghc-Options:    -Wall   Hs-Source-Dirs:      src/-  build-depends:       base >= 4, base < 5, transformers >= 0.3, csound-expression >= 4.4+  build-depends:       base >= 4, base < 5, transformers >= 0.3, csound-expression >= 4.5   exposed-modules:          Csound.Sam     Csound.Sam.Core

@@ -10,6 +10,11 @@ 	wav, wavr, seg, segr, rndWav, rndWavr, rndSeg, rndSegr, ramWav, 	-- ** Mono 	wav1, wavr1, seg1, segr1, rndWav1, rndWavr1, rndSeg1, rndSegr1, ramWav1,	+	-- * Reading from RAM+	-- ** Stereo+	ramLoop, ramRead, segLoop, segRead, relLoop, relRead,+	-- ** Mono	+	ramLoop1, ramRead1, segLoop1, segRead1, relLoop1, relRead1, 	-- * Envelopes 	linEnv, expEnv, hatEnv, decEnv, riseEnv, edecEnv, eriseEnv, 	-- * Arrange@@ -522,3 +527,55 @@ 	toSam x = Sam $ do 		y <- lift x 		return $ S y InfDur++---------------------------------------------------------------+--- reading from RAM+++-- | It's the same as loopRam but wrapped in Sam (see "Csound.Air.Wav").+ramLoop :: Fidelity -> TempoSig -> PitchSig -> String -> Sam+ramLoop winSize tempo pitch file = toSam $ loopRam winSize tempo pitch file++-- | It's the same as readRam but wrapped in Sam (see "Csound.Air.Wav").+ramRead :: Fidelity -> TempoSig -> PitchSig -> String -> Sam+ramRead winSize tempo pitch file = sig2 (lengthSnd file / ir tempo) $ readRam winSize tempo pitch file++-- | It's the same as loopSeg but wrapped in Sam (see "Csound.Air.Wav").+segLoop :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+segLoop winSize ds tempo pitch file = toSam $ loopSeg winSize ds tempo pitch file++-- | It's the same as readSeg but wrapped in Sam (see "Csound.Air.Wav").+segRead :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+segRead winSize ds@(kmin, kmax) tempo pitch file = sig2 (ir $ (kmax - kmin) / tempo) $ readSeg winSize ds tempo pitch file++-- | It's the same as loopRel but wrapped in Sam (see "Csound.Air.Wav").+relLoop :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+relLoop winSize ds tempo pitch file = toSam $ loopRel winSize ds tempo pitch file++-- | It's the same as readRel but wrapped in Sam (see "Csound.Air.Wav").+relRead :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+relRead winSize ds@(kmin, kmax) tempo pitch file = sig2 (ir $ (kmax - kmin) / tempo) $ readRel winSize ds tempo pitch file++-- | It's the same as loopRam1 but wrapped in Sam (see "Csound.Air.Wav").+ramLoop1 :: Fidelity -> TempoSig -> PitchSig -> String -> Sam+ramLoop1 winSize tempo pitch file = toSam $ loopRam1 winSize tempo pitch file++-- | It's the same as readRam1 but wrapped in Sam (see "Csound.Air.Wav").+ramRead1 :: Fidelity -> TempoSig -> PitchSig -> String -> Sam+ramRead1 winSize tempo pitch file = sig1 (lengthSnd file / ir tempo) $ readRam1 winSize tempo pitch file++-- | It's the same as loopSeg1 but wrapped in Sam (see "Csound.Air.Wav").+segLoop1 :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+segLoop1 winSize ds tempo pitch file = toSam $ loopSeg1 winSize ds tempo pitch file++-- | It's the same as readSeg1 but wrapped in Sam (see "Csound.Air.Wav").+segRead1 :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+segRead1 winSize ds@(kmin, kmax) tempo pitch file = sig1 (ir $ (kmax - kmin) / tempo) $ readSeg1 winSize ds tempo pitch file++-- | It's the same as loopRel1 but wrapped in Sam (see "Csound.Air.Wav").+relLoop1 :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+relLoop1 winSize ds tempo pitch file = toSam $ loopRel1 winSize ds tempo pitch file++-- | It's the same as readRel1 but wrapped in Sam (see "Csound.Air.Wav").+relRead1 :: Fidelity -> (Sig, Sig) -> TempoSig -> PitchSig -> String -> Sam+relRead1 winSize ds@(kmin, kmax) tempo pitch file = sig1 (ir $ (kmax - kmin) / tempo) $ readRel1 winSize ds tempo pitch file