csound-catalog 0.7.5 → 0.7.6
raw patch · 3 files changed
+5/−5 lines, 3 filesdep ~basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base
API changes (from Hackage documentation)
Files
- csound-catalog.cabal +1/−1
- src/Csound/Catalog/Wave/Ac.hs +2/−2
- src/Csound/Catalog/Wave/WoodwindAlg.hs +2/−2
csound-catalog.cabal view
@@ -1,5 +1,5 @@ Name: csound-catalog-Version: 0.7.5+Version: 0.7.6 Cabal-Version: >= 1.22 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