synthesizer-filter 0.4.0.2 → 0.4.1
raw patch · 2 files changed
+9/−7 lines, 2 filesdep ~synthesizer-core
Dependency ranges changed: synthesizer-core
Files
src/Synthesizer/Filter/Example.hs view
@@ -11,6 +11,7 @@ import Synthesizer.Filter.Composition (T(..)) import qualified Synthesizer.Plain.Oscillator as Osci+import qualified Synthesizer.Basic.Phase as Phase import qualified Synthesizer.Basic.Wave as Wave import qualified Synthesizer.Plain.Filter.Recursive.FirstOrder as Filt1 import qualified Synthesizer.Plain.Filter.NonRecursive as FiltNR@@ -19,7 +20,6 @@ import qualified Algebra.Transcendental as Trans import qualified Algebra.RealField as RealField import qualified Algebra.Field as Field-import qualified Algebra.Absolute as Absolute import Data.Maybe (fromMaybe) @@ -125,12 +125,14 @@ but with an synthetic initial wave. The sharpness of the initial wave can be controlled. This is used to implement various velocities. -}-guitarRawVelo :: (Absolute.C a, Trans.C a, Module.C a a) => a -> [a]+guitarRawVelo :: (RealField.C a, Trans.C a, Module.C a a) => a -> [a] guitarRawVelo velo = let len = 128::Int wave =- map (Wave.power01Normed velo)- (take len (iterate (+ 2 / fromIntegral len) (-1)))+ map+ (Wave.apply (Wave.powerNormed velo))+ (take len+ (iterate (Phase.increment (1 / fromIntegral len)) zero)) y = TwoWay.future (TwoWay.delay len (apply (guitarCompLong wave)
synthesizer-filter.cabal view
@@ -1,5 +1,5 @@ Name: synthesizer-filter-Version: 0.4.0.2+Version: 0.4.1 License: GPL License-File: LICENSE Author: Henning Thielemann <haskell@henning-thielemann.de>@@ -17,7 +17,7 @@ Build-Type: Simple Source-Repository this- Tag: 0.4.0.2+ Tag: 0.4.1 Type: darcs Location: http://code.haskell.org/synthesizer/filter/ @@ -27,7 +27,7 @@ Library Build-Depends:- synthesizer-core >=0.4 && <0.8,+ synthesizer-core >=0.4 && <0.9, transformers >=0.2 && <0.6, numeric-prelude >=0.2 && <0.5, numeric-quest >= 0.1 && <0.3,