packages feed

csound-expression-opcodes 0.0.2 → 0.0.3

raw patch · 3 files changed

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

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Csound.Typed.Opcode.MathematicalOperations: birnd :: SigOrD a => a -> a
+ Csound.Typed.Opcode.MathematicalOperations: birnd :: SigOrD a => a -> SE a
- Csound.Typed.Opcode.MathematicalOperations: rnd :: SigOrD a => a -> a
+ Csound.Typed.Opcode.MathematicalOperations: rnd :: SigOrD a => a -> SE a
- Csound.Typed.Opcode.SignalGenerators: transegr :: [D] -> D -> D -> Sig
+ Csound.Typed.Opcode.SignalGenerators: transegr :: [D] -> D -> D -> D -> Sig

Files

csound-expression-opcodes.cabal view
@@ -1,5 +1,5 @@ Name:          csound-expression-opcodes-Version:       0.0.2+Version:       0.0.3 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE
src/Csound/Typed/Opcode/MathematicalOperations.hs view
@@ -100,8 +100,8 @@ -- >  birnd (x) (init- or control-rate only) -- -- csound doc: <http://www.csounds.com/manual/html/birnd.html>-birnd :: SigOrD a => a -> a-birnd b1 = fromGE $ f <$> toGE b1+birnd :: SigOrD a => a -> SE a+birnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1     where f a1 = opr1k "birnd" a1  -- | @@ -110,8 +110,8 @@ -- >  rnd (x) (init- or control-rate only) -- -- csound doc: <http://www.csounds.com/manual/html/rnd.html>-rnd :: SigOrD a => a -> a-rnd b1 = fromGE $ f <$> toGE b1+rnd :: SigOrD a => a -> SE a+rnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1     where f a1 = opr1k "rnd" a1  -- Opcode Equivalents of Functions.
src/Csound/Typed/Opcode/SignalGenerators.hs view
@@ -1154,7 +1154,7 @@ -- csound doc: <http://www.csounds.com/manual/html/expsega.html> expsega ::  [D] -> Sig expsega b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "expsega" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])+    where f a1 = opcs "expsega" [(Ar, repeat Ir)] (a1 ++ [1, last a1])  -- |  -- Trace a series of exponential segments between specified@@ -1166,7 +1166,7 @@ -- csound doc: <http://www.csounds.com/manual/html/expsegb.html> expsegb ::  [D] -> Sig expsegb b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "expsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])+    where f a1 = opcs "expsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])  -- |  -- An exponential segment generator operating at a-rate with@@ -1416,9 +1416,9 @@ -- > kres  transegr  ia, idur, itype, ib [, idur2] [, itype] [, ic] ... -- -- csound doc: <http://www.csounds.com/manual/html/transegr.html>-transegr ::  [D] -> D -> D -> Sig-transegr b1 b2 b3 = Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = setRate Kr $ opcs "transegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1, a2, a3])+transegr ::  [D] -> D -> D -> D -> Sig+transegr b1 b2 b3 b4 = Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3 <*> unD b4+    where f a1 a2 a3 a4 = setRate Kr $ opcs "transegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1, a2, a3, a4])  -- Envelope Generators.