packages feed

csound-catalog 0.7.2 → 0.7.3

raw patch · 3 files changed

+5/−5 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Csound.Catalog.Wave: razorPad :: (Fractional t, SigSpace SE b, Fractional SE b) => (Sig -> t -> Sig -> b) -> Sig -> Sig -> Sig -> SE b
+ Csound.Catalog.Wave: razorPad :: (Fractional (SE b), SigSpace (SE b), Fractional t) => (Sig -> t -> Sig -> b) -> Sig -> Sig -> Sig -> SE b
- Csound.Patch: woodWind' :: (Num t, SigOrD t) => Wind -> (t -> D -> D -> D -> D -> D -> D -> Sig) -> Patch2
+ Csound.Patch: woodWind' :: (SigOrD t, Num t) => Wind -> (t -> D -> D -> D -> D -> D -> D -> Sig) -> Patch2

Files

csound-catalog.cabal view
@@ -1,5 +1,5 @@ Name:          csound-catalog-Version:       0.7.2+Version:       0.7.3 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE
src/Csound/Catalog/Wave/Ac.hs view
@@ -49,7 +49,7 @@ xanadu1 :: D -> SE Sig xanadu1 cps = do     _ <- delayr 2    -    [tap1, tap2, d1, d2] <- mapM deltap3 [f1, f2, 2, 1.1]    +    ~ [tap1, tap2, d1, d2] <- mapM deltap3 [f1, f2, 2, 1.1]     delayw $ g * damping     return $ damping * mean [gleft, tap1, d1, gright, tap2, d2]     where (g, gleft, gright) = xanaduPlucks cps (1/120) (cps/50)@@ -63,7 +63,7 @@ xanadu2 :: D -> SE Sig xanadu2 cps = do     _ <- delayr 0.4-    [d1, d2] <- mapM deltap3 [0.07, 0.105]+    ~ [d1, d2] <- mapM deltap3 [0.07, 0.105]     delayw $ g * damping     return $ damping * mean [d1, gleft, d2, gright]     where (g, gleft, gright) = xanaduPlucks cps (1/80) 6.1
src/Csound/Catalog/Wave/WoodwindAlg.hs view
@@ -126,7 +126,7 @@         woodwindVibrato xdur asig = do                let ivibdepth = abs (vibCoeff * cps)             kvibdepth <- randiPct 0.1 5 $ sig ivibdepth * linseg [0.1, 0.8 * xdur, 1, 0.2 * xdur, 0.7]-            [ivibr1, ivibr2, ivibr3] <- mapM rndWithin $ replicate 3 (0, 1)+            ~ [ivibr1, ivibr2, ivibr3] <- mapM rndWithin $ replicate 3 (0, 1)             kvibrate <- randiPct 0.1 5 $                  ifB (sig vibCoeff >* 0)                      -- if vibrato is positive it gets faster@@ -137,7 +137,7 @@          freqDeviation :: ((D, D), (D, D), (D, D), (D, D)) -> (D, D, D) -> Sig -> Rnd Sig         freqDeviation (f1, f2, f3, f4) (iattack, isustain, idecay) asig = do-            [fdev1, fdev2, fdev3, fdev4] <- mapM rndWithin [f1, f2, f3, f4] +            ~ [fdev1, fdev2, fdev3, fdev4] <- mapM rndWithin [f1, f2, f3, f4]             return $ asig * (1 + linseg [fdev1, iattack, fdev2, isustain, fdev3, idecay, fdev4])          ampVar :: D -> Sig -> Rnd Sig