csound-catalog 0.2.1 → 0.2.2

raw patch · 3 files changed

+6/−6 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• csound-catalog.cabal +1/−1
• src/Csound/Catalog/Drum.hs +3/−3
• src/Csound/Catalog/Effect.hs +2/−2

@@ -1,5 +1,5 @@ Name:          csound-catalog-Version:       0.2.1+Version:       0.2.2 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE

@@ -141,9 +141,9 @@                 anoise2 = kenv2 * asig                  adel1   = anoise1-                adel2   = delay anoise1 0.01-                adel3   = delay anoise1 0.02-                adel4   = delay anoise2 0.03+                adel2   = delaySig 0.01 anoise1 +                adel3   = delaySig 0.02 anoise1 +                adel4   = delaySig 0.03 anoise2                               aout    = mean                     [ rz adel1 2

@@ -122,8 +122,8 @@ -- @n@ is a number of filters, k - is scale of the signals that is passed through each delay line). delayLine :: Int -> D -> D -> Sig -> (Sig, Sig) delayLine n k dt asig = (mean $ asig : odds asigs, mean $ asig : evens asigs)-    where phi x = delay (x * sig k) dt-          asigs = take n $ iterate phi (delay asig dt)+    where phi x = delaySig dt (x * sig k)+          asigs = take n $ iterate phi (delaySig dt asig)  -- | Adds a very short fade in to remove the click at the beggining of the note. declick :: Sig -> Sig