csound-expression-opcodes 0.0.1 → 0.0.2

raw patch · 4 files changed

+9/−9 lines, 4 files

Files

• csound-expression-opcodes.cabal +1/−1
• src/Csound/Typed/Opcode/SignalFlowGraphOpcodes.hs +2/−2
• src/Csound/Typed/Opcode/SignalGenerators.hs +4/−4
• src/Csound/Typed/Opcode/TableControl.hs +2/−2

@@ -1,5 +1,5 @@ Name:          csound-expression-opcodes-Version:       0.0.1+Version:       0.0.2 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE

@@ -20,8 +20,8 @@ -- > ifno  ftgenonce  ip1, ip2dummy, isize, igen, iarga, iargb, ... -- -- csound doc: <http://www.csounds.com/manual/html/ftgenonce.html>-ftgenonce ::  D -> D -> D -> D -> D -> [D] -> Tab-ftgenonce b1 b2 b3 b4 b5 b6 = Tab $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unD b6+ftgenonce ::  D -> D -> D -> D -> D -> [D] -> SE Tab+ftgenonce b1 b2 b3 b4 b5 b6 = fmap ( Tab . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unD b6     where f a1 a2 a3 a4 a5 a6 = opcs "ftgenonce" [(Ir,(repeat Ir))] ([a1,a2,a3,a4,a5] ++ a6)  -- | 

@@ -1215,8 +1215,8 @@ -- > kres  jspline  kamp, kcpsMin, kcpsMax -- -- csound doc: <http://www.csounds.com/manual/html/jspline.html>-jspline ::  Sig -> Sig -> Sig -> Sig-jspline b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+jspline ::  Sig -> Sig -> Sig -> SE Sig+jspline b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3     where f a1 a2 a3 = opcs "jspline" [(Ar,[Xr,Kr,Kr]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]  -- | @@ -1367,8 +1367,8 @@ -- > kres  rspline  krangeMin, krangeMax, kcpsMin, kcpsMax -- -- csound doc: <http://www.csounds.com/manual/html/rspline.html>-rspline ::  Sig -> Sig -> Sig -> Sig -> Sig-rspline b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4+rspline ::  Sig -> Sig -> Sig -> Sig -> SE Sig+rspline b1 b2 b3 b4 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4     where f a1 a2 a3 a4 = opcs "rspline" [(Ar,[Xr,Xr,Kr,Kr]),(Kr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- | 

@@ -40,8 +40,8 @@ -- > ifno  ftgentmp  ip1, ip2dummy, isize, igen, iarga, iargb, ... -- -- csound doc: <http://www.csounds.com/manual/html/ftgentmp.html>-ftgentmp ::  D -> D -> D -> D -> D -> [D] -> Tab-ftgentmp b1 b2 b3 b4 b5 b6 = Tab $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unD b6+ftgentmp ::  D -> D -> D -> D -> D -> [D] -> SE Tab+ftgentmp b1 b2 b3 b4 b5 b6 = fmap ( Tab . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unD b6     where f a1 a2 a3 a4 a5 a6 = opcs "ftgentmp" [(Ir,(repeat Ir))] ([a1,a2,a3,a4,a5] ++ a6)  -- |