csound-catalog 0.7.6 → 0.7.6.1
raw patch · 3 files changed
+10/−9 lines, 3 filesdep ~basedep ~csound-expressiondep ~csound-samplerPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base, csound-expression, csound-sampler
API changes (from Hackage documentation)
- Csound.Catalog.Wave: razorPad :: (Fractional (SE b), SigSpace (SE b), Fractional t) => (Sig -> t -> Sig -> b) -> Sig -> Sig -> Sig -> SE b
+ Csound.Catalog.Wave: razorPad :: (SigSpace (SE b), Fractional t, Fractional (SE b)) => (Sig -> t -> Sig -> b) -> Sig -> Sig -> Sig -> SE b
Files
csound-catalog.cabal view
@@ -1,6 +1,6 @@ Name: csound-catalog-Version: 0.7.6-Cabal-Version: >= 1.22+Version: 0.7.6.1+Cabal-Version: 1.12 License: BSD3 License-file: LICENSE Author: Anton Kholomiov@@ -12,7 +12,7 @@ Maintainer: <anton.kholomiov@gmail.com> Description:- A gallery of Csound instruments.+ A gallery of Csound instruments and useful utils and examples. Extra-Source-Files :@@ -29,8 +29,8 @@ Build-Depends: base >= 4, base < 5, transformers >= 0.3,- csound-expression >= 5.4.0,- csound-sampler >=0.0.10.0,+ csound-expression >= 5.4.3.1,+ csound-sampler >=0.0.10.2, sharc-timbre Hs-Source-Dirs: src/ Default-language: Haskell2010
src/Csound/Catalog/Wave/WoodwindAlg.hs view
@@ -19,11 +19,10 @@ fmap f (Rnd a) = Rnd $ fmap f a instance Applicative Rnd where- pure = return+ pure = Rnd . pure (<*>) = ap instance Monad Rnd where- return = Rnd . return (Rnd a) >>= f = Rnd $ a >>= unRnd . f evalRnd :: Rnd a -> D -> a
src/Csound/Patch.hs view
@@ -844,7 +844,9 @@ scrapem k m = fx1 0.15 largeHall2 $ monoSynt $ (\(amp, cps) -> (mul (0.75 * amp * k * fades 0.5 1.97) . at fromMono . C.scrapeModes m) cps) . monoArgToNote -scrapePad k m = fx1 0.15 largeHall2 $ polySynt $ \x@(amp, cps) -> (mul (0.75 * sig amp * k * fades 0.5 (scrapeRelease x 2.27 )) . at fromMono . C.scrapeModes m) (sig cps)+scrapePad k m =+ fx1 0.15 largeHall2 $+ polySynt $ \x@(amp, cps) -> (mul (0.75 * sig amp * k * fades 0.5 (scrapeRelease x 2.27)) . at fromMono . C.scrapeModes m) (sig cps) scrapePadm k m = fx1 0.15 largeHall2 $ monoSynt $ (\(amp, cps) -> (mul (0.75 * amp * k * fades 0.5 2.27) . at fromMono . C.scrapeModes m) cps) . monoArgToNote @@ -1249,7 +1251,7 @@ pulseWidth = fx1 0.15 smallHall2 $ polySynt $ mul (0.75 * 0.6) . at fromMono . mul (fades 0.07 0.1). onCps (uncurry C.pulseWidth) -xanadu = fx1 0.27 largeHall2 $polySynt $ mul (1.2 * 0.6) . at fromMono . mul (fades 0.01 2.2). onCps C.xanadu1+xanadu = fx1 0.27 largeHall2 $ polySynt $ mul (1.2 * 0.6) . at fromMono . mul (fades 0.01 2.2). onCps C.xanadu1 alienIsAngry = fx1 0.15 smallRoom2 $ polySynt $ at fromMono . mul (0.5 * fades 0.01 2.3). onCps (C.fmMod 5)