summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAntonKholomiov <>2015-07-07 17:46:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-07-07 17:46:00 (GMT)
commit459bcf79f59615c53c5621d721868e31e259b841 (patch)
treea6204772d24db7a6ff923bb6d1004c86666ad783
parent21608c7a16d1c03750d5d00954226f3933b30457 (diff)
version 0.2.20.2.2
-rw-r--r--csound-catalog.cabal2
-rw-r--r--src/Csound/Catalog/Drum.hs6
-rw-r--r--src/Csound/Catalog/Effect.hs4
3 files changed, 6 insertions, 6 deletions
diff --git a/csound-catalog.cabal b/csound-catalog.cabal
index ff3dcf6..4d8f83b 100644
--- a/csound-catalog.cabal
+++ b/csound-catalog.cabal
@@ -1,5 +1,5 @@
Name: csound-catalog
-Version: 0.2.1
+Version: 0.2.2
Cabal-Version: >= 1.6
License: BSD3
License-file: LICENSE
diff --git a/src/Csound/Catalog/Drum.hs b/src/Csound/Catalog/Drum.hs
index 4f96cb1..7405860 100644
--- a/src/Csound/Catalog/Drum.hs
+++ b/src/Csound/Catalog/Drum.hs
@@ -141,9 +141,9 @@ handClap cps = fmap onNoise $ rand 1
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
diff --git a/src/Csound/Catalog/Effect.hs b/src/Csound/Catalog/Effect.hs
index 119db49..fb57066 100644
--- a/src/Csound/Catalog/Effect.hs
+++ b/src/Csound/Catalog/Effect.hs
@@ -122,8 +122,8 @@ bassEnhancment cfq k asig = sig k * butlp asig (sig cfq) + asig
-- @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