csound-expression-opcodes 0.0.5.3 → 0.0.5.4

raw patch · 28 files changed

+14552/−10906 lines, 28 filesdep ~basedep ~csound-expression-dynamicdep ~csound-expression-typedPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base, csound-expression-dynamic, csound-expression-typed

API changes (from Hackage documentation)

Files

• csound-expression-opcodes.cabal +11/−4
• src/Csound/Typed/Opcode.hs +2/−0
• src/Csound/Typed/Opcode/AbletonLinkOpcodes.hs +51/−30
• src/Csound/Typed/Opcode/Deprecated.hs +24/−0
• src/Csound/Typed/Opcode/FLTK.hs +352/−219
• src/Csound/Typed/Opcode/FaustOpcodes.hs +6/−3
• src/Csound/Typed/Opcode/ImageProcessingOpcodes.hs +36/−21
• src/Csound/Typed/Opcode/InstrumentControl.hs +696/−286
• src/Csound/Typed/Opcode/JackoOpcodes.hs +56/−33
• src/Csound/Typed/Opcode/MathematicalOperations.hs +178/−56
• src/Csound/Typed/Opcode/Miscellaneous.hs +95/−37
• src/Csound/Typed/Opcode/MixerOpcodes.hs +31/−18
• src/Csound/Typed/Opcode/Network.hs +38/−23
• src/Csound/Typed/Opcode/OSC.hs +55/−24
• src/Csound/Typed/Opcode/PitchConverters.hs +120/−63
• src/Csound/Typed/Opcode/PluginHosting.hs +28/−165
• src/Csound/Typed/Opcode/RealtimeMIDI.hs +449/−217
• src/Csound/Typed/Opcode/RemoteOpcodes.hs +21/−12
• src/Csound/Typed/Opcode/SerialIO.hs +86/−22
• src/Csound/Typed/Opcode/SignalFlowGraphOpcodes.hs +56/−33
• src/Csound/Typed/Opcode/SignalGenerators.hs +4697/−3913
• src/Csound/Typed/Opcode/SignalIO.hs +1617/−1287
• src/Csound/Typed/Opcode/SignalModifiers.hs +3191/−2699
• src/Csound/Typed/Opcode/SpectralProcessing.hs +1753/−1436
• src/Csound/Typed/Opcode/Strings.hs +164/−91
• src/Csound/Typed/Opcode/TableControl.hs +413/−16
• src/Csound/Typed/Opcode/Vectorial.hs +247/−150
• src/Csound/Typed/Opcode/ZakPatchSystem.hs +79/−48

@@ -1,5 +1,5 @@ Name:          csound-expression-opcodes-Version:       0.0.5.3+Version:       0.0.5.4 Cabal-Version: 1.12 License:       BSD3 License-file:  LICENSE@@ -16,12 +16,18 @@ Library   Ghc-Options:    -Wall   Build-Depends:-        base >= 4, base < 5, transformers, csound-expression-typed >= 0.2.5, csound-expression-dynamic >= 0.3.9.1+    base >= 4.10, base < 5,+    transformers,+    csound-expression-typed >= 0.2.9,+    csound-expression-dynamic >= 0.4.0.0   Hs-Source-Dirs:      src/   Default-language: Haskell2010-  default-extensions:-    OverloadedStrings+  Default-Extensions:+    OverloadedStrings,+    RankNTypes,+    ScopedTypeVariables   Exposed-Modules:+     Csound.Typed.Opcode     Csound.Typed.Opcode.SignalGenerators     Csound.Typed.Opcode.SignalIO@@ -47,4 +53,5 @@     Csound.Typed.Opcode.MixerOpcodes     Csound.Typed.Opcode.AbletonLinkOpcodes     Csound.Typed.Opcode.ImageProcessingOpcodes+    Csound.Typed.Opcode.Deprecated     Csound.Typed.Opcode.Miscellaneous

@@ -22,6 +22,7 @@     module Csound.Typed.Opcode.MixerOpcodes,     module Csound.Typed.Opcode.AbletonLinkOpcodes,     module Csound.Typed.Opcode.ImageProcessingOpcodes,+    module Csound.Typed.Opcode.Deprecated,     module Csound.Typed.Opcode.Miscellaneous) where  import Csound.Typed.Opcode.SignalGenerators@@ -48,4 +49,5 @@ import Csound.Typed.Opcode.MixerOpcodes import Csound.Typed.Opcode.AbletonLinkOpcodes import Csound.Typed.Opcode.ImageProcessingOpcodes+import Csound.Typed.Opcode.Deprecated import Csound.Typed.Opcode.Miscellaneous

@@ -5,6 +5,7 @@     link_beat_force, link_beat_get, link_beat_request, link_create, ableton_link_enable, link_is_enabled, link_metro, link_peers, link_tempo_get, link_tempo_set) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -17,10 +18,12 @@ -- -- >  link_beat_force   i_peer, k_beat [, k_at_time_seconds  [, k_quantum ]]  ----- csound doc: <http://csound.com/docs/manual/link_beat_force.html>+-- csound doc: <https://csound.com/docs/manual/link_beat_force.html> link_beat_force ::  D -> Sig -> SE ()-link_beat_force b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "link_beat_force" [(Xr,[Ir,Kr,Kr,Kr])] [a1,a2]+link_beat_force b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "link_beat_force" [(Xr,[Ir,Kr,Kr,Kr])] [a1,a2]  -- |  -- Returns the beat, phase with respect to the local quantum, and current time for the session.@@ -29,20 +32,24 @@ -- -- > k_beat_number, k_phase, k_current_time_seconds  link_beat_get  i_peer [, k_quantum] ----- csound doc: <http://csound.com/docs/manual/link_beat_get.html>+-- csound doc: <https://csound.com/docs/manual/link_beat_get.html> link_beat_get ::  D -> (Sig,Sig,Sig)-link_beat_get b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "link_beat_get" ([Kr,Kr,Kr],[Ir,Kr]) [a1]+link_beat_get b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "link_beat_get" ([Kr,Kr,Kr],[Ir,Kr]) [a1]  -- |  -- Requests the global network Ableton Link session to adopt a specific beat number and time. -- -- >  link_beat_request   i_peer, k_beat [, k_at_time_seconds  [, k_quantum ]]  ----- csound doc: <http://csound.com/docs/manual/link_beat_request.html>+-- csound doc: <https://csound.com/docs/manual/link_beat_request.html> link_beat_request ::  D -> Sig -> SE ()-link_beat_request b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "link_beat_request" [(Xr,[Ir,Kr,Kr,Kr])] [a1,a2]+link_beat_request b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "link_beat_request" [(Xr,[Ir,Kr,Kr,Kr])] [a1,a2]  -- |  -- Creates a peer in an Ableton Link network session.@@ -51,10 +58,12 @@ -- -- > i_peer  link_create  [i_bpm] ----- csound doc: <http://csound.com/docs/manual/link_create.html>+-- csound doc: <https://csound.com/docs/manual/link_create.html> link_create ::   D-link_create  = D $ return $ f -    where f  = opcs "link_create" [(Ir,[Ir])] []+link_create  =+  D $ return $ f +  where+    f  = opcs "link_create" [(Ir,[Ir])] []  -- |  -- Enable or disable synchronization with the Ableton Link session.@@ -63,10 +72,12 @@ -- -- >   ableton_link_enable  i_peer [, k_enable] ----- csound doc: <http://csound.com/docs/manual/link_enable.html>+-- csound doc: <https://csound.com/docs/manual/link_enable.html> ableton_link_enable ::  D -> SE ()-ableton_link_enable b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "ableton_link_enable" [(Xr,[Ir,Kr])] [a1]+ableton_link_enable b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "ableton_link_enable" [(Xr,[Ir,Kr])] [a1]  -- |  -- Returns whether or not this peer is synchronized with the global network Ableton Link session.@@ -75,10 +86,12 @@ -- -- > k_is_enabled  link_is_enabled  i_peer ----- csound doc: <http://csound.com/docs/manual/link_is_enabled.html>+-- csound doc: <https://csound.com/docs/manual/link_is_enabled.html> link_is_enabled ::  D -> Sig-link_is_enabled b1 = Sig $ f <$> unD b1-    where f a1 = opcs "link_is_enabled" [(Kr,[Ir])] [a1]+link_is_enabled b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "link_is_enabled" [(Kr,[Ir])] [a1]  -- |  -- Returns a trigger that is 1 on the beat and 0 otherwise along with beat, phase, and time for this session of Ableton Link.@@ -87,10 +100,12 @@ -- -- > k_trigger, k_beat, k_phase, k_current_time_seconds  link_metro  i_peer [, k_quantum] ----- csound doc: <http://csound.com/docs/manual/link_metro.html>+-- csound doc: <https://csound.com/docs/manual/link_metro.html> link_metro ::  D -> (Sig,Sig,Sig,Sig)-link_metro b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "link_metro" ([Kr,Kr,Kr,Kr],[Ir,Kr]) [a1]+link_metro b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "link_metro" ([Kr,Kr,Kr,Kr],[Ir,Kr]) [a1]  -- |  -- Returns the number of peers in the session.@@ -99,20 +114,24 @@ -- -- > k_count  link_peers  i_peer ----- csound doc: <http://csound.com/docs/manual/link_peers.html>+-- csound doc: <https://csound.com/docs/manual/link_peers.html> link_peers ::  D -> Sig-link_peers b1 = Sig $ f <$> unD b1-    where f a1 = opcs "link_peers" [(Kr,[Ir])] [a1]+link_peers b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "link_peers" [(Kr,[Ir])] [a1]  -- |  -- Returns the current tempo of the global network Ableton Link session. -- -- > k_bpm  link_tempo_get  i_peer ----- csound doc: <http://csound.com/docs/manual/link_tempo_get.html>+-- csound doc: <https://csound.com/docs/manual/link_tempo_get.html> link_tempo_get ::  D -> Sig-link_tempo_get b1 = Sig $ f <$> unD b1-    where f a1 = opcs "link_tempo_get" [(Kr,[Ir])] [a1]+link_tempo_get b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "link_tempo_get" [(Kr,[Ir])] [a1]  -- |  -- Sets the tempo.@@ -121,7 +140,9 @@ -- -- >  link_tempo_set  i_peer, k_bpm [, k_at_time_seconds] ----- csound doc: <http://csound.com/docs/manual/link_tempo_set.html>+-- csound doc: <https://csound.com/docs/manual/link_tempo_set.html> link_tempo_set ::  D -> Sig -> SE ()-link_tempo_set b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "link_tempo_set" [(Xr,[Ir,Kr,Kr])] [a1,a2]+link_tempo_set b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "link_tempo_set" [(Xr,[Ir,Kr,Kr])] [a1,a2]

@@ -0,0 +1,24 @@+module Csound.Typed.Opcode.Deprecated (+    +    +    +    tableiw) where++import Control.Monad.Trans.Class+import Control.Monad+import Csound.Dynamic+import Csound.Typed++-- ++-- | ++--+-- >  tableiw  isig, indx, ifn [, ixmode] [, ixoff] [, iwgmode]+--+-- csound doc: <https://csound.com/docs/manual/tableiw.html>+tableiw ::  D -> D -> Tab -> SE ()+tableiw b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3+  where+    f a1 a2 a3 = opcsDep_ "tableiw" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]

@@ -13,7 +13,9 @@     -- * Appearance.     flColor, flColor2, flHide, flLabel, flSetAlign, flSetBox, flSetColor, flSetColor2, flSetFont, flSetPosition, flSetSize, flSetText, flSetTextColor, flSetTextSize, flSetTextType, flShow) where +import Data.Proxy import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -24,20 +26,24 @@ -- -- >  FLgroup  "label", iwidth, iheight, ix, iy [, iborder] [, image] ----- csound doc: <http://csound.com/docs/manual/FLgroup.html>+-- csound doc: <https://csound.com/docs/manual/FLgroup.html> flGroup ::  Str -> D -> D -> D -> D -> SE ()-flGroup b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "FLgroup" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+flGroup b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "FLgroup" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Marks the end of a group of FLTK child widgets. -- -- >  FLgroupEnd  ----- csound doc: <http://csound.com/docs/manual/FLgroupEnd.html>+-- csound doc: <https://csound.com/docs/manual/FLgroupEnd.html> flGroupEnd ::   SE ()-flGroupEnd  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLgroupEnd" [(Xr,[])] []+flGroupEnd  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLgroupEnd" [(Xr,[])] []  -- |  -- Provides the functionality of compressing and aligning FLTK widgets.@@ -46,46 +52,48 @@ -- -- >  FLpack  iwidth, iheight, ix, iy, itype, ispace, iborder ----- csound doc: <http://csound.com/docs/manual/FLpack.html>+-- csound doc: <https://csound.com/docs/manual/FLpack.html> flPack ::  D -> D -> D -> D -> D -> D -> D -> SE ()-flPack b1 b2 b3 b4 b5 b6 b7 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "FLpack" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                               ,a2-                                                                               ,a3-                                                                               ,a4-                                                                               ,a5-                                                                               ,a6-                                                                               ,a7]+flPack b1 b2 b3 b4 b5 b6 b7 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcsDep_ "FLpack" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7]  -- |  -- Marks the end of a group of compressed or aligned FLTK widgets. -- -- >  FLpackEnd  ----- csound doc: <http://csound.com/docs/manual/FLpackEnd.html>+-- csound doc: <https://csound.com/docs/manual/FLpackEnd.html> flPackEnd ::   SE ()-flPackEnd  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLpackEnd" [(Xr,[])] []+flPackEnd  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLpackEnd" [(Xr,[])] []  -- |  -- Creates a window that contains FLTK widgets. -- -- >  FLpanel  "label", iwidth, iheight [, ix] [, iy] [, iborder] [, ikbdcapture] [, iclose] ----- csound doc: <http://csound.com/docs/manual/FLpanel.html>+-- csound doc: <https://csound.com/docs/manual/FLpanel.html> flPanel ::  Str -> D -> D -> SE ()-flPanel b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLpanel" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]+flPanel b1 b2 b3 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLpanel" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Marks the end of a group of FLTK widgets contained inside of a window (panel). -- -- >  FLpanelEnd  ----- csound doc: <http://csound.com/docs/manual/FLpanelEnd.html>+-- csound doc: <https://csound.com/docs/manual/FLpanelEnd.html> flPanelEnd ::   SE ()-flPanelEnd  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLpanelEnd" [(Xr,[])] []+flPanelEnd  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLpanelEnd" [(Xr,[])] []  -- |  -- A FLTK opcode that adds scroll bars to an area.@@ -94,20 +102,24 @@ -- -- >  FLscroll  iwidth, iheight [, ix] [, iy] ----- csound doc: <http://csound.com/docs/manual/FLscroll.html>+-- csound doc: <https://csound.com/docs/manual/FLscroll.html> flScroll ::  D -> D -> SE ()-flScroll b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLscroll" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2]+flScroll b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLscroll" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- A FLTK opcode that marks the end of an area with scrollbars. -- -- >  FLscrollEnd  ----- csound doc: <http://csound.com/docs/manual/FLscrollEnd.html>+-- csound doc: <https://csound.com/docs/manual/FLscrollEnd.html> flScrollEnd ::   SE ()-flScrollEnd  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLscrollEnd" [(Xr,[])] []+flScrollEnd  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLscrollEnd" [(Xr,[])] []  -- |  -- Creates a tabbed FLTK interface.@@ -116,20 +128,24 @@ -- -- >  FLtabs  iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLtabs.html>+-- csound doc: <https://csound.com/docs/manual/FLtabs.html> flTabs ::  D -> D -> D -> D -> SE ()-flTabs b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLtabs" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flTabs b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLtabs" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Marks the end of a tabbed FLTK interface. -- -- >  FLtabsEnd  ----- csound doc: <http://csound.com/docs/manual/FLtabsEnd.html>+-- csound doc: <https://csound.com/docs/manual/FLtabsEnd.html> flTabsEnd ::   SE ()-flTabsEnd  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLtabsEnd" [(Xr,[])] []+flTabsEnd  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLtabsEnd" [(Xr,[])] []  -- Valuators. @@ -141,11 +157,13 @@ -- > kout, ihandle  FLcount  "label", imin, imax, istep1, istep2, itype, \ -- >           iwidth, iheight, ix, iy, iopcode [, kp1] [, kp2] [, kp3] [...] [, kpN] ----- csound doc: <http://csound.com/docs/manual/FLcount.html>+-- csound doc: <https://csound.com/docs/manual/FLcount.html> flCount ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flCount b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10 <*> unD b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = mopcs "FLcount" ([Kr,Ir]-                                                                 ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]+flCount b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9 <*> (lift . unD) b10 <*> (lift . unD) b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = mopcsDep 2 "FLcount" ([Kr,Ir]+                                                                ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]  -- |  -- A FLTK opcode that acts like a joystick.@@ -155,11 +173,13 @@ -- > koutx, kouty, ihandlex, ihandley  FLjoy  "label", iminx, imaxx, iminy, \ -- >           imaxy, iexpx, iexpy, idispx, idispy, iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLjoy.html>+-- csound doc: <https://csound.com/docs/manual/FLjoy.html> flJoy ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,Sig,D,D)-flJoy b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10 <*> unD b11 <*> unD b12 <*> unD b13-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = mopcs "FLjoy" ([Kr,Kr,Ir,Ir]-                                                                       ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13]+flJoy b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9 <*> (lift . unD) b10 <*> (lift . unD) b11 <*> (lift . unD) b12 <*> (lift . unD) b13+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = mopcsDep 4 "FLjoy" ([Kr,Kr,Ir,Ir]+                                                                      ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13]  -- |  -- A FLTK widget opcode that creates a knob.@@ -167,11 +187,20 @@ -- > kout, ihandle  FLknob  "label", imin, imax, iexp, itype, idisp, iwidth, \ -- >           ix, iy [, icursorsize] ----- csound doc: <http://csound.com/docs/manual/FLknob.html>+-- csound doc: <https://csound.com/docs/manual/FLknob.html> flKnob ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flKnob b1 b2 b3 b4 b5 b6 b7 b8 b9 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcs "FLknob" ([Kr,Ir]-                                                        ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9]+flKnob b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcsDep 2 "FLknob" ([Kr,Ir],[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                                 ,a2+                                                                                                 ,a3+                                                                                                 ,a4+                                                                                                 ,a5+                                                                                                 ,a6+                                                                                                 ,a7+                                                                                                 ,a8+                                                                                                 ,a9]  -- |  -- A FLTK widget that creates a transversal knob.@@ -181,11 +210,13 @@ -- > kout, ihandle  FLroller  "label", imin, imax, istep, iexp, itype, idisp, \ -- >           iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLroller.html>+-- csound doc: <https://csound.com/docs/manual/FLroller.html> flRoller ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flRoller b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10 <*> unD b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = mopcs "FLroller" ([Kr,Ir]-                                                                  ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]+flRoller b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9 <*> (lift . unD) b10 <*> (lift . unD) b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = mopcsDep 2 "FLroller" ([Kr,Ir]+                                                                 ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]  -- |  -- Puts a slider into the corresponding FLTK container.@@ -195,11 +226,13 @@ -- > kout, ihandle  FLslider  "label", imin, imax, iexp, itype, idisp, iwidth, \ -- >           iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLslider.html>+-- csound doc: <https://csound.com/docs/manual/FLslider.html> flSlider ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flSlider b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "FLslider" ([Kr,Ir]-                                                              ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]+flSlider b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9 <*> (lift . unD) b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcsDep 2 "FLslider" ([Kr,Ir]+                                                             ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]  -- |  -- A FLTK widget opcode that creates a textbox.@@ -209,18 +242,20 @@ -- > kout, ihandle  FLtext  "label", imin, imax, istep, itype, iwidth, \ -- >           iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLtext.html>+-- csound doc: <https://csound.com/docs/manual/FLtext.html> flText ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flText b1 b2 b3 b4 b5 b6 b7 b8 b9 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcs "FLtext" ([Kr,Ir],[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                               ,a2-                                                                                               ,a3-                                                                                               ,a4-                                                                                               ,a5-                                                                                               ,a6-                                                                                               ,a7-                                                                                               ,a8-                                                                                               ,a9]+flText b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcsDep 2 "FLtext" ([Kr,Ir],[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                              ,a2+                                                                                              ,a3+                                                                                              ,a4+                                                                                              ,a5+                                                                                              ,a6+                                                                                              ,a7+                                                                                              ,a8+                                                                                              ,a9]  -- Other. @@ -230,11 +265,13 @@ -- > ihandle  FLbox  "label", itype, ifont, isize, iwidth, iheight, ix, iy [, image] -- > ihandle  FLbox  istr, itype, ifont, isize, iwidth, iheight, ix, iy [, image] ----- csound doc: <http://csound.com/docs/manual/FLbox.html>+-- csound doc: <https://csound.com/docs/manual/FLbox.html> flBox ::  Str -> D -> D -> D -> D -> D -> D -> D -> SE D-flBox b1 b2 b3 b4 b5 b6 b7 b8 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "FLbox" [(Ir,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])-                                                   ,(Ir,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8]+flBox b1 b2 b3 b4 b5 b6 b7 b8 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcsDep "FLbox" [(Ir,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])+                                                ,(Ir,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8]  -- |  -- A FLTK widget opcode that creates a bank of buttons.@@ -242,11 +279,13 @@ -- > kout, ihandle  FLbutBank  itype, inumx, inumy, iwidth, iheight, ix, iy, \ -- >           iopcode [, kp1] [, kp2] [, kp3] [, kp4] [, kp5] [....] [, kpN] ----- csound doc: <http://csound.com/docs/manual/FLbutBank.html>+-- csound doc: <https://csound.com/docs/manual/FLbutBank.html> flButBank ::  D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flButBank b1 b2 b3 b4 b5 b6 b7 b8 = dirtyTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "FLbutBank" ([Kr,Ir]-                                                        ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8]+flButBank b1 b2 b3 b4 b5 b6 b7 b8 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = mopcsDep 2 "FLbutBank" ([Kr,Ir]+                                                       ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8]  -- |  -- A FLTK widget opcode that creates a button.@@ -254,11 +293,13 @@ -- > kout, ihandle  FLbutton  "label", ion, ioff, itype, iwidth, iheight, ix, \ -- >           iy, iopcode [, kp1] [, kp2] [, kp3] [, kp4] [, kp5] [....] [, kpN] ----- csound doc: <http://csound.com/docs/manual/FLbutton.html>+-- csound doc: <https://csound.com/docs/manual/FLbutton.html> flButton ::  Str -> D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,D)-flButton b1 b2 b3 b4 b5 b6 b7 b8 b9 = dirtyTuple $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcs "FLbutton" ([Kr,Ir]-                                                          ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8,a9]+flButton b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = mopcsDep 2 "FLbutton" ([Kr,Ir]+                                                         ,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir] ++ (repeat Kr)) [a1,a2,a3,a4,a5,a6,a7,a8,a9]  -- |  -- A FLTK widget opcode that creates a button that will close the panel@@ -266,10 +307,12 @@ -- -- > ihandle  FLcloseButton  "label", iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLcloseButton.html>+-- csound doc: <https://csound.com/docs/manual/FLcloseButton.html> flCloseButton ::  Str -> D -> D -> D -> D -> SE D-flCloseButton b1 b2 b3 b4 b5 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "FLcloseButton" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+flCloseButton b1 b2 b3 b4 b5 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep "FLcloseButton" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- A FLTK widget opcode that creates a button that executes a command.@@ -280,10 +323,12 @@ -- -- > ihandle  FLexecButton  "command", iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLexecButton.html>+-- csound doc: <https://csound.com/docs/manual/FLexecButton.html> flExecButton ::  Str -> D -> D -> D -> D -> SE D-flExecButton b1 b2 b3 b4 b5 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "FLexecButton" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+flExecButton b1 b2 b3 b4 b5 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep "FLexecButton" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Retrieves a previously stored FLTK snapshot.@@ -292,10 +337,12 @@ -- -- > inumsnap  FLgetsnap  index [, igroup] ----- csound doc: <http://csound.com/docs/manual/FLgetsnap.html>+-- csound doc: <https://csound.com/docs/manual/FLgetsnap.html> flGetsnap ::  D -> SE D-flGetsnap b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "FLgetsnap" [(Ir,[Ir,Ir])] [a1]+flGetsnap b1 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep "FLgetsnap" [(Ir,[Ir,Ir])] [a1]  -- |  -- Displays a box with a grid useful for visualizing two-dimensional Hyper Vectorial Synthesis.@@ -304,10 +351,12 @@ -- -- > ihandle  FLhvsBox  inumlinesX, inumlinesY, iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLhvsBox.html>+-- csound doc: <https://csound.com/docs/manual/FLhvsBox.html> flHvsBox ::  D -> D -> D -> D -> D -> D -> SE D-flHvsBox b1 b2 b3 b4 b5 b6 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "FLhvsBox" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]+flHvsBox b1 b2 b3 b4 b5 b6 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep "FLhvsBox" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]  -- |  -- Sets the cursor position of a previously-declared FLhvsBox widget.@@ -316,10 +365,12 @@ -- -- >  FLhvsBoxSetValue  kx, ky, ihandle ----- csound doc: <http://csound.com/docs/manual/FLhvsBoxSetValue.html>+-- csound doc: <https://csound.com/docs/manual/FLhvsBoxSetValue.html> flHvsBoxSetValue ::  Sig -> Sig -> D -> SE ()-flHvsBoxSetValue b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLhvsBoxSetValue" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]+flHvsBoxSetValue b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLhvsBoxSetValue" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]  -- |  -- Reports keys pressed (on alphanumeric keyboard) when an FLTK panel has focus.@@ -328,10 +379,12 @@ -- -- > kascii  FLkeyIn  [ifn] ----- csound doc: <http://csound.com/docs/manual/FLkeyIn.html>+-- csound doc: <https://csound.com/docs/manual/FLkeyIn.html> flKeyIn ::   SE Sig-flKeyIn  = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "FLkeyIn" [(Kr,[Ir])] []+flKeyIn  =+  fmap ( Sig . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "FLkeyIn" [(Kr,[Ir])] []  -- |  -- Loads all snapshots into the memory bank of the current orchestra.@@ -340,10 +393,12 @@ -- -- >  FLloadsnap  "filename" [, igroup] ----- csound doc: <http://csound.com/docs/manual/FLloadsnap.html>+-- csound doc: <https://csound.com/docs/manual/FLloadsnap.html> flLoadsnap ::  Str -> SE ()-flLoadsnap b1 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "FLloadsnap" [(Xr,[Sr,Ir])] [a1]+flLoadsnap b1 =+  SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep_ "FLloadsnap" [(Xr,[Sr,Ir])] [a1]  -- |  -- Returns the mouse position and the state of the three mouse buttons.@@ -352,10 +407,12 @@ -- -- > kx, ky, kb1, kb2, kb3  FLmouse  [imode] ----- csound doc: <http://csound.com/docs/manual/FLmouse.html>-flMouse :: Tuple a =>  SE a-flMouse  = dirtyTuple $ return $ f -    where f  = mopcs "FLmouse" ([Kr,Kr,Kr,Kr,Kr],[Ir]) []+-- csound doc: <https://csound.com/docs/manual/FLmouse.html>+flMouse :: forall a . Tuple a =>  SE a+flMouse  =+  fmap (toTuple . pure) $ SE $ join $ return $ f +  where+    f  = mopcsDep (tupleArity (Proxy :: Proxy a)) "FLmouse" ([Kr,Kr,Kr,Kr,Kr],[Ir]) []  -- |  -- A FLTK opcode that prints a k-rate value at specified intervals.@@ -364,10 +421,12 @@ -- -- >  FLprintk  itime, kval, idisp ----- csound doc: <http://csound.com/docs/manual/FLprintk.html>+-- csound doc: <https://csound.com/docs/manual/FLprintk.html> flPrintk ::  D -> Sig -> D -> SE ()-flPrintk b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLprintk" [(Xr,[Ir,Kr,Ir])] [a1,a2,a3]+flPrintk b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLprintk" [(Xr,[Ir,Kr,Ir])] [a1,a2,a3]  -- |  -- A FLTK opcode that prints a new value every time a control-rate variable changes.@@ -376,20 +435,24 @@ -- -- >  FLprintk2  kval, idisp ----- csound doc: <http://csound.com/docs/manual/FLprintk2.html>+-- csound doc: <https://csound.com/docs/manual/FLprintk2.html> flPrintk2 ::  Sig -> D -> SE ()-flPrintk2 b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "FLprintk2" [(Xr,[Kr,Ir])] [a1,a2]+flPrintk2 b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLprintk2" [(Xr,[Kr,Ir])] [a1,a2]  -- |  -- Starts the FLTK widget thread. -- -- >  FLrun  ----- csound doc: <http://csound.com/docs/manual/FLrun.html>+-- csound doc: <https://csound.com/docs/manual/FLrun.html> flRun ::   SE ()-flRun  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLrun" [(Xr,[])] []+flRun  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLrun" [(Xr,[])] []  -- |  -- Saves all snapshots currently created into a file.@@ -398,10 +461,12 @@ -- -- >  FLsavesnap  "filename" [, igroup] ----- csound doc: <http://csound.com/docs/manual/FLsavesnap.html>+-- csound doc: <https://csound.com/docs/manual/FLsavesnap.html> flSavesnap ::  Str -> SE ()-flSavesnap b1 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "FLsavesnap" [(Xr,[Sr,Ir])] [a1]+flSavesnap b1 =+  SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep_ "FLsavesnap" [(Xr,[Sr,Ir])] [a1]  -- |  -- Stores the current status of all FLTK valuators into a snapshot location.@@ -410,10 +475,12 @@ -- -- > inumsnap, inumval  FLsetsnap  index [, ifn, igroup] ----- csound doc: <http://csound.com/docs/manual/FLsetsnap.html>+-- csound doc: <https://csound.com/docs/manual/FLsetsnap.html> flSetsnap ::  D -> SE (D,D)-flSetsnap b1 = dirtyTuple $ f <$> unD b1-    where f a1 = mopcs "FLsetsnap" ([Ir,Ir],[Ir,Ir,Ir]) [a1]+flSetsnap b1 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = mopcsDep 2 "FLsetsnap" ([Ir,Ir],[Ir,Ir,Ir]) [a1]  -- |  -- Determines the snapshot group for FL valuators.@@ -422,10 +489,12 @@ -- -- >  FLsetSnapGroup  igroup ----- csound doc: <http://csound.com/docs/manual/FLsetSnapGroup.html>+-- csound doc: <https://csound.com/docs/manual/FLsetSnapGroup.html> flSetSnapGroup ::  D -> SE ()-flSetSnapGroup b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "FLsetSnapGroup" [(Xr,[Ir])] [a1]+flSetSnapGroup b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "FLsetSnapGroup" [(Xr,[Ir])] [a1]  -- |  -- Sets the value of a FLTK valuator at control-rate.@@ -434,10 +503,12 @@ -- -- >  FLsetVal  ktrig, kvalue, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetVal.html>+-- csound doc: <https://csound.com/docs/manual/FLsetVal.html> flSetVal ::  Sig -> Sig -> D -> SE ()-flSetVal b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLsetVal" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]+flSetVal b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLsetVal" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]  -- |  -- Sets the value of a FLTK valuator to a number provided by the user.@@ -446,10 +517,12 @@ -- -- >  FLsetVal_i  ivalue, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetVal_i.html>+-- csound doc: <https://csound.com/docs/manual/FLsetVal_i.html> flSetVal_i ::  D -> D -> SE ()-flSetVal_i b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetVal_i" [(Xr,[Ir,Ir])] [a1,a2]+flSetVal_i b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetVal_i" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- A FLTK widget containing a bank of horizontal sliders.@@ -459,10 +532,12 @@ -- >  FLslidBnk  "names", inumsliders [, ioutable] [, iwidth] [, iheight] [, ix] \ -- >           [, iy] [, itypetable] [, iexptable] [, istart_index] [, iminmaxtable] ----- csound doc: <http://csound.com/docs/manual/FLslidBnk.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnk.html> flSlidBnk ::  Str -> D -> SE ()-flSlidBnk b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2-    where f a1 a2 = opcs "FLslidBnk" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]+flSlidBnk b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLslidBnk" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- A FLTK widget containing a bank of horizontal sliders.@@ -472,10 +547,12 @@ -- >  FLslidBnk2  "names", inumsliders, ioutable, iconfigtable [,iwidth, iheight, ix, iy, istart_index]  -- >  FLslidBnk2  istring, inumsliders, ioutable, iconfigtable [,iwidth, iheight, ix, iy, istart_index]  ----- csound doc: <http://csound.com/docs/manual/FLslidBnk2.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnk2.html> flSlidBnk2 ::  Str -> D -> D -> D -> SE ()-flSlidBnk2 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLslidBnk2" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flSlidBnk2 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLslidBnk2" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- modify the values of a slider bank.@@ -484,10 +561,12 @@ -- -- >  FLslidBnk2Set  ihandle, ifn [, istartIndex, istartSlid, inumSlid] ----- csound doc: <http://csound.com/docs/manual/FLslidBnk2Set.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnk2Set.html> flSlidBnk2Set ::  D -> Tab -> SE ()-flSlidBnk2Set b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unTab b2-    where f a1 a2 = opcs "FLslidBnk2Set" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]+flSlidBnk2Set b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unTab) b2+  where+    f a1 a2 = opcsDep_ "FLslidBnk2Set" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- modify the values of a slider bank.@@ -496,10 +575,12 @@ -- -- >  FLslidBnk2Setk   ktrig, ihandle, ifn [, istartIndex, istartSlid, inumSlid] ----- csound doc: <http://csound.com/docs/manual/FLslidBnk2Setk.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnk2Setk.html> flSlidBnk2Setk ::  Sig -> D -> Tab -> SE ()-flSlidBnk2Setk b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unTab b3-    where f a1 a2 a3 = opcs "FLslidBnk2Setk" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]+flSlidBnk2Setk b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3+  where+    f a1 a2 a3 = opcsDep_ "FLslidBnk2Setk" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- gets the handle of last slider bank created.@@ -508,10 +589,12 @@ -- -- > ihandle  FLslidBnkGetHandle  ----- csound doc: <http://csound.com/docs/manual/FLslidBnkGetHandle.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnkGetHandle.html> flSlidBnkGetHandle ::   SE D-flSlidBnkGetHandle  = fmap ( D . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "FLslidBnkGetHandle" [(Ir,[])] []+flSlidBnkGetHandle  =+  fmap ( D . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "FLslidBnkGetHandle" [(Ir,[])] []  -- |  -- modify the values of a slider bank.@@ -520,10 +603,12 @@ -- -- >  FLslidBnkSet  ihandle, ifn [, istartIndex, istartSlid, inumSlid] ----- csound doc: <http://csound.com/docs/manual/FLslidBnkSet.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnkSet.html> flSlidBnkSet ::  D -> Tab -> SE ()-flSlidBnkSet b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unTab b2-    where f a1 a2 = opcs "FLslidBnkSet" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]+flSlidBnkSet b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unTab) b2+  where+    f a1 a2 = opcsDep_ "FLslidBnkSet" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- modify the values of a slider bank.@@ -532,20 +617,24 @@ -- -- >  FLslidBnkSetk   ktrig, ihandle, ifn [, istartIndex, istartSlid, inumSlid] ----- csound doc: <http://csound.com/docs/manual/FLslidBnkSetk.html>+-- csound doc: <https://csound.com/docs/manual/FLslidBnkSetk.html> flSlidBnkSetk ::  Sig -> D -> Tab -> SE ()-flSlidBnkSetk b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unTab b3-    where f a1 a2 a3 = opcs "FLslidBnkSetk" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]+flSlidBnkSetk b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3+  where+    f a1 a2 a3 = opcsDep_ "FLslidBnkSetk" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Same as the FLrun opcode. -- -- >  FLupdate  ----- csound doc: <http://csound.com/docs/manual/FLupdate.html>+-- csound doc: <https://csound.com/docs/manual/FLupdate.html> flUpdate ::   SE ()-flUpdate  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "FLupdate" [(Xr,[])] []+flUpdate  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "FLupdate" [(Xr,[])] []  -- |  -- Shows the current value of a FLTK valuator.@@ -554,10 +643,12 @@ -- -- > ihandle  FLvalue  "label", iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLvalue.html>+-- csound doc: <https://csound.com/docs/manual/FLvalue.html> flValue ::  Str -> D -> D -> D -> D -> SE D-flValue b1 b2 b3 b4 b5 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "FLvalue" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+flValue b1 b2 b3 b4 b5 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep "FLvalue" [(Ir,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- An FLTK widget opcode that creates a virtual keyboard widget.@@ -570,10 +661,12 @@ -- -- >  FLvkeybd  "keyboard.map", iwidth, iheight, ix, iy ----- csound doc: <http://csound.com/docs/manual/FLvkeybd.html>+-- csound doc: <https://csound.com/docs/manual/FLvkeybd.html> flVkeybd ::  Str -> D -> D -> D -> D -> SE ()-flVkeybd b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "FLvkeybd" [(Xr,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+flVkeybd b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "FLvkeybd" [(Xr,[Sr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- A FLTK widget containing a bank of vertical sliders.@@ -583,10 +676,12 @@ -- >  FLvslidBnk  "names", inumsliders [, ioutable] [, iwidth] [, iheight] [, ix] \ -- >           [, iy] [, itypetable] [, iexptable] [, istart_index] [, iminmaxtable] ----- csound doc: <http://csound.com/docs/manual/FLvslidBnk.html>+-- csound doc: <https://csound.com/docs/manual/FLvslidBnk.html> flVslidBnk ::  Str -> D -> SE ()-flVslidBnk b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2-    where f a1 a2 = opcs "FLvslidBnk" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]+flVslidBnk b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLvslidBnk" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- A FLTK widget containing a bank of vertical sliders.@@ -595,10 +690,12 @@ -- -- >  FLvslidBnk2  "names", inumsliders, ioutable, iconfigtable [,iwidth, iheight, ix, iy, istart_index] ----- csound doc: <http://csound.com/docs/manual/FLvslidBnk2.html>+-- csound doc: <https://csound.com/docs/manual/FLvslidBnk2.html> flVslidBnk2 ::  Str -> D -> D -> D -> SE ()-flVslidBnk2 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLvslidBnk2" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flVslidBnk2 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLvslidBnk2" [(Xr,[Sr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Senses the mouse cursor position in a user-defined area inside an FLpanel.@@ -608,11 +705,13 @@ -- > koutx, kouty, kinside   FLxyin  ioutx_min, ioutx_max, iouty_min, iouty_max, \ -- >           iwindx_min, iwindx_max, iwindy_min, iwindy_max [, iexpx, iexpy, ioutx, iouty] ----- csound doc: <http://csound.com/docs/manual/FLxyin.html>+-- csound doc: <https://csound.com/docs/manual/FLxyin.html> flXyin ::  D -> D -> D -> D -> D -> D -> D -> D -> SE (Sig,Sig,Sig)-flXyin b1 b2 b3 b4 b5 b6 b7 b8 = dirtyTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "FLxyin" ([Kr,Kr,Kr]-                                                     ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8]+flXyin b1 b2 b3 b4 b5 b6 b7 b8 =+  fmap (toTuple . pure) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = mopcsDep 3 "FLxyin" ([Kr,Kr,Kr]+                                                    ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8]  -- |  -- Allows one-dimensional HVS (Hyper-Vectorial Synthesis).@@ -622,10 +721,12 @@ -- >  vphaseseg  kphase, ioutab, ielems, itab1,idist1,itab2 \ -- >           [,idist2,itab3, ... ,idistN-1,itabN] ----- csound doc: <http://csound.com/docs/manual/vphaseseg.html>+-- csound doc: <https://csound.com/docs/manual/vphaseseg.html> vphaseseg ::  Sig -> D -> D -> [D] -> SE ()-vphaseseg b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> mapM unD b4-    where f a1 a2 a3 a4 = opcs "vphaseseg" [(Xr,[Kr] ++ (repeat Ir))] ([a1,a2,a3] ++ a4)+vphaseseg b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> mapM (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "vphaseseg" [(Xr,[Kr] ++ (repeat Ir))] ([a1,a2,a3] ++ a4)  -- Appearance. @@ -636,10 +737,12 @@ -- -- >  FLcolor  ired, igreen, iblue [, ired2, igreen2, iblue2] ----- csound doc: <http://csound.com/docs/manual/FLcolor.html>+-- csound doc: <https://csound.com/docs/manual/FLcolor.html> flColor ::  D -> D -> D -> SE ()-flColor b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLcolor" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]+flColor b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLcolor" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- A FLTK opcode that sets the secondary (selection) color.@@ -648,10 +751,12 @@ -- -- >  FLcolor2  ired, igreen, iblue ----- csound doc: <http://csound.com/docs/manual/FLcolor2.html>+-- csound doc: <https://csound.com/docs/manual/FLcolor2.html> flColor2 ::  D -> D -> D -> SE ()-flColor2 b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLcolor2" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+flColor2 b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLcolor2" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Hides the target FLTK widget.@@ -660,10 +765,12 @@ -- -- >  FLhide  ihandle ----- csound doc: <http://csound.com/docs/manual/FLhide.html>+-- csound doc: <https://csound.com/docs/manual/FLhide.html> flHide ::  D -> SE ()-flHide b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "FLhide" [(Xr,[Ir])] [a1]+flHide b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "FLhide" [(Xr,[Ir])] [a1]  -- |  -- A FLTK opcode that modifies the appearance of a text label.@@ -672,10 +779,12 @@ -- -- >  FLlabel  isize, ifont, ialign, ired, igreen, iblue ----- csound doc: <http://csound.com/docs/manual/FLlabel.html>+-- csound doc: <https://csound.com/docs/manual/FLlabel.html> flLabel ::  D -> D -> D -> D -> D -> D -> SE ()-flLabel b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "FLlabel" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]+flLabel b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "FLlabel" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]  -- |  -- Sets the text alignment of a label of a FLTK widget.@@ -684,10 +793,12 @@ -- -- >  FLsetAlign  ialign, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetAlign.html>+-- csound doc: <https://csound.com/docs/manual/FLsetAlign.html> flSetAlign ::  D -> D -> SE ()-flSetAlign b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetAlign" [(Xr,[Ir,Ir])] [a1,a2]+flSetAlign b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetAlign" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Sets the appearance of a box surrounding a FLTK widget.@@ -696,10 +807,12 @@ -- -- >  FLsetBox  itype, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetBox.html>+-- csound doc: <https://csound.com/docs/manual/FLsetBox.html> flSetBox ::  D -> D -> SE ()-flSetBox b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetBox" [(Xr,[Ir,Ir])] [a1,a2]+flSetBox b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetBox" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Sets the primary color of a FLTK widget.@@ -708,10 +821,12 @@ -- -- >  FLsetColor  ired, igreen, iblue, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetColor.html>+-- csound doc: <https://csound.com/docs/manual/FLsetColor.html> flSetColor ::  D -> D -> D -> D -> SE ()-flSetColor b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLsetColor" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flSetColor b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLsetColor" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sets the secondary (or selection) color of a FLTK widget.@@ -720,10 +835,12 @@ -- -- >  FLsetColor2  ired, igreen, iblue, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetColor2.html>+-- csound doc: <https://csound.com/docs/manual/FLsetColor2.html> flSetColor2 ::  D -> D -> D -> D -> SE ()-flSetColor2 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLsetColor2" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flSetColor2 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLsetColor2" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sets the font type of a FLTK widget.@@ -732,10 +849,12 @@ -- -- >  FLsetFont  ifont, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetFont.html>+-- csound doc: <https://csound.com/docs/manual/FLsetFont.html> flSetFont ::  D -> D -> SE ()-flSetFont b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetFont" [(Xr,[Ir,Ir])] [a1,a2]+flSetFont b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetFont" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Sets the position of a FLTK widget.@@ -744,10 +863,12 @@ -- -- >  FLsetPosition  ix, iy, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetPosition.html>+-- csound doc: <https://csound.com/docs/manual/FLsetPosition.html> flSetPosition ::  D -> D -> D -> SE ()-flSetPosition b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLsetPosition" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+flSetPosition b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLsetPosition" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Resizes a FLTK widget.@@ -756,10 +877,12 @@ -- -- >  FLsetSize  iwidth, iheight, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetSize.html>+-- csound doc: <https://csound.com/docs/manual/FLsetSize.html> flSetSize ::  D -> D -> D -> SE ()-flSetSize b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "FLsetSize" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+flSetSize b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "FLsetSize" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Sets the label of a FLTK widget.@@ -769,10 +892,12 @@ -- >  FLsetText  "itext", ihandle -- >  FLsetText  istr, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetText.html>+-- csound doc: <https://csound.com/docs/manual/FLsetText.html> flSetText ::  Str -> D -> SE ()-flSetText b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2-    where f a1 a2 = opcs "FLsetText" [(Xr,[Sr,Ir])] [a1,a2]+flSetText b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetText" [(Xr,[Sr,Ir])] [a1,a2]  -- |  -- Sets the color of the text label of a FLTK widget.@@ -781,10 +906,12 @@ -- -- >  FLsetTextColor  ired, iblue, igreen, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetTextColor.html>+-- csound doc: <https://csound.com/docs/manual/FLsetTextColor.html> flSetTextColor ::  D -> D -> D -> D -> SE ()-flSetTextColor b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "FLsetTextColor" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+flSetTextColor b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "FLsetTextColor" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sets the size of the text label of a FLTK widget.@@ -793,10 +920,12 @@ -- -- >  FLsetTextSize  isize, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetTextSize.html>+-- csound doc: <https://csound.com/docs/manual/FLsetTextSize.html> flSetTextSize ::  D -> D -> SE ()-flSetTextSize b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetTextSize" [(Xr,[Ir,Ir])] [a1,a2]+flSetTextSize b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetTextSize" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Sets some font attributes of the text label of a FLTK widget.@@ -805,10 +934,12 @@ -- -- >  FLsetTextType  itype, ihandle ----- csound doc: <http://csound.com/docs/manual/FLsetTextType.html>+-- csound doc: <https://csound.com/docs/manual/FLsetTextType.html> flSetTextType ::  D -> D -> SE ()-flSetTextType b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "FLsetTextType" [(Xr,[Ir,Ir])] [a1,a2]+flSetTextType b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "FLsetTextType" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Restores the visibility of a previously hidden FLTK widget.@@ -817,7 +948,9 @@ -- -- >  FLshow  ihandle ----- csound doc: <http://csound.com/docs/manual/FLshow.html>+-- csound doc: <https://csound.com/docs/manual/FLshow.html> flShow ::  D -> SE ()-flShow b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "FLshow" [(Xr,[Ir])] [a1]+flShow b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "FLshow" [(Xr,[Ir])] [a1]

@@ -5,6 +5,7 @@     faustctl) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -17,7 +18,9 @@ -- -- >  faustctl  idsp,Scontrol,kval  ----- csound doc: <http://csound.com/docs/manual/faustctl.html>+-- csound doc: <https://csound.com/docs/manual/faustctl.html> faustctl ::  D -> Str -> Sig -> SE ()-faustctl b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unStr b2 <*> unSig b3-    where f a1 a2 a3 = opcs "faustctl" [(Xr,[Ir,Sr,Kr])] [a1,a2,a3]+faustctl b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unStr) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "faustctl" [(Xr,[Ir,Sr,Kr])] [a1,a2,a3]

@@ -5,6 +5,7 @@     imagecreate, imagefree, imagegetpixel, imageload, imagesave, imagesetpixel, imagesize) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -17,20 +18,24 @@ -- -- > iimagenum  imagecreate  iwidth, iheight ----- csound doc: <http://csound.com/docs/manual/imagecreate.html>+-- csound doc: <https://csound.com/docs/manual/imagecreate.html> imagecreate ::  D -> D -> SE D-imagecreate b1 b2 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "imagecreate" [(Ir,[Ir,Ir])] [a1,a2]+imagecreate b1 b2 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep "imagecreate" [(Ir,[Ir,Ir])] [a1,a2]  -- |  -- Frees memory allocated for a previously loaded or created image. -- -- >  imagefree  iimagenum ----- csound doc: <http://csound.com/docs/manual/imagefree.html>+-- csound doc: <https://csound.com/docs/manual/imagefree.html> imagefree ::  D -> SE ()-imagefree b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "imagefree" [(Xr,[Ir])] [a1]+imagefree b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "imagefree" [(Xr,[Ir])] [a1]  -- |  -- Return the RGB pixel values of a previously opened or created image.@@ -40,10 +45,12 @@ -- > ared, agreen, ablue  imagegetpixel  iimagenum, ax, ay -- > kred, kgreen, kblue  imagegetpixel  iimagenum, kx, ky ----- csound doc: <http://csound.com/docs/manual/imagegetpixel.html>+-- csound doc: <https://csound.com/docs/manual/imagegetpixel.html> imagegetpixel ::  D -> Sig -> Sig -> (Sig,Sig,Sig)-imagegetpixel b1 b2 b3 = pureTuple $ f <$> unD b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = mopcs "imagegetpixel" ([Kr,Kr,Kr],[Ir,Kr,Kr]) [a1,a2,a3]+imagegetpixel b1 b2 b3 =+  pureTuple $ f <$> unD b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = mopcs "imagegetpixel" ([Kr,Kr,Kr],[Ir,Kr,Kr]) [a1,a2,a3]  -- |  -- Load an image.@@ -52,10 +59,12 @@ -- -- > iimagenum  imageload  filename ----- csound doc: <http://csound.com/docs/manual/imageload.html>+-- csound doc: <https://csound.com/docs/manual/imageload.html> imageload ::  Spec -> SE D-imageload b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unSpec b1-    where f a1 = opcs "imageload" [(Ir,[Fr])] [a1]+imageload b1 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unSpec) b1+  where+    f a1 = opcsDep "imageload" [(Ir,[Fr])] [a1]  -- |  -- Save a previously created image.@@ -64,10 +73,12 @@ -- -- >  imagesave  iimagenum, filename ----- csound doc: <http://csound.com/docs/manual/imagesave.html>+-- csound doc: <https://csound.com/docs/manual/imagesave.html> imagesave ::  D -> Spec -> SE ()-imagesave b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSpec b2-    where f a1 a2 = opcs "imagesave" [(Xr,[Ir,Fr])] [a1,a2]+imagesave b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSpec) b2+  where+    f a1 a2 = opcsDep_ "imagesave" [(Xr,[Ir,Fr])] [a1,a2]  -- |  -- Set the RGB value of a pixel inside a previously opened or created image.@@ -77,10 +88,12 @@ -- >  imagesetpixel  iimagenum, ax, ay, ared, agreen, ablue -- >  imagesetpixel  iimagenum, kx, ky, kred, kgreen, kblue ----- csound doc: <http://csound.com/docs/manual/imagesetpixel.html>+-- csound doc: <https://csound.com/docs/manual/imagesetpixel.html> imagesetpixel ::  D -> Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-imagesetpixel b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "imagesetpixel" [(Xr,[Ir,Ar,Ar,Ar,Ar,Ar])] [a1,a2,a3,a4,a5,a6]+imagesetpixel b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5 <*> (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "imagesetpixel" [(Xr,[Ir,Ar,Ar,Ar,Ar,Ar])] [a1,a2,a3,a4,a5,a6]  -- |  -- Return the width and height of a previously opened or created image.@@ -89,7 +102,9 @@ -- -- > iwidth, iheight  imagesize  iimagenum ----- csound doc: <http://csound.com/docs/manual/imagesize.html>+-- csound doc: <https://csound.com/docs/manual/imagesize.html> imagesize ::  D -> (D,D)-imagesize b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "imagesize" ([Ir,Ir],[Ir]) [a1]+imagesize b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "imagesize" ([Ir,Ir],[Ir]) [a1]

@@ -8,16 +8,16 @@     compilecsd, compileorc, compilestr, evalstr,          -- * Duration Control.-    ihold, turnoff, turnon,+    ihold, turnoff, turnoff2_i, turnoff3, turnon,          -- * Invocation.-    event, event_i, mute, nstance, readscore, remove, schedkwhen, schedkwhennamed, schedule, schedwhen, scoreline, scoreline_i,+    event, event_i, mute, nstance, readscore, remove, schedkwhen, schedkwhennamed, schedule, schedulek, schedwhen, scoreline, scoreline_i,          -- * Realtime Performance Control.     active, cpumeter, cpuprc, exitnow, jacktransport, maxalloc, prealloc,          -- * Sensing and Control.-    button, changed, changed2, checkbox, control, follow, follow2, getcfg, joystick, metro, midifilestatus, miditempo, p5gconnect, p5gdata, pcount, peak, pindex, pitch, pitchamdf, plltrack, ptrack, readscratch, rewindscore, rms, sensekey, seqtime, seqtime2, setctrl, setscorepos, splitrig, tempest, tempo, tempoval, timedseq, trigger, trigseq, vactrol, wiiconnect, wiidata, wiirange, wiisend, writescratch, xyin,+    button, changed, changed2, checkbox, cntDelete, cntDelete_i, cntCreate, cntCycles, cntRead, cntReset, cntState, control, count, count_i, follow, follow2, getcfg, joystick, metro, metro2, metrobpm, midifilestatus, miditempo, p5gconnect, p5gdata, pcount, peak, pindex, pitch, pitchamdf, plltrack, ptrack, readscratch, rewindscore, rms, sensekey, seqtime, seqtime2, sequ, setctrl, setscorepos, splitrig, tempest, tempo, tempoval, timedseq, trigger, trigseq, vactrol, wiiconnect, wiidata, wiirange, wiisend, writescratch, xyin,          -- * Stacks.     pop, pop_f, push, push_f, stack,@@ -26,9 +26,10 @@     subinstr, subinstrinit,          -- * Time Reading.-    date, dates, readclock, rtclock, timeinstk, timeinsts, timek, times) where+    date, dates, elapsedcycles, elapsedtime, eventcycles, eventtime, readclock, rtclock, timeinstk, timeinsts, timek, times) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -39,20 +40,24 @@ -- -- >  clockoff  inum ----- csound doc: <http://csound.com/docs/manual/clockoff.html>+-- csound doc: <https://csound.com/docs/manual/clockoff.html> clockoff ::  D -> SE ()-clockoff b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "clockoff" [(Xr,[Ir])] [a1]+clockoff b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "clockoff" [(Xr,[Ir])] [a1]  -- |  -- Starts one of a number of internal clocks. -- -- >  clockon  inum ----- csound doc: <http://csound.com/docs/manual/clockon.html>+-- csound doc: <https://csound.com/docs/manual/clockon.html> clockon ::  D -> SE ()-clockon b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "clockon" [(Xr,[Ir])] [a1]+clockon b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "clockon" [(Xr,[Ir])] [a1]  -- Compilation. @@ -63,10 +68,12 @@ -- -- > ires  compilecsd  Sfilename ----- csound doc: <http://csound.com/docs/manual/compilecsd.html>+-- csound doc: <https://csound.com/docs/manual/compilecsd.html> compilecsd ::  Str -> D-compilecsd b1 = D $ f <$> unStr b1-    where f a1 = opcs "compilecsd" [(Ir,[Sr])] [a1]+compilecsd b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "compilecsd" [(Ir,[Sr])] [a1]  -- |  -- compiles a new orchestra from an ASCII file@@ -77,10 +84,12 @@ -- -- > ires  compileorc  Sfilename ----- csound doc: <http://csound.com/docs/manual/compileorc.html>+-- csound doc: <https://csound.com/docs/manual/compileorc.html> compileorc ::  Str -> D-compileorc b1 = D $ f <$> unStr b1-    where f a1 = opcs "compileorc" [(Ir,[Sr])] [a1]+compileorc b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "compileorc" [(Ir,[Sr])] [a1]  -- |  -- compiles a new orchestra passed in as an ASCII string@@ -92,10 +101,12 @@ -- -- > ires  compilestr  Sorch ----- csound doc: <http://csound.com/docs/manual/compilestr.html>+-- csound doc: <https://csound.com/docs/manual/compilestr.html> compilestr ::  Str -> D-compilestr b1 = D $ f <$> unStr b1-    where f a1 = opcs "compilestr" [(Ir,[Sr])] [a1]+compilestr b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "compilestr" [(Ir,[Sr])] [a1]  -- |  -- Evalstrs evaluates a string containing Csound code, returning a value.@@ -106,10 +117,12 @@ -- > ires  evalstr  Scode  -- > kres  evalstr  Scode, ktrig  ----- csound doc: <http://csound.com/docs/manual/evalstr.html>+-- csound doc: <https://csound.com/docs/manual/evalstr.html> evalstr ::  Str -> Sig-evalstr b1 = Sig $ f <$> unStr b1-    where f a1 = opcs "evalstr" [(Ir,[Sr]),(Kr,[Sr,Kr])] [a1]+evalstr b1 =+  Sig $ f <$> unStr b1+  where+    f a1 = opcs "evalstr" [(Ir,[Sr]),(Kr,[Sr,Kr])] [a1]  -- Duration Control. @@ -120,10 +133,12 @@ -- -- >  ihold  ----- csound doc: <http://csound.com/docs/manual/ihold.html>+-- csound doc: <https://csound.com/docs/manual/ihold.html> ihold ::   SE ()-ihold  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "ihold" [(Xr,[])] []+ihold  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "ihold" [(Xr,[])] []  -- |  -- Enables an instrument to turn itself off or to turn an instance of another instrument off.@@ -132,20 +147,50 @@ -- >  turnoff  inst -- >  turnoff  knst ----- csound doc: <http://csound.com/docs/manual/turnoff.html>+-- csound doc: <https://csound.com/docs/manual/turnoff.html> turnoff ::   SE ()-turnoff  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "turnoff" [(Xr,[])] []+turnoff  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "turnoff" [(Xr,[])] []  -- | ++--+-- >  turnoff2_i  insno, imode, irelease+-- >         +--+-- csound doc: <https://csound.com/docs/manual/turnoff2.html>+turnoff2_i ::  D -> D -> D -> SE ()+turnoff2_i b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "turnoff2_i" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]++-- | ++--+-- >  turnoff3  kinsno+-- >         +--+-- csound doc: <https://csound.com/docs/manual/turnoff3.html>+turnoff3 ::  Sig -> SE ()+turnoff3 b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "turnoff3" [(Xr,[Kr])] [a1]++-- |  -- Activate an instrument for an indefinite time. -- -- >  turnon  insnum [, itime] ----- csound doc: <http://csound.com/docs/manual/turnon.html>+-- csound doc: <https://csound.com/docs/manual/turnon.html> turnon ::  D -> SE ()-turnon b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "turnon" [(Xr,[Ir,Ir])] [a1]+turnon b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "turnon" [(Xr,[Ir,Ir])] [a1]  -- Invocation. @@ -155,10 +200,12 @@ -- >  event  "scorechar", kinsnum, kdelay, kdur, [, kp4] [, kp5] [, ...] -- >  event  "scorechar", "insname", kdelay, kdur, [, kp4] [, kp5] [, ...] ----- csound doc: <http://csound.com/docs/manual/event.html>+-- csound doc: <https://csound.com/docs/manual/event.html> event ::  Str -> Sig -> Sig -> Sig -> [Sig] -> SE ()-event b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> mapM unSig b5-    where f a1 a2 a3 a4 a5 = opcs "event" [(Xr,[Sr] ++ (repeat Kr))] ([a1,a2,a3,a4] ++ a5)+event b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> mapM (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "event" [(Xr,[Sr] ++ (repeat Kr))] ([a1,a2,a3,a4] ++ a5)  -- |  -- Generates a score event from an instrument.@@ -166,10 +213,12 @@ -- >  event_i  "scorechar", iinsnum, idelay, idur, [, ip4] [, ip5] [, ...] -- >  event_i  "scorechar", "insname", idelay, idur, [, ip4] [, ip5] [, ...] ----- csound doc: <http://csound.com/docs/manual/event_i.html>+-- csound doc: <https://csound.com/docs/manual/event_i.html> event_i ::  Str -> D -> D -> D -> [D] -> SE ()-event_i b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> mapM unD b5-    where f a1 a2 a3 a4 a5 = opcs "event_i" [(Xr,[Sr] ++ (repeat Ir))] ([a1,a2,a3,a4] ++ a5)+event_i b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> mapM (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "event_i" [(Xr,[Sr] ++ (repeat Ir))] ([a1,a2,a3,a4] ++ a5)  -- |  -- Mutes/unmutes new instances of a given instrument.@@ -177,10 +226,12 @@ -- >  mute  insnum [, iswitch] -- >  mute  "insname" [, iswitch] ----- csound doc: <http://csound.com/docs/manual/mute.html>+-- csound doc: <https://csound.com/docs/manual/mute.html> mute ::  D -> SE ()-mute b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "mute" [(Xr,[Ir,Ir])] [a1]+mute b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "mute" [(Xr,[Ir,Ir])] [a1]  -- |  -- Schedules a new instrument instance, storing the instance handle in a variable.@@ -192,10 +243,12 @@ -- > iHandle  nstance  insnum, iwhen, idur [, ip4] [, ip5] [...] -- > iHandle  nstance  "insname", iwhen, idur [, ip4] [, ip5] [...] ----- csound doc: <http://csound.com/docs/manual/nstance.html>+-- csound doc: <https://csound.com/docs/manual/nstance.html> nstance ::  D -> D -> D -> D-nstance b1 b2 b3 = D $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "nstance" [(Ir,(repeat Ir)),(Ir,[Sr] ++ (repeat Ir))] [a1,a2,a3]+nstance b1 b2 b3 =+  D $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "nstance" [(Ir,(repeat Ir)),(Ir,[Sr] ++ (repeat Ir))] [a1,a2,a3]  -- |  -- Read, preprocess and schedule a score from an input string.@@ -207,10 +260,12 @@ -- -- >  readscore  Sin  ----- csound doc: <http://csound.com/docs/manual/readscore.html>+-- csound doc: <https://csound.com/docs/manual/readscore.html> readscore ::  Str -> SE ()-readscore b1 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "readscore" [(Xr,[Sr])] [a1]+readscore b1 =+  SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep_ "readscore" [(Xr,[Sr])] [a1]  -- |  -- Removes the definition of an instrument.@@ -219,10 +274,12 @@ -- -- >  remove  insnum ----- csound doc: <http://csound.com/docs/manual/remove.html>+-- csound doc: <https://csound.com/docs/manual/remove.html> remove ::  D -> SE ()-remove b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "remove" [(Xr,[Ir])] [a1]+remove b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "remove" [(Xr,[Ir])] [a1]  -- |  -- Adds a new score event generated by a k-rate trigger.@@ -232,15 +289,17 @@ -- >  schedkwhen  ktrigger, kmintim, kmaxnum, "insname", kwhen, kdur \ -- >           [, ip4] [, ip5] [...] ----- csound doc: <http://csound.com/docs/manual/schedkwhen.html>+-- csound doc: <https://csound.com/docs/manual/schedkwhen.html> schedkwhen ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-schedkwhen b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "schedkwhen" [(Xr,[Kr,Kr,Kr,Kr,Kr,Kr] ++ (repeat Ir))] [a1-                                                                                            ,a2-                                                                                            ,a3-                                                                                            ,a4-                                                                                            ,a5-                                                                                            ,a6]+schedkwhen b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5 <*> (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "schedkwhen" [(Xr,[Kr,Kr,Kr,Kr,Kr,Kr] ++ (repeat Ir))] [a1+                                                                                          ,a2+                                                                                          ,a3+                                                                                          ,a4+                                                                                          ,a5+                                                                                          ,a6]  -- |  -- Similar to schedkwhen but uses a named instrument at init-time.@@ -248,37 +307,59 @@ -- >  schedkwhennamed  ktrigger, kmintim, kmaxnum, "name", kwhen, kdur \ -- >           [, ip4] [, ip5] [...] ----- csound doc: <http://csound.com/docs/manual/schedkwhennamed.html>+-- csound doc: <https://csound.com/docs/manual/schedkwhennamed.html> schedkwhennamed ::  Sig -> Sig -> Sig -> Str -> Sig -> Sig -> SE ()-schedkwhennamed b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unStr b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "schedkwhennamed" [(Xr,[Kr,Kr,Kr,Sr,Kr,Kr] ++ (repeat Ir))] [a1-                                                                                                 ,a2-                                                                                                 ,a3-                                                                                                 ,a4-                                                                                                 ,a5-                                                                                                 ,a6]+schedkwhennamed b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unStr) b4 <*> (lift . unSig) b5 <*> (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "schedkwhennamed" [(Xr,[Kr,Kr,Kr,Sr,Kr,Kr] ++ (repeat Ir))] [a1+                                                                                               ,a2+                                                                                               ,a3+                                                                                               ,a4+                                                                                               ,a5+                                                                                               ,a6]  -- |  -- Adds a new score event. -- -- >  schedule  insnum, iwhen, idur [, ip4] [, ip5] [...]--- >  schedule  "insname", iwhen, idur [, ip4] [, ip5] [...]+-- >  schedule  "insname", iwhen,+-- >         idur [, ip4] [, ip5] [...]+-- >  schedule  iPar[] ----- csound doc: <http://csound.com/docs/manual/schedule.html>+-- csound doc: <https://csound.com/docs/manual/schedule.html> schedule ::  D -> D -> D -> SE ()-schedule b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "schedule" [(Xr,(repeat Ir))] [a1,a2,a3]+schedule b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "schedule" [(Xr,(repeat Ir))] [a1,a2,a3]  -- | ++--+-- >  schedulek  knsnum, kwhen, kdur [, kp4] [, kp5] [...]+-- >  schedulek  "insname", kwhen,+-- >         kdur [, kp4] [, kp5] [...]+--+-- csound doc: <https://csound.com/docs/manual/schedulek.html>+schedulek ::  Sig -> Sig -> Sig -> SE ()+schedulek b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "schedulek" [(Xr,(repeat Kr))] [a1,a2,a3]++-- |  -- Adds a new score event. -- -- >  schedwhen  ktrigger, kinsnum, kwhen, kdur [, ip4] [, ip5] [...] -- >  schedwhen  ktrigger, "insname", kwhen, kdur [, ip4] [, ip5] [...] ----- csound doc: <http://csound.com/docs/manual/schedwhen.html>+-- csound doc: <https://csound.com/docs/manual/schedwhen.html> schedwhen ::  Sig -> Sig -> Sig -> Sig -> SE ()-schedwhen b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "schedwhen" [(Xr,[Kr,Kr,Kr,Kr] ++ (repeat Ir))] [a1,a2,a3,a4]+schedwhen b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "schedwhen" [(Xr,[Kr,Kr,Kr,Kr] ++ (repeat Ir))] [a1,a2,a3,a4]  -- |  -- Issues one or more score line events from an instrument.@@ -289,10 +370,12 @@ -- -- >  scoreline  Sin, ktrig ----- csound doc: <http://csound.com/docs/manual/scoreline.html>+-- csound doc: <https://csound.com/docs/manual/scoreline.html> scoreline ::  Str -> Sig -> SE ()-scoreline b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2-    where f a1 a2 = opcs "scoreline" [(Xr,[Sr,Kr])] [a1,a2]+scoreline b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "scoreline" [(Xr,[Sr,Kr])] [a1,a2]  -- |  -- Issues one or more score line events from an instrument at i-time.@@ -301,10 +384,12 @@ -- -- >  scoreline_i  Sin ----- csound doc: <http://csound.com/docs/manual/scoreline_i.html>+-- csound doc: <https://csound.com/docs/manual/scoreline_i.html> scoreline_i ::  Str -> SE ()-scoreline_i b1 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "scoreline_i" [(Xr,[Sr])] [a1]+scoreline_i b1 =+  SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep_ "scoreline_i" [(Xr,[Sr])] [a1]  -- Realtime Performance Control. @@ -318,10 +403,12 @@ -- > ir  active  Sinsname [,iopt [,inorel]] -- > kres  active  kinsnum [,iopt [,inorel]] ----- csound doc: <http://csound.com/docs/manual/active.html>+-- csound doc: <https://csound.com/docs/manual/active.html> active ::  D -> Sig-active b1 = Sig $ f <$> unD b1-    where f a1 = opcs "active" [(Ir,[Ir,Ir,Ir]),(Ir,[Sr,Ir,Ir]),(Kr,[Kr,Ir,Ir])] [a1]+active b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "active" [(Ir,[Ir,Ir,Ir]),(Ir,[Sr,Ir,Ir]),(Kr,[Kr,Ir,Ir])] [a1]  -- |  -- Reports the usage of cpu either total or per core.@@ -331,10 +418,12 @@ -- -- > ktot[,kcpu1, kcpu2,...] cpumeter  ifreq ----- csound doc: <http://csound.com/docs/manual/cpumeter.html>-cpumeter :: Tuple a => D -> a-cpumeter b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "cpumeter" ((repeat Kr),[Ir]) [a1]+-- csound doc: <https://csound.com/docs/manual/cpumeter.html>+cpumeter :: forall a . Tuple a => D -> a+cpumeter b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "cpumeter" ((repeat Kr),[Ir]) [a1]  -- |  -- Control allocation of cpu resources on a per-instrument basis, to optimize realtime output.@@ -342,10 +431,12 @@ -- >  cpuprc  insnum, ipercent -- >  cpuprc  Sinsname, ipercent ----- csound doc: <http://csound.com/docs/manual/cpuprc.html>+-- csound doc: <https://csound.com/docs/manual/cpuprc.html> cpuprc ::  D -> D -> SE ()-cpuprc b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "cpuprc" [(Xr,[Ir,Ir])] [a1,a2]+cpuprc b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "cpuprc" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Exit Csound as fast as possible, with no cleaning up.@@ -355,20 +446,24 @@ -- -- >  exitnow  [ivalue] ----- csound doc: <http://csound.com/docs/manual/exitnow.html>+-- csound doc: <https://csound.com/docs/manual/exitnow.html> exitnow ::   SE ()-exitnow  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "exitnow" [(Xr,[Ir])] []+exitnow  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "exitnow" [(Xr,[Ir])] []  -- |  -- Start/stop jack_transport and can optionally relocate the playback head. -- -- >  jacktransport  icommand [, ilocation] ----- csound doc: <http://csound.com/docs/manual/jacktransport.html>+-- csound doc: <https://csound.com/docs/manual/jacktransport.html> jacktransport ::  D -> SE ()-jacktransport b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "jacktransport" [(Xr,[Ir,Ir])] [a1]+jacktransport b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "jacktransport" [(Xr,[Ir,Ir])] [a1]  -- |  -- Limits the number of allocations of an instrument.@@ -376,10 +471,12 @@ -- >  maxalloc  insnum, icount -- >  maxalloc  Sinsname, icount ----- csound doc: <http://csound.com/docs/manual/maxalloc.html>+-- csound doc: <https://csound.com/docs/manual/maxalloc.html> maxalloc ::  D -> D -> SE ()-maxalloc b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "maxalloc" [(Xr,[Ir,Ir])] [a1,a2]+maxalloc b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "maxalloc" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Creates space for instruments but does not run them.@@ -387,10 +484,12 @@ -- >  prealloc  insnum, icount -- >  prealloc  "insname", icount ----- csound doc: <http://csound.com/docs/manual/prealloc.html>+-- csound doc: <https://csound.com/docs/manual/prealloc.html> prealloc ::  D -> D -> SE ()-prealloc b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "prealloc" [(Xr,[Ir,Ir])] [a1,a2]+prealloc b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "prealloc" [(Xr,[Ir,Ir])] [a1,a2]  -- Sensing and Control. @@ -401,10 +500,12 @@ -- -- > kres  button  knum ----- csound doc: <http://csound.com/docs/manual/button.html>+-- csound doc: <https://csound.com/docs/manual/button.html> button ::  Sig -> Sig-button b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "button" [(Kr,[Kr])] [a1]+button b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "button" [(Kr,[Kr])] [a1]  -- |  -- k-rate signal change detector.@@ -413,10 +514,12 @@ -- -- > ktrig  changed  kvar1 [, kvar2,..., kvarN] ----- csound doc: <http://csound.com/docs/manual/changed.html>+-- csound doc: <https://csound.com/docs/manual/changed.html> changed ::  [Sig] -> Sig-changed b1 = Sig $ f <$> mapM unSig b1-    where f a1 = opcs "changed" [(Kr,(repeat Kr))] a1+changed b1 =+  Sig $ f <$> mapM unSig b1+  where+    f a1 = opcs "changed" [(Kr,(repeat Kr))] a1  -- |  -- k-rate signal change detector.@@ -428,10 +531,12 @@ -- > ktrig  changed2  karr[] -- > ktrig  changed2  aarr[] ----- csound doc: <http://csound.com/docs/manual/changed2.html>+-- csound doc: <https://csound.com/docs/manual/changed2.html> changed2 ::  Sig -> Sig-changed2 b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "changed2" [(Kr,(repeat Kr)),(Kr,[Kr]),(Kr,[Ar])] [a1]+changed2 b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "changed2" [(Kr,(repeat Kr)),(Kr,[Kr]),(Kr,[Ar])] [a1]  -- |  -- Sense on-screen controls.@@ -440,32 +545,146 @@ -- -- > kres  checkbox  knum ----- csound doc: <http://csound.com/docs/manual/checkbox.html>+-- csound doc: <https://csound.com/docs/manual/checkbox.html> checkbox ::  Sig -> Sig-checkbox b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "checkbox" [(Kr,[Kr])] [a1]+checkbox b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "checkbox" [(Kr,[Kr])] [a1]  -- | ++--+-- > kval  cntDelete  icnt+--+-- csound doc: <https://csound.com/docs/manual/cntDelete.html>+cntDelete ::  D -> Sig+cntDelete b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "cntDelete" [(Kr,[Ir])] [a1]++-- | ++--+-- > ival  cntDelete_i  icnt+--+-- csound doc: <https://csound.com/docs/manual/cntDelete_i.html>+cntDelete_i ::  D -> D+cntDelete_i b1 =+  D $ f <$> unD b1+  where+    f a1 = opcs "cntDelete_i" [(Ir,[Ir])] [a1]++-- | ++--+-- > icnt  cntCreate  [imax, imin, inc]+--+-- csound doc: <https://csound.com/docs/manual/cntCreate.html>+cntCreate ::   D+cntCreate  =+  D $ return $ f +  where+    f  = opcs "cntCreate" [(Ir,[Ir,Ir,Ir])] []++-- | ++--+-- > kval  cntCycles  icnt+--+-- csound doc: <https://csound.com/docs/manual/cntCycles.html>+cntCycles ::  D -> Sig+cntCycles b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "cntCycles" [(Kr,[Ir])] [a1]++-- | ++--+-- > kval  cntRead icnt+--+-- csound doc: <https://csound.com/docs/manual/cntRead.html>+cntRead ::  D -> Sig+cntRead b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "cntRead" [(Kr,[Ir])] [a1]++-- | ++--+-- >  cntReset icnt+--+-- csound doc: <https://csound.com/docs/manual/cntReset.html>+cntReset ::  D -> SE ()+cntReset b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "cntReset" [(Xr,[Ir])] [a1]++-- | ++--+-- > kmax, kmin, kinc  cntState icnt+--+-- csound doc: <https://csound.com/docs/manual/cntState.html>+cntState ::  D -> (Sig,Sig,Sig)+cntState b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "cntState" ([Kr,Kr,Kr],[Ir]) [a1]++-- |  -- Configurable slider controls for realtime user input. -- -- Configurable slider controls for realtime user input. Requires Winsound or TCL/TK. control reads a slider's value. -- -- > kres  control  knum ----- csound doc: <http://csound.com/docs/manual/control.html>+-- csound doc: <https://csound.com/docs/manual/control.html> control ::  Sig -> Sig-control b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "control" [(Kr,[Kr])] [a1]+control b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "control" [(Kr,[Kr])] [a1]  -- | ++--+-- > kval  count  icnt+--+-- csound doc: <https://csound.com/docs/manual/count.html>+count ::  D -> Sig+count b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "count" [(Kr,[Ir])] [a1]++-- | ++--+-- > ival  count_i  icnt+--+-- csound doc: <https://csound.com/docs/manual/count_i.html>+count_i ::  D -> D+count_i b1 =+  D $ f <$> unD b1+  where+    f a1 = opcs "count_i" [(Ir,[Ir])] [a1]++-- |  -- Envelope follower unit generator. -- -- > ares  follow  asig, idt ----- csound doc: <http://csound.com/docs/manual/follow.html>+-- csound doc: <https://csound.com/docs/manual/follow.html> follow ::  Sig -> D -> Sig-follow b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "follow" [(Ar,[Ar,Ir])] [a1,a2]+follow b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "follow" [(Ar,[Ar,Ir])] [a1,a2]  -- |  -- Another controllable envelope extractor.@@ -474,10 +693,12 @@ -- -- > ares  follow2  asig, katt, krel ----- csound doc: <http://csound.com/docs/manual/follow2.html>+-- csound doc: <https://csound.com/docs/manual/follow2.html> follow2 ::  Sig -> Sig -> Sig -> Sig-follow2 b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "follow2" [(Ar,[Ar,Kr,Kr])] [a1,a2,a3]+follow2 b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "follow2" [(Ar,[Ar,Kr,Kr])] [a1,a2,a3]  -- |  -- Return Csound settings.@@ -486,10 +707,12 @@ -- -- > Svalue  getcfg  iopt ----- csound doc: <http://csound.com/docs/manual/getcfg.html>+-- csound doc: <https://csound.com/docs/manual/getcfg.html> getcfg ::  D -> Str-getcfg b1 = Str $ f <$> unD b1-    where f a1 = opcs "getcfg" [(Sr,[Ir])] [a1]+getcfg b1 =+  Str $ f <$> unD b1+  where+    f a1 = opcs "getcfg" [(Sr,[Ir])] [a1]  -- |  -- Reads data from a joystick controller.@@ -498,10 +721,12 @@ -- -- > kres  joystick  kdevice ktab ----- csound doc: <http://csound.com/docs/manual/joystick.html>+-- csound doc: <https://csound.com/docs/manual/joystick.html> joystick ::  Sig -> Tab -> Sig-joystick b1 b2 = Sig $ f <$> unSig b1 <*> unTab b2-    where f a1 a2 = opcs "joystick" [(Kr,[Kr,Kr])] [a1,a2]+joystick b1 b2 =+  Sig $ f <$> unSig b1 <*> unTab b2+  where+    f a1 a2 = opcs "joystick" [(Kr,[Kr,Kr])] [a1,a2]  -- |  -- Trigger Metronome@@ -510,12 +735,38 @@ -- -- > ktrig   metro   kfreq [, initphase] ----- csound doc: <http://csound.com/docs/manual/metro.html>+-- csound doc: <https://csound.com/docs/manual/metro.html> metro ::  Sig -> Sig-metro b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "metro" [(Kr,[Kr,Ir])] [a1]+metro b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "metro" [(Kr,[Kr,Ir])] [a1]  -- | ++--+-- > ktrig   metro2   kfreq, kswing [, iamp, initphase]+--+-- csound doc: <https://csound.com/docs/manual/metro2.html>+metro2 ::  Sig -> Sig -> Sig+metro2 b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "metro2" [(Kr,[Kr,Kr,Ir,Ir])] [a1,a2]++-- | ++--+-- > ktrig   metrobpm   kfreq [, initphase] [, kgate]+--+-- csound doc: <https://csound.com/docs/manual/metrobpm.html>+metrobpm ::  Sig -> Sig+metrobpm b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "metrobpm" [(Kr,[Kr,Ir,Kr])] [a1]++-- |  -- Returns the playback status of MIDI file input. -- -- Returns the current playback status at k-rate, of the input MIDI file, 1 if file is playing, 0 if the end-of-the file@@ -523,20 +774,24 @@ -- -- > ksig   midifilestatus  ----- csound doc: <http://csound.com/docs/manual/midifilestatus.html>+-- csound doc: <https://csound.com/docs/manual/midifilestatus.html> midifilestatus ::   Sig-midifilestatus  = Sig $ return $ f -    where f  = opcs "midifilestatus" [(Kr,[])] []+midifilestatus  =+  Sig $ return $ f +  where+    f  = opcs "midifilestatus" [(Kr,[])] []  -- |  -- Returns the current tempo at k-rate, of either the MIDI file (if available) or the score -- -- > ksig   miditempo  ----- csound doc: <http://csound.com/docs/manual/miditempo.html>+-- csound doc: <https://csound.com/docs/manual/miditempo.html> miditempo ::   Sig-miditempo  = Sig $ return $ f -    where f  = opcs "miditempo" [(Kr,[])] []+miditempo  =+  Sig $ return $ f +  where+    f  = opcs "miditempo" [(Kr,[])] []  -- |  -- Reads data from a P5 Glove controller.@@ -545,10 +800,12 @@ -- -- >  p5gconnect  ----- csound doc: <http://csound.com/docs/manual/p5gconnect.html>+-- csound doc: <https://csound.com/docs/manual/p5gconnect.html> p5gconnect ::   SE ()-p5gconnect  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "p5gconnect" [(Xr,[])] []+p5gconnect  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "p5gconnect" [(Xr,[])] []  -- |  -- Reads data fields from an external P5 Glove.@@ -557,10 +814,12 @@ -- -- > kres  p5gdata  kcontrol ----- csound doc: <http://csound.com/docs/manual/p5gdata.html>+-- csound doc: <https://csound.com/docs/manual/p5gdata.html> p5gdata ::  Sig -> Sig-p5gdata b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "p5gdata" [(Kr,[Kr])] [a1]+p5gdata b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "p5gdata" [(Kr,[Kr])] [a1]  -- |  -- Returns the number of pfields belonging to a note event.@@ -569,10 +828,12 @@ -- -- > icount  pcount  ----- csound doc: <http://csound.com/docs/manual/pcount.html>+-- csound doc: <https://csound.com/docs/manual/pcount.html> pcount ::   D-pcount  = D $ return $ f -    where f  = opcs "pcount" [(Ir,[])] []+pcount  =+  D $ return $ f +  where+    f  = opcs "pcount" [(Ir,[])] []  -- |  -- Maintains the output equal to the highest absolute value received.@@ -582,10 +843,12 @@ -- > kres  peak  asig -- > kres  peak  ksig ----- csound doc: <http://csound.com/docs/manual/peak.html>+-- csound doc: <https://csound.com/docs/manual/peak.html> peak ::  Sig -> Sig-peak b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "peak" [(Kr,[Ar]),(Kr,[Kr])] [a1]+peak b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "peak" [(Kr,[Ar]),(Kr,[Kr])] [a1]  -- |  -- Returns the value of a specified pfield.@@ -594,10 +857,12 @@ -- -- > ivalue  pindex  ipfieldIndex ----- csound doc: <http://csound.com/docs/manual/pindex.html>+-- csound doc: <https://csound.com/docs/manual/pindex.html> pindex ::  D -> D-pindex b1 = D $ f <$> unD b1-    where f a1 = opcs "pindex" [(Ir,[Ir])] [a1]+pindex b1 =+  D $ f <$> unD b1+  where+    f a1 = opcs "pindex" [(Ir,[Ir])] [a1]  -- |  -- Tracks the pitch of a signal.@@ -607,14 +872,16 @@ -- > koct, kamp  pitch  asig, iupdte, ilo, ihi, idbthresh [, ifrqs] [, iconf] \ -- >           [, istrt] [, iocts] [, iq] [, inptls] [, irolloff] [, iskip] ----- csound doc: <http://csound.com/docs/manual/pitch.html>+-- csound doc: <https://csound.com/docs/manual/pitch.html> pitch ::  Sig -> D -> D -> D -> D -> (Sig,Sig)-pitch b1 b2 b3 b4 b5 = pureTuple $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = mopcs "pitch" ([Kr,Kr],[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                              ,a2-                                                                                              ,a3-                                                                                              ,a4-                                                                                              ,a5]+pitch b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = mopcs "pitch" ([Kr,Kr],[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                        ,a2+                                                                                        ,a3+                                                                                        ,a4+                                                                                        ,a5]  -- |  -- Follows the pitch of a signal based on the AMDF method.@@ -624,10 +891,12 @@ -- > kcps, krms  pitchamdf  asig, imincps, imaxcps [, icps] [, imedi] \ -- >           [, idowns] [, iexcps] [, irmsmedi] ----- csound doc: <http://csound.com/docs/manual/pitchamdf.html>+-- csound doc: <https://csound.com/docs/manual/pitchamdf.html> pitchamdf ::  Sig -> D -> D -> (Sig,Sig)-pitchamdf b1 b2 b3 = pureTuple $ f <$> unSig b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = mopcs "pitchamdf" ([Kr,Kr],[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]+pitchamdf b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = mopcs "pitchamdf" ([Kr,Kr],[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]  -- |  -- Tracks the pitch of a signal.@@ -636,10 +905,12 @@ -- -- > acps, alock  plltrack  asig, kd [, kloopf, kloopq, klf, khf, kthresh] ----- csound doc: <http://csound.com/docs/manual/plltrack.html>+-- csound doc: <https://csound.com/docs/manual/plltrack.html> plltrack ::  Sig -> Sig -> (Sig,Sig)-plltrack b1 b2 = pureTuple $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = mopcs "plltrack" ([Ar,Ar],[Ar,Kr,Kr,Kr,Kr,Kr,Kr]) [a1,a2]+plltrack b1 b2 =+  pureTuple $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = mopcs "plltrack" ([Ar,Ar],[Ar,Kr,Kr,Kr,Kr,Kr,Kr]) [a1,a2]  -- |  -- Tracks the pitch of a signal.@@ -648,10 +919,12 @@ -- -- > kcps, kamp  ptrack  asig, ihopsize[,ipeaks] ----- csound doc: <http://csound.com/docs/manual/ptrack.html>+-- csound doc: <https://csound.com/docs/manual/ptrack.html> ptrack ::  Sig -> D -> (Sig,Sig)-ptrack b1 b2 = pureTuple $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = mopcs "ptrack" ([Kr,Kr],[Ar,Ir,Ir]) [a1,a2]+ptrack b1 b2 =+  pureTuple $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = mopcs "ptrack" ([Kr,Kr],[Ar,Ir,Ir]) [a1,a2]  -- |  -- returns a value stored in the instance of an instrument.@@ -661,10 +934,12 @@ -- -- > ival  readscratch [index] ----- csound doc: <http://csound.com/docs/manual/readscratch.html>+-- csound doc: <https://csound.com/docs/manual/readscratch.html> readscratch ::   D-readscratch  = D $ return $ f -    where f  = opcs "readscratch" [(Ir,[Ir])] []+readscratch  =+  D $ return $ f +  where+    f  = opcs "readscratch" [(Ir,[Ir])] []  -- |  -- Rewinds the playback position of the current score performance.@@ -673,10 +948,12 @@ -- -- >   rewindscore  ----- csound doc: <http://csound.com/docs/manual/rewindscore.html>+-- csound doc: <https://csound.com/docs/manual/rewindscore.html> rewindscore ::   SE ()-rewindscore  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "rewindscore" [(Xr,[])] []+rewindscore  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "rewindscore" [(Xr,[])] []  -- |  -- Determines the root-mean-square amplitude of an audio signal.@@ -685,10 +962,12 @@ -- -- > kres  rms  asig [, ihp] [, iskip] ----- csound doc: <http://csound.com/docs/manual/rms.html>+-- csound doc: <https://csound.com/docs/manual/rms.html> rms ::  Sig -> Sig-rms b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "rms" [(Kr,[Ar,Ir,Ir])] [a1]+rms b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "rms" [(Kr,[Ar,Ir,Ir])] [a1]  -- |  -- Returns the ASCII code of a key that has been pressed.@@ -697,52 +976,78 @@ -- -- > kres[, kkeydown]  sensekey  ----- csound doc: <http://csound.com/docs/manual/sensekey.html>-sensekey :: Tuple a =>  a-sensekey  = pureTuple $ return $ f -    where f  = mopcs "sensekey" ([Kr,Kr],[]) []+-- csound doc: <https://csound.com/docs/manual/sensekey.html>+sensekey :: forall a . Tuple a =>  a+sensekey  =+  pureTuple $ return $ f +  where+    f  = mopcs "sensekey" ([Kr,Kr],[]) []  -- |  -- Generates a trigger signal according to the values stored in a table. -- -- > ktrig_out  seqtime  ktime_unit, kstart, kloop, kinitndx, kfn_times ----- csound doc: <http://csound.com/docs/manual/seqtime.html>+-- csound doc: <https://csound.com/docs/manual/seqtime.html> seqtime ::  Sig -> Sig -> Sig -> Sig -> Tab -> Sig-seqtime b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5-    where f a1 a2 a3 a4 a5 = opcs "seqtime" [(Kr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]+seqtime b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5+  where+    f a1 a2 a3 a4 a5 = opcs "seqtime" [(Kr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]  -- |  -- Generates a trigger signal according to the values stored in a table. -- -- > ktrig_out  seqtime2  ktrig_in, ktime_unit, kstart, kloop, kinitndx, kfn_times ----- csound doc: <http://csound.com/docs/manual/seqtime2.html>+-- csound doc: <https://csound.com/docs/manual/seqtime2.html> seqtime2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-seqtime2 b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "seqtime2" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]+seqtime2 b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "seqtime2" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]  -- | ++--+-- > kres   sequ   irhythm[], iinstr[], idata[], kbpm, klen [, kmode] [, kstep] [, kreset] [, kverbose]+-- >         +-- > kres   sequ   irhythm[], iinstr[],+-- >         idata[][], kbpm, klen [, kmode] [, kstep] [, kreset] [, kverbose]+-- >         +--+-- csound doc: <https://csound.com/docs/manual/sequ.html>+sequ ::  D -> Sig+sequ b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "sequ" [(Kr,[Ir,Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr]),(Kr,[Ir,Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr])] [a1]++-- |  -- Configurable slider controls for realtime user input. -- -- Configurable slider controls for realtime user input. Requires Winsound or TCL/TK. setctrl sets a slider to a specific value, or sets a minimum or maximum range. -- -- >  setctrl  inum, ival, itype ----- csound doc: <http://csound.com/docs/manual/setctrl.html>+-- csound doc: <https://csound.com/docs/manual/setctrl.html> setctrl ::  D -> D -> D -> SE ()-setctrl b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "setctrl" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+setctrl b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "setctrl" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Sets the playback position of the current score performance to a given position. -- -- >   setscorepos  ipos ----- csound doc: <http://csound.com/docs/manual/setscorepos.html>+-- csound doc: <https://csound.com/docs/manual/setscorepos.html> setscorepos ::  D -> SE ()-setscorepos b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "setscorepos" [(Xr,[Ir])] [a1]+setscorepos b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "setscorepos" [(Xr,[Ir])] [a1]  -- |  -- Split a trigger signal@@ -751,13 +1056,12 @@ -- -- >  splitrig  ktrig, kndx, imaxtics, ifn, kout1 [,kout2,...,koutN] ----- csound doc: <http://csound.com/docs/manual/splitrig.html>+-- csound doc: <https://csound.com/docs/manual/splitrig.html> splitrig ::  Sig -> Sig -> D -> Tab -> [Sig] -> SE ()-splitrig b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unTab b4 <*> mapM unSig b5-    where f a1 a2 a3 a4 a5 = opcs "splitrig" [(Xr,[Kr,Kr,Ir,Ir] ++ (repeat Kr))] ([a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4] ++ a5)+splitrig b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3 <*> (lift . unTab) b4 <*> mapM (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "splitrig" [(Xr,[Kr,Kr,Ir,Ir] ++ (repeat Kr))] ([a1,a2,a3,a4] ++ a5)  -- |  -- Estimate the tempo of beat patterns in a control signal.@@ -765,31 +1069,37 @@ -- > ktemp  tempest  kin, iprd, imindur, imemdur, ihp, ithresh, ihtim, ixfdbak, \ -- >           istartempo, ifn [, idisprd] [, itweek] ----- csound doc: <http://csound.com/docs/manual/tempest.html>+-- csound doc: <https://csound.com/docs/manual/tempest.html> tempest ::  Sig -> D -> D -> D -> D -> D -> D -> D -> D -> Tab -> Sig-tempest b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unTab b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcs "tempest" [(Kr-                                                             ,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]+tempest b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unTab b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcs "tempest" [(Kr+                                                       ,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]  -- |  -- Apply tempo control to an uninterpreted score. -- -- >  tempo  ktempo, istartempo ----- csound doc: <http://csound.com/docs/manual/tempo.html>+-- csound doc: <https://csound.com/docs/manual/tempo.html> tempo ::  Sig -> D -> SE ()-tempo b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "tempo" [(Xr,[Kr,Ir])] [a1,a2]+tempo b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "tempo" [(Xr,[Kr,Ir])] [a1,a2]  -- |  -- Reads the current value of the tempo. -- -- > kres  tempoval  ----- csound doc: <http://csound.com/docs/manual/tempoval.html>+-- csound doc: <https://csound.com/docs/manual/tempoval.html> tempoval ::   Sig-tempoval  = Sig $ return $ f -    where f  = opcs "tempoval" [(Kr,[])] []+tempoval  =+  Sig $ return $ f +  where+    f  = opcs "tempoval" [(Kr,[])] []  -- |  -- Time Variant Sequencer@@ -799,30 +1109,36 @@ -- -- > ktrig   timedseq   ktimpnt, ifn, kp1 [,kp2, kp3, ...,kpN] ----- csound doc: <http://csound.com/docs/manual/timedseq.html>+-- csound doc: <https://csound.com/docs/manual/timedseq.html> timedseq ::  Sig -> Tab -> [Sig] -> Sig-timedseq b1 b2 b3 = Sig $ f <$> unSig b1 <*> unTab b2 <*> mapM unSig b3-    where f a1 a2 a3 = opcs "timedseq" [(Kr,[Kr,Ir] ++ (repeat Kr))] ([a1,a2] ++ a3)+timedseq b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unTab b2 <*> mapM unSig b3+  where+    f a1 a2 a3 = opcs "timedseq" [(Kr,[Kr,Ir] ++ (repeat Kr))] ([a1,a2] ++ a3)  -- |  -- Informs when a krate signal crosses a threshold. -- -- > kout  trigger  ksig, kthreshold, kmode ----- csound doc: <http://csound.com/docs/manual/trigger.html>+-- csound doc: <https://csound.com/docs/manual/trigger.html> trigger ::  Sig -> Sig -> Sig -> Sig-trigger b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "trigger" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]+trigger b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "trigger" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]  -- |  -- Accepts a trigger signal as input and outputs a group of values. -- -- >  trigseq  ktrig_in, kstart, kloop, kinitndx, kfn_values, kout1 [, kout2] [...] ----- csound doc: <http://csound.com/docs/manual/trigseq.html>+-- csound doc: <https://csound.com/docs/manual/trigseq.html> trigseq ::  Sig -> Sig -> Sig -> Sig -> Tab -> [Sig] -> SE ()-trigseq b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5 <*> mapM unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "trigseq" [(Xr,(repeat Kr))] ([a1,a2,a3,a4,a5] ++ a6)+trigseq b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unTab) b5 <*> mapM (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "trigseq" [(Xr,(repeat Kr))] ([a1,a2,a3,a4,a5] ++ a6)  -- |  -- Envelope follower unit generator.@@ -832,10 +1148,12 @@ -- -- > ares  vactrol  asig [iup, idown] ----- csound doc: <http://csound.com/docs/manual/vactrol.html>+-- csound doc: <https://csound.com/docs/manual/vactrol.html> vactrol ::  Sig -> Sig-vactrol b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "vactrol" [(Ar,[Ar,Ir,Ir])] [a1]+vactrol b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "vactrol" [(Ar,[Ar,Ir,Ir])] [a1]  -- |  -- Reads data from a number of external Nintendo Wiimote controllers.@@ -844,10 +1162,12 @@ -- -- > ires  wiiconnect  [itimeout, imaxnum] ----- csound doc: <http://csound.com/docs/manual/wiiconnect.html>+-- csound doc: <https://csound.com/docs/manual/wiiconnect.html> wiiconnect ::   D-wiiconnect  = D $ return $ f -    where f  = opcs "wiiconnect" [(Ir,[Ir,Ir])] []+wiiconnect  =+  D $ return $ f +  where+    f  = opcs "wiiconnect" [(Ir,[Ir,Ir])] []  -- |  -- Reads data fields from a number of external Nintendo Wiimote controllers.@@ -856,30 +1176,36 @@ -- -- > kres  wiidata  kcontrol[, knum] ----- csound doc: <http://csound.com/docs/manual/wiidata.html>+-- csound doc: <https://csound.com/docs/manual/wiidata.html> wiidata ::  Sig -> Sig-wiidata b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "wiidata" [(Kr,[Kr,Kr])] [a1]+wiidata b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "wiidata" [(Kr,[Kr,Kr])] [a1]  -- |  -- Sets scaling and range limits for certain Wiimote fields. -- -- >   wiirange  icontrol, iminimum, imaximum[, inum] ----- csound doc: <http://csound.com/docs/manual/wiirange.html>+-- csound doc: <https://csound.com/docs/manual/wiirange.html> wiirange ::  D -> D -> D -> SE ()-wiirange b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "wiirange" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3]+wiirange b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "wiirange" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Sends data to one of a number of external Nintendo Wiimote controllers. -- -- > kres  wiisend  kcontrol, kvalue[, knum] ----- csound doc: <http://csound.com/docs/manual/wiisend.html>+-- csound doc: <https://csound.com/docs/manual/wiisend.html> wiisend ::  Sig -> Sig -> Sig-wiisend b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "wiisend" [(Kr,[Kr,Kr,Kr])] [a1,a2]+wiisend b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "wiisend" [(Kr,[Kr,Kr,Kr])] [a1,a2]  -- |  -- writes a value into the scratchpad of the instance of an instrument.@@ -889,10 +1215,12 @@ -- -- >  writescratch ival[, index] ----- csound doc: <http://csound.com/docs/manual/writescratch.html>+-- csound doc: <https://csound.com/docs/manual/writescratch.html> writescratch ::  D -> SE ()-writescratch b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "writescratch" [(Xr,[Ir,Ir])] [a1]+writescratch b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "writescratch" [(Xr,[Ir,Ir])] [a1]  -- |  -- Sense the cursor position in an output window@@ -901,10 +1229,12 @@ -- -- > kx, ky  xyin  iprd, ixmin, ixmax, iymin, iymax [, ixinit] [, iyinit] ----- csound doc: <http://csound.com/docs/manual/xyin.html>+-- csound doc: <https://csound.com/docs/manual/xyin.html> xyin ::  D -> D -> D -> D -> D -> (Sig,Sig)-xyin b1 b2 b3 b4 b5 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = mopcs "xyin" ([Kr,Kr],[Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]+xyin b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = mopcs "xyin" ([Kr,Kr],[Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]  -- Stacks. @@ -916,10 +1246,12 @@ -- > xval1, [xval2, ... , xval31]  pop  -- > ival1, [ival2, ... , ival31]  pop  ----- csound doc: <http://csound.com/docs/manual/pop.html>-pop :: Tuple a =>  a-pop  = pureTuple $ return $ f -    where f  = mopcs "pop" ((repeat Ir),[]) []+-- csound doc: <https://csound.com/docs/manual/pop.html>+pop :: forall a . Tuple a =>  a+pop  =+  pureTuple $ return $ f +  where+    f  = mopcs "pop" ((repeat Ir),[]) []  -- |  -- Pops an f-sig frame from the global stack.  Deprecated.@@ -928,10 +1260,12 @@ -- -- > fsig  pop_f  ----- csound doc: <http://csound.com/docs/manual/pop_f.html>+-- csound doc: <https://csound.com/docs/manual/pop_f.html> pop_f ::   Spec-pop_f  = Spec $ return $ f -    where f  = opcs "pop_f" [(Fr,[])] []+pop_f  =+  Spec $ return $ f +  where+    f  = opcs "pop_f" [(Fr,[])] []  -- |  -- Pushes a value into the global stack.  Deprecated.@@ -941,10 +1275,12 @@ -- >  push   xval1, [xval2, ... , xval31] -- >  push   ival1, [ival2, ... , ival31] ----- csound doc: <http://csound.com/docs/manual/push.html>+-- csound doc: <https://csound.com/docs/manual/push.html> push ::  [Sig] -> SE ()-push b1 = SE $ (depT_ =<<) $ lift $ f <$> mapM unSig b1-    where f a1 = opcs "push" [(Xr,(repeat Xr))] a1+push b1 =+  SE $ join $ f <$> mapM (lift . unSig) b1+  where+    f a1 = opcsDep_ "push" [(Xr,(repeat Xr))] a1  -- |  -- Pushes an f-sig frame into the global stack.  Deprecated.@@ -953,10 +1289,12 @@ -- -- >  push_f   fsig ----- csound doc: <http://csound.com/docs/manual/push_f.html>+-- csound doc: <https://csound.com/docs/manual/push_f.html> push_f ::  Spec -> SE ()-push_f b1 = SE $ (depT_ =<<) $ lift $ f <$> unSpec b1-    where f a1 = opcs "push_f" [(Xr,[Fr])] [a1]+push_f b1 =+  SE $ join $ f <$> (lift . unSpec) b1+  where+    f a1 = opcsDep_ "push_f" [(Xr,[Fr])] [a1]  -- |  -- Initializes the stack.  Deprecated.@@ -965,10 +1303,12 @@ -- -- >  stack   iStackSize ----- csound doc: <http://csound.com/docs/manual/stack.html>+-- csound doc: <https://csound.com/docs/manual/stack.html> stack ::  D -> SE ()-stack b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "stack" [(Xr,[Ir])] [a1]+stack b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "stack" [(Xr,[Ir])] [a1]  -- Subinstrument Control. @@ -980,10 +1320,12 @@ -- > a1, [...] [, a8]  subinstr  instrnum [, p4] [, p5] [...] -- > a1, [...] [, a8]  subinstr  "insname" [, p4] [, p5] [...] ----- csound doc: <http://csound.com/docs/manual/subinstr.html>-subinstr :: Tuple a => D -> [D] -> a-subinstr b1 b2 = pureTuple $ f <$> unD b1 <*> mapM unD b2-    where f a1 a2 = mopcs "subinstr" ((repeat Ar),[Sr] ++ (repeat Ir)) ([a1] ++ a2)+-- csound doc: <https://csound.com/docs/manual/subinstr.html>+subinstr :: forall a . Tuple a => D -> [D] -> a+subinstr b1 b2 =+  pureTuple $ f <$> unD b1 <*> mapM unD b2+  where+    f a1 a2 = mopcs "subinstr" ((repeat Ar),[Sr] ++ (repeat Ir)) ([a1] ++ a2)  -- |  -- Creates and runs a numbered instrument instance at init-time.@@ -993,10 +1335,12 @@ -- >  subinstrinit  instrnum [, p4] [, p5] [...] -- >  subinstrinit  "insname" [, p4] [, p5] [...] ----- csound doc: <http://csound.com/docs/manual/subinstrinit.html>+-- csound doc: <https://csound.com/docs/manual/subinstrinit.html> subinstrinit ::  D -> [D] -> SE ()-subinstrinit b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> mapM unD b2-    where f a1 a2 = opcs "subinstrinit" [(Xr,(repeat Ir))] ([a1] ++ a2)+subinstrinit b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> mapM (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "subinstrinit" [(Xr,(repeat Ir))] ([a1] ++ a2)  -- Time Reading. @@ -1012,30 +1356,86 @@ -- > ir[, inano]  date  -- > kr[, knano]  date  ----- csound doc: <http://csound.com/docs/manual/date.html>-date :: Tuple a =>  a-date  = pureTuple $ return $ f -    where f  = mopcs "date" ([Kr,Kr],[]) []+-- csound doc: <https://csound.com/docs/manual/date.html>+date :: forall a . Tuple a =>  a+date  =+  pureTuple $ return $ f +  where+    f  = mopcs "date" ([Kr,Kr],[]) []  -- |  -- Returns as a string the date and time specified. -- -- > Sir  dates  [ itime] ----- csound doc: <http://csound.com/docs/manual/dates.html>+-- csound doc: <https://csound.com/docs/manual/dates.html> dates ::   Str-dates  = Str $ return $ f -    where f  = opcs "dates" [(Sr,[Ir])] []+dates  =+  Str $ return $ f +  where+    f  = opcs "dates" [(Sr,[Ir])] []  -- | ++--+-- > ires  elapsedcycles +-- > kres  elapsedcycles +--+-- csound doc: <https://csound.com/docs/manual/elapsedcycles.html>+elapsedcycles ::   Sig+elapsedcycles  =+  Sig $ return $ f +  where+    f  = opcs "elapsedcycles" [(Ir,[]),(Kr,[])] []++-- | ++--+-- > ires  elapsedtime +-- > kres  elapsedtime +--+-- csound doc: <https://csound.com/docs/manual/elapsedtime.html>+elapsedtime ::   Sig+elapsedtime  =+  Sig $ return $ f +  where+    f  = opcs "elapsedtime" [(Ir,[]),(Kr,[])] []++-- | ++--+-- > kres  eventcycles +--+-- csound doc: <https://csound.com/docs/manual/eventcycles.html>+eventcycles ::   Sig+eventcycles  =+  Sig $ return $ f +  where+    f  = opcs "eventcycles" [(Kr,[])] []++-- | ++--+-- > kres  eventtime +--+-- csound doc: <https://csound.com/docs/manual/eventtime.html>+eventtime ::   Sig+eventtime  =+  Sig $ return $ f +  where+    f  = opcs "eventtime" [(Kr,[])] []++-- |  -- Reads the value of an internal clock. -- -- > ir  readclock  inum ----- csound doc: <http://csound.com/docs/manual/readclock.html>+-- csound doc: <https://csound.com/docs/manual/readclock.html> readclock ::  D -> D-readclock b1 = D $ f <$> unD b1-    where f a1 = opcs "readclock" [(Ir,[Ir])] [a1]+readclock b1 =+  D $ f <$> unD b1+  where+    f a1 = opcs "readclock" [(Ir,[Ir])] [a1]  -- |  -- Read the real time clock from the operating system.@@ -1045,10 +1445,12 @@ -- > ires  rtclock  -- > kres  rtclock  ----- csound doc: <http://csound.com/docs/manual/rtclock.html>+-- csound doc: <https://csound.com/docs/manual/rtclock.html> rtclock ::   Sig-rtclock  = Sig $ return $ f -    where f  = opcs "rtclock" [(Ir,[]),(Kr,[])] []+rtclock  =+  Sig $ return $ f +  where+    f  = opcs "rtclock" [(Ir,[]),(Kr,[])] []  -- |  -- Read absolute time in k-rate cycles.@@ -1059,10 +1461,12 @@ -- -- > kres  timeinstk  ----- csound doc: <http://csound.com/docs/manual/timeinstk.html>+-- csound doc: <https://csound.com/docs/manual/timeinstk.html> timeinstk ::   Sig-timeinstk  = Sig $ return $ f -    where f  = opcs "timeinstk" [(Kr,[])] []+timeinstk  =+  Sig $ return $ f +  where+    f  = opcs "timeinstk" [(Kr,[])] []  -- |  -- Read absolute time in seconds.@@ -1071,10 +1475,12 @@ -- -- > kres  timeinsts  ----- csound doc: <http://csound.com/docs/manual/timeinsts.html>+-- csound doc: <https://csound.com/docs/manual/timeinsts.html> timeinsts ::   Sig-timeinsts  = Sig $ return $ f -    where f  = opcs "timeinsts" [(Kr,[])] []+timeinsts  =+  Sig $ return $ f +  where+    f  = opcs "timeinsts" [(Kr,[])] []  -- |  -- Read absolute time in k-rate cycles.@@ -1084,10 +1490,12 @@ -- > ires  timek  -- > kres  timek  ----- csound doc: <http://csound.com/docs/manual/timek.html>+-- csound doc: <https://csound.com/docs/manual/timek.html> timek ::   SE Sig-timek  = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "timek" [(Ir,[]),(Kr,[])] []+timek  =+  fmap ( Sig . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "timek" [(Ir,[]),(Kr,[])] []  -- |  -- Read absolute time in seconds.@@ -1097,7 +1505,9 @@ -- > ires  times  -- > kres  times  ----- csound doc: <http://csound.com/docs/manual/times.html>+-- csound doc: <https://csound.com/docs/manual/times.html> times ::   SE Sig-times  = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "times" [(Ir,[]),(Kr,[])] []+times  =+  fmap ( Sig . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "times" [(Ir,[]),(Kr,[])] []

@@ -5,6 +5,7 @@     jackoAudioIn, jackoAudioInConnect, jackoAudioOut, jackoAudioOutConnect, jackoInit, jackoMidiInConnect, jackoMidiOut, jackoMidiOutConnect, jackoNoteOut, jackoOn, jackoTransport) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -20,10 +21,12 @@ -- -- > asignal  JackoAudioIn ScsoundPortName ----- csound doc: <http://csound.com/docs/manual/JackoAudioIn.html>+-- csound doc: <https://csound.com/docs/manual/JackoAudioIn.html> jackoAudioIn ::  Str -> SE Sig-jackoAudioIn b1 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "JackoAudioIn" [(Ar,[Sr])] [a1]+jackoAudioIn b1 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep "JackoAudioIn" [(Ar,[Sr])] [a1]  -- |  -- Creates an audio connection from a Jack port to Csound.@@ -34,10 +37,12 @@ -- -- >  JackoAudioInConnect SexternalPortName, ScsoundPortName ----- csound doc: <http://csound.com/docs/manual/JackoAudioInConnect.html>+-- csound doc: <https://csound.com/docs/manual/JackoAudioInConnect.html> jackoAudioInConnect ::  Str -> Str -> SE ()-jackoAudioInConnect b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "JackoAudioInConnect" [(Xr,[Sr,Sr])] [a1,a2]+jackoAudioInConnect b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2+  where+    f a1 a2 = opcsDep_ "JackoAudioInConnect" [(Xr,[Sr,Sr])] [a1,a2]  -- |  -- Sends an audio signal to a Jack port.@@ -48,10 +53,12 @@ -- -- >  JackoAudioOut  ScsoundPortName, asignal ----- csound doc: <http://csound.com/docs/manual/JackoAudioOut.html>+-- csound doc: <https://csound.com/docs/manual/JackoAudioOut.html> jackoAudioOut ::  Str -> Sig -> SE ()-jackoAudioOut b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2-    where f a1 a2 = opcs "JackoAudioOut" [(Xr,[Sr,Ar])] [a1,a2]+jackoAudioOut b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "JackoAudioOut" [(Xr,[Sr,Ar])] [a1,a2]  -- |  -- Creates an audio connection from Csound to a Jack port.@@ -62,10 +69,12 @@ -- -- >  JackoAudioOutConnect ScsoundPortName, SexternalPortName ----- csound doc: <http://csound.com/docs/manual/JackoAudioOutConnect.html>+-- csound doc: <https://csound.com/docs/manual/JackoAudioOutConnect.html> jackoAudioOutConnect ::  Str -> Str -> SE ()-jackoAudioOutConnect b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "JackoAudioOutConnect" [(Xr,[Sr,Sr])] [a1,a2]+jackoAudioOutConnect b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2+  where+    f a1 a2 = opcsDep_ "JackoAudioOutConnect" [(Xr,[Sr,Sr])] [a1,a2]  -- |  -- Initializes Csound as a Jack client.@@ -74,10 +83,12 @@ -- -- >  JackoInit ServerName, SclientName ----- csound doc: <http://csound.com/docs/manual/JackoInit.html>+-- csound doc: <https://csound.com/docs/manual/JackoInit.html> jackoInit ::  Str -> Str -> SE ()-jackoInit b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "JackoInit" [(Xr,[Sr,Sr])] [a1,a2]+jackoInit b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2+  where+    f a1 a2 = opcsDep_ "JackoInit" [(Xr,[Sr,Sr])] [a1,a2]  -- |  -- Creates a MIDI  connection from a Jack port to Csound.@@ -87,10 +98,12 @@ -- -- >  JackoMidiInConnect SexternalPortName, ScsoundPortName ----- csound doc: <http://csound.com/docs/manual/JackoMidiInConnect.html>+-- csound doc: <https://csound.com/docs/manual/JackoMidiInConnect.html> jackoMidiInConnect ::  Str -> Str -> SE ()-jackoMidiInConnect b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "JackoMidiInConnect" [(Xr,[Sr,Sr])] [a1,a2]+jackoMidiInConnect b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2+  where+    f a1 a2 = opcsDep_ "JackoMidiInConnect" [(Xr,[Sr,Sr])] [a1,a2]  -- |  -- Sends a MIDI channel message to a Jack port.@@ -101,10 +114,12 @@ -- -- >  JackoMidiOut  ScsoundPortName, kstatus, kchannel, kdata1[, kdata2] ----- csound doc: <http://csound.com/docs/manual/JackoMidiOut.html>+-- csound doc: <https://csound.com/docs/manual/JackoMidiOut.html> jackoMidiOut ::  Str -> Sig -> Sig -> Sig -> SE ()-jackoMidiOut b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "JackoMidiOut" [(Xr,[Sr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+jackoMidiOut b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "JackoMidiOut" [(Xr,[Sr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Creates a MIDI connection from Csound to a Jack port.@@ -115,10 +130,12 @@ -- -- >  JackoMidiOutConnect ScsoundPortName, SexternalPortName ----- csound doc: <http://csound.com/docs/manual/JackoMidiOutConnect.html>+-- csound doc: <https://csound.com/docs/manual/JackoMidiOutConnect.html> jackoMidiOutConnect ::  Str -> Str -> SE ()-jackoMidiOutConnect b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "JackoMidiOutConnect" [(Xr,[Sr,Sr])] [a1,a2]+jackoMidiOutConnect b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2+  where+    f a1 a2 = opcsDep_ "JackoMidiOutConnect" [(Xr,[Sr,Sr])] [a1,a2]  -- |  -- Sends a MIDI channel message to a Jack port.@@ -129,10 +146,12 @@ -- -- >  JackoNoteOut  ScsoundPortName, kstatus, kchannel, kdata1[, kdata2] ----- csound doc: <http://csound.com/docs/manual/JackoNoteOut.html>+-- csound doc: <https://csound.com/docs/manual/JackoNoteOut.html> jackoNoteOut ::  Str -> Sig -> Sig -> Sig -> SE ()-jackoNoteOut b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "JackoNoteOut" [(Xr,[Sr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+jackoNoteOut b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "JackoNoteOut" [(Xr,[Sr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Enables or disables all Jack ports.@@ -143,10 +162,12 @@ -- -- >  JackoOn [iactive]  ----- csound doc: <http://csound.com/docs/manual/JackoOn.html>+-- csound doc: <https://csound.com/docs/manual/JackoOn.html> jackoOn ::   SE ()-jackoOn  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "JackoOn" [(Xr,[Ir])] []+jackoOn  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "JackoOn" [(Xr,[Ir])] []  -- |  -- Control the Jack transport.@@ -157,7 +178,9 @@ -- -- >  JackoTransport  kcommand, [kposition] ----- csound doc: <http://csound.com/docs/manual/JackoTransport.html>+-- csound doc: <https://csound.com/docs/manual/JackoTransport.html> jackoTransport ::  Sig -> SE ()-jackoTransport b1 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "JackoTransport" [(Xr,[Kr,Kr])] [a1]+jackoTransport b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "JackoTransport" [(Xr,[Kr,Kr])] [a1]

@@ -1,6 +1,9 @@ module Csound.Typed.Opcode.MathematicalOperations (          +    -- * Arrays.+    cbrt, fmax, fmin, fmod, hypot, limit1,+         -- * Comparators and Accumulators.     clear, vincr,     @@ -14,9 +17,96 @@     divz, mac, maca, polynomial, pow, product', sum', taninv2) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed +-- Arrays.++-- | ++--+-- > ires[]  cbrt  iarg+-- > kres[]  cbrt  karg+--+-- csound doc: <https://csound.com/docs/manual/cbrt.html>+cbrt ::  D -> Sig+cbrt b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "cbrt" [(Ir,[Ir]),(Kr,[Kr])] [a1]++-- | ++--+-- > ires[]  fmax  iarg1[], iarg2[] +-- > kres[]  fmax  karg1[], karg2[]+-- > ires[]  fmax  iarg1[], iarg2 +-- > kres[]  fmax  karg[], karg2 +--+-- csound doc: <https://csound.com/docs/manual/fmax.html>+fmax ::  D -> Sig+fmax b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "fmax" [(Ir,[Ir,Ir]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1]++-- | ++--+-- > ires[]  fmin  iarg1[], iarg2[] +-- > kres[]  fmin  karg1[], karg2[]+-- > ires[]  fmin  iarg1[], iarg2 +-- > kres[]  fmin  karg[], karg2 +--+-- csound doc: <https://csound.com/docs/manual/fmin.html>+fmin ::  D -> Sig+fmin b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "fmin" [(Ir,[Ir,Ir]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1]++-- | ++--+-- > ires[]  fmod  iarg1[], iarg2[] +-- > kres[]  fmod  karg1[], karg2[]+-- > ires[]  fmod  iarg1[], iarg2 +-- > kres[]  fmod  karg[], karg2 +--+-- csound doc: <https://csound.com/docs/manual/fmod.html>+fmod ::  D -> Sig+fmod b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "fmod" [(Ir,[Ir,Ir]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1]++-- | ++--+-- > ires[]  hypot  iarg1[], iarg2[] +-- > kres[]  hypot  karg1[], karg2[]+--+-- csound doc: <https://csound.com/docs/manual/hypot.html>+hypot ::  D -> Sig+hypot b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "hypot" [(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1]++-- | ++--+-- > ires[]  limit1  iarg+-- > kres[]  limit1  karg+--+-- csound doc: <https://csound.com/docs/manual/limit1.html>+limit1 ::  D -> Sig+limit1 b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "limit1" [(Ir,[Ir]),(Kr,[Kr])] [a1]+ -- Comparators and Accumulators.  -- | @@ -25,11 +115,14 @@ -- clear zeroes a list of audio signals. -- -- >  clear  avar1 [, avar2] [, avar3] [...]+-- >  clear  avar[] ----- csound doc: <http://csound.com/docs/manual/clear.html>+-- csound doc: <https://csound.com/docs/manual/clear.html> clear ::  [Sig] -> SE ()-clear b1 = SE $ (depT_ =<<) $ lift $ f <$> mapM unSig b1-    where f a1 = opcs "clear" [(Xr,(repeat Ar))] a1+clear b1 =+  SE $ join $ f <$> mapM (lift . unSig) b1+  where+    f a1 = opcsDep_ "clear" [(Xr,(repeat Ar))] a1  -- |  -- Accumulates audio signals.@@ -38,10 +131,12 @@ -- -- >  vincr  accum, aincr ----- csound doc: <http://csound.com/docs/manual/vincr.html>+-- csound doc: <https://csound.com/docs/manual/vincr.html> vincr ::  Sig -> Sig -> SE ()-vincr b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "vincr" [(Xr,[Ar,Ar])] [a1,a2]+vincr b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "vincr" [(Xr,[Ar,Ar])] [a1,a2]  -- Amplitude Functions. @@ -52,10 +147,12 @@ -- -- >  ampdb (x)  (no rate restriction) ----- csound doc: <http://csound.com/docs/manual/ampdb.html>+-- csound doc: <https://csound.com/docs/manual/ampdb.html> ampdb :: SigOrD a => a -> a-ampdb b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "ampdb" a1+ampdb b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "ampdb" a1  -- |  -- Returns the amplitude equivalent (in 16-bit signed integer scale) of the full scale decibel (dB FS) value x.@@ -64,20 +161,24 @@ -- -- >  ampdbfs (x)  (no rate restriction) ----- csound doc: <http://csound.com/docs/manual/ampdbfs.html>+-- csound doc: <https://csound.com/docs/manual/ampdbfs.html> ampdbfs :: SigOrD a => a -> a-ampdbfs b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "ampdbfs" a1+ampdbfs b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "ampdbfs" a1  -- |  -- Returns the decibel equivalent of the raw amplitude x. -- -- >  dbamp (x)  (init-rate or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/dbamp.html>+-- csound doc: <https://csound.com/docs/manual/dbamp.html> dbamp :: SigOrD a => a -> a-dbamp b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "dbamp" a1+dbamp b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "dbamp" a1  -- |  -- Returns the decibel equivalent of the raw amplitude x, relative to full scale amplitude.@@ -86,10 +187,12 @@ -- -- >  dbfsamp (x)  (init-rate or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/dbfsamp.html>+-- csound doc: <https://csound.com/docs/manual/dbfsamp.html> dbfsamp :: SigOrD a => a -> a-dbfsamp b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "dbfsamp" a1+dbfsamp b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "dbfsamp" a1  -- Random Functions. @@ -98,20 +201,24 @@ -- -- >  birnd (x) (init- or control-rate only) ----- csound doc: <http://csound.com/docs/manual/birnd.html>+-- csound doc: <https://csound.com/docs/manual/birnd.html> birnd :: SigOrD a => a -> SE a-birnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opr1k "birnd" a1+birnd b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opr1kDep "birnd" a1  -- |  -- Returns a random number in a unipolar range at the rate given by the input argument. -- -- >  rnd (x) (init- or control-rate only) ----- csound doc: <http://csound.com/docs/manual/rnd.html>+-- csound doc: <https://csound.com/docs/manual/rnd.html> rnd :: SigOrD a => a -> SE a-rnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opr1k "rnd" a1+rnd b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opr1kDep "rnd" a1  -- Opcode Equivalents of Functions. @@ -123,30 +230,36 @@ -- > kres  divz  ka, kb, ksubst -- > ... divz (ka, kb, ksubst)... (no rate restriction) ----- csound doc: <http://csound.com/docs/manual/divz.html>+-- csound doc: <https://csound.com/docs/manual/divz.html> divz :: SigOrD a => a -> a -> a-divz b1 b2 = fromGE $ f <$> toGE b1 <*> toGE b2-    where f a1 a2 = opcs "divz" [(Ar,[Xr,Xr]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir])] [a1,a2]+divz b1 b2 =+  fromGE $ f <$> toGE b1 <*> toGE b2+  where+    f a1 a2 = opcs "divz" [(Ar,[Xr,Xr]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir])] [a1,a2]  -- |  -- Multiplies and accumulates a- and k-rate signals. -- -- > ares  mac  ksig1, asig1 [, ksig2] [, asig2] [, ksig3] [, asig3] [...] ----- csound doc: <http://csound.com/docs/manual/mac.html>+-- csound doc: <https://csound.com/docs/manual/mac.html> mac ::  [Sig] -> Sig-mac b1 = Sig $ f <$> mapM unSig b1-    where f a1 = opcs "mac" [(Ar,[Kr,Ar,Kr,Ar,Kr] ++ (repeat Ar))] a1+mac b1 =+  Sig $ f <$> mapM unSig b1+  where+    f a1 = opcs "mac" [(Ar,[Kr,Ar,Kr,Ar,Kr] ++ (repeat Ar))] a1  -- |  -- Multiply and accumulate a-rate signals only. -- -- > ares  maca  asig1 , asig2 [, asig3] [, asig4] [, asig5] [...] ----- csound doc: <http://csound.com/docs/manual/maca.html>+-- csound doc: <https://csound.com/docs/manual/maca.html> maca ::  [Sig] -> Sig-maca b1 = Sig $ f <$> mapM unSig b1-    where f a1 = opcs "maca" [(Ar,(repeat Ar))] a1+maca b1 =+  Sig $ f <$> mapM unSig b1+  where+    f a1 = opcs "maca" [(Ar,(repeat Ar))] a1  -- |  -- Efficiently evaluates a polynomial of arbitrary order.@@ -155,10 +268,12 @@ -- -- > aout  polynomial  ain, k0 [, k1 [, k2 [...]]] ----- csound doc: <http://csound.com/docs/manual/polynomial.html>+-- csound doc: <https://csound.com/docs/manual/polynomial.html> polynomial ::  Sig -> [Sig] -> Sig-polynomial b1 b2 = Sig $ f <$> unSig b1 <*> mapM unSig b2-    where f a1 a2 = opcs "polynomial" [(Ar,[Ar] ++ (repeat Kr))] ([a1] ++ a2)+polynomial b1 b2 =+  Sig $ f <$> unSig b1 <*> mapM unSig b2+  where+    f a1 a2 = opcs "polynomial" [(Ar,[Ar] ++ (repeat Kr))] ([a1] ++ a2)  -- |  -- Computes one argument to the power of another argument.@@ -167,33 +282,36 @@ -- -- > ares  pow  aarg, kpow [, inorm] -- > ires  pow  iarg, ipow [, inorm]--- > kres  pow  karg, kpow [,--- >         inorm]+-- > kres  pow  karg, kpow [, inorm] -- > ires[]  pow  iarg[], ipow[]  -- > kres[]  pow  karg[], kpow[] -- > ires[]  pow  iarg[], ipow  -- > kres[]  pow  karg[], kpow  ----- csound doc: <http://csound.com/docs/manual/pow.html>+-- csound doc: <https://csound.com/docs/manual/pow.html> pow ::  Sig -> Sig -> Sig-pow b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "pow" [(Ar,[Ar,Kr,Ir])-                               ,(Ir,[Ir,Ir,Ir])-                               ,(Kr,[Kr,Kr,Ir])-                               ,(Ir,[Ir,Ir])-                               ,(Kr,[Kr,Kr])-                               ,(Ir,[Ir,Ir])-                               ,(Kr,[Kr,Kr])] [a1,a2]+pow b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "pow" [(Ar,[Ar,Kr,Ir])+                         ,(Ir,[Ir,Ir,Ir])+                         ,(Kr,[Kr,Kr,Ir])+                         ,(Ir,[Ir,Ir])+                         ,(Kr,[Kr,Kr])+                         ,(Ir,[Ir,Ir])+                         ,(Kr,[Kr,Kr])] [a1,a2]  -- |  -- Multiplies any number of a-rate signals. -- -- > ares  product  asig1, asig2 [, asig3] [...] ----- csound doc: <http://csound.com/docs/manual/product.html>+-- csound doc: <https://csound.com/docs/manual/product.html> product' ::  [Sig] -> Sig-product' b1 = Sig $ f <$> mapM unSig b1-    where f a1 = opcs "product" [(Ar,(repeat Ar))] a1+product' b1 =+  Sig $ f <$> mapM unSig b1+  where+    f a1 = opcs "product" [(Ar,(repeat Ar))] a1  -- |  -- Sums any number of a-rate signals, or array elements.@@ -202,10 +320,12 @@ -- > kres  sum  karr -- > ires  sum  iarr ----- csound doc: <http://csound.com/docs/manual/sum.html>+-- csound doc: <https://csound.com/docs/manual/sum.html> sum' ::  [Sig] -> Sig-sum' b1 = Sig $ f <$> mapM unSig b1-    where f a1 = opcs "sum" [(Ar,(repeat Ar)),(Kr,[Kr]),(Ir,[Ir])] a1+sum' b1 =+  Sig $ f <$> mapM unSig b1+  where+    f a1 = opcs "sum" [(Ar,(repeat Ar)),(Kr,[Kr]),(Ir,[Ir])] a1  -- |  -- Returns an arctangent.@@ -217,7 +337,9 @@ -- > kres  taninv2  ky, kx -- > ... taninv2 (ky, kx)... (no rate restriction) ----- csound doc: <http://csound.com/docs/manual/taninv2.html>+-- csound doc: <https://csound.com/docs/manual/taninv2.html> taninv2 :: SigOrD a => a -> a -> a-taninv2 b1 b2 = fromGE $ f <$> toGE b1 <*> toGE b2-    where f a1 a2 = opcs "taninv2" [(Ar,[Ar,Ar]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir])] [a1,a2]+taninv2 b1 b2 =+  fromGE $ f <$> toGE b1 <*> toGE b2+  where+    f a1 a2 = opcs "taninv2" [(Ar,[Ar,Ar]),(Kr,[Kr,Kr]),(Ir,[Ir,Ir])] [a1,a2]

@@ -2,9 +2,10 @@               -    directory, fareylen, fareyleni, modmatrix, pwd, select, system_i, system, tableshuffle, tableshufflei) where+    directory, fareylen, fareyleni, framebuffer, modmatrix, nchnls_hw, olabuffer, pwd, select, system_i, system, tableshuffle, tableshufflei) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -17,10 +18,12 @@ -- -- > SFiles[]  directory  SDirectory[, SExtention] ----- csound doc: <http://csound.com/docs/manual/directory.html>+-- csound doc: <https://csound.com/docs/manual/directory.html> directory ::  Str -> Str-directory b1 = Str $ f <$> unStr b1-    where f a1 = opcs "directory" [(Sr,[Sr,Sr])] [a1]+directory b1 =+  Str $ f <$> unStr b1+  where+    f a1 = opcs "directory" [(Sr,[Sr,Sr])] [a1]  -- |  -- returns the length of a Farey Sequence.@@ -32,10 +35,12 @@ -- -- > kfl  fareylen  kfn ----- csound doc: <http://csound.com/docs/manual/fareylen.html>+-- csound doc: <https://csound.com/docs/manual/fareylen.html> fareylen ::  Tab -> Sig-fareylen b1 = Sig $ f <$> unTab b1-    where f a1 = opcs "fareylen" [(Kr,[Kr])] [a1]+fareylen b1 =+  Sig $ f <$> unTab b1+  where+    f a1 = opcs "fareylen" [(Kr,[Kr])] [a1]  -- |  -- returns the length of a Farey Sequence.@@ -47,12 +52,27 @@ -- -- > ifl  fareyleni  ifn ----- csound doc: <http://csound.com/docs/manual/fareyleni.html>+-- csound doc: <https://csound.com/docs/manual/fareyleni.html> fareyleni ::  Tab -> D-fareyleni b1 = D $ f <$> unTab b1-    where f a1 = opcs "fareyleni" [(Ir,[Ir])] [a1]+fareyleni b1 =+  D $ f <$> unTab b1+  where+    f a1 = opcs "fareyleni" [(Ir,[Ir])] [a1]  -- | ++--+-- > kout[]  framebuffer  ain, isize+-- > aout  framebuffer  kin, isize+--+-- csound doc: <https://csound.com/docs/manual/framebuffer.html>+framebuffer ::  Sig -> D -> Sig+framebuffer b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "framebuffer" [(Kr,[Ar,Ir]),(Ar,[Kr,Ir])] [a1,a2]++-- |  -- Modulation matrix opcode with optimizations for sparse matrices. -- -- The opcode can be used to let a large number of k-rate modulator@@ -65,18 +85,44 @@ -- >  modmatrix  iresfn, isrcmodfn, isrcparmfn, imodscale, inum_mod, \\ -- >     inum_parm, kupdate ----- csound doc: <http://csound.com/docs/manual/modmatrix.html>+-- csound doc: <https://csound.com/docs/manual/modmatrix.html> modmatrix ::  Tab -> Tab -> Tab -> D -> D -> D -> Sig -> SE ()-modmatrix b1 b2 b3 b4 b5 b6 b7 = SE $ (depT_ =<<) $ lift $ f <$> unTab b1 <*> unTab b2 <*> unTab b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unSig b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "modmatrix" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir,Kr])] [a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4-                                                                                  ,a5-                                                                                  ,a6-                                                                                  ,a7]+modmatrix b1 b2 b3 b4 b5 b6 b7 =+  SE $ join $ f <$> (lift . unTab) b1 <*> (lift . unTab) b2 <*> (lift . unTab) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unSig) b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcsDep_ "modmatrix" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir,Kr])] [a1+                                                                                ,a2+                                                                                ,a3+                                                                                ,a4+                                                                                ,a5+                                                                                ,a6+                                                                                ,a7]  -- | ++--+-- > idacc,iadcc  nchnls_hw +--+-- csound doc: <https://csound.com/docs/manual/nchnls_hw.html>+nchnls_hw ::   (D,D)+nchnls_hw  =+  pureTuple $ return $ f +  where+    f  = mopcs "nchnls_hw" ([Ir,Ir],[]) []++-- | ++--+-- > aout  olabuffer  kin, ioverlap+--+-- csound doc: <https://csound.com/docs/manual/olabuffer.html>+olabuffer ::  Sig -> D -> Sig+olabuffer b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "olabuffer" [(Ar,[Kr,Ir])] [a1,a2]++-- |  -- Asks the underlying operating system for the current directory --       name as a string. --@@ -86,10 +132,12 @@ -- -- > Sres  pwd  ----- csound doc: <http://csound.com/docs/manual/pwd.html>+-- csound doc: <https://csound.com/docs/manual/pwd.html> pwd ::   Str-pwd  = Str $ return $ f -    where f  = opcs "pwd" [(Sr,[])] []+pwd  =+  Str $ return $ f +  where+    f  = opcs "pwd" [(Sr,[])] []  -- |  -- Select sample value based on audio-rate comparisons.@@ -99,10 +147,12 @@ -- -- > aout  select  a1, a2, aless, aequal, amore ----- csound doc: <http://csound.com/docs/manual/select.html>+-- csound doc: <https://csound.com/docs/manual/select.html> select ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig-select b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "select" [(Ar,[Ar,Ar,Ar,Ar,Ar])] [a1,a2,a3,a4,a5]+select b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5+  where+    f a1 a2 a3 a4 a5 = opcs "select" [(Ar,[Ar,Ar,Ar,Ar,Ar])] [a1,a2,a3,a4,a5]  -- |  -- Call an external program via the system call@@ -116,10 +166,12 @@ -- -- > ires  system_i  itrig, Scmd, [inowait] ----- csound doc: <http://csound.com/docs/manual/system.html>+-- csound doc: <https://csound.com/docs/manual/system.html> system_i ::  D -> Str -> D-system_i b1 b2 = D $ f <$> unD b1 <*> unStr b2-    where f a1 a2 = opcs "system_i" [(Ir,[Ir,Sr,Ir])] [a1,a2]+system_i b1 b2 =+  D $ f <$> unD b1 <*> unStr b2+  where+    f a1 a2 = opcs "system_i" [(Ir,[Ir,Sr,Ir])] [a1,a2]  -- |  -- Call an external program via the system call@@ -133,10 +185,12 @@ -- -- > kres  system  ktrig, Scmd, [knowait] ----- csound doc: <http://csound.com/docs/manual/system.html>+-- csound doc: <https://csound.com/docs/manual/system.html> system ::  Sig -> Str -> Sig-system b1 b2 = Sig $ f <$> unSig b1 <*> unStr b2-    where f a1 a2 = opcs "system" [(Kr,[Kr,Sr,Kr])] [a1,a2]+system b1 b2 =+  Sig $ f <$> unSig b1 <*> unStr b2+  where+    f a1 a2 = opcs "system" [(Kr,[Kr,Sr,Kr])] [a1,a2]  -- |  -- shuffles the content of a function table so that each element of the source@@ -151,10 +205,12 @@ -- -- >  tableshuffle  ktablenum ----- csound doc: <http://csound.com/docs/manual/tableshuffle.html>+-- csound doc: <https://csound.com/docs/manual/tableshuffle.html> tableshuffle ::  Sig -> SE ()-tableshuffle b1 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "tableshuffle" [(Xr,[Kr])] [a1]+tableshuffle b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "tableshuffle" [(Xr,[Kr])] [a1]  -- |  -- shuffles the content of a function table so that each element of the source@@ -169,7 +225,9 @@ -- -- >  tableshufflei  itablenum ----- csound doc: <http://csound.com/docs/manual/tableshuffle.html>+-- csound doc: <https://csound.com/docs/manual/tableshuffle.html> tableshufflei ::  D -> SE ()-tableshufflei b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "tableshufflei" [(Xr,[Ir])] [a1]+tableshufflei b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "tableshufflei" [(Xr,[Ir])] [a1]

@@ -5,6 +5,7 @@     mixerClear, mixerGetLevel, mixerReceive, mixerSend, mixerSetLevel, mixerSetLevel_i) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -15,10 +16,12 @@ -- -- >  MixerClear  ----- csound doc: <http://csound.com/docs/manual/MixerClear.html>+-- csound doc: <https://csound.com/docs/manual/MixerClear.html> mixerClear ::   SE ()-mixerClear  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "MixerClear" [(Xr,[])] []+mixerClear  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "MixerClear" [(Xr,[])] []  -- |  -- Gets the level of a send to a buss.@@ -28,10 +31,12 @@ -- -- > kgain  MixerGetLevel  isend, ibuss ----- csound doc: <http://csound.com/docs/manual/MixerGetLevel.html>+-- csound doc: <https://csound.com/docs/manual/MixerGetLevel.html> mixerGetLevel ::  D -> D -> SE Sig-mixerGetLevel b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "MixerGetLevel" [(Kr,[Ir,Ir])] [a1,a2]+mixerGetLevel b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep "MixerGetLevel" [(Kr,[Ir,Ir])] [a1,a2]  -- |  -- Receives an arate signal from a channel of a buss.@@ -40,20 +45,24 @@ -- -- > asignal  MixerReceive  ibuss, ichannel ----- csound doc: <http://csound.com/docs/manual/MixerReceive.html>+-- csound doc: <https://csound.com/docs/manual/MixerReceive.html> mixerReceive ::  D -> D -> SE Sig-mixerReceive b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "MixerReceive" [(Ar,[Ir,Ir])] [a1,a2]+mixerReceive b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep "MixerReceive" [(Ar,[Ir,Ir])] [a1,a2]  -- |  -- Mixes an arate signal into a channel of a buss. -- -- >  MixerSend  asignal, isend, ibuss, ichannel ----- csound doc: <http://csound.com/docs/manual/MixerSend.html>+-- csound doc: <https://csound.com/docs/manual/MixerSend.html> mixerSend ::  Sig -> D -> D -> D -> SE ()-mixerSend b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "MixerSend" [(Xr,[Ar,Ir,Ir,Ir])] [a1,a2,a3,a4]+mixerSend b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "MixerSend" [(Xr,[Ar,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sets the level of a send to a buss.@@ -63,10 +72,12 @@ -- -- >  MixerSetLevel  isend, ibuss, kgain ----- csound doc: <http://csound.com/docs/manual/MixerSetLevel.html>+-- csound doc: <https://csound.com/docs/manual/MixerSetLevel.html> mixerSetLevel ::  D -> D -> Sig -> SE ()-mixerSetLevel b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unSig b3-    where f a1 a2 a3 = opcs "MixerSetLevel" [(Xr,[Ir,Ir,Kr])] [a1,a2,a3]+mixerSetLevel b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "MixerSetLevel" [(Xr,[Ir,Ir,Kr])] [a1,a2,a3]  -- |  -- Sets the level of a send to a buss.@@ -77,7 +88,9 @@ -- -- >  MixerSetLevel_i  isend, ibuss, igain ----- csound doc: <http://csound.com/docs/manual/MixerSetLevel_i.html>+-- csound doc: <https://csound.com/docs/manual/MixerSetLevel_i.html> mixerSetLevel_i ::  D -> D -> D -> SE ()-mixerSetLevel_i b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "MixerSetLevel_i" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+mixerSetLevel_i b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "MixerSetLevel_i" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]

@@ -5,6 +5,7 @@     remoteport, sockrecv, sockrecvs, strecv, socksend, socksends, stsend) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -19,10 +20,12 @@ -- -- >  remoteport  iportnum ----- csound doc: <http://csound.com/docs/manual/remoteport.html>+-- csound doc: <https://csound.com/docs/manual/remoteport.html> remoteport ::  D -> SE ()-remoteport b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "remoteport" [(Xr,[Ir])] [a1]+remoteport b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "remoteport" [(Xr,[Ir])] [a1]  -- |  -- Receives data from other processes using the low-level UDP or TCP protocols@@ -36,10 +39,12 @@ -- > asig  sockrecv  iport, ilength -- > ksig  sockrecv  iport, ilength ----- csound doc: <http://csound.com/docs/manual/sockrecv.html>+-- csound doc: <https://csound.com/docs/manual/sockrecv.html> sockrecv ::  D -> D -> Sig-sockrecv b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "sockrecv" [(Ar,[Ir,Ir]),(Kr,[Ir,Ir])] [a1,a2]+sockrecv b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "sockrecv" [(Ar,[Ir,Ir]),(Kr,[Ir,Ir])] [a1,a2]  -- |  -- Receives data from other processes using the low-level UDP or TCP protocols@@ -52,10 +57,12 @@ -- -- > asigl, asigr  sockrecvs  iport, ilength ----- csound doc: <http://csound.com/docs/manual/sockrecv.html>+-- csound doc: <https://csound.com/docs/manual/sockrecv.html> sockrecvs ::  D -> D -> (Sig,Sig)-sockrecvs b1 b2 = pureTuple $ f <$> unD b1 <*> unD b2-    where f a1 a2 = mopcs "sockrecvs" ([Ar,Ar],[Ir,Ir]) [a1,a2]+sockrecvs b1 b2 =+  pureTuple $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = mopcs "sockrecvs" ([Ar,Ar],[Ir,Ir]) [a1,a2]  -- |  -- Receives data from other processes using the low-level UDP or TCP protocols@@ -66,12 +73,14 @@ --       routing. The sockrecvs opcode receives a stereo signal --       interleaved. ----- > asig  strecv  Sipaddr, iport+-- > asig[,kstate]  strecv  Sipaddr, iport ----- csound doc: <http://csound.com/docs/manual/sockrecv.html>-strecv ::  Str -> D -> Sig-strecv b1 b2 = Sig $ f <$> unStr b1 <*> unD b2-    where f a1 a2 = opcs "strecv" [(Ar,[Sr,Ir])] [a1,a2]+-- csound doc: <https://csound.com/docs/manual/sockrecv.html>+strecv :: forall a . Tuple a => Str -> D -> a+strecv b1 b2 =+  pureTuple $ f <$> unStr b1 <*> unD b2+  where+    f a1 a2 = mopcs "strecv" ([Ar,Kr],[Sr,Ir]) [a1,a2]  -- |  -- Sends data to other processes using the low-level UDP or TCP protocols@@ -84,10 +93,12 @@ -- >  socksend  asig, Sipaddr, iport, ilength -- >  socksend  ksig, Sipaddr, iport, ilength ----- csound doc: <http://csound.com/docs/manual/socksend.html>+-- csound doc: <https://csound.com/docs/manual/socksend.html> socksend ::  Sig -> Str -> D -> D -> SE ()-socksend b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unStr b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "socksend" [(Xr,[Ar,Sr,Ir,Ir])] [a1,a2,a3,a4]+socksend b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unStr) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "socksend" [(Xr,[Ar,Sr,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sends data to other processes using the low-level UDP or TCP protocols@@ -100,10 +111,12 @@ -- >  socksends  asigl, asigr, Sipaddr, iport, -- >         ilength ----- csound doc: <http://csound.com/docs/manual/socksend.html>+-- csound doc: <https://csound.com/docs/manual/socksend.html> socksends ::  Sig -> Sig -> Str -> D -> D -> SE ()-socksends b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unStr b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "socksends" [(Xr,[Ar,Ar,Sr,Ir,Ir])] [a1,a2,a3,a4,a5]+socksends b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unStr) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "socksends" [(Xr,[Ar,Ar,Sr,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Sends data to other processes using the low-level UDP or TCP protocols@@ -115,7 +128,9 @@ -- -- >  stsend  asig, Sipaddr, iport ----- csound doc: <http://csound.com/docs/manual/socksend.html>+-- csound doc: <https://csound.com/docs/manual/socksend.html> stsend ::  Sig -> Str -> D -> SE ()-stsend b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unStr b2 <*> unD b3-    where f a1 a2 a3 = opcs "stsend" [(Xr,[Ar,Sr,Ir])] [a1,a2,a3]+stsend b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unStr) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "stsend" [(Xr,[Ar,Sr,Ir])] [a1,a2,a3]

@@ -2,38 +2,65 @@               -    oscInit, oscListen, oscRaw, oscSend) where+    oscBundle, oscCount, oscInit, oscInitM, oscRaw, oscSend) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed  --   -- | ++--+-- >  OSCbundle  kwhen, ihost, iport,+-- >         Sdest[], Stype[],kArgs[][][,isize]+--+-- csound doc: <https://csound.com/docs/manual/OSCbundle.html>+oscBundle ::  Sig -> D -> D -> Str -> SE ()+oscBundle b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unStr) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "OSCbundle" [(Xr,[Kr,Ir,Ir,Sr,Sr,Kr,Ir])] [a1,a2,a3,a4]++-- | ++--+-- > kans  OSCcount +--+-- csound doc: <https://csound.com/docs/manual/OSCcount.html>+oscCount ::   Sig+oscCount  =+  Sig $ return $ f +  where+    f  = opcs "OSCcount" [(Kr,[])] []++-- |  -- Start a listening process for OSC messages to a particular port. -- -- Starts a listening process, which can be used by OSClisten. -- -- > ihandle  OSCinit  iport ----- csound doc: <http://csound.com/docs/manual/OSCinit.html>+-- csound doc: <https://csound.com/docs/manual/OSCinit.html> oscInit ::  D -> SE D-oscInit b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "OSCinit" [(Ir,[Ir])] [a1]+oscInit b1 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep "OSCinit" [(Ir,[Ir])] [a1]  -- | --- Listen for OSC messages to a particular path.------ On each k-cycle looks to see if an OSC message has been send to---       a given path of a given type.+ ----- > kans  OSClisten  ihandle, idest, itype [, xdata1, xdata2, ...]+-- > ihandle  OSCinitM  Sgroup, iport ----- csound doc: <http://csound.com/docs/manual/OSClisten.html>-oscListen ::  D -> D -> D -> [Sig] -> SE Sig-oscListen b1 b2 b3 b4 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> mapM unSig b4-    where f a1 a2 a3 a4 = opcs "OSClisten" [(Kr,[Ir,Ir,Ir] ++ (repeat Xr))] ([a1,a2,a3] ++ a4)+-- csound doc: <https://csound.com/docs/manual/OSCinitM.html>+oscInitM ::  Str -> D -> D+oscInitM b1 b2 =+  D $ f <$> unStr b1 <*> unD b2+  where+    f a1 a2 = opcs "OSCinitM" [(Ir,[Sr,Ir])] [a1,a2]  -- |  -- Listen for all OSC messages at a given port.@@ -45,10 +72,12 @@ -- -- > Smess[],klen  OSCraw  iport ----- csound doc: <http://csound.com/docs/manual/OSCraw.html>-oscRaw :: Tuple a => D -> a-oscRaw b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "OSCraw" ([Sr,Kr],[Ir]) [a1]+-- csound doc: <https://csound.com/docs/manual/OSCraw.html>+oscRaw :: forall a . Tuple a => D -> a+oscRaw b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "OSCraw" ([Sr,Kr],[Ir]) [a1]  -- |  -- Sends data to other processes using the OSC protocol@@ -57,11 +86,13 @@ -- -- >  OSCsend  kwhen, ihost, iport, idestination[, itype , xdata1, xdata2, ...] ----- csound doc: <http://csound.com/docs/manual/OSCsend.html>+-- csound doc: <https://csound.com/docs/manual/OSCsend.html> oscSend ::  Sig -> D -> D -> D -> D -> [Sig] -> SE ()-oscSend b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> mapM unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "OSCsend" [(Xr,[Kr,Ir,Ir,Ir,Ir] ++ (repeat Xr))] ([a1-                                                                                       ,a2-                                                                                       ,a3-                                                                                       ,a4-                                                                                       ,a5] ++ a6)+oscSend b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> mapM (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "OSCsend" [(Xr,[Kr,Ir,Ir,Ir,Ir] ++ (repeat Xr))] ([a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5] ++ a6)

@@ -2,7 +2,7 @@               -- * Functions.-    cent, cpsmidinn, cpsoct, cpspch, ftom, mtof, mton, ntom, octave, octcps, octmidinn, octpch, pchmidinn, pchoct, pchtom, semitone,+    cent, cpsmidinn, cpsoct, cpspch, ftom, mtof, mton, ntof, ntom, octave, octcps, octmidinn, octpch, pchmidinn, pchoct, pchtom, semitone,          -- * Tuning Opcodes.     cps2pch, cpstun, cpstuni, cpsxpch) where@@ -17,40 +17,48 @@ -- -- >  cent (x)  ----- csound doc: <http://csound.com/docs/manual/cent.html>+-- csound doc: <https://csound.com/docs/manual/cent.html> cent :: SigOrD a => a -> a-cent b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "cent" a1+cent b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "cent" a1  -- |  -- Converts a Midi note number value to cycles-per-second. -- -- >  cpsmidinn  (MidiNoteNumber)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/cpsmidinn.html>+-- csound doc: <https://csound.com/docs/manual/cpsmidinn.html> cpsmidinn :: SigOrD a => a -> a-cpsmidinn b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "cpsmidinn" a1+cpsmidinn b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "cpsmidinn" a1  -- |  -- Converts an octave-point-decimal value to cycles-per-second. -- -- >  cpsoct  (oct)  (no rate restriction) ----- csound doc: <http://csound.com/docs/manual/cpsoct.html>+-- csound doc: <https://csound.com/docs/manual/cpsoct.html> cpsoct :: SigOrD a => a -> a-cpsoct b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "cpsoct" a1+cpsoct b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "cpsoct" a1  -- |  -- Converts a pitch-class value to cycles-per-second. -- -- >  cpspch  (pch)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/cpspch.html>+-- csound doc: <https://csound.com/docs/manual/cpspch.html> cpspch :: SigOrD a => a -> a-cpspch b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "cpspch" a1+cpspch b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "cpspch" a1  -- |  -- Convert frequency to midi@@ -58,13 +66,17 @@ -- Convert frequency to midi note number, taking global value -- 	  of A4 into account. ----- > imidi  ftom  ifreq--- > kmidi  ftom  kfreq+-- > imidi  ftom  ifreq [,irnd]+-- > kmidi  ftom  kfreq [,irnd]+-- > imidis[]  ftom  ifreqs[] [,irnd]+-- > kmidis[]  ftom  kfreqs[] [,irnd] ----- csound doc: <http://csound.com/docs/manual/ftom.html>+-- csound doc: <https://csound.com/docs/manual/ftom.html> ftom ::  D -> Sig-ftom b1 = Sig $ f <$> unD b1-    where f a1 = opcs "ftom" [(Ir,[Ir]),(Kr,[Kr])] [a1]+ftom b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "ftom" [(Ir,[Ir,Ir]),(Kr,[Kr,Ir]),(Ir,[Ir,Ir]),(Kr,[Kr,Ir])] [a1]  -- |  -- Convert a midi to frequency@@ -74,11 +86,15 @@ -- -- > ifreq  mtof  imidi -- > kfreq  mtof  kmidi+-- > ifreqs[]  mtof  imidis[]+-- > kfreqs[]  mtof  kmidis[] ----- csound doc: <http://csound.com/docs/manual/mtof.html>+-- csound doc: <https://csound.com/docs/manual/mtof.html> mtof ::  D -> Sig-mtof b1 = Sig $ f <$> unD b1-    where f a1 = opcs "mtof" [(Ir,[Ir]),(Kr,[Kr])] [a1]+mtof b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "mtof" [(Ir,[Ir]),(Kr,[Kr]),(Ir,[Ir]),(Kr,[Kr])] [a1]  -- |  -- Convert midi note number to string note name@@ -89,12 +105,27 @@ -- > Snote  mton  kmidi -- > Snote  mton  imidi ----- csound doc: <http://csound.com/docs/manual/mton.html>+-- csound doc: <https://csound.com/docs/manual/mton.html> mton ::  Sig -> Str-mton b1 = Str $ f <$> unSig b1-    where f a1 = opcs "mton" [(Sr,[Kr]),(Sr,[Ir])] [a1]+mton b1 =+  Str $ f <$> unSig b1+  where+    f a1 = opcs "mton" [(Sr,[Kr]),(Sr,[Ir])] [a1]  -- | ++--+-- > kfreq  ntof  Snote+-- > ifreq  ntof  Snote+--+-- csound doc: <https://csound.com/docs/manual/ntof.html>+ntof ::  Str -> D+ntof b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "ntof" [(Kr,[Sr]),(Ir,[Sr])] [a1]++-- |  -- Convert note name to midi note number -- -- Convert note name to midi note number. It allows note name to@@ -103,70 +134,84 @@ -- > kmidi  ntom  Snote -- > imidi  ntom  Snote ----- csound doc: <http://csound.com/docs/manual/ntom.html>+-- csound doc: <https://csound.com/docs/manual/ntom.html> ntom ::  Str -> D-ntom b1 = D $ f <$> unStr b1-    where f a1 = opcs "ntom" [(Kr,[Sr]),(Ir,[Sr])] [a1]+ntom b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "ntom" [(Kr,[Sr]),(Ir,[Sr])] [a1]  -- |  -- Calculates a factor to raise/lower a frequency by a given amount of octaves. -- -- >  octave (x) ----- csound doc: <http://csound.com/docs/manual/octave.html>+-- csound doc: <https://csound.com/docs/manual/octave.html> octave :: SigOrD a => a -> a-octave b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "octave" a1+octave b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "octave" a1  -- |  -- Converts a cycles-per-second value to octave-point-decimal. -- -- >  octcps  (cps)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/octcps.html>+-- csound doc: <https://csound.com/docs/manual/octcps.html> octcps :: SigOrD a => a -> a-octcps b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "octcps" a1+octcps b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "octcps" a1  -- |  -- Converts a Midi note number value to octave-point-decimal. -- -- >  octmidinn  (MidiNoteNumber)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/octmidinn.html>+-- csound doc: <https://csound.com/docs/manual/octmidinn.html> octmidinn :: SigOrD a => a -> a-octmidinn b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "octmidinn" a1+octmidinn b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "octmidinn" a1  -- |  -- Converts a pitch-class value to octave-point-decimal. -- -- >  octpch  (pch)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/octpch.html>+-- csound doc: <https://csound.com/docs/manual/octpch.html> octpch :: SigOrD a => a -> a-octpch b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "octpch" a1+octpch b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "octpch" a1  -- |  -- Converts a Midi note number value to octave point pitch-class units. -- -- >  pchmidinn  (MidiNoteNumber)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/pchmidinn.html>+-- csound doc: <https://csound.com/docs/manual/pchmidinn.html> pchmidinn :: SigOrD a => a -> a-pchmidinn b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "pchmidinn" a1+pchmidinn b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "pchmidinn" a1  -- |  -- Converts an octave-point-decimal value to pitch-class. -- -- >  pchoct  (oct)  (init- or control-rate args only) ----- csound doc: <http://csound.com/docs/manual/pchoct.html>+-- csound doc: <https://csound.com/docs/manual/pchoct.html> pchoct :: SigOrD a => a -> a-pchoct b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1k "pchoct" a1+pchoct b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1k "pchoct" a1  -- |  -- Convert pch to midi note number@@ -178,20 +223,24 @@ -- > imidi  pchtom  ipch -- > kmidi  pchtom  kpch ----- csound doc: <http://csound.com/docs/manual/pchtom.html>+-- csound doc: <https://csound.com/docs/manual/pchtom.html> pchtom ::  D -> Sig-pchtom b1 = Sig $ f <$> unD b1-    where f a1 = opcs "pchtom" [(Ir,[Ir]),(Kr,[Kr])] [a1]+pchtom b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "pchtom" [(Ir,[Ir]),(Kr,[Kr])] [a1]  -- |  -- Calculates a factor to raise/lower a frequency by a given amount of semitones. -- -- >  semitone (x) ----- csound doc: <http://csound.com/docs/manual/semitone.html>+-- csound doc: <https://csound.com/docs/manual/semitone.html> semitone :: SigOrD a => a -> a-semitone b1 = fromGE $ f <$> toGE b1-    where f a1 = opr1 "semitone" a1+semitone b1 =+  fromGE $ f <$> toGE b1+  where+    f a1 = opr1 "semitone" a1  -- Tuning Opcodes. @@ -200,30 +249,36 @@ -- -- > icps  cps2pch  ipch, iequal ----- csound doc: <http://csound.com/docs/manual/cps2pch.html>+-- csound doc: <https://csound.com/docs/manual/cps2pch.html> cps2pch ::  D -> D -> D-cps2pch b1 b2 = D $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "cps2pch" [(Ir,[Ir,Ir])] [a1,a2]+cps2pch b1 b2 =+  D $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "cps2pch" [(Ir,[Ir,Ir])] [a1,a2]  -- |  -- Returns micro-tuning values at k-rate. -- -- > kcps  cpstun  ktrig, kindex, kfn ----- csound doc: <http://csound.com/docs/manual/cpstun.html>+-- csound doc: <https://csound.com/docs/manual/cpstun.html> cpstun ::  Sig -> Sig -> Tab -> Sig-cpstun b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "cpstun" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]+cpstun b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "cpstun" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]  -- |  -- Returns micro-tuning values at init-rate. -- -- > icps  cpstuni  index, ifn ----- csound doc: <http://csound.com/docs/manual/cpstuni.html>+-- csound doc: <https://csound.com/docs/manual/cpstuni.html> cpstuni ::  D -> Tab -> D-cpstuni b1 b2 = D $ f <$> unD b1 <*> unTab b2-    where f a1 a2 = opcs "cpstuni" [(Ir,[Ir,Ir])] [a1,a2]+cpstuni b1 b2 =+  D $ f <$> unD b1 <*> unTab b2+  where+    f a1 a2 = opcs "cpstuni" [(Ir,[Ir,Ir])] [a1,a2]  -- |  -- Converts a pitch-class value into cycles-per-second (Hz) for equal divisions of any interval.@@ -232,7 +287,9 @@ -- -- > icps  cpsxpch  ipch, iequal, irepeat, ibase ----- csound doc: <http://csound.com/docs/manual/cpsxpch.html>+-- csound doc: <https://csound.com/docs/manual/cpsxpch.html> cpsxpch ::  D -> D -> D -> D -> D-cpsxpch b1 b2 b3 b4 = D $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "cpsxpch" [(Ir,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+cpsxpch b1 b2 b3 b4 =+  D $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "cpsxpch" [(Ir,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]

@@ -2,12 +2,10 @@               -- * DSSI and LADSPA.-    dssiactivate, dssiaudio, dssictls, dssiinit, dssilist,-    -    -- * VST.-    vstaudio, vstaudiog, vstbankload, vstedit, vstinfo, vstinit, vstmidiout, vstnote, vstparamset, vstparamget, vstprogset) where+    dssiactivate, dssiaudio, dssictls, dssiinit, dssilist) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -20,10 +18,12 @@ -- -- >  dssiactivate  ihandle, ktoggle  ----- csound doc: <http://csound.com/docs/manual/dssiactivate.html>+-- csound doc: <https://csound.com/docs/manual/dssiactivate.html> dssiactivate ::  D -> Sig -> SE ()-dssiactivate b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "dssiactivate" [(Xr,[Ir,Kr])] [a1,a2]+dssiactivate b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "dssiactivate" [(Xr,[Ir,Kr])] [a1,a2]  -- |  -- Processes audio using a LADSPA or DSSI plugin.@@ -32,10 +32,12 @@ -- -- > [aout1, aout2, ..., aout9]  dssiaudio  ihandle, [ain1, ain2, ..., ain9] ----- csound doc: <http://csound.com/docs/manual/dssiaudio.html>-dssiaudio :: Tuple a => D -> [Sig] -> a-dssiaudio b1 b2 = pureTuple $ f <$> unD b1 <*> mapM unSig b2-    where f a1 a2 = mopcs "dssiaudio" ((repeat Ar),[Ir] ++ (repeat Ar)) ([a1] ++ a2)+-- csound doc: <https://csound.com/docs/manual/dssiaudio.html>+dssiaudio :: forall a . Tuple a => D -> [Sig] -> a+dssiaudio b1 b2 =+  pureTuple $ f <$> unD b1 <*> mapM unSig b2+  where+    f a1 a2 = mopcs "dssiaudio" ((repeat Ar),[Ir] ++ (repeat Ar)) ([a1] ++ a2)  -- |  -- Send control information to a LADSPA or DSSI plugin.@@ -44,10 +46,12 @@ -- -- >  dssictls  ihandle, iport, kvalue, ktrigger  ----- csound doc: <http://csound.com/docs/manual/dssictls.html>+-- csound doc: <https://csound.com/docs/manual/dssictls.html> dssictls ::  D -> D -> Sig -> Sig -> SE ()-dssictls b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "dssictls" [(Xr,[Ir,Ir,Kr,Kr])] [a1,a2,a3,a4]+dssictls b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "dssictls" [(Xr,[Ir,Ir,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Loads a DSSI or LADSPA plugin.@@ -57,10 +61,12 @@ -- -- > ihandle  dssiinit  ilibraryname, iplugindex [, iverbose]  ----- csound doc: <http://csound.com/docs/manual/dssiinit.html>+-- csound doc: <https://csound.com/docs/manual/dssiinit.html> dssiinit ::  D -> D -> SE D-dssiinit b1 b2 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "dssiinit" [(Ir,[Ir,Ir,Ir])] [a1,a2]+dssiinit b1 b2 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep "dssiinit" [(Ir,[Ir,Ir,Ir])] [a1,a2]  -- |  -- Lists all available DSSI and LADSPA plugins.@@ -69,152 +75,9 @@ -- -- >  dssilist  ----- csound doc: <http://csound.com/docs/manual/dssilist.html>+-- csound doc: <https://csound.com/docs/manual/dssilist.html> dssilist ::   SE ()-dssilist  = SE $ (depT_ =<<) $ lift $ return $ f -    where f  = opcs "dssilist" [(Xr,[])] []---- VST.---- | --- VST audio output.------ vstaudio and vstaudiog---       are used for sending and receiving audio from a VST plugin.------ > aout1,aout2  vstaudio  instance, [ain1, ain2]------ csound doc: <http://csound.com/docs/manual/vstaudio.html>-vstaudio ::  D -> (Sig,Sig)-vstaudio b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "vstaudio" ([Ar,Ar],[Ir,Ar,Ar]) [a1]---- | --- VST audio output.------ vstaudio and vstaudiog---       are used for sending and receiving audio from a VST plugin.------ > aout1,aout2  vstaudiog  instance, [ain1, ain2]------ csound doc: <http://csound.com/docs/manual/vstaudio.html>-vstaudiog ::  D -> (Sig,Sig)-vstaudiog b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "vstaudiog" ([Ar,Ar],[Ir,Ar,Ar]) [a1]---- | --- Loads parameter banks to a VST plugin.------ vstbankload is used for loading parameter---       banks to a VST plugin.------ >  vstbankload  instance, ipath------ csound doc: <http://csound.com/docs/manual/vstbankload.html>-vstbankload ::  D -> D -> SE ()-vstbankload b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "vstbankload" [(Xr,[Ir,Ir])] [a1,a2]---- | --- Opens the GUI editor window for a VST plugin.------ vstedit opens the custom GUI editor window for a VST---       plugin. Note that not all VST plugins have custom GUI editors. It may---       be necessary to use the --displays command-line option to ensure that---       Csound handles events from the editor window and displays it properly.------ >  vstedit  instance------ csound doc: <http://csound.com/docs/manual/vstedit.html>-vstedit ::  D -> SE ()-vstedit b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "vstedit" [(Xr,[Ir])] [a1]---- | --- Displays the parameters and the programs of a VST plugin.------ vstinfo displays the parameters and the programs of a---       VST plugin.------ >  vstinfo  instance------ csound doc: <http://csound.com/docs/manual/vstinfo.html>-vstinfo ::  D -> SE ()-vstinfo b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "vstinfo" [(Xr,[Ir])] [a1]---- | --- Load a VST plugin into memory for use with the other vst4cs opcodes.------ vstinit is used to load a VST plugin into memory for use with---       the other vst4cs opcodes. Both VST effects and instruments---       (synthesizers) can be used.------ > instance  vstinit  ilibrarypath [,iverbose]------ csound doc: <http://csound.com/docs/manual/vstinit.html>-vstinit ::  D -> SE D-vstinit b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "vstinit" [(Ir,[Ir,Ir])] [a1]---- | --- Sends MIDI information to a VST plugin.------ vstmidiout is used for sending MIDI information to a VST plugin.------ >  vstmidiout  instance, kstatus, kchan, kdata1, kdata2------ csound doc: <http://csound.com/docs/manual/vstmidiout.html>-vstmidiout ::  D -> Sig -> Sig -> Sig -> Sig -> SE ()-vstmidiout b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "vstmidiout" [(Xr,[Ir,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]---- | --- Sends a MIDI note with definite duration to a VST plugin.------ vstnote sends a MIDI note with definite duration to a VST plugin.------ >  vstnote  instance, kchan, knote, kveloc, kdur--- >         ------ csound doc: <http://csound.com/docs/manual/vstnote.html>-vstnote ::  D -> Sig -> Sig -> Sig -> Sig -> SE ()-vstnote b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "vstnote" [(Xr,[Ir,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]---- | --- Used for parameter comunication to and from a VST plugin.------ vstparamset and vstparamget are used for parameter comunication to and from a VST plugin.------ >  vstparamset instance, kparam, kvalue------ csound doc: <http://csound.com/docs/manual/vstparamset.html>-vstparamset ::  D -> Sig -> Sig -> SE ()-vstparamset b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "vstparamset" [(Xr,[Ir,Kr,Kr])] [a1,a2,a3]---- | --- Used for parameter comunication to and from a VST plugin.------ vstparamset and vstparamget are used for parameter comunication to and from a VST plugin.------ > kvalue  vstparamget instance, kparam------ csound doc: <http://csound.com/docs/manual/vstparamset.html>-vstparamget ::  D -> Sig -> Sig-vstparamget b1 b2 = Sig $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "vstparamget" [(Kr,[Ir,Kr])] [a1,a2]---- | --- Loads parameter banks to a VST plugin.------ vstprogset sets one of the programs in an---       .fxb bank.------ >  vstprogset  instance, kprogram------ csound doc: <http://csound.com/docs/manual/vstprogset.html>-vstprogset ::  D -> Sig -> SE ()-vstprogset b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2-    where f a1 a2 = opcs "vstprogset" [(Xr,[Ir,Kr])] [a1,a2]+dssilist  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "dssilist" [(Xr,[])] []

@@ -2,22 +2,22 @@               -- * Input.-    aftouch, chanctrl, ctrl14, ctrl21, ctrl7, ctrlinit, initc14, initc21, initc7, massign, midic14, midic21, midic7, midictrl, notnum, pchbend, pgmassign, polyaft, veloc,+    aftouch, chanctrl, ctrl14, ctrl21, ctrl7, ctrlinit, ctrlpreset, ctrlprint, ctrlprintpresets, ctrlsave, ctrlselect, initc14, initc21, initc7, massign, midic14, midic21, midic7, midictrl, notnum, pchbend, pgmassign, polyaft, veloc,          -- * Output.     nrpn, outiat, outic, outic14, outipat, outipb, outipc, outkat, outkc, outkc14, outkpat, outkpb, outkpc,          -- * Converters.-    ampmidi, ampmidid, cpsmidi, cpsmidib, cpstmid, octmidi, octmidib, pchmidi, pchmidib,+    ampmidi, ampmidicurve, ampmidid, cpsmidi, cpsmidib, cpstmid, octmidi, octmidib, pchmidi, pchmidib,          -- * Generic I/O.     midiin, midiout, midiout_i,          -- * Event Extenders.-    release, xtratim,+    lastcycle, release, xtratim,          -- * Note Output.-    midion, midion2, moscil, noteoff, noteon, noteondur, noteondur2,+    midiarp, midion, midion2, moscil, noteoff, noteon, noteondur, noteondur2,          -- * MIDI/Score Interoperability.     midichannelaftertouch, midichn, midicontrolchange, mididefault, midinoteoff, midinoteoncps, midinoteonkey, midinoteonoct, midinoteonpch, midipitchbend, midipolyaftertouch, midiprogramchange,@@ -26,6 +26,7 @@     mclock, mrtmsg) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -36,10 +37,12 @@ -- -- > kaft  aftouch  [imin] [, imax] ----- csound doc: <http://csound.com/docs/manual/aftouch.html>+-- csound doc: <https://csound.com/docs/manual/aftouch.html> aftouch ::   Sig-aftouch  = Sig $ return $ f -    where f  = opcs "aftouch" [(Kr,[Ir,Ir])] []+aftouch  =+  Sig $ return $ f +  where+    f  = opcs "aftouch" [(Kr,[Ir,Ir])] []  -- |  -- Get the current value of a MIDI channel controller.@@ -49,10 +52,12 @@ -- > ival  chanctrl  ichnl, ictlno [, ilow] [, ihigh] -- > kval  chanctrl  ichnl, ictlno [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/chanctrl.html>+-- csound doc: <https://csound.com/docs/manual/chanctrl.html> chanctrl ::  D -> D -> Sig-chanctrl b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "chanctrl" [(Ir,[Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir])] [a1,a2]+chanctrl b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "chanctrl" [(Ir,[Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir])] [a1,a2]  -- |  -- Allows a floating-point 14-bit MIDI signal scaled with a minimum and a maximum range.@@ -60,14 +65,16 @@ -- > idest  ctrl14  ichan, ictlno1, ictlno2, imin, imax [, ifn] -- > kdest  ctrl14  ichan, ictlno1, ictlno2, kmin, kmax [, ifn] ----- csound doc: <http://csound.com/docs/manual/ctrl14.html>+-- csound doc: <https://csound.com/docs/manual/ctrl14.html> ctrl14 ::  D -> D -> D -> D -> D -> Sig-ctrl14 b1 b2 b3 b4 b5 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "ctrl14" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Kr,Kr,Ir])] [a1-                                                                                               ,a2-                                                                                               ,a3-                                                                                               ,a4-                                                                                               ,a5]+ctrl14 b1 b2 b3 b4 b5 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = opcs "ctrl14" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Kr,Kr,Ir])] [a1+                                                                                         ,a2+                                                                                         ,a3+                                                                                         ,a4+                                                                                         ,a5]  -- |  -- Allows a floating-point 21-bit MIDI signal scaled with a minimum and a maximum range.@@ -75,11 +82,13 @@ -- > idest  ctrl21  ichan, ictlno1, ictlno2, ictlno3, imin, imax [, ifn] -- > kdest  ctrl21  ichan, ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] ----- csound doc: <http://csound.com/docs/manual/ctrl21.html>+-- csound doc: <https://csound.com/docs/manual/ctrl21.html> ctrl21 ::  D -> D -> D -> D -> D -> D -> Sig-ctrl21 b1 b2 b3 b4 b5 b6 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "ctrl21" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir,Ir])-                                              ,(Kr,[Ir,Ir,Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5,a6]+ctrl21 b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "ctrl21" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir,Ir])+                                        ,(Kr,[Ir,Ir,Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5,a6]  -- |  -- Allows a floating-point 7-bit MIDI signal scaled with a minimum and a maximum range.@@ -88,12 +97,14 @@ -- > kdest  ctrl7  ichan, ictlno, kmin, kmax [, ifn] -- > adest  ctrl7  ichan, ictlno, kmin, kmax [, ifn] [, icutoff] ----- csound doc: <http://csound.com/docs/manual/ctrl7.html>+-- csound doc: <https://csound.com/docs/manual/ctrl7.html> ctrl7 ::  D -> D -> D -> D -> Sig-ctrl7 b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "ctrl7" [(Ir,[Ir,Ir,Ir,Ir,Ir])-                                       ,(Kr,[Ir,Ir,Kr,Kr,Ir])-                                       ,(Ar,[Ir,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4]+ctrl7 b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "ctrl7" [(Ir,[Ir,Ir,Ir,Ir,Ir])+                                 ,(Kr,[Ir,Ir,Kr,Kr,Ir])+                                 ,(Ar,[Ir,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sets the initial values for a set of MIDI controllers.@@ -101,30 +112,96 @@ -- >  ctrlinit  ichnl, ictlno1, ival1 [, ictlno2] [, ival2] [, ictlno3] \ -- >           [, ival3] [,...ival32] ----- csound doc: <http://csound.com/docs/manual/ctrlinit.html>+-- csound doc: <https://csound.com/docs/manual/ctrlinit.html> ctrlinit ::  [D] -> SE ()-ctrlinit b1 = SE $ (depT_ =<<) $ lift $ f <$> mapM unD b1-    where f a1 = opcs "ctrlinit" [(Xr,(repeat Ir))] a1+ctrlinit b1 =+  SE $ join $ f <$> mapM (lift . unD) b1+  where+    f a1 = opcsDep_ "ctrlinit" [(Xr,(repeat Ir))] a1  -- | ++--+-- > kpreset  ctrlpreset  ktag, kchnl, kctlno1, [kctlno2] [, kctlno3] ...+--+-- csound doc: <https://csound.com/docs/manual/ctrlpreset.html>+ctrlpreset ::  Sig -> Sig -> Sig -> Sig+ctrlpreset b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "ctrlpreset" [(Kr,(repeat Kr))] [a1,a2,a3]++-- | ++--+-- >   ctrlprint  kcont[][, Sfile]+--+-- csound doc: <https://csound.com/docs/manual/ctrlprint.html>+ctrlprint ::  Sig -> SE ()+ctrlprint b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "ctrlprint" [(Xr,[Kr,Sr])] [a1]++-- | ++--+-- >   ctrlprintpresets  [Sfilenam]+--+-- csound doc: <https://csound.com/docs/manual/ctrlprintpresets.html>+ctrlprintpresets ::   SE ()+ctrlprintpresets  =+  SE $ join $ return $ f +  where+    f  = opcsDep_ "ctrlprintpresets" [(Xr,[Sr])] []++-- | ++--+-- > kconnt[]  ctrlsave  ichnl, ictlno1, [ictlno2] [, ictlno3] ...+--+-- csound doc: <https://csound.com/docs/manual/ctrlsave.html>+ctrlsave ::  D -> D -> Sig+ctrlsave b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "ctrlsave" [(Kr,(repeat Ir))] [a1,a2]++-- | ++--+-- >   ctrlselect  kpre+--+-- csound doc: <https://csound.com/docs/manual/ctrlselect.html>+ctrlselect ::  Sig -> SE ()+ctrlselect b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "ctrlselect" [(Xr,[Kr])] [a1]++-- |  -- Initializes the controllers used to create a 14-bit MIDI value. -- -- >  initc14  ichan, ictlno1, ictlno2, ivalue ----- csound doc: <http://csound.com/docs/manual/initc14.html>+-- csound doc: <https://csound.com/docs/manual/initc14.html> initc14 ::  D -> D -> D -> D -> SE ()-initc14 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "initc14" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+initc14 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "initc14" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Initializes the controllers used to create a 21-bit MIDI value. -- -- >  initc21  ichan, ictlno1, ictlno2, ictlno3, ivalue ----- csound doc: <http://csound.com/docs/manual/initc21.html>+-- csound doc: <https://csound.com/docs/manual/initc21.html> initc21 ::  D -> D -> D -> D -> D -> SE ()-initc21 b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "initc21" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+initc21 b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "initc21" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Initializes the controller used to create a 7-bit MIDI value.@@ -133,10 +210,12 @@ -- -- >  initc7  ichan, ictlno, ivalue ----- csound doc: <http://csound.com/docs/manual/initc7.html>+-- csound doc: <https://csound.com/docs/manual/initc7.html> initc7 ::  D -> D -> D -> SE ()-initc7 b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "initc7" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+initc7 b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "initc7" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Assigns a MIDI channel number to a Csound instrument.@@ -144,10 +223,12 @@ -- >  massign  ichnl, insnum[, ireset] -- >  massign  ichnl, "insname"[, ireset] ----- csound doc: <http://csound.com/docs/manual/massign.html>+-- csound doc: <https://csound.com/docs/manual/massign.html> massign ::  D -> D -> SE ()-massign b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "massign" [(Xr,[Ir,Ir,Ir])] [a1,a2]+massign b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "massign" [(Xr,[Ir,Ir,Ir])] [a1,a2]  -- |  -- Allows a floating-point 14-bit MIDI signal scaled with a minimum and a maximum range.@@ -155,10 +236,12 @@ -- > idest  midic14  ictlno1, ictlno2, imin, imax [, ifn] -- > kdest  midic14  ictlno1, ictlno2, kmin, kmax [, ifn] ----- csound doc: <http://csound.com/docs/manual/midic14.html>+-- csound doc: <https://csound.com/docs/manual/midic14.html> midic14 ::  D -> D -> D -> D -> Sig-midic14 b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "midic14" [(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4]+midic14 b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "midic14" [(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4]  -- |  -- Allows a floating-point 21-bit MIDI signal scaled with a minimum and a maximum range.@@ -166,14 +249,16 @@ -- > idest  midic21  ictlno1, ictlno2, ictlno3, imin, imax [, ifn] -- > kdest  midic21  ictlno1, ictlno2, ictlno3, kmin, kmax [, ifn] ----- csound doc: <http://csound.com/docs/manual/midic21.html>+-- csound doc: <https://csound.com/docs/manual/midic21.html> midic21 ::  D -> D -> D -> D -> D -> Sig-midic21 b1 b2 b3 b4 b5 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "midic21" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Kr,Kr,Ir])] [a1-                                                                                                ,a2-                                                                                                ,a3-                                                                                                ,a4-                                                                                                ,a5]+midic21 b1 b2 b3 b4 b5 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = opcs "midic21" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Kr,Kr,Ir])] [a1+                                                                                          ,a2+                                                                                          ,a3+                                                                                          ,a4+                                                                                          ,a5]  -- |  -- Allows a floating-point 7-bit MIDI signal scaled with a minimum and a maximum range.@@ -181,10 +266,12 @@ -- > idest  midic7  ictlno, imin, imax [, ifn] -- > kdest  midic7  ictlno, kmin, kmax [, ifn] ----- csound doc: <http://csound.com/docs/manual/midic7.html>+-- csound doc: <https://csound.com/docs/manual/midic7.html> midic7 ::  D -> D -> D -> Sig-midic7 b1 b2 b3 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "midic7" [(Ir,[Ir,Ir,Ir,Ir]),(Kr,[Ir,Kr,Kr,Ir])] [a1,a2,a3]+midic7 b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "midic7" [(Ir,[Ir,Ir,Ir,Ir]),(Kr,[Ir,Kr,Kr,Ir])] [a1,a2,a3]  -- |  -- Get the current value (0-127) of a specified MIDI controller.@@ -192,20 +279,24 @@ -- > ival  midictrl  inum [, imin] [, imax] -- > kval  midictrl  inum [, imin] [, imax] ----- csound doc: <http://csound.com/docs/manual/midictrl.html>+-- csound doc: <https://csound.com/docs/manual/midictrl.html> midictrl ::  D -> Sig-midictrl b1 = Sig $ f <$> unD b1-    where f a1 = opcs "midictrl" [(Ir,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1]+midictrl b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "midictrl" [(Ir,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1]  -- |  -- Get a note number from a MIDI event. -- -- > ival  notnum  ----- csound doc: <http://csound.com/docs/manual/notnum.html>+-- csound doc: <https://csound.com/docs/manual/notnum.html> notnum ::  Msg -> D-notnum _  = D $ return $ f -    where f  = opcs "notnum" [(Ir,[])] []+notnum _  =+  D $ return $ f +  where+    f  = opcs "notnum" [(Ir,[])] []  -- |  -- Get the current pitch-bend value for this channel.@@ -213,10 +304,12 @@ -- > ibend  pchbend  [imin] [, imax] -- > kbend  pchbend  [imin] [, imax] ----- csound doc: <http://csound.com/docs/manual/pchbend.html>+-- csound doc: <https://csound.com/docs/manual/pchbend.html> pchbend ::  Msg -> Sig-pchbend _  = Sig $ return $ f -    where f  = opcs "pchbend" [(Ir,[Ir,Ir]),(Kr,[Ir,Ir])] []+pchbend _  =+  Sig $ return $ f +  where+    f  = opcs "pchbend" [(Ir,[Ir,Ir]),(Kr,[Ir,Ir])] []  -- |  -- Assigns an instrument number to a specified MIDI program.@@ -226,10 +319,12 @@ -- >  pgmassign  ipgm, inst[, ichn] -- >  pgmassign  ipgm, "insname"[, ichn] ----- csound doc: <http://csound.com/docs/manual/pgmassign.html>+-- csound doc: <https://csound.com/docs/manual/pgmassign.html> pgmassign ::  D -> D -> SE ()-pgmassign b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "pgmassign" [(Xr,[Ir,Ir,Ir])] [a1,a2]+pgmassign b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "pgmassign" [(Xr,[Ir,Ir,Ir])] [a1,a2]  -- |  -- Returns the polyphonic after-touch pressure of the selected note number.@@ -239,20 +334,24 @@ -- > ires  polyaft  inote [, ilow] [, ihigh] -- > kres  polyaft  inote [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/polyaft.html>+-- csound doc: <https://csound.com/docs/manual/polyaft.html> polyaft ::  D -> Sig-polyaft b1 = Sig $ f <$> unD b1-    where f a1 = opcs "polyaft" [(Ir,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1]+polyaft b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "polyaft" [(Ir,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1]  -- |  -- Get the velocity from a MIDI event. -- -- > ival  veloc  [ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/veloc.html>+-- csound doc: <https://csound.com/docs/manual/veloc.html> veloc ::  Msg -> D-veloc _  = D $ return $ f -    where f  = opcs "veloc" [(Ir,[Ir,Ir])] []+veloc _  =+  D $ return $ f +  where+    f  = opcs "veloc" [(Ir,[Ir,Ir])] []  -- Output. @@ -263,130 +362,156 @@ -- -- >  nrpn  kchan, kparmnum, kparmvalue ----- csound doc: <http://csound.com/docs/manual/nrpn.html>+-- csound doc: <https://csound.com/docs/manual/nrpn.html> nrpn ::  Sig -> Sig -> Sig -> SE ()-nrpn b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "nrpn" [(Xr,[Kr,Kr,Kr])] [a1,a2,a3]+nrpn b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "nrpn" [(Xr,[Kr,Kr,Kr])] [a1,a2,a3]  -- |  -- Sends MIDI aftertouch messages at i-rate. -- -- >  outiat  ichn, ivalue, imin, imax ----- csound doc: <http://csound.com/docs/manual/outiat.html>+-- csound doc: <https://csound.com/docs/manual/outiat.html> outiat ::  D -> D -> D -> D -> SE ()-outiat b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "outiat" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+outiat b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outiat" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sends MIDI controller output at i-rate. -- -- >  outic  ichn, inum, ivalue, imin, imax ----- csound doc: <http://csound.com/docs/manual/outic.html>+-- csound doc: <https://csound.com/docs/manual/outic.html> outic ::  D -> D -> D -> D -> D -> SE ()-outic b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "outic" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+outic b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "outic" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Sends 14-bit MIDI controller output at i-rate. -- -- >  outic14  ichn, imsb, ilsb, ivalue, imin, imax ----- csound doc: <http://csound.com/docs/manual/outic14.html>+-- csound doc: <https://csound.com/docs/manual/outic14.html> outic14 ::  D -> D -> D -> D -> D -> D -> SE ()-outic14 b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "outic14" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]+outic14 b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "outic14" [(Xr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]  -- |  -- Sends polyphonic MIDI aftertouch messages at i-rate. -- -- >  outipat  ichn, inotenum, ivalue, imin, imax ----- csound doc: <http://csound.com/docs/manual/outipat.html>+-- csound doc: <https://csound.com/docs/manual/outipat.html> outipat ::  D -> D -> D -> D -> D -> SE ()-outipat b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "outipat" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]+outipat b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "outipat" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]  -- |  -- Sends MIDI pitch-bend messages at i-rate. -- -- >  outipb  ichn, ivalue, imin, imax ----- csound doc: <http://csound.com/docs/manual/outipb.html>+-- csound doc: <https://csound.com/docs/manual/outipb.html> outipb ::  D -> D -> D -> D -> SE ()-outipb b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "outipb" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+outipb b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outipb" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sends MIDI program change messages at i-rate -- -- >  outipc  ichn, iprog, imin, imax ----- csound doc: <http://csound.com/docs/manual/outipc.html>+-- csound doc: <https://csound.com/docs/manual/outipc.html> outipc ::  D -> D -> D -> D -> SE ()-outipc b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "outipc" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+outipc b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outipc" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sends MIDI aftertouch messages at k-rate. -- -- >  outkat  kchn, kvalue, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkat.html>+-- csound doc: <https://csound.com/docs/manual/outkat.html> outkat ::  Sig -> Sig -> Sig -> Sig -> SE ()-outkat b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "outkat" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+outkat b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outkat" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Sends MIDI controller messages at k-rate. -- -- >  outkc  kchn, knum, kvalue, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkc.html>+-- csound doc: <https://csound.com/docs/manual/outkc.html> outkc ::  Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-outkc b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "outkc" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]+outkc b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "outkc" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]  -- |  -- Sends 14-bit MIDI controller output at k-rate. -- -- >  outkc14  kchn, kmsb, klsb, kvalue, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkc14.html>+-- csound doc: <https://csound.com/docs/manual/outkc14.html> outkc14 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-outkc14 b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "outkc14" [(Xr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]+outkc14 b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5 <*> (lift . unSig) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "outkc14" [(Xr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]  -- |  -- Sends polyphonic MIDI aftertouch messages at k-rate. -- -- >  outkpat  kchn, knotenum, kvalue, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkpat.html>+-- csound doc: <https://csound.com/docs/manual/outkpat.html> outkpat ::  Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-outkpat b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "outkpat" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]+outkpat b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "outkpat" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]  -- |  -- Sends MIDI pitch-bend messages at k-rate. -- -- >  outkpb  kchn, kvalue, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkpb.html>+-- csound doc: <https://csound.com/docs/manual/outkpb.html> outkpb ::  Sig -> Sig -> Sig -> Sig -> SE ()-outkpb b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "outkpb" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+outkpb b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outkpb" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Sends MIDI program change messages at k-rate. -- -- >  outkpc  kchn, kprog, kmin, kmax ----- csound doc: <http://csound.com/docs/manual/outkpc.html>+-- csound doc: <https://csound.com/docs/manual/outkpc.html> outkpc ::  Sig -> Sig -> Sig -> Sig -> SE ()-outkpc b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "outkpc" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+outkpc b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "outkpc" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- Converters. @@ -395,31 +520,50 @@ -- -- > iamp  ampmidi  iscal [, ifn] ----- csound doc: <http://csound.com/docs/manual/ampmidi.html>+-- csound doc: <https://csound.com/docs/manual/ampmidi.html> ampmidi ::  Msg -> D -> D-ampmidi _ b1 = D $ f <$> unD b1-    where f a1 = opcs "ampmidi" [(Ir,[Ir,Ir])] [a1]+ampmidi _ b1 =+  D $ f <$> unD b1+  where+    f a1 = opcs "ampmidi" [(Ir,[Ir,Ir])] [a1]  -- | ++--+-- > igain  ampmidicurve  ivelocity, idynamicrange, iexponent+-- > kgain  ampmidicurve  kvelocity, kdynamicrange, kexponent+--+-- csound doc: <https://csound.com/docs/manual/ampmidicurve.html>+ampmidicurve ::  D -> D -> D -> Sig+ampmidicurve b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "ampmidicurve" [(Ir,[Ir,Ir,Ir]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- |  -- Musically map MIDI velocity to peak amplitude within a specified dynamic range in decibels. -- -- > iamplitude  ampmidid  ivelocity, idecibels -- > kamplitude  ampmidid  kvelocity, idecibels ----- csound doc: <http://csound.com/docs/manual/ampmidid.html>+-- csound doc: <https://csound.com/docs/manual/ampmidid.html> ampmidid ::  D -> D -> Sig-ampmidid b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "ampmidid" [(Ir,[Ir,Ir]),(Kr,[Kr,Ir])] [a1,a2]+ampmidid b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "ampmidid" [(Ir,[Ir,Ir]),(Kr,[Kr,Ir])] [a1,a2]  -- |  -- Get the note number of the current MIDI event, expressed in cycles-per-second. -- -- > icps  cpsmidi  ----- csound doc: <http://csound.com/docs/manual/cpsmidi.html>+-- csound doc: <https://csound.com/docs/manual/cpsmidi.html> cpsmidi ::  Msg -> D-cpsmidi _  = D $ return $ f -    where f  = opcs "cpsmidi" [(Ir,[])] []+cpsmidi _  =+  D $ return $ f +  where+    f  = opcs "cpsmidi" [(Ir,[])] []  -- |  -- Get the note number of the current MIDI event and modify it by the current pitch-bend value, express it in cycles-per-second.@@ -427,10 +571,12 @@ -- > icps  cpsmidib  [irange] -- > kcps  cpsmidib  [irange] ----- csound doc: <http://csound.com/docs/manual/cpsmidib.html>+-- csound doc: <https://csound.com/docs/manual/cpsmidib.html> cpsmidib ::  Msg -> Sig-cpsmidib _  = Sig $ return $ f -    where f  = opcs "cpsmidib" [(Ir,[Ir]),(Kr,[Ir])] []+cpsmidib _  =+  Sig $ return $ f +  where+    f  = opcs "cpsmidib" [(Ir,[Ir]),(Kr,[Ir])] []  -- |  -- Get a MIDI note number (allows customized micro-tuning scales).@@ -439,20 +585,24 @@ -- -- > icps  cpstmid  ifn ----- csound doc: <http://csound.com/docs/manual/cpstmid.html>+-- csound doc: <https://csound.com/docs/manual/cpstmid.html> cpstmid ::  Msg -> Tab -> D-cpstmid _ b1 = D $ f <$> unTab b1-    where f a1 = opcs "cpstmid" [(Ir,[Ir])] [a1]+cpstmid _ b1 =+  D $ f <$> unTab b1+  where+    f a1 = opcs "cpstmid" [(Ir,[Ir])] [a1]  -- |  -- Get the note number, in octave-point-decimal units, of the current MIDI event. -- -- > ioct  octmidi  ----- csound doc: <http://csound.com/docs/manual/octmidi.html>+-- csound doc: <https://csound.com/docs/manual/octmidi.html> octmidi ::  Msg -> D-octmidi _  = D $ return $ f -    where f  = opcs "octmidi" [(Ir,[])] []+octmidi _  =+  D $ return $ f +  where+    f  = opcs "octmidi" [(Ir,[])] []  -- |  -- Get the note number of the current MIDI event and modify it by the current pitch-bend value, express it in octave-point-decimal.@@ -460,20 +610,24 @@ -- > ioct  octmidib  [irange] -- > koct  octmidib  [irange] ----- csound doc: <http://csound.com/docs/manual/octmidib.html>+-- csound doc: <https://csound.com/docs/manual/octmidib.html> octmidib ::  Msg -> Sig-octmidib _  = Sig $ return $ f -    where f  = opcs "octmidib" [(Ir,[Ir]),(Kr,[Ir])] []+octmidib _  =+  Sig $ return $ f +  where+    f  = opcs "octmidib" [(Ir,[Ir]),(Kr,[Ir])] []  -- |  -- Get the note number of the current MIDI event, expressed in pitch-class units. -- -- > ipch  pchmidi  ----- csound doc: <http://csound.com/docs/manual/pchmidi.html>+-- csound doc: <https://csound.com/docs/manual/pchmidi.html> pchmidi ::  Msg -> D-pchmidi _  = D $ return $ f -    where f  = opcs "pchmidi" [(Ir,[])] []+pchmidi _  =+  D $ return $ f +  where+    f  = opcs "pchmidi" [(Ir,[])] []  -- |  -- Get the note number of the current MIDI event and modify it by the current pitch-bend value, express it in pitch-class units.@@ -481,10 +635,12 @@ -- > ipch  pchmidib  [irange] -- > kpch  pchmidib  [irange] ----- csound doc: <http://csound.com/docs/manual/pchmidib.html>+-- csound doc: <https://csound.com/docs/manual/pchmidib.html> pchmidib ::  Msg -> Sig-pchmidib _  = Sig $ return $ f -    where f  = opcs "pchmidib" [(Ir,[Ir]),(Kr,[Ir])] []+pchmidib _  =+  Sig $ return $ f +  where+    f  = opcs "pchmidib" [(Ir,[Ir]),(Kr,[Ir])] []  -- Generic I/O. @@ -495,44 +651,64 @@ -- -- > kstatus, kchan, kdata1, kdata2  midiin  ----- csound doc: <http://csound.com/docs/manual/midiin.html>+-- csound doc: <https://csound.com/docs/manual/midiin.html> midiin ::   (Sig,Sig,Sig,Sig)-midiin  = pureTuple $ return $ f -    where f  = mopcs "midiin" ([Kr,Kr,Kr,Kr],[]) []+midiin  =+  pureTuple $ return $ f +  where+    f  = mopcs "midiin" ([Kr,Kr,Kr,Kr],[]) []  -- |  -- Sends a generic MIDI message to the MIDI OUT port. -- -- >  midiout  kstatus, kchan, kdata1, kdata2 ----- csound doc: <http://csound.com/docs/manual/midiout.html>+-- csound doc: <https://csound.com/docs/manual/midiout.html> midiout ::  Sig -> Sig -> Sig -> Sig -> SE ()-midiout b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "midiout" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+midiout b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "midiout" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Sends a generic MIDI message to the MIDI OUT port. -- -- >  midiout_i  istatus, ichan, idata1, idata2 ----- csound doc: <http://csound.com/docs/manual/midiout_i.html>+-- csound doc: <https://csound.com/docs/manual/midiout_i.html> midiout_i ::  D -> D -> D -> D -> SE ()-midiout_i b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "midiout_i" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+midiout_i b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "midiout_i" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- Event Extenders.  -- | ++--+-- > kflag  lastcycle +--+-- csound doc: <https://csound.com/docs/manual/lastcycle.html>+lastcycle ::   Sig+lastcycle  =+  Sig $ return $ f +  where+    f  = opcs "lastcycle" [(Kr,[])] []++-- |  -- Indicates whether a note is in its “release” stage. -- -- Provides a way of knowing when a note off message for the current note is received. Only a noteoff message with the same MIDI note number as the one which triggered the note will be reported by release. -- -- > kflag  release  ----- csound doc: <http://csound.com/docs/manual/release.html>+-- csound doc: <https://csound.com/docs/manual/release.html> release ::   Sig-release  = Sig $ return $ f -    where f  = opcs "release" [(Kr,[])] []+release  =+  Sig $ return $ f +  where+    f  = opcs "release" [(Kr,[])] []  -- |  -- Extend the duration of real-time generated events.@@ -541,22 +717,38 @@ -- -- >  xtratim  iextradur ----- csound doc: <http://csound.com/docs/manual/xtratim.html>+-- csound doc: <https://csound.com/docs/manual/xtratim.html> xtratim ::  D -> SE ()-xtratim b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "xtratim" [(Xr,[Ir])] [a1]+xtratim b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "xtratim" [(Xr,[Ir])] [a1]  -- Note Output.  -- | ++--+-- > kMidiNoteNum, kTrigger  midiarp  kRate[, kMode]+--+-- csound doc: <https://csound.com/docs/manual/midiarp.html>+midiarp ::  Sig -> (Sig,Sig)+midiarp b1 =+  pureTuple $ f <$> unSig b1+  where+    f a1 = mopcs "midiarp" ([Kr,Kr],[Kr,Kr]) [a1]++-- |  -- Generates MIDI note messages at k-rate. -- -- >  midion  kchn, knum, kvel ----- csound doc: <http://csound.com/docs/manual/midion.html>+-- csound doc: <https://csound.com/docs/manual/midion.html> midion ::  Sig -> Sig -> Sig -> SE ()-midion b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "midion" [(Xr,[Kr,Kr,Kr])] [a1,a2,a3]+midion b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "midion" [(Xr,[Kr,Kr,Kr])] [a1,a2,a3]  -- |  -- Sends noteon and noteoff messages to the MIDI OUT port.@@ -565,60 +757,72 @@ -- -- >  midion2  kchn, knum, kvel, ktrig ----- csound doc: <http://csound.com/docs/manual/midion2.html>+-- csound doc: <https://csound.com/docs/manual/midion2.html> midion2 ::  Sig -> Sig -> Sig -> Sig -> SE ()-midion2 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "midion2" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]+midion2 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "midion2" [(Xr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]  -- |  -- Sends a stream of the MIDI notes. -- -- >  moscil  kchn, knum, kvel, kdur, kpause ----- csound doc: <http://csound.com/docs/manual/moscil.html>+-- csound doc: <https://csound.com/docs/manual/moscil.html> moscil ::  Sig -> Sig -> Sig -> Sig -> Sig -> SE ()-moscil b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "moscil" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]+moscil b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "moscil" [(Xr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]  -- |  -- Send a noteoff message to the MIDI OUT port. -- -- >  noteoff  ichn, inum, ivel ----- csound doc: <http://csound.com/docs/manual/noteoff.html>+-- csound doc: <https://csound.com/docs/manual/noteoff.html> noteoff ::  D -> D -> D -> SE ()-noteoff b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "noteoff" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+noteoff b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "noteoff" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Send a noteon message to the MIDI OUT port. -- -- >  noteon  ichn, inum, ivel ----- csound doc: <http://csound.com/docs/manual/noteon.html>+-- csound doc: <https://csound.com/docs/manual/noteon.html> noteon ::  D -> D -> D -> SE ()-noteon b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "noteon" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]+noteon b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "noteon" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]  -- |  -- Sends a noteon and a noteoff MIDI message both with the same channel, number and velocity. -- -- >  noteondur  ichn, inum, ivel, idur ----- csound doc: <http://csound.com/docs/manual/noteondur.html>+-- csound doc: <https://csound.com/docs/manual/noteondur.html> noteondur ::  D -> D -> D -> D -> SE ()-noteondur b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "noteondur" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+noteondur b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "noteondur" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- |  -- Sends a noteon and a noteoff MIDI message both with the same channel, number and velocity. -- -- >  noteondur2  ichn, inum, ivel, idur ----- csound doc: <http://csound.com/docs/manual/noteondur2.html>+-- csound doc: <https://csound.com/docs/manual/noteondur2.html> noteondur2 ::  D -> D -> D -> D -> SE ()-noteondur2 b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "noteondur2" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]+noteondur2 b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "noteondur2" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]  -- MIDI/Score Interoperability. @@ -629,10 +833,12 @@ -- -- >  midichannelaftertouch  xchannelaftertouch [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/midichannelaftertouch.html>+-- csound doc: <https://csound.com/docs/manual/midichannelaftertouch.html> midichannelaftertouch ::  Sig -> SE ()-midichannelaftertouch b1 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "midichannelaftertouch" [(Xr,[Xr,Ir,Ir])] [a1]+midichannelaftertouch b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "midichannelaftertouch" [(Xr,[Xr,Ir,Ir])] [a1]  -- |  -- Returns the MIDI channel number from which the note was activated.@@ -641,10 +847,12 @@ -- -- > ichn  midichn  ----- csound doc: <http://csound.com/docs/manual/midichn.html>+-- csound doc: <https://csound.com/docs/manual/midichn.html> midichn ::   D-midichn  = D $ return $ f -    where f  = opcs "midichn" [(Ir,[])] []+midichn  =+  D $ return $ f +  where+    f  = opcs "midichn" [(Ir,[])] []  -- |  -- Gets a MIDI control change value.@@ -653,10 +861,12 @@ -- -- >  midicontrolchange  xcontroller, xcontrollervalue [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/midicontrolchange.html>+-- csound doc: <https://csound.com/docs/manual/midicontrolchange.html> midicontrolchange ::  Sig -> Sig -> SE ()-midicontrolchange b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midicontrolchange" [(Xr,[Xr,Xr,Ir,Ir])] [a1,a2]+midicontrolchange b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midicontrolchange" [(Xr,[Xr,Xr,Ir,Ir])] [a1,a2]  -- |  -- Changes values, depending on MIDI activation.@@ -665,10 +875,12 @@ -- -- >  mididefault  xdefault, xvalue ----- csound doc: <http://csound.com/docs/manual/mididefault.html>+-- csound doc: <https://csound.com/docs/manual/mididefault.html> mididefault ::  Sig -> Sig -> SE ()-mididefault b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "mididefault" [(Xr,[Xr,Xr])] [a1,a2]+mididefault b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "mididefault" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI noteoff value.@@ -677,10 +889,12 @@ -- -- >  midinoteoff  xkey, xvelocity ----- csound doc: <http://csound.com/docs/manual/midinoteoff.html>+-- csound doc: <https://csound.com/docs/manual/midinoteoff.html> midinoteoff ::  Sig -> Sig -> SE ()-midinoteoff b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midinoteoff" [(Xr,[Xr,Xr])] [a1,a2]+midinoteoff b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midinoteoff" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI note number as a cycles-per-second frequency.@@ -689,10 +903,12 @@ -- -- >  midinoteoncps  xcps, xvelocity ----- csound doc: <http://csound.com/docs/manual/midinoteoncps.html>+-- csound doc: <https://csound.com/docs/manual/midinoteoncps.html> midinoteoncps ::  Sig -> Sig -> SE ()-midinoteoncps b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midinoteoncps" [(Xr,[Xr,Xr])] [a1,a2]+midinoteoncps b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midinoteoncps" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI note number value.@@ -701,10 +917,12 @@ -- -- >  midinoteonkey  xkey, xvelocity ----- csound doc: <http://csound.com/docs/manual/midinoteonkey.html>+-- csound doc: <https://csound.com/docs/manual/midinoteonkey.html> midinoteonkey ::  Sig -> Sig -> SE ()-midinoteonkey b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midinoteonkey" [(Xr,[Xr,Xr])] [a1,a2]+midinoteonkey b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midinoteonkey" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI note number value as octave-point-decimal value.@@ -713,10 +931,12 @@ -- -- >  midinoteonoct  xoct, xvelocity ----- csound doc: <http://csound.com/docs/manual/midinoteonoct.html>+-- csound doc: <https://csound.com/docs/manual/midinoteonoct.html> midinoteonoct ::  Sig -> Sig -> SE ()-midinoteonoct b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midinoteonoct" [(Xr,[Xr,Xr])] [a1,a2]+midinoteonoct b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midinoteonoct" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI note number as a pitch-class value.@@ -725,10 +945,12 @@ -- -- >  midinoteonpch  xpch, xvelocity ----- csound doc: <http://csound.com/docs/manual/midinoteonpch.html>+-- csound doc: <https://csound.com/docs/manual/midinoteonpch.html> midinoteonpch ::  Sig -> Sig -> SE ()-midinoteonpch b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midinoteonpch" [(Xr,[Xr,Xr])] [a1,a2]+midinoteonpch b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midinoteonpch" [(Xr,[Xr,Xr])] [a1,a2]  -- |  -- Gets a MIDI pitchbend value.@@ -737,22 +959,26 @@ -- -- >  midipitchbend  xpitchbend [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/midipitchbend.html>+-- csound doc: <https://csound.com/docs/manual/midipitchbend.html> midipitchbend ::  Sig -> SE ()-midipitchbend b1 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "midipitchbend" [(Xr,[Xr,Ir,Ir])] [a1]+midipitchbend b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "midipitchbend" [(Xr,[Xr,Ir,Ir])] [a1]  -- |  -- Gets a MIDI polyphonic aftertouch value. -- -- midipolyaftertouch is designed to simplify writing instruments that can be used interchangeably for either score or MIDI input, and to make it easier to adapt instruments originally written for score input to work with MIDI input. ----- >  midipolyaftertouch  xpolyaftertouch, xcontrollervalue [, ilow] [, ihigh]+-- >  midipolyaftertouch  xpolyaftertouch, xkey [, ilow] [, ihigh] ----- csound doc: <http://csound.com/docs/manual/midipolyaftertouch.html>+-- csound doc: <https://csound.com/docs/manual/midipolyaftertouch.html> midipolyaftertouch ::  Sig -> Sig -> SE ()-midipolyaftertouch b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "midipolyaftertouch" [(Xr,[Xr,Xr,Ir,Ir])] [a1,a2]+midipolyaftertouch b1 b2 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "midipolyaftertouch" [(Xr,[Xr,Xr,Ir,Ir])] [a1,a2]  -- |  -- Gets a MIDI program change value.@@ -761,10 +987,12 @@ -- -- >  midiprogramchange  xprogram ----- csound doc: <http://csound.com/docs/manual/midiprogramchange.html>+-- csound doc: <https://csound.com/docs/manual/midiprogramchange.html> midiprogramchange ::  Sig -> SE ()-midiprogramchange b1 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "midiprogramchange" [(Xr,[Xr])] [a1]+midiprogramchange b1 =+  SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep_ "midiprogramchange" [(Xr,[Xr])] [a1]  -- System Realtime. @@ -773,17 +1001,21 @@ -- -- >  mclock  ifreq ----- csound doc: <http://csound.com/docs/manual/mclock.html>+-- csound doc: <https://csound.com/docs/manual/mclock.html> mclock ::  D -> SE ()-mclock b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "mclock" [(Xr,[Ir])] [a1]+mclock b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "mclock" [(Xr,[Ir])] [a1]  -- |  -- Send system real-time messages to the MIDI OUT port. -- -- >  mrtmsg  imsgtype ----- csound doc: <http://csound.com/docs/manual/mrtmsg.html>+-- csound doc: <https://csound.com/docs/manual/mrtmsg.html> mrtmsg ::  D -> SE ()-mrtmsg b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "mrtmsg" [(Xr,[Ir])] [a1]+mrtmsg b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "mrtmsg" [(Xr,[Ir])] [a1]

@@ -5,6 +5,7 @@     insglobal, insremot, midglobal, midremot) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -31,10 +32,12 @@ -- -- >  insglobal  isource, instrnum [,instrnum...]  ----- csound doc: <http://csound.com/docs/manual/insglobal.html>+-- csound doc: <https://csound.com/docs/manual/insglobal.html> insglobal ::  D -> D -> SE ()-insglobal b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "insglobal" [(Xr,(repeat Ir))] [a1,a2]+insglobal b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "insglobal" [(Xr,(repeat Ir))] [a1,a2]  -- |  -- An opcode which can be used to implement a remote@@ -55,10 +58,12 @@ -- -- >  insremot  idestination, isource, instrnum [,instrnum...]  ----- csound doc: <http://csound.com/docs/manual/insremot.html>+-- csound doc: <https://csound.com/docs/manual/insremot.html> insremot ::  D -> D -> D -> SE ()-insremot b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "insremot" [(Xr,(repeat Ir))] [a1,a2,a3]+insremot b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "insremot" [(Xr,(repeat Ir))] [a1,a2,a3]  -- |  -- An opcode which can be used to implement a remote midi orchestra. This opcode will broadcast the midi events to all the machines involved in the remote concert.@@ -67,10 +72,12 @@ -- -- >  midglobal  isource, instrnum [,instrnum...]  ----- csound doc: <http://csound.com/docs/manual/midglobal.html>+-- csound doc: <https://csound.com/docs/manual/midglobal.html> midglobal ::  D -> D -> SE ()-midglobal b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "midglobal" [(Xr,(repeat Ir))] [a1,a2]+midglobal b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "midglobal" [(Xr,(repeat Ir))] [a1,a2]  -- |  -- An opcode which can be used to implement a remote midi orchestra. This opcode will send midi events from a source machine to one destination.@@ -79,7 +86,9 @@ -- -- >  midremot  idestination, isource, instrnum [,instrnum...]  ----- csound doc: <http://csound.com/docs/manual/midremot.html>+-- csound doc: <https://csound.com/docs/manual/midremot.html> midremot ::  D -> D -> D -> SE ()-midremot b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "midremot" [(Xr,(repeat Ir))] [a1,a2,a3]+midremot b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "midremot" [(Xr,(repeat Ir))] [a1,a2,a3]

@@ -2,25 +2,77 @@               -    serialBegin, serialEnd, serialFlush, serialPrint, serialRead, serialWrite, serialWrite_i) where+    arduinoRead, arduinoReadF, arduinoStart, arduinoStop, serialBegin, serialEnd, serialFlush, serialPrint, serialRead, serialWrite, serialWrite_i) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed  --   -- | ++--+-- > kval  arduinoRead  iPort, iStream[, iSmooth]+--+-- csound doc: <https://csound.com/docs/manual/arduinoRead.html>+arduinoRead ::  D -> D -> Sig+arduinoRead b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "arduinoRead" [(Kr,[Ir,Ir,Ir])] [a1,a2]++-- | ++--+-- > kval  arduinoReadF  iPort, iStream1,+-- >           iStream2, iStream3+--+-- csound doc: <https://csound.com/docs/manual/arduinoReadF.html>+arduinoReadF ::  D -> D -> D -> D -> Sig+arduinoReadF b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "arduinoReadF" [(Kr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | ++--+-- > iPort  arduinoStart  SPortName [, ibaudRate]+--+-- csound doc: <https://csound.com/docs/manual/arduinoStart.html>+arduinoStart ::  Str -> D+arduinoStart b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "arduinoStart" [(Ir,[Sr,Ir])] [a1]++-- | ++--+-- >   arduinoStop  iPort+--+-- csound doc: <https://csound.com/docs/manual/arduinoStop.html>+arduinoStop ::  D -> SE ()+arduinoStop b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "arduinoStop" [(Xr,[Ir])] [a1]++-- |  -- Open a serial port. -- -- Open a serial port for arduino. -- -- > iPort  serialBegin  SPortName [, ibaudRate] ----- csound doc: <http://csound.com/docs/manual/serialBegin.html>+-- csound doc: <https://csound.com/docs/manual/serialBegin.html> serialBegin ::  Str -> SE D-serialBegin b1 = fmap ( D . return) $ SE $ (depT =<<) $ lift $ f <$> unStr b1-    where f a1 = opcs "serialBegin" [(Ir,[Sr,Ir])] [a1]+serialBegin b1 =+  fmap ( D . return) $ SE $ join $ f <$> (lift . unStr) b1+  where+    f a1 = opcsDep "serialBegin" [(Ir,[Sr,Ir])] [a1]  -- |  -- Close a serial port.@@ -29,10 +81,12 @@ -- -- >   serialEnd  iPort ----- csound doc: <http://csound.com/docs/manual/serialEnd.html>+-- csound doc: <https://csound.com/docs/manual/serialEnd.html> serialEnd ::  D -> SE ()-serialEnd b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "serialEnd" [(Xr,[Ir])] [a1]+serialEnd b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "serialEnd" [(Xr,[Ir])] [a1]  -- |  -- Flush data from a serial port.@@ -46,10 +100,12 @@ -- -- >   serialFlush  iPort ----- csound doc: <http://csound.com/docs/manual/serialFlush.html>+-- csound doc: <https://csound.com/docs/manual/serialFlush.html> serialFlush ::  D -> SE ()-serialFlush b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "serialFlush" [(Xr,[Ir])] [a1]+serialFlush b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "serialFlush" [(Xr,[Ir])] [a1]  -- |  -- Print data from a serial port.@@ -63,10 +119,12 @@ -- -- >   serialPrint  iPort ----- csound doc: <http://csound.com/docs/manual/serialPrint.html>+-- csound doc: <https://csound.com/docs/manual/serialPrint.html> serialPrint ::  D -> SE ()-serialPrint b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "serialPrint" [(Xr,[Ir])] [a1]+serialPrint b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "serialPrint" [(Xr,[Ir])] [a1]  -- |  -- Read data from a serial port.@@ -75,10 +133,12 @@ -- -- > kByte  serialRead  iPort ----- csound doc: <http://csound.com/docs/manual/serialRead.html>+-- csound doc: <https://csound.com/docs/manual/serialRead.html> serialRead ::  D -> Sig-serialRead b1 = Sig $ f <$> unD b1-    where f a1 = opcs "serialRead" [(Kr,[Ir])] [a1]+serialRead b1 =+  Sig $ f <$> unD b1+  where+    f a1 = opcs "serialRead" [(Kr,[Ir])] [a1]  -- |  -- Write data to a serial port.@@ -89,10 +149,12 @@ -- >   serialWrite  iPort, kByte -- >   serialWrite  iPort, SBytes ----- csound doc: <http://csound.com/docs/manual/serialWrite.html>+-- csound doc: <https://csound.com/docs/manual/serialWrite.html> serialWrite ::  D -> D -> SE ()-serialWrite b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "serialWrite" [(Xr,[Ir,Ir])] [a1,a2]+serialWrite b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "serialWrite" [(Xr,[Ir,Ir])] [a1,a2]  -- |  -- Write data to a serial port.@@ -102,7 +164,9 @@ -- >   serialWrite_i  iPort, iByte -- >   serialWrite_i  iPort, SBytes ----- csound doc: <http://csound.com/docs/manual/serialWrite_i.html>+-- csound doc: <https://csound.com/docs/manual/serialWrite_i.html> serialWrite_i ::  D -> D -> SE ()-serialWrite_i b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "serialWrite_i" [(Xr,[Ir,Ir])] [a1,a2]+serialWrite_i b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep_ "serialWrite_i" [(Xr,[Ir,Ir])] [a1,a2]

@@ -5,6 +5,7 @@     ftgenonce, inleta, inletf, inletk, inletkid, inletv, outleta, outletf, outletk, outletkid, outletv) where  import Control.Monad.Trans.Class+import Control.Monad import Csound.Dynamic import Csound.Typed @@ -18,107 +19,129 @@ -- -- > ifno  ftgenonce  ip1, ip2dummy, isize, igen, iarga, iargb, ... ----- csound doc: <http://csound.com/docs/manual/ftgenonce.html>+-- csound doc: <https://csound.com/docs/manual/ftgenonce.html> 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)+ftgenonce b1 b2 b3 b4 b5 b6 =+  fmap ( Tab . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> mapM (lift . unD) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep "ftgenonce" [(Ir,(repeat Ir))] ([a1,a2,a3,a4,a5] ++ a6)  -- |  -- Receives an arate signal into an instrument through a named port. -- -- > asignal  inleta Sname ----- csound doc: <http://csound.com/docs/manual/inleta.html>+-- csound doc: <https://csound.com/docs/manual/inleta.html> inleta ::  Str -> Sig-inleta b1 = Sig $ f <$> unStr b1-    where f a1 = opcs "inleta" [(Ar,[Sr])] [a1]+inleta b1 =+  Sig $ f <$> unStr b1+  where+    f a1 = opcs "inleta" [(Ar,[Sr])] [a1]  -- |  -- Receives an frate signal (fsig) into an instrument from a named port. -- -- > fsignal  inletf Sname ----- csound doc: <http://csound.com/docs/manual/inletf.html>+-- csound doc: <https://csound.com/docs/manual/inletf.html> inletf ::  Str -> Spec-inletf b1 = Spec $ f <$> unStr b1-    where f a1 = opcs "inletf" [(Fr,[Sr])] [a1]+inletf b1 =+  Spec $ f <$> unStr b1+  where+    f a1 = opcs "inletf" [(Fr,[Sr])] [a1]  -- |  -- Receives a krate signal into an instrument from a named port. -- -- > ksignal  inletk Sname ----- csound doc: <http://csound.com/docs/manual/inletk.html>+-- csound doc: <https://csound.com/docs/manual/inletk.html> inletk ::  Str -> Sig-inletk b1 = Sig $ f <$> unStr b1-    where f a1 = opcs "inletk" [(Kr,[Sr])] [a1]+inletk b1 =+  Sig $ f <$> unStr b1+  where+    f a1 = opcs "inletk" [(Kr,[Sr])] [a1]  -- |  -- Receives a krate signal into an instrument from a named port. -- -- > ksignal  inletkid Sname, SinstanceID ----- csound doc: <http://csound.com/docs/manual/inletkid.html>+-- csound doc: <https://csound.com/docs/manual/inletkid.html> inletkid ::  Str -> Str -> Sig-inletkid b1 b2 = Sig $ f <$> unStr b1 <*> unStr b2-    where f a1 a2 = opcs "inletkid" [(Kr,[Sr,Sr])] [a1,a2]+inletkid b1 b2 =+  Sig $ f <$> unStr b1 <*> unStr b2+  where+    f a1 a2 = opcs "inletkid" [(Kr,[Sr,Sr])] [a1,a2]  -- |  -- Receives an arate array signal into an instrument through a named port. -- -- > array  inletv Sname ----- csound doc: <http://csound.com/docs/manual/inletv.html>+-- csound doc: <https://csound.com/docs/manual/inletv.html> inletv ::  Str -> Sig-inletv b1 = Sig $ f <$> unStr b1-    where f a1 = opcs "inletv" [(Ar,[Sr])] [a1]+inletv b1 =+  Sig $ f <$> unStr b1+  where+    f a1 = opcs "inletv" [(Ar,[Sr])] [a1]  -- |  -- Sends an arate signal out from an instrument to a named port. -- -- >  outleta Sname, asignal ----- csound doc: <http://csound.com/docs/manual/outleta.html>+-- csound doc: <https://csound.com/docs/manual/outleta.html> outleta ::  Str -> Sig -> SE ()-outleta b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2-    where f a1 a2 = opcs "outleta" [(Xr,[Sr,Ar])] [a1,a2]+outleta b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "outleta" [(Xr,[Sr,Ar])] [a1,a2]  -- |  -- Sends a frate signal (fsig) out from an instrument to a named port. -- -- >  outletf Sname, fsignal ----- csound doc: <http://csound.com/docs/manual/outletf.html>+-- csound doc: <https://csound.com/docs/manual/outletf.html> outletf ::  Str -> Spec -> SE ()-outletf b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSpec b2-    where f a1 a2 = opcs "outletf" [(Xr,[Sr,Fr])] [a1,a2]+outletf b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSpec) b2+  where+    f a1 a2 = opcsDep_ "outletf" [(Xr,[Sr,Fr])] [a1,a2]  -- |  -- Sends a krate signal out from an instrument to a named port. -- -- >  outletk Sname, ksignal ----- csound doc: <http://csound.com/docs/manual/outletk.html>+-- csound doc: <https://csound.com/docs/manual/outletk.html> outletk ::  Str -> Sig -> SE ()-outletk b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2-    where f a1 a2 = opcs "outletk" [(Xr,[Sr,Kr])] [a1,a2]+outletk b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "outletk" [(Xr,[Sr,Kr])] [a1,a2]  -- |  -- Sends a krate signal out from an instrument to a named port. -- -- >  outletkid Sname, SinstanceID, ksignal ----- csound doc: <http://csound.com/docs/manual/outletkid.html>+-- csound doc: <https://csound.com/docs/manual/outletkid.html> outletkid ::  Str -> Str -> Sig -> SE ()-outletkid b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unStr b2 <*> unSig b3-    where f a1 a2 a3 = opcs "outletkid" [(Xr,[Sr,Sr,Kr])] [a1,a2,a3]+outletkid b1 b2 b3 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unStr) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep_ "outletkid" [(Xr,[Sr,Sr,Kr])] [a1,a2,a3]  -- |  -- Sends an arate array signal out from an instrument to a named port. -- -- >  outletv Sname, array ----- csound doc: <http://csound.com/docs/manual/outletv.html>+-- csound doc: <https://csound.com/docs/manual/outletv.html> outletv ::  Str -> Sig -> SE ()-outletv b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unStr b1 <*> unSig b2-    where f a1 a2 = opcs "outletv" [(Xr,[Sr,Ar])] [a1,a2]+outletv b1 b2 =+  SE $ join $ f <$> (lift . unStr) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep_ "outletv" [(Xr,[Sr,Ar])] [a1,a2]

@@ -20,3916 +20,4700 @@     hvs1, hvs2, hvs3,          -- * Linear and Exponential Generators.-    bpf, cosseg, cossegb, cossegr, expcurve, expon, expseg, expsega, expsegb, expsegba, expsegr, gainslider, line, linlin, linseg, linsegb, linsegr, logcurve, loopseg, loopsegp, looptseg, loopxseg, lpshold, lpsholdp, scale, transeg, transegb, transegr, xyscale,-    -    -- * Envelope Generators.-    adsr, envlpx, envlpxr, linen, linenr, madsr, mxadsr, xadsr,-    -    -- * Models and Emulations.-    bamboo, barmodel, cabasa, chuap, crunch, dripwater, gendy, gendyc, gendyx, gogobel, guiro, lorenz, mandel, mandol, marimba, moog, planet, prepiano, sandpaper, sekere, shaker, sleighbells, stix, tambourine, vibes, voice,-    -    -- * Phasors.-    phasor, phasorbnk, sc_phasor, syncphasor,-    -    -- * Random (Noise) Generators.-    betarand, bexprnd, cauchy, cauchyi, cuserrnd, duserrnd, dust, dust2, exprand, exprandi, fractalnoise, gauss, gaussi, gausstrig, getseed, jitter, jitter2, jspline, linrand, noise, pcauchy, pinker, pinkish, poisson, rand, randh, randi, random, randomh, randomi, rnd31, rspline, seed, trandom, trirand, unirand, urandom, urd, weibull,-    -    -- * Sample Playback.-    bbcutm, bbcuts, flooper, flooper2, fluidAllOut, fluidCCi, fluidCCk, fluidControl, fluidEngine, fluidLoad, fluidNote, fluidOut, fluidProgramSelect, fluidSetInterpMethod, loscil, loscil3, loscilx, lphasor, lposcil, lposcil3, lposcila, lposcilsa, lposcilsa2, sfilist, sfinstr, sfinstr3, sfinstr3m, sfinstrm, sfload, sflooper, sfpassign, sfplay, sfplay3, sfplay3m, sfplaym, sfplist, sfpreset, sndloop, waveset,-    -    -- * Scanned Synthesis.-    scanhammer, scans, scantable, scanu, xscanmap, xscans, xscansmap, xscanu,-    -    -- * STK Opcodes.-    stkBandedWG, stkBeeThree, stkBlowBotl, stkBlowHole, stkBowed, stkBrass, stkClarinet, stkDrummer, stkFMVoices, stkFlute, stkHevyMetl, stkMandolin, stkModalBar, stkMoog, stkPercFlut, stkPlucked, stkResonate, stkRhodey, stkSaxofony, stkShakers, stkSimple, stkSitar, stkStifKarp, stkTubeBell, stkVoicForm, stkWhistle, stkWurley,-    -    -- * Table Access.-    oscil1, oscil1i, ptable, ptable3, ptablei, tab_i, tab, tabw_i, tabw, table, table3, tablei,-    -    -- * Wave Terrain Synthesis.-    wterrain,-    -    -- * Waveguide Physical Modeling.-    pluck, repluck, streson, wgbow, wgbowedbar, wgbrass, wgclar, wgflute, wgpluck, wgpluck2) where--import Control.Monad.Trans.Class-import Csound.Dynamic-import Csound.Typed---- Additive Synthesis/Resynthesis.---- | --- Output is an additive set of individually controlled sinusoids, using an oscillator bank.------ > ares  adsyn  kamod, kfmod, ksmod, ifilcod------ csound doc: <http://csound.com/docs/manual/adsyn.html>-adsyn ::  Sig -> Sig -> Sig -> Str -> Sig-adsyn b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unStr b4-    where f a1 a2 a3 a4 = opcs "adsyn" [(Ar,[Kr,Kr,Kr,Sr])] [a1,a2,a3,a4]---- | --- Performs additive synthesis with an arbitrary number of partials, not necessarily harmonic.------ > ares  adsynt  kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs]------ csound doc: <http://csound.com/docs/manual/adsynt.html>-adsynt ::  Sig -> Sig -> Tab -> Tab -> Tab -> D -> Sig-adsynt b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "adsynt" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Performs additive synthesis with an arbitrary number of partials -not necessarily harmonic- with interpolation.------ Performs additive synthesis with an arbitrary number of partials, not necessarily harmonic. (see adsynt for detailed manual)------ > ar  adsynt2  kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs]------ csound doc: <http://csound.com/docs/manual/adsynt2.html>-adsynt2 ::  Sig -> Sig -> Tab -> Tab -> Tab -> D -> Sig-adsynt2 b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "adsynt2" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- An oscillator which takes tonality and brightness as arguments.------ An oscillator which takes tonality and brightness as arguments, relative to a base frequency.------ > ares  hsboscil  kamp, ktone, kbrite, ibasfreq, iwfn, ioctfn \--- >                    [, ioctcnt] [, iphs]------ csound doc: <http://csound.com/docs/manual/hsboscil.html>-hsboscil ::  Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig-hsboscil b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unTab b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "hsboscil" [(Ar,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- Basic Oscillators.---- | --- A low frequency oscillator of various shapes.------ > kres  lfo  kamp, kcps [, itype]--- > ares  lfo  kamp, kcps [, itype]------ csound doc: <http://csound.com/docs/manual/lfo.html>-lfo ::  Sig -> Sig -> Sig-lfo b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "lfo" [(Kr,[Kr,Kr,Ir]),(Ar,[Kr,Kr,Ir])] [a1,a2]---- | --- Mixes the output of any number of oscillators.------ This unit generator mixes the output of any number of oscillators. The frequency, phase, and amplitude of each oscillator can be modulated by two LFOs (all oscillators have a separate set of LFOs, with different phase and frequency); additionally, the output of each oscillator can be filtered through an optional parametric equalizer (also controlled by the LFOs).  This opcode is most useful for rendering ensemble (strings, choir, etc.) instruments.------ > ares  oscbnk   kcps, kamd, kfmd, kpmd, iovrlap, iseed, kl1minf, kl1maxf, \--- >           kl2minf, kl2maxf, ilfomode, keqminf, keqmaxf, keqminl, keqmaxl, \--- >           keqminq, keqmaxq, ieqmode, kfn [, il1fn] [, il2fn] [, ieqffn]   \--- >           [, ieqlfn] [, ieqqfn] [, itabl] [, ioutfn]------ csound doc: <http://csound.com/docs/manual/oscbnk.html>-oscbnk ::  Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Sig-oscbnk b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unD b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unD b11 <*> unSig b12 <*> unSig b13 <*> unSig b14 <*> unSig b15 <*> unSig b16 <*> unSig b17 <*> unD b18 <*> unTab b19-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 = opcs "oscbnk" [(Ar-                                                                                                ,[Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                                                                                                                   ,a2-                                                                                                                                                                                   ,a3-                                                                                                                                                                                   ,a4-                                                                                                                                                                                   ,a5-                                                                                                                                                                                   ,a6-                                                                                                                                                                                   ,a7-                                                                                                                                                                                   ,a8-                                                                                                                                                                                   ,a9-                                                                                                                                                                                   ,a10-                                                                                                                                                                                   ,a11-                                                                                                                                                                                   ,a12-                                                                                                                                                                                   ,a13-                                                                                                                                                                                   ,a14-                                                                                                                                                                                   ,a15-                                                                                                                                                                                   ,a16-                                                                                                                                                                                   ,a17-                                                                                                                                                                                   ,a18-                                                                                                                                                                                   ,a19]---- | --- A simple oscillator.------ oscil reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp.------ > ares  oscil  xamp, xcps [, ifn, iphs]--- > kres  oscil  kamp, kcps [, ifn, iphs]------ csound doc: <http://csound.com/docs/manual/oscil.html>-oscil ::  Sig -> Sig -> Tab -> Sig-oscil b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "oscil" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- A simple oscillator with cubic interpolation.------ oscil3 reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Cubic interpolation is applied for table look up from internal phase values.------ > ares  oscil3  xamp, xcps [, ifn, iphs]--- > kres  oscil3  kamp, kcps [, ifn, iphs]------ csound doc: <http://csound.com/docs/manual/oscil3.html>-oscil3 ::  Sig -> Sig -> Tab -> Sig-oscil3 b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "oscil3" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- A simple oscillator with linear interpolation.------ oscili reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Linear interpolation is applied for table look up from internal phase values.------ > ares  oscili  xamp, xcps[, ifn, iphs]--- > kres  oscili  kamp, kcps[, ifn, iphs]------ csound doc: <http://csound.com/docs/manual/oscili.html>-oscili ::  Sig -> Sig -> Tab -> Sig-oscili b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "oscili" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- A linearly interpolated oscillator that allows changing the table number at k-rate.------ oscilikt is very similar to oscili, but allows changing the table number at k-rate. It is slightly slower than oscili (especially with high control rate), although also more accurate as it uses a 31-bit phase accumulator, as opposed to the 24-bit one used by oscili.------ > ares  oscilikt  xamp, xcps, kfn [, iphs] [, istor]--- > kres  oscilikt  kamp, kcps, kfn [, iphs] [, istor]------ csound doc: <http://csound.com/docs/manual/oscilikt.html>-oscilikt ::  Sig -> Sig -> Tab -> Sig-oscilikt b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "oscilikt" [(Ar,[Xr,Xr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- A linearly interpolated oscillator that allows allows phase modulation.------ osciliktp allows phase modulation (which is actually implemented as k-rate frequency modulation, by differentiating phase input). The disadvantage is that there is no amplitude control, and frequency can be varied only at the control-rate. This opcode can be faster or slower than oscilikt, depending on the control-rate.------ > ares  osciliktp  kcps, kfn, kphs [, istor]------ csound doc: <http://csound.com/docs/manual/osciliktp.html>-osciliktp ::  Sig -> Tab -> Sig -> Sig-osciliktp b1 b2 b3 = Sig $ f <$> unSig b1 <*> unTab b2 <*> unSig b3-    where f a1 a2 a3 = opcs "osciliktp" [(Ar,[Kr,Kr,Kr,Ir])] [a1,a2,a3]---- | --- A linearly interpolated oscillator with sync status that allows changing the table number at k-rate.------ oscilikts is the same as oscilikt. Except it has a sync input that can be used to re-initialize the oscillator to a k-rate phase value. It is slower than oscilikt and osciliktp.------ > ares  oscilikts  xamp, xcps, kfn, async, kphs [, istor]------ csound doc: <http://csound.com/docs/manual/oscilikts.html>-oscilikts ::  Sig -> Sig -> Tab -> Sig -> Sig -> Sig-oscilikts b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "oscilikts" [(Ar,[Xr,Xr,Kr,Ar,Kr,Ir])] [a1,a2,a3,a4,a5]---- | --- Accesses table values at a user-defined frequency.------ Accesses table values at a user-defined frequency. This opcode can also be written as oscilx.------ > ares  osciln  kamp, ifrq, ifn, itimes------ csound doc: <http://csound.com/docs/manual/osciln.html>-osciln ::  Sig -> D -> Tab -> D -> Sig-osciln b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unD b2 <*> unTab b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "osciln" [(Ar,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- A simple, fast sine oscillator------ Simple, fast sine oscillator, that uses only one multiply, and two add operations to generate one sample of output, and does not require a function table.------ > ares  oscils  iamp, icps, iphs [, iflg]------ csound doc: <http://csound.com/docs/manual/oscils.html>-oscils ::  D -> D -> D -> Sig-oscils b1 b2 b3 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "oscils" [(Ar,[Ir,Ir,Ir,Ir])] [a1,a2,a3]---- | --- High precision oscillator.------ > ares  poscil  aamp, acps [, ifn, iphs]--- > ares  poscil  aamp, kcps [, ifn, iphs]--- > ares  poscil  kamp, acps [, ifn, iphs]--- > ares  poscil  kamp, kcps [, ifn, iphs]--- > ires  poscil  kamp, kcps [, ifn, iphs]--- > kres  poscil  kamp, kcps [, ifn, iphs]------ csound doc: <http://csound.com/docs/manual/poscil.html>-poscil ::  Sig -> Sig -> Tab -> Sig-poscil b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "poscil" [(Ar,[Ar,Ar,Ir,Ir])-                                     ,(Ar,[Ar,Kr,Ir,Ir])-                                     ,(Ar,[Kr,Ar,Ir,Ir])-                                     ,(Ar,[Kr,Kr,Ir,Ir])-                                     ,(Ir,[Kr,Kr,Ir,Ir])-                                     ,(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- High precision oscillator with cubic interpolation.------ > ares  poscil3  aamp, acps [, ifn, iphs]--- > ares  poscil3  aamp, kcps [, ifn, iphs]--- > ares  poscil3  kamp, acps [, ifn, iphs]--- > ares  poscil3  kamp, kcps [, ifn, iphs]--- > ires  poscil3  kamp, kcps [, ifn, iphs]--- > kres  poscil3  kamp, kcps [, ifn, iphs]------ csound doc: <http://csound.com/docs/manual/poscil3.html>-poscil3 ::  Sig -> Sig -> Tab -> Sig-poscil3 b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "poscil3" [(Ar,[Ar,Ar,Ir,Ir])-                                      ,(Ar,[Ar,Kr,Ir,Ir])-                                      ,(Ar,[Kr,Ar,Ir,Ir])-                                      ,(Ar,[Kr,Kr,Ir,Ir])-                                      ,(Ir,[Kr,Kr,Ir,Ir])-                                      ,(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Easier-to-use user-controllable vibrato.------ > kout  vibr  kAverageAmp, kAverageFreq, ifn------ csound doc: <http://csound.com/docs/manual/vibr.html>-vibr ::  Sig -> Sig -> Tab -> Sig-vibr b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "vibr" [(Kr,[Kr,Kr,Ir])] [a1,a2,a3]---- | --- Generates a natural-sounding user-controllable vibrato.------ > kout  vibrato  kAverageAmp, kAverageFreq, kRandAmountAmp, kRandAmountFreq, kAmpMinRate, kAmpMaxRate, kcpsMinRate, kcpsMaxRate, ifn [, iphs------ csound doc: <http://csound.com/docs/manual/vibrato.html>-vibrato ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-vibrato b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unTab b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "vibrato" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1-                                                                                               ,a2-                                                                                               ,a3-                                                                                               ,a4-                                                                                               ,a5-                                                                                               ,a6-                                                                                               ,a7-                                                                                               ,a8-                                                                                               ,a9]---- Dynamic Spectrum Oscillators.---- | --- Output is a set of harmonically related sine partials.------ > ares  buzz  xamp, xcps, knh, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/buzz.html>-buzz ::  Sig -> Sig -> Sig -> Tab -> Sig-buzz b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4-    where f a1 a2 a3 a4 = opcs "buzz" [(Ar,[Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4]---- | --- Output is a set of harmonically related cosine partials.------ > ares  gbuzz  xamp, xcps, knh, klh, kmul, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/gbuzz.html>-gbuzz ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-gbuzz b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "gbuzz" [(Ar,[Xr,Xr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Generates a set of impulses.------ Generates a set of impulses of amplitude kamp separated by kintvl seconds (or samples if kintvl is negative).  The first impulse is generated after a delay of ioffset seconds.------ > ares  mpulse  kamp, kintvl [, ioffset]------ csound doc: <http://csound.com/docs/manual/mpulse.html>-mpulse ::  Sig -> Sig -> Sig-mpulse b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "mpulse" [(Ar,[Kr,Kr,Ir])] [a1,a2]---- | --- A mostly bandlimited shape-shifting square-pulse-saw-sinewave oscillator with hardsync.------ This oscillator generates a variable shape waveform that can morph freely between classical shapes sine, square, pulse and saw.--- The shape is controlled by two interacting values: clip (squareness) and "skew" (symmetry).--- All shapes use a minimum number of samples per transition (ie, the sharp end of a saw or a pulse uses minimum N samples), this makes output bandlimited.--- At higher frequency, the minimum sweep rate takes over, so over a certain pitch all shapes "degrade" to sinewave. The minimum sweep rate is i-time configurable.--- Hardsync (a very quick sweep to phase=0) is supported, and a sync signal is output once per cycle.------ > aout [, asyncout]  squinewave  acps, aClip, aSkew [, asyncin] [, iMinSweep] [, iphase]------ csound doc: <http://csound.com/docs/manual/squinewave.html>-squinewave :: Tuple a => Sig -> Sig -> Sig -> a-squinewave b1 b2 b3 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = mopcs "squinewave" ([Ar,Ar],[Ar,Ar,Ar,Ar,Ir,Ir]) [a1,a2,a3]---- | --- Implementation of a band limited, analog modeled oscillator.------ Implementation of a band limited, analog modeled oscillator, based on integration of band limited impulses. vco can be used to simulate a variety of analog wave forms.------ > ares  vco  xamp, xcps, iwave, kpw [, ifn] [, imaxd] [, ileak] [, inyx] \--- >           [, iphs] [, iskip]------ csound doc: <http://csound.com/docs/manual/vco.html>-vco ::  Sig -> Sig -> D -> Sig -> Sig-vco b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "vco" [(Ar,[Xr,Xr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Implementation of a band-limited oscillator using pre-calculated tables.------ vco2 is similar to vco. But the implementation uses pre-calculated tables of band-limited waveforms (see also GEN30) rather than integrating impulses. This opcode can be faster than vco (especially if a low control-rate is used) and also allows better sound quality. Additionally, there are more waveforms and oscillator phase can be modulated at k-rate. The disadvantage is increased memory usage. For more details about vco2 tables, see also vco2init and vco2ft.------ > ares  vco2  kamp, kcps [, imode] [, kpw] [, kphs] [, inyx]------ csound doc: <http://csound.com/docs/manual/vco2.html>-vco2 ::  Sig -> Sig -> Sig-vco2 b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "vco2" [(Ar,[Kr,Kr,Ir,Kr,Kr,Ir])] [a1,a2]---- | --- Returns a table number at k-time for a given oscillator frequency and wavform.------ vco2ft returns the function table number to be used for generating the specified waveform at a given frequency. This function table number can be used by any Csound opcode that generates a signal by reading function tables (like oscilikt). The tables must be calculated by vco2init before vco2ft is called and shared as Csound ftables (ibasfn).------ > kfn  vco2ft  kcps, iwave [, inyx]------ csound doc: <http://csound.com/docs/manual/vco2ft.html>-vco2ft ::  Sig -> D -> Tab-vco2ft b1 b2 = Tab $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "vco2ft" [(Kr,[Kr,Ir,Ir])] [a1,a2]---- | --- Returns a table number at i-time for a given oscillator frequency and wavform.------ vco2ift is the same as vco2ft, but works at i-time. It is suitable for use with opcodes that expect an i-rate table number (for example, oscili).------ > ifn  vco2ift  icps, iwave [, inyx]------ csound doc: <http://csound.com/docs/manual/vco2ift.html>-vco2ift ::  D -> D -> Tab-vco2ift b1 b2 = Tab $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "vco2ift" [(Ir,[Ir,Ir,Ir])] [a1,a2]---- | --- Calculates tables for use by vco2 opcode.------ vco2init calculates tables for use by vco2 opcode. Optionally, it is also possible to access these tables as standard Csound function tables. In this case, vco2ft can be used to find the correct table number for a given oscillator frequency.------ > ifn  vco2init  iwave [, ibasfn] [, ipmul] [, iminsiz] [, imaxsiz] [, isrcft]------ csound doc: <http://csound.com/docs/manual/vco2init.html>-vco2init ::  D -> SE Tab-vco2init b1 = fmap ( Tab . return) $ SE $ (depT =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "vco2init" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1]---- FM Synthesis.---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crossfm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crossfm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crossfm b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                          ,a2-                                                                                          ,a3-                                                                                          ,a4-                                                                                          ,a5-                                                                                          ,a6-                                                                                          ,a7]---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crossfmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crossfmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crossfmi b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4-                                                                                           ,a5-                                                                                           ,a6-                                                                                           ,a7]---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crosspm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crosspm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crosspm b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crosspm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                          ,a2-                                                                                          ,a3-                                                                                          ,a4-                                                                                          ,a5-                                                                                          ,a6-                                                                                          ,a7]---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crosspmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crosspmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crosspmi b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crosspmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4-                                                                                           ,a5-                                                                                           ,a6-                                                                                           ,a7]---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crossfmpm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crossfmpm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crossfmpm b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmpm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                            ,a2-                                                                                            ,a3-                                                                                            ,a4-                                                                                            ,a5-                                                                                            ,a6-                                                                                            ,a7]---- | --- Two mutually frequency and/or phase modulated oscillators.------ Two oscillators, mutually frequency and/or phase modulated by each other.------ > a1, a2  crossfmpmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]------ csound doc: <http://csound.com/docs/manual/crossfm.html>-crossfmpmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)-crossfmpmi b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmpmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1-                                                                                             ,a2-                                                                                             ,a3-                                                                                             ,a4-                                                                                             ,a5-                                                                                             ,a6-                                                                                             ,a7]---- | --- Uses FM synthesis to create a Hammond B3 organ sound.------ Uses FM synthesis to create a Hammond B3 organ sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmb3  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, ifn3, \--- >           ifn4, ivfn]------ csound doc: <http://csound.com/docs/manual/fmb3.html>-fmb3 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-fmb3 b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "fmb3" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                      ,a2-                                                                                      ,a3-                                                                                      ,a4-                                                                                      ,a5-                                                                                      ,a6]---- | --- Uses FM synthesis to create a tublar bell sound.------ Uses FM synthesis to create a tublar bell sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmbell  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, ifn3, \--- >           ifn4, ivfn, isus]------ csound doc: <http://csound.com/docs/manual/fmbell.html>-fmbell ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-fmbell b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "fmbell" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4-                                                                                           ,a5-                                                                                           ,a6]---- | --- Uses FM synthesis to create a “Heavy Metal” sound.------ Uses FM synthesis to create a “Heavy Metal” sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmmetal  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \--- >           ifn4, ivfn------ csound doc: <http://csound.com/docs/manual/fmmetal.html>-fmmetal ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig-fmmetal b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmmetal" [(Ar-                                                                 ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]---- | --- Uses FM synthesis to create a percussive flute sound.------ Uses FM synthesis to create a percussive flute sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmpercfl  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, \--- >           ifn3, ifn4, ivfn]------ csound doc: <http://csound.com/docs/manual/fmpercfl.html>-fmpercfl ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-fmpercfl b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "fmpercfl" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                          ,a2-                                                                                          ,a3-                                                                                          ,a4-                                                                                          ,a5-                                                                                          ,a6]---- | --- Uses FM synthesis to create a Fender Rhodes electric piano sound.------ Uses FM synthesis to create a Fender Rhodes electric piano sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmrhode  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, \--- >           ifn3, ifn4, ivfn------ csound doc: <http://csound.com/docs/manual/fmrhode.html>-fmrhode ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig-fmrhode b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmrhode" [(Ar-                                                                 ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]---- | --- FM Singing Voice Synthesis------ > ares  fmvoice  kamp, kfreq, kvowel, ktilt, kvibamt, kvibrate[, ifn1, \--- >           ifn2, ifn3, ifn4, ivibfn]------ csound doc: <http://csound.com/docs/manual/fmvoice.html>-fmvoice ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-fmvoice b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "fmvoice" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                         ,a2-                                                                                         ,a3-                                                                                         ,a4-                                                                                         ,a5-                                                                                         ,a6]---- | --- Uses FM synthesis to create a Wurlitzer electric piano sound.------ Uses FM synthesis to create a Wurlitzer electric piano sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.------ > ares  fmwurlie  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \--- >           ifn4, ivfn------ csound doc: <http://csound.com/docs/manual/fmwurlie.html>-fmwurlie ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig-fmwurlie b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmwurlie" [(Ar-                                                                  ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]---- | --- A basic frequency modulated oscillator.------ > ares  foscil  xamp, kcps, xcar, xmod, kndx, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/foscil.html>-foscil ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-foscil b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "foscil" [(Ar,[Xr,Kr,Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Basic frequency modulated oscillator with linear interpolation.------ > ares  foscili  xamp, kcps, xcar, xmod, kndx, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/foscili.html>-foscili ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-foscili b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "foscili" [(Ar,[Xr,Kr,Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- Granular Synthesis.---- | --- Synchronous granular synthesis, using a soundfile as source.------ diskgrain implements synchronous granular synthesis. The source sound for the grains is obtained by reading a soundfile containing the samples of the source waveform.------ > asig  diskgrain  Sfname, kamp, kfreq, kpitch, kgrsize, kprate, \--- >           ifun, iolaps [,imaxgrsize , ioffset]------ csound doc: <http://csound.com/docs/manual/diskgrain.html>-diskgrain ::  Str -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig-diskgrain b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unStr b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "diskgrain" [(Ar,[Sr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1-                                                                                              ,a2-                                                                                              ,a3-                                                                                              ,a4-                                                                                              ,a5-                                                                                              ,a6-                                                                                              ,a7-                                                                                              ,a8]---- | --- Produces sinusoid bursts useful for formant and granular synthesis.------ Audio output is a succession of sinusoid bursts initiated at frequency xfund with a spectral peak at xform. For xfund above 25 Hz these bursts produce a speech-like formant with spectral characteristics determined by the k-input parameters. For lower fundamentals this generator provides a special form of granular synthesis.------ > ares  fof  xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, \--- >           ifna, ifnb, itotdur [, iphs] [, ifmode] [, iskip]------ csound doc: <http://csound.com/docs/manual/fof.html>-fof ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig-fof b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unTab b10 <*> unTab b11 <*> unD b12-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = opcs "fof" [(Ar-                                                                 ,[Xr,Xr,Xr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12]---- | --- Produces sinusoid bursts including k-rate incremental indexing with each successive burst.------ Audio output is a succession of sinusoid bursts initiated at frequency xfund with a spectral peak at xform. For xfund above 25 Hz these bursts produce a speech-like formant with spectral characteristics determined by the k-input parameters. For lower fundamentals this generator provides a special form of granular synthesis.------ > ares  fof2  xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, \--- >           ifna, ifnb, itotdur, kphs, kgliss [, iskip]------ csound doc: <http://csound.com/docs/manual/fof2.html>-fof2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig -> Sig -> Sig-fof2 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unTab b10 <*> unTab b11 <*> unD b12 <*> unSig b13 <*> unSig b14-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 = opcs "fof2" [(Ar-                                                                          ,[Xr,Xr,Xr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14]---- | --- Audio output is a succession of grains derived from data in a stored function table------ Audio output is a succession of grains derived from data in a stored function table ifna. The local envelope of these grains and their timing is based on the model of fof synthesis and permits detailed control of the granular synthesis.------ > ares  fog  xamp, xdens, xtrans, aspd, koct, kband, kris, kdur, kdec, \--- >           iolaps, ifna, ifnb, itotdur [, iphs] [, itmode] [, iskip]------ csound doc: <http://csound.com/docs/manual/fog.html>-fog ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig-fog b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unD b10 <*> unTab b11 <*> unTab b12 <*> unD b13-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = opcs "fog" [(Ar-                                                                     ,[Xr,Xr,Xr,Ar,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13]---- | --- Generates granular synthesis textures.------ > ares  grain  xamp, xpitch, xdens, kampoff, kpitchoff, kgdur, igfn, \--- >           iwfn, imgdur [, igrnd]------ csound doc: <http://csound.com/docs/manual/grain.html>-grain ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> D -> Sig-grain b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "grain" [(Ar,[Xr,Xr,Xr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1-                                                                                             ,a2-                                                                                             ,a3-                                                                                             ,a4-                                                                                             ,a5-                                                                                             ,a6-                                                                                             ,a7-                                                                                             ,a8-                                                                                             ,a9]---- | --- Easy-to-use granular synthesis texture generator.------ Generate granular synthesis textures. grain2 is simpler to use, but grain3 offers more control.------ > ares  grain2  kcps, kfmd, kgdur, iovrlp, kfn, iwfn [, irpow] \--- >           [, iseed] [, imode]------ csound doc: <http://csound.com/docs/manual/grain2.html>-grain2 ::  Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig-grain2 b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unTab b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = opcs "grain2" [(Ar,[Kr,Kr,Kr,Ir,Kr,Ir,Ir,Ir,Ir])] [a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4-                                                                                  ,a5-                                                                                  ,a6]---- | --- Generate granular synthesis textures with more user control.------ Generate granular synthesis textures. grain2 is simpler to use but grain3 offers more control.------ > ares  grain3  kcps, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn, iwfn, \--- >           kfrpow, kprpow [, iseed] [, imode]------ csound doc: <http://csound.com/docs/manual/grain3.html>-grain3 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig -> Sig -> Sig-grain3 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unTab b8 <*> unTab b9 <*> unSig b10 <*> unSig b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "grain3" [(Ar-                                                                ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]---- | --- A more complex granular synthesis texture generator.------ The granule unit generator is more complex than grain, but does add new possibilities.------ > ares  granule  xamp, ivoice, iratio, imode, ithd, ifn, ipshift, igskip, \--- >           igskip_os, ilength, kgap, igap_os, kgsize, igsize_os, iatt, idec \--- >           [, iseed] [, ipitch1] [, ipitch2] [, ipitch3] [, ipitch4] [, ifnenv]------ csound doc: <http://csound.com/docs/manual/granule.html>-granule ::  Sig -> D -> D -> D -> D -> Tab -> D -> D -> D -> D -> Sig -> D -> Sig -> D -> D -> D -> Sig-granule b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unTab b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10 <*> unSig b11 <*> unD b12 <*> unSig b13 <*> unD b14 <*> unD b15 <*> unD b16-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 = opcs "granule" [(Ar-                                                                                     ,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                                                                                            ,a2-                                                                                                                                                            ,a3-                                                                                                                                                            ,a4-                                                                                                                                                            ,a5-                                                                                                                                                            ,a6-                                                                                                                                                            ,a7-                                                                                                                                                            ,a8-                                                                                                                                                            ,a9-                                                                                                                                                            ,a10-                                                                                                                                                            ,a11-                                                                                                                                                            ,a12-                                                                                                                                                            ,a13-                                                                                                                                                            ,a14-                                                                                                                                                            ,a15-                                                                                                                                                            ,a16]---- | --- Granular synthesizer with "per grain" control---       over many of its parameters.  Has a sync input to---       sychronize its internal grain scheduler clock to an external---       clock source.------ partikkel was conceived after reading Curtis Roads' book---       "Microsound", and the goal was to create an opcode that was---       capable of all time-domain varieties of granular synthesis---       described in this book. The idea being that most of the---       techniques only differ in parameter values, and by having a---       single opcode that can do all varieties of granular synthesis---       makes it possible to interpolate between techniques. Granular synthesis is sometimes dubbed particle---       synthesis, and it was thought apt to name the opcode partikkel---       to distinguish it from other granular opcodes.------ > a1 [, a2, a3, a4, a5, a6, a7, a8]  partikkel  agrainfreq, \--- >                   kdistribution, idisttab, async, kenv2amt, ienv2tab, ienv_attack, \--- >                   ienv_decay, ksustain_amount, ka_d_ratio, kduration, kamp, igainmasks, \--- >                   kwavfreq, ksweepshape, iwavfreqstarttab, iwavfreqendtab, awavfm, \--- >                   ifmamptab, kfmenv, icosine, ktraincps, knumpartials, kchroma, \--- >                   ichannelmasks, krandommask, kwaveform1, kwaveform2, kwaveform3, \--- >                   kwaveform4, iwaveamptab, asamplepos1, asamplepos2, asamplepos3, \--- >                   asamplepos4, kwavekey1, kwavekey2, kwavekey3, kwavekey4, imax_grains \--- >                   [, iopcode_id, ipanlaws]------ csound doc: <http://csound.com/docs/manual/partikkel.html>-partikkel :: Tuple a => Sig -> Sig -> D -> Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> D -> D -> Sig -> D -> Sig -> D -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> a-partikkel b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 b20 b21 b22 b23 b24 b25 b26 b27 b28 b29 b30 b31 b32 b33 b34 b35 b36 b37 b38 b39 b40 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unSig b9 <*> unSig b10 <*> unSig b11 <*> unSig b12 <*> unD b13 <*> unSig b14 <*> unSig b15 <*> unD b16 <*> unD b17 <*> unSig b18 <*> unD b19 <*> unSig b20 <*> unD b21 <*> unSig b22 <*> unSig b23 <*> unSig b24 <*> unD b25 <*> unSig b26 <*> unSig b27 <*> unSig b28 <*> unSig b29 <*> unSig b30 <*> unD b31 <*> unSig b32 <*> unSig b33 <*> unSig b34 <*> unSig b35 <*> unSig b36 <*> unSig b37 <*> unSig b38 <*> unSig b39 <*> unD b40-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a32 a33 a34 a35 a36 a37 a38 a39 a40 = mopcs "partikkel" ([Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar]-                                                                                                                                                                                       ,[Ar-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Ar-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Kr-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ir-                                                                                                                                                                                        ,Ir]) [a1-                                                                                                                                                                                              ,a2-                                                                                                                                                                                              ,a3-                                                                                                                                                                                              ,a4-                                                                                                                                                                                              ,a5-                                                                                                                                                                                              ,a6-                                                                                                                                                                                              ,a7-                                                                                                                                                                                              ,a8-                                                                                                                                                                                              ,a9-                                                                                                                                                                                              ,a10-                                                                                                                                                                                              ,a11-                                                                                                                                                                                              ,a12-                                                                                                                                                                                              ,a13-                                                                                                                                                                                              ,a14-                                                                                                                                                                                              ,a15-                                                                                                                                                                                              ,a16-                                                                                                                                                                                              ,a17-                                                                                                                                                                                              ,a18-                                                                                                                                                                                              ,a19-                                                                                                                                                                                              ,a20-                                                                                                                                                                                              ,a21-                                                                                                                                                                                              ,a22-                                                                                                                                                                                              ,a23-                                                                                                                                                                                              ,a24-                                                                                                                                                                                              ,a25-                                                                                                                                                                                              ,a26-                                                                                                                                                                                              ,a27-                                                                                                                                                                                              ,a28-                                                                                                                                                                                              ,a29-                                                                                                                                                                                              ,a30-                                                                                                                                                                                              ,a31-                                                                                                                                                                                              ,a32-                                                                                                                                                                                              ,a33-                                                                                                                                                                                              ,a34-                                                                                                                                                                                              ,a35-                                                                                                                                                                                              ,a36-                                                                                                                                                                                              ,a37-                                                                                                                                                                                              ,a38-                                                                                                                                                                                              ,a39-                                                                                                                                                                                              ,a40]---- | --- Get mask index for a specific mask parameter of a running partikkel instance.------ partikkelget is an opcode for outputting partikkel mask index for a specific parameter. ---       Used together with partikkelset, it can be used to synchronize partikkel masking between several running instances of the  partikkel opcode. ---       It can also be used to control other processes based on the internal mask index, for example to create more complex masking patterns than is available with the regular grain masking system.------ > kindex  partikkelget  kparameterindex, iopcode_id------ csound doc: <http://csound.com/docs/manual/partikkelget.html>-partikkelget ::  Sig -> D -> Sig-partikkelget b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "partikkelget" [(Kr,[Kr,Ir])] [a1,a2]---- | --- Set mask index for a specific mask parameter of a running partikkel instance.------ partikkelset is an opcode for setting the partikkel mask index for a specific parameter. ---       Used together with partikkelget, it can be used to synchronize partikkel masking between several running instances of the  partikkel opcode. ---       It can also be used to set the internal mask index basaed on other processes, for example to create more complex masking patterns than is available with the regular grain masking system.------ >  partikkelset  kparameterindex, kmaskindex, iopcode_id------ csound doc: <http://csound.com/docs/manual/partikkelset.html>-partikkelset ::  Sig -> Sig -> D -> SE ()-partikkelset b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "partikkelset" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]---- | --- Outputs partikkel's grain---       scheduler clock pulse and phase to synchronize several instances of the partikkel---       opcode to the same clock source.------ partikkelsync is an opcode for outputting partikkel's grain scheduler clock pulse and phase. partikkelsync's output can be used to synchronize other instances of the partikkel opcode to the same clock.------ > async [,aphase]  partikkelsync  iopcode_id------ csound doc: <http://csound.com/docs/manual/partikkelsync.html>-partikkelsync :: Tuple a => D -> a-partikkelsync b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "partikkelsync" ([Ar,Ar],[Ir]) [a1]---- | --- Reads a mono sound sample from a table and applies time-stretching and/or pitch modification.------ sndwarp reads sound samples from a table and applies time-stretching and/or pitch modification. Time and frequency modification are independent from one another. For example, a sound can be stretched in time while raising the pitch!------ > ares [, ac]  sndwarp  xamp, xtimewarp, xresample, ifn1, ibeg, iwsize, \--- >           irandw, ioverlap, ifn2, itimemode------ csound doc: <http://csound.com/docs/manual/sndwarp.html>-sndwarp :: Tuple a => Sig -> Sig -> Sig -> Tab -> D -> D -> D -> D -> Tab -> D -> a-sndwarp b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unTab b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "sndwarp" ([Ar,Ar]-                                                             ,[Xr,Xr,Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]---- | --- Reads a stereo sound sample from a table and applies time-stretching and/or pitch modification.------ sndwarpst reads stereo sound samples from a table and applies time-stretching and/or pitch modification. Time and frequency modification are independent from one another. For example, a sound can be stretched in time while raising the pitch!------ > ar1, ar2 [,ac1] [, ac2]  sndwarpst  xamp, xtimewarp, xresample, ifn1, \--- >           ibeg, iwsize, irandw, ioverlap, ifn2, itimemode------ csound doc: <http://csound.com/docs/manual/sndwarpst.html>-sndwarpst :: Tuple a => Sig -> Sig -> Sig -> Tab -> D -> D -> D -> D -> Tab -> D -> a-sndwarpst b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unTab b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "sndwarpst" ([Ar,Ar,Ar,Ar]-                                                               ,[Xr,Xr,Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]---- | --- Synchronous granular synthesis.------ syncgrain implements synchronous granular synthesis. The source sound for the--- grains is obtained by reading a function table containing the samples of the source waveform. --- For sampled-sound sources, GEN01 is used.--- syncgrain will accept deferred allocation tables.------ > asig  syncgrain  kamp, kfreq, kpitch, kgrsize, kprate, ifun1, \--- >           ifun2, iolaps------ csound doc: <http://csound.com/docs/manual/syncgrain.html>-syncgrain ::  Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig-syncgrain b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "syncgrain" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir])] [a1-                                                                                        ,a2-                                                                                        ,a3-                                                                                        ,a4-                                                                                        ,a5-                                                                                        ,a6-                                                                                        ,a7-                                                                                        ,a8]---- | --- Synchronous granular synthesis.------ syncloop is a variation on syncgrain,--- which implements synchronous granular synthesis. --- syncloop adds loop start and end points and an optional start position. Loop start--- and end control grain start positions, so the actual grains can go beyond the loop--- points (if the loop points are not at the extremes of the table), enabling--- seamless crossfading. For more information on the granular synthesis process,--- check the syncgrain manual page.------ > asig  syncloop  kamp, kfreq, kpitch, kgrsize, kprate, klstart, \--- >           klend, ifun1, ifun2, iolaps[,istart, iskip]------ csound doc: <http://csound.com/docs/manual/syncloop.html>-syncloop ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig-syncloop b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unD b8 <*> unD b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcs "syncloop" [(Ar-                                                              ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]---- | --- Simple vocal simulation based on glottal pulses with formant characteristics.------ This opcode produces a simple vocal simulation based on glottal pulses with formant characteristics.--- Output is a series of sound events, where each event is composed of a burst of squared sine pulses followed by silence.--- The VOSIM (VOcal SIMulation) synthesis method was developed by Kaegi and Tempelaars in the 1970's.------ > ar  vosim  kamp, kFund, kForm, kDecay, kPulseCount, kPulseFactor, ifn [, iskip]------ csound doc: <http://csound.com/docs/manual/vosim.html>-vosim ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig-vosim b1 b2 b3 b4 b5 b6 b7 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "vosim" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1-                                                                                 ,a2-                                                                                 ,a3-                                                                                 ,a4-                                                                                 ,a5-                                                                                 ,a6-                                                                                 ,a7]---- Hyper Vectorial Synthesis.---- | --- Allows one-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ hvs1 allows one-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ >  hvs1  kx, inumParms, inumPointsX, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]------ csound doc: <http://csound.com/docs/manual/hvs1.html>-hvs1 ::  Sig -> D -> D -> D -> D -> D -> SE ()-hvs1 b1 b2 b3 b4 b5 b6 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "hvs1" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Allows two-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ hvs2 allows two-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ >  hvs2  kx, ky, inumParms, inumPointsX, inumPointsY, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]------ csound doc: <http://csound.com/docs/manual/hvs2.html>-hvs2 ::  Sig -> Sig -> D -> D -> D -> D -> D -> D -> SE ()-hvs2 b1 b2 b3 b4 b5 b6 b7 b8 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "hvs2" [(Xr,[Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                      ,a2-                                                                                      ,a3-                                                                                      ,a4-                                                                                      ,a5-                                                                                      ,a6-                                                                                      ,a7-                                                                                      ,a8]---- | --- Allows three-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ hvs3 allows three-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.------ >  hvs3  kx, ky, kz, inumParms, inumPointsX, inumPointsY, inumPointsZ, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]------ csound doc: <http://csound.com/docs/manual/hvs3.html>-hvs3 ::  Sig -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> SE ()-hvs3 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcs "hvs3" [(Xr-                                                          ,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]---- Linear and Exponential Generators.---- | --- Break point function with linear interpolation------ Break-point function with linear interpolation. Useful when--- 	  defining a table with GEN27 and scaling the x value would be--- 	  overkill.------ > ky  bpf  kx, kx1, ky1, kx2, ..., kxn, kyn------ csound doc: <http://csound.com/docs/manual/bpf.html>-bpf ::  Sig -> Sig -> Sig -> [Sig] -> Sig-bpf b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> mapM unSig b4-    where f a1 a2 a3 a4 = opcs "bpf" [(Kr,(repeat Kr))] ([a1,a2,a3] ++ a4)---- | --- Trace a series of line segments between specified points with---       cosine interpolation.------ > ares  cosseg  ia, idur1, ib [, idur2] [, ic] [...]--- > kres  cosseg  ia, idur1, ib [, idur2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/cosseg.html>-cosseg ::  [D] -> Sig-cosseg b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "cosseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- Trace a series of line segments between specified absolute points with---       cosine interpolation.------ > ares  cossegb  ia, itim1, ib [, itim2] [, ic] [...]--- > kres  cossegb  ia, itim1, ib [, itim2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/cossegb.html>-cossegb ::  [D] -> Sig-cossegb b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "cossegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- Trace a series of line segments between specified points with---       cosine interpolation, including a release segment.------ > ares  cossegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz--- > kres  cossegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz------ csound doc: <http://csound.com/docs/manual/cossegr.html>-cossegr ::  [D] -> D -> D -> Sig-cossegr b1 b2 b3 = Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = setRate Kr $ opcs "cossegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])---- | --- This opcode implements a formula for generating a normalised exponential curve in range 0 - 1. It is based on the Max / MSP work of Eric Singer (c) 1994.------ Generates an exponential curve in range 0 to 1 of arbitrary steepness.---       Steepness index equal to or lower than 1.0 will result in Not-a-Number---       errors and cause unstable behavior.------ > kout  expcurve  kindex, ksteepness------ csound doc: <http://csound.com/docs/manual/expcurve.html>-expcurve ::  Sig -> Sig -> Sig-expcurve b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "expcurve" [(Kr,[Kr,Kr])] [a1,a2]---- | --- Trace an exponential curve between specified points.------ > ares  expon  ia, idur, ib--- > kres  expon  ia, idur, ib------ csound doc: <http://csound.com/docs/manual/expon.html>-expon ::  D -> D -> D -> Sig-expon b1 b2 b3 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "expon" [(Ar,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1,a2,a3]---- | --- Trace a series of exponential segments between specified points.------ > ares  expseg  ia, idur1, ib [, idur2] [, ic] [...]--- > kres  expseg  ia, idur1, ib [, idur2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/expseg.html>-expseg ::  [D] -> Sig-expseg b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "expseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- An exponential segment generator operating at a-rate.------ An exponential segment generator operating at a-rate. This unit is almost identical to expseg, but more precise when defining segments with very short durations (i.e., in a percussive attack phase) at audio rate.------ > ares  expsega  ia, idur1, ib [, idur2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/expsega.html>-expsega ::  [D] -> Sig-expsega b1 = Sig $ f <$> mapM unD b1-    where f a1 = opcs "expsega" [(Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- Trace a series of exponential segments between specified---       absolute points.------ > ares  expsegb  ia, itim1, ib [, itim2] [, ic] [...]--- > kres  expsegb  ia, itim1, ib [, itim2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/expsegb.html>-expsegb ::  [D] -> Sig-expsegb b1 = Sig $ f <$> mapM unD b1-    where f a1 = opcs "expsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- An exponential segment generator operating at a-rate with---       absolute times.------ An exponential segment generator operating at a-rate. This unit---       is almost identical to expsegb, but---       more precise when defining segments with very short durations---       (i.e., in a percussive attack phase) at audio rate.------ > ares  expsegba  ia, itim1, ib [, itim2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/expsegba.html>-expsegba ::  D -> D -> D -> Sig-expsegba b1 b2 b3 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "expsegba" [(Ar,(repeat Ir))] [a1,a2,a3]---- | --- Trace a series of exponential segments between specified points including a release segment.------ > ares  expsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz--- > kres  expsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz------ csound doc: <http://csound.com/docs/manual/expsegr.html>-expsegr ::  [D] -> D -> D -> Sig-expsegr b1 b2 b3 = Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = setRate Kr $ opcs "expsegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])---- | --- An implementation of a logarithmic gain curve which is similar to the gainslider~ object from Cycling 74 Max / MSP.------ This opcode is intended for use to multiply by an audio signal to give a console mixer like feel. There is no bounds in the---       source code so you can for example give higher than 127 values for extra amplitude but possibly clipped audio.------ > kout  gainslider  kindex------ csound doc: <http://csound.com/docs/manual/gainslider.html>-gainslider ::  Sig -> Sig-gainslider b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "gainslider" [(Kr,[Kr])] [a1]---- | --- Trace a straight line between specified points.------ > ares  line  ia, idur, ib--- > kres  line  ia, idur, ib------ csound doc: <http://csound.com/docs/manual/line.html>-line ::  D -> D -> D -> Sig-line b1 b2 b3 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "line" [(Ar,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1,a2,a3]---- | --- Linear to linear interpolation------ Maps a linear range of values to another linear range of values.------ > kout  linlin  kin, ksrclo, ksrchi, kdstlo, kdsthi------ csound doc: <http://csound.com/docs/manual/linlin.html>-linlin ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig-linlin b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "linlin" [(Kr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]---- | --- Trace a series of line segments between specified points.------ > ares  linseg  ia, idur1, ib [, idur2] [, ic] [...]--- > kres  linseg  ia, idur1, ib [, idur2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/linseg.html>-linseg ::  [D] -> Sig-linseg b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "linseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- Trace a series of line segments between specified absolute points.------ > ares  linsegb  ia, itim1, ib [, itim2] [, ic] [...]--- > kres  linsegb  ia, itim1, ib [, itim2] [, ic] [...]------ csound doc: <http://csound.com/docs/manual/linsegb.html>-linsegb ::  [D] -> Sig-linsegb b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "linsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])---- | --- Trace a series of line segments between specified points including a release segment.------ > ares  linsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz--- > kres  linsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz------ csound doc: <http://csound.com/docs/manual/linsegr.html>-linsegr ::  [D] -> D -> D -> Sig-linsegr b1 b2 b3 = Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = setRate Kr $ opcs "linsegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])---- | --- This opcode implements a formula for generating a normalised logarithmic curve in range 0 - 1. It is based on the Max / MSP work of Eric Singer (c) 1994.------ Generates a logarithmic curve in range 0 to 1 of arbitrary steepness.---       Steepness index equal to or lower than 1.0 will result in Not-a-Number---       errors and cause unstable behavior.------ > kout  logcurve  kindex, ksteepness------ csound doc: <http://csound.com/docs/manual/logcurve.html>-logcurve ::  Sig -> Sig -> Sig-logcurve b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "logcurve" [(Kr,[Kr,Kr])] [a1,a2]---- | --- Generate control signal consisting of linear segments delimited by two or more specified points.------ Generate control signal consisting of linear segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.------ > ksig  loopseg  kfreq, ktrig, iphase, kvalue0, ktime0 [, kvalue1] [, ktime1] \--- >     [, kvalue2] [, ktime2][...]------ csound doc: <http://csound.com/docs/manual/loopseg.html>-loopseg ::  Sig -> Sig -> D -> [Sig] -> Sig-loopseg b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4-    where f a1 a2 a3 a4 = opcs "loopseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)---- | --- Control signals based on linear segments.------ Generate control signal consisiting of linear segments delimited---     by two or more specified points. The entire envelope can be looped---     at time-variant rate. Each segment coordinate can also be varied---     at k-rate.------ > ksig  loopsegp   kphase, kvalue0, kdur0, kvalue1 \--- >           [, kdur1, ... , kdurN-1, kvalueN]------ csound doc: <http://csound.com/docs/manual/loopsegp.html>-loopsegp ::  Sig -> [Sig] -> Sig-loopsegp b1 b2 = Sig $ f <$> unSig b1 <*> mapM unSig b2-    where f a1 a2 = opcs "loopsegp" [(Kr,(repeat Kr))] ([a1] ++ a2)---- | --- Generate control signal consisting of exponential or linear segments delimited by two or more specified points.------ Generate control signal consisting of controllable exponential segments or linear segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.------ > ksig  looptseg  kfreq, ktrig, iphase, kvalue0, ktype0, ktime0, [, kvalue1] [,ktype1] [, ktime1] \--- >           [, kvalue2] [,ktype2] [, ktime2] [...] [, kvalueN] [,ktypeN] [, ktimeN]------ csound doc: <http://csound.com/docs/manual/looptseg.html>-looptseg ::  Sig -> Sig -> [Sig] -> Sig-looptseg b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> mapM unSig b3-    where f a1 a2 a3 = opcs "looptseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2] ++ a3)---- | --- Generate control signal consisting of exponential segments delimited by two or more specified points.------ Generate control signal consisting of exponential segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.------ > ksig  loopxseg  kfreq, ktrig, iphase, ktime0, kvalue0 [, ktime1] [, kvalue1] \--- >           [, ktime2] [, kvalue2] [...]------ csound doc: <http://csound.com/docs/manual/loopxseg.html>-loopxseg ::  Sig -> Sig -> D -> [Sig] -> Sig-loopxseg b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4-    where f a1 a2 a3 a4 = opcs "loopxseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)---- | --- Generate control signal consisting of held segments.------ Generate control signal consisting of held segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.------ > ksig  lpshold  kfreq, ktrig, iphase, ktime0, kvalue0  [, kvalue1] [, ktime1] [, kvalue2] [, ktime2] [...]------ csound doc: <http://csound.com/docs/manual/lpshold.html>-lpshold ::  Sig -> Sig -> D -> [Sig] -> Sig-lpshold b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4-    where f a1 a2 a3 a4 = opcs "lpshold" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)---- | --- Control signals based on held segments.------ Generate control signal consisiting of held segments delimited---     by two or more specified points. The entire envelope can be looped---     at time-variant rate. Each segment coordinate can also be varied---     at k-rate.------ > ksig  lpsholdp   kphase, kvalue0, ktime0  [, kvalue1] [, ktime1] \--- >           [, kvalue2] [, ktime2] [...]------ csound doc: <http://csound.com/docs/manual/lpsholdp.html>-lpsholdp ::  Sig -> Sig -> [Sig] -> Sig-lpsholdp b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> mapM unSig b3-    where f a1 a2 a3 = opcs "lpsholdp" [(Kr,(repeat Kr))] ([a1,a2] ++ a3)---- | --- Arbitrary signal scaling.------ Scales incoming value to user-definable range. Similar to scale object found in popular dataflow languages.------ > kscl  scale  kinput, kmax, kmin------ csound doc: <http://csound.com/docs/manual/scale.html>-scale ::  Sig -> Sig -> Sig -> Sig-scale b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "scale" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]---- | --- Constructs a user-definable envelope.------ > ares  transeg  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...--- > kres  transeg  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...------ csound doc: <http://csound.com/docs/manual/transeg.html>-transeg ::  [D] -> Sig-transeg b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "transeg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1])---- | --- Constructs a user-definable envelope in absolute time.------ > ares  transegb  ia, itim, itype, ib [, itim2] [, itype] [, ic] ...--- > kres  transegb  ia, itim, itype, ib [, itim2] [, itype] [, ic] ...------ csound doc: <http://csound.com/docs/manual/transegb.html>-transegb ::  [D] -> Sig-transegb b1 = Sig $ f <$> mapM unD b1-    where f a1 = setRate Kr $ opcs "transegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1])---- | --- Constructs a user-definable envelope with extended release segment.------ Constructs a user-definable envelope. It is the same---       as transeg,---       with an extended release segment.------ > ares  transegr  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...--- > kres  transegr  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...------ csound doc: <http://csound.com/docs/manual/transegr.html>-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])---- | --- 2D linear interpolation------ 2D linear interpolation between 4 points at (0,0), (1,0), (0,1),--- 	  (1,1)------ > kout  xyscale  kx, ky, k00, k10, k01, k11------ csound doc: <http://csound.com/docs/manual/xyscale.html>-xyscale ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-xyscale b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "xyscale" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]---- Envelope Generators.---- | --- Calculates the classical ADSR envelope using linear segments.------ > ares  adsr  iatt, idec, islev, irel [, idel]--- > kres  adsr  iatt, idec, islev, irel [, idel]------ csound doc: <http://csound.com/docs/manual/adsr.html>-adsr ::  D -> D -> D -> D -> Sig-adsr b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "adsr" [(Ar,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Applies an envelope consisting of 3 segments.------ envlpx -- apply an envelope consisting of 3 segments:------ > ares  envlpx  xamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod]--- > kres  envlpx  kamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod]------ csound doc: <http://csound.com/docs/manual/envlpx.html>-envlpx ::  Sig -> D -> D -> D -> Tab -> D -> D -> Sig-envlpx b1 b2 b3 b4 b5 b6 b7 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unTab b5 <*> unD b6 <*> unD b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "envlpx" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])-                                                 ,(Kr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7]---- | --- The envlpx opcode with a final release segment.------ envlpxr is the same as envlpx except that the final segment is entered only on sensing a MIDI note release. The note is then extended by the decay time.------ > ares  envlpxr  xamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind]--- > kres  envlpxr  kamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind]------ csound doc: <http://csound.com/docs/manual/envlpxr.html>-envlpxr ::  Sig -> D -> D -> Tab -> D -> D -> Sig-envlpxr b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unTab b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "envlpxr" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])-                                               ,(Kr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Applies a straight line rise and decay pattern to an input amp signal.------ linen -- apply a straight line rise and decay pattern to an input amp signal.------ > ares  linen  xamp, irise, idur, idec--- > kres  linen  kamp, irise, idur, idec------ csound doc: <http://csound.com/docs/manual/linen.html>-linen ::  Sig -> D -> D -> D -> Sig-linen b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "linen" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- The linen opcode extended with a final release segment.------ linenr -- same as linen except that the final segment is entered only on sensing a MIDI note release. The note is then extended by the decay time.------ > ares  linenr  xamp, irise, idec, iatdec--- > kres  linenr  kamp, irise, idec, iatdec------ csound doc: <http://csound.com/docs/manual/linenr.html>-linenr ::  Sig -> D -> D -> D -> Sig-linenr b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "linenr" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Calculates the classical ADSR envelope using the linsegr mechanism.------ > ares  madsr  iatt, idec, islev, irel [, idel] [, ireltim]--- > kres  madsr  iatt, idec, islev, irel [, idel] [, ireltim]------ csound doc: <http://csound.com/docs/manual/madsr.html>-madsr ::  D -> D -> D -> D -> Sig-madsr b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "madsr" [(Ar,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4]---- | --- Calculates the classical ADSR envelope using the expsegr mechanism.------ > ares  mxadsr  iatt, idec, islev, irel [, idel] [, ireltim]--- > kres  mxadsr  iatt, idec, islev, irel [, idel] [, ireltim]------ csound doc: <http://csound.com/docs/manual/mxadsr.html>-mxadsr ::  D -> D -> D -> D -> Sig-mxadsr b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "mxadsr" [(Ar,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                            ,a2-                                                                                            ,a3-                                                                                            ,a4]---- | --- Calculates the classical ADSR envelope.------ Calculates the classical ADSR envelope------ > ares  xadsr  iatt, idec, islev, irel [, idel]--- > kres  xadsr  iatt, idec, islev, irel [, idel]------ csound doc: <http://csound.com/docs/manual/xadsr.html>-xadsr ::  D -> D -> D -> D -> Sig-xadsr b1 b2 b3 b4 = Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "xadsr" [(Ar,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- Models and Emulations.---- | --- Semi-physical model of a bamboo sound.------ bamboo is a semi-physical model of a bamboo sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  bamboo  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \--- >           [, ifreq1] [, ifreq2]------ csound doc: <http://csound.com/docs/manual/bamboo.html>-bamboo ::  Sig -> D -> Sig-bamboo b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "bamboo" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Creates a tone similar to a struck metal bar.------ Audio output is a tone similar to a struck metal bar, using a---     physical model developed from solving the partial differential---     equation.  There are controls over the boundary conditions as---     well as the bar characteristics.------ > ares  barmodel  kbcL, kbcR, iK, ib, kscan, iT30, ipos, ivel, iwid------ csound doc: <http://csound.com/docs/manual/barmodel.html>-barmodel ::  Sig -> Sig -> D -> D -> Sig -> D -> D -> D -> D -> Sig-barmodel b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "barmodel" [(Ar,[Kr,Kr,Ir,Ir,Kr,Ir,Ir,Ir,Ir])] [a1-                                                                                             ,a2-                                                                                             ,a3-                                                                                             ,a4-                                                                                             ,a5-                                                                                             ,a6-                                                                                             ,a7-                                                                                             ,a8-                                                                                             ,a9]---- | --- Semi-physical model of a cabasa sound.------ cabasa is a semi-physical model of a cabasa sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  cabasa  iamp, idettack [, inum] [, idamp] [, imaxshake]------ csound doc: <http://csound.com/docs/manual/cabasa.html>-cabasa ::  D -> D -> Sig-cabasa b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "cabasa" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Simulates Chua's oscillator, an LRC oscillator with an active resistor, proved capable of bifurcation and chaotic attractors, with k-rate control of circuit elements.------ > aI3, aV2, aV1  chuap  kL, kR0, kC1, kG, kGa, kGb, kE, kC2, iI3, iV2, iV1, ktime_step------ csound doc: <http://csound.com/docs/manual/chuap.html>-chuap ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig -> (Sig-                                                                                        ,Sig-                                                                                        ,Sig)-chuap b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unD b10 <*> unD b11 <*> unSig b12-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = mopcs "chuap" ([Ar,Ar,Ar]-                                                                   ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Kr]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12]---- | --- Semi-physical model of a crunch sound.------ crunch is a semi-physical model of a crunch sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  crunch  iamp, idettack [, inum] [, idamp] [, imaxshake]------ csound doc: <http://csound.com/docs/manual/crunch.html>-crunch ::  D -> D -> Sig-crunch b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "crunch" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Semi-physical model of a water drop.------ dripwater is a semi-physical model of a water drop. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  dripwater  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \--- >           [, ifreq1] [, ifreq2]------ csound doc: <http://csound.com/docs/manual/dripwater.html>-dripwater ::  Sig -> D -> Sig-dripwater b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "dripwater" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Dynamic stochastic approach to waveform synthesis conceived by Iannis Xenakis.------ Implementation of the Génération Dynamique Stochastique---       (GENDYN), a dynamic stochastic approach to waveform synthesis conceived---       by Iannis Xenakis.------ > ares  gendy  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                kampscl, kdurscl [, initcps] [, knum]--- > kres  gendy  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                kampscl, kdurscl [, initcps] [, knum]------ csound doc: <http://csound.com/docs/manual/gendy.html>-gendy ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-gendy b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "gendy" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])-                                                      ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9]---- | --- Dynamic stochastic approach to waveform synthesis using cubic interpolation.------ Implementation with cubic interpolation of the---       Génération Dynamique Stochastique (GENDYN),---       a dynamic stochastic approach to waveform synthesis conceived by---       Iannis Xenakis.------ > ares  gendyc  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                 kampscl, kdurscl [, initcps] [, knum]--- > kres  gendyc  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                 kampscl, kdurscl [, initcps] [, knum]------ csound doc: <http://csound.com/docs/manual/gendyc.html>-gendyc ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-gendyc b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "gendyc" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])-                                                       ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9]---- | --- Variation of the dynamic stochastic approach to waveform---       synthesis conceived by Iannis Xenakis.------ gendyx (gendy eXtended) is an implementation---       of the Génération Dynamique Stochastique---       (GENDYN), a dynamic stochastic approach to waveform synthesis---       conceived by Iannis Xenakis, using curves instead of segments.------ > ares  gendyx  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                 kampscl, kdurscl, kcurveup, kcurvedown [, initcps] [, knum]--- > kres  gendyx  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \--- >                 kampscl, kdurscl, kcurveup, kcurvedown [, initcps] [, knum]------ csound doc: <http://csound.com/docs/manual/gendyx.html>-gendyx ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-gendyx b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unSig b11-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "gendyx" [(Ar-                                                                ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])-                                                               ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]---- | --- Audio output is a tone related to the striking of a cow bell or similar.------ Audio output is a tone related to the striking of a cow bell or similar. The method is a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  gogobel  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivfn------ csound doc: <http://csound.com/docs/manual/gogobel.html>-gogobel ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> Sig-gogobel b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "gogobel" [(Ar,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir])] [a1-                                                                                      ,a2-                                                                                      ,a3-                                                                                      ,a4-                                                                                      ,a5-                                                                                      ,a6-                                                                                      ,a7-                                                                                      ,a8]---- | --- Semi-physical model of a guiro sound.------ guiro is a semi-physical model of a guiro sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  guiro  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] [, ifreq1]------ csound doc: <http://csound.com/docs/manual/guiro.html>-guiro ::  Sig -> D -> Sig-guiro b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "guiro" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Implements the Lorenz system of equations.------ Implements the Lorenz system of equations.  The Lorenz system is a chaotic-dynamic system which was originally used to simulate the motion of a particle in convection currents and simplified weather systems. Small differences in initial conditions rapidly lead to diverging values. This is sometimes expressed as the butterfly effect. If a butterfly flaps its wings in Australia, it will have an effect on the weather in Alaska. This system is one of the milestones in the development of chaos theory. It is useful as a chaotic audio source or as a low frequency modulation source.------ > ax, ay, az  lorenz  ksv, krv, kbv, kh, ix, iy, iz, iskip [, iskipinit]------ csound doc: <http://csound.com/docs/manual/lorenz.html>-lorenz ::  Sig -> Sig -> Sig -> Sig -> D -> D -> D -> D -> (Sig,Sig,Sig)-lorenz b1 b2 b3 b4 b5 b6 b7 b8 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "lorenz" ([Ar,Ar,Ar],[Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                               ,a2-                                                                                               ,a3-                                                                                               ,a4-                                                                                               ,a5-                                                                                               ,a6-                                                                                               ,a7-                                                                                               ,a8]---- | --- Mandelbrot set------ Returns the number of iterations corresponding to a given point of complex plane by applying the Mandelbrot set formula.------ > kiter, koutrig  mandel   ktrig, kx, ky, kmaxIter------ csound doc: <http://csound.com/docs/manual/mandel.html>-mandel ::  Sig -> Sig -> Sig -> Sig -> (Sig,Sig)-mandel b1 b2 b3 b4 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = mopcs "mandel" ([Kr,Kr],[Kr,Kr,Kr,Kr]) [a1,a2,a3,a4]---- | --- An emulation of a mandolin.------ > ares  mandol  kamp, kfreq, kpluck, kdetune, kgain, ksize \--- >         [, ifn] [, iminfreq]------ csound doc: <http://csound.com/docs/manual/mandol.html>-mandol ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-mandol b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "mandol" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Physical model related to the striking of a wooden block.------ Audio output is a tone related to the striking of a wooden block as found in a marimba. The method is a physical model developed from Perry Cook but re-coded for Csound.------ > ares  marimba  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec \--- >           [, idoubles] [, itriples]------ csound doc: <http://csound.com/docs/manual/marimba.html>-marimba ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> D -> Sig-marimba b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "marimba" [(Ar-                                                         ,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9]---- | --- An emulation of a mini-Moog synthesizer.------ > ares  moog  kamp, kfreq, kfiltq, kfiltrate, kvibf, kvamp, iafn, iwfn, ivfn------ csound doc: <http://csound.com/docs/manual/moog.html>-moog ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Sig-moog b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "moog" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir])] [a1-                                                                                         ,a2-                                                                                         ,a3-                                                                                         ,a4-                                                                                         ,a5-                                                                                         ,a6-                                                                                         ,a7-                                                                                         ,a8-                                                                                         ,a9]---- | --- Simulates a planet orbiting in a binary star system.------ planet simulates a planet orbiting in a binary star system. The outputs are the x, y and z coordinates of the orbiting planet. It is possible for the planet to achieve escape velocity by a close encounter with a star. This makes this system somewhat unstable.------ > ax, ay, az  planet  kmass1, kmass2, ksep, ix, iy, iz, ivx, ivy, ivz, idelta \--- >           [, ifriction] [, iskip]------ csound doc: <http://csound.com/docs/manual/planet.html>-planet ::  Sig -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> (Sig,Sig,Sig)-planet b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "planet" ([Ar,Ar,Ar]-                                                            ,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]---- | --- Creates a tone similar to a piano string prepared in a Cageian fashion.------ Audio output is a tone similar to a piano string, prepared with---     a number of rubbers and rattles. The method uses a---     physical model developed from solving the partial differential---     equation.------ > ares  prepiano  ifreq, iNS, iD, iK, \--- >         iT30,iB, kbcl, kbcr, imass, ihvfreq, iinit, ipos, ivel, isfreq, \--- >         isspread[, irattles, irubbers]--- > al,ar  prepiano  ifreq, iNS, iD, iK, \--- >         iT30,iB, kbcl, kbcr, imass, ihvfreq, iinit, ipos, ivel, isfreq, \--- >         isspread[, irattles, irubbers]------ csound doc: <http://csound.com/docs/manual/prepiano.html>-prepiano ::  D -> D -> D -> D -> D -> D -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> (Sig-                                                                                            ,Sig)-prepiano b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unD b10 <*> unD b11 <*> unD b12 <*> unD b13 <*> unD b14 <*> unD b15-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 = mopcs "prepiano" ([Ar,Ar]-                                                                                  ,[Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                                                                         ,a2-                                                                                                                                         ,a3-                                                                                                                                         ,a4-                                                                                                                                         ,a5-                                                                                                                                         ,a6-                                                                                                                                         ,a7-                                                                                                                                         ,a8-                                                                                                                                         ,a9-                                                                                                                                         ,a10-                                                                                                                                         ,a11-                                                                                                                                         ,a12-                                                                                                                                         ,a13-                                                                                                                                         ,a14-                                                                                                                                         ,a15]---- | --- Semi-physical model of a sandpaper sound.------ sandpaper is a semi-physical model of a sandpaper sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  sandpaper  iamp, idettack [, inum] [, idamp] [, imaxshake]------ csound doc: <http://csound.com/docs/manual/sandpaper.html>-sandpaper ::  D -> D -> Sig-sandpaper b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "sandpaper" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Semi-physical model of a sekere sound.------ sekere is a semi-physical model of a sekere sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  sekere  iamp, idettack [, inum] [, idamp] [, imaxshake]------ csound doc: <http://csound.com/docs/manual/sekere.html>-sekere ::  D -> D -> Sig-sekere b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "sekere" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Sounds like the shaking of a maraca or similar gourd instrument.------ Audio output is a tone related to the shaking of a maraca or similar gourd instrument. The method is a physically inspired model developed from Perry Cook, but re-coded for Csound.------ > ares  shaker  kamp, kfreq, kbeans, kdamp, ktimes [, idecay]------ csound doc: <http://csound.com/docs/manual/shaker.html>-shaker ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig-shaker b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "shaker" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]---- | --- Semi-physical model of a sleighbell sound.------ sleighbells is a semi-physical model of a sleighbell sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  sleighbells  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \--- >           [, ifreq1] [, ifreq2]------ csound doc: <http://csound.com/docs/manual/sleighbells.html>-sleighbells ::  Sig -> D -> Sig-sleighbells b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "sleighbells" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Semi-physical model of a stick sound.------ stix is a semi-physical model of a stick sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  stix  iamp, idettack [, inum] [, idamp] [, imaxshake]------ csound doc: <http://csound.com/docs/manual/stix.html>-stix ::  D -> D -> Sig-stix b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "stix" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Semi-physical model of a tambourine sound.------ tambourine is a semi-physical model of a tambourine sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.------ > ares  tambourine  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \--- >           [, ifreq1] [, ifreq2]------ csound doc: <http://csound.com/docs/manual/tambourine.html>-tambourine ::  Sig -> D -> Sig-tambourine b1 b2 = Sig $ f <$> unSig b1 <*> unD b2-    where f a1 a2 = opcs "tambourine" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Physical model related to the striking of a metal block.------ Audio output is a tone related to the striking of a metal block as found in a vibraphone. The method is a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  vibes  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec------ csound doc: <http://csound.com/docs/manual/vibes.html>-vibes ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> D -> Sig-vibes b1 b2 b3 b4 b5 b6 b7 b8 b9 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unD b9-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "vibes" [(Ar,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir,Ir])] [a1-                                                                                          ,a2-                                                                                          ,a3-                                                                                          ,a4-                                                                                          ,a5-                                                                                          ,a6-                                                                                          ,a7-                                                                                          ,a8-                                                                                          ,a9]---- | --- An emulation of a human voice.------ > ares  voice  kamp, kfreq, kphoneme, kform, kvibf, kvamp, ifn, ivfn------ csound doc: <http://csound.com/docs/manual/voice.html>-voice ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Sig-voice b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "voice" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1-                                                                                    ,a2-                                                                                    ,a3-                                                                                    ,a4-                                                                                    ,a5-                                                                                    ,a6-                                                                                    ,a7-                                                                                    ,a8]---- Phasors.---- | --- Produce a normalized moving phase value.------ > ares  phasor  xcps [, iphs]--- > kres  phasor  kcps [, iphs]------ csound doc: <http://csound.com/docs/manual/phasor.html>-phasor ::  Sig -> Sig-phasor b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "phasor" [(Ar,[Xr,Ir]),(Kr,[Kr,Ir])] [a1]---- | --- Produce an arbitrary number of normalized moving phase values.------ Produce an arbitrary number of normalized moving phase values, accessable by an index.------ > ares  phasorbnk  xcps, kndx, icnt [, iphs]--- > kres  phasorbnk  kcps, kndx, icnt [, iphs]------ csound doc: <http://csound.com/docs/manual/phasorbnk.html>-phasorbnk ::  Sig -> Sig -> D -> Sig-phasorbnk b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "phasorbnk" [(Ar,[Xr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- A resettable linear ramp between two levels------ A resettable linear ramp between two levels. Port of--- 	  Supercollider's Phasor.------ > aindex  sc_phasor  xtrig, xrate, kstart, kend [, kresetPos] --- > kindex  sc_phasor  xtrig, xrate, kstart, kend [, kresetPos] ------ csound doc: <http://csound.com/docs/manual/sc_phasor.html>-sc_phasor ::  Sig -> Sig -> Sig -> Sig -> Sig-sc_phasor b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "sc_phasor" [(Ar,[Xr,Xr,Kr,Kr,Kr]),(Kr,[Xr,Xr,Kr,Kr,Kr])] [a1-                                                                                         ,a2-                                                                                         ,a3-                                                                                         ,a4]---- | --- Produces a normalized moving phase value with sync input and output.------ Produces a moving phase value between zero and one and an extra impulse output ("sync out") whenever its phase value crosses or is reset to zero. The phase can be reset at any time by an impulse on the "sync in" parameter.------ > aphase, asyncout  syncphasor  xcps, asyncin, [, iphs]------ csound doc: <http://csound.com/docs/manual/syncphasor.html>-syncphasor ::  Sig -> Sig -> (Sig,Sig)-syncphasor b1 b2 = pureTuple $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = mopcs "syncphasor" ([Ar,Ar],[Xr,Ar,Ir]) [a1,a2]---- Random (Noise) Generators.---- | --- Beta distribution random number generator (positive values only).------ Beta distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  betarand  krange, kalpha, kbeta--- > ires  betarand  krange, kalpha, kbeta--- > kres  betarand  krange, kalpha, kbeta------ csound doc: <http://csound.com/docs/manual/betarand.html>-betarand :: SigOrD a => a -> a -> a -> SE a-betarand b1 b2 b3 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2 <*> toGE b3-    where f a1 a2 a3 = opcs "betarand" [(Ar,[Kr,Kr,Kr]),(Ir,[Kr,Kr,Kr]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]---- | --- Exponential distribution random number generator.------ Exponential distribution random number generator. This is an x-class noise generator.------ > ares  bexprnd  krange--- > ires  bexprnd  krange--- > kres  bexprnd  krange------ csound doc: <http://csound.com/docs/manual/bexprnd.html>-bexprnd :: SigOrD a => a -> SE a-bexprnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "bexprnd" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Cauchy distribution random number generator.------ Cauchy distribution random number generator. This is an x-class noise generator.------ > ares  cauchy  kalpha--- > ires  cauchy  kalpha--- > kres  cauchy  kalpha------ csound doc: <http://csound.com/docs/manual/cauchy.html>-cauchy :: SigOrD a => a -> SE a-cauchy b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "cauchy" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Cauchy distribution random number generator with---       interpolation.------ Cauchy distribution random number generator with controlled---       interpolation between values. This is an x-class noise---       generator.------ > ares  cauchyi  klambda, xamp, xcps--- > ires  cauchyi  klambda, xamp, xcps--- > kres  cauchyi  klambda, xamp, xcps------ csound doc: <http://csound.com/docs/manual/cauchyi.html>-cauchyi :: SigOrD a => a -> a -> a -> SE a-cauchyi b1 b2 b3 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2 <*> toGE b3-    where f a1 a2 a3 = opcs "cauchyi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]---- | --- Continuous USER-defined-distribution RaNDom generator.------ > aout  cuserrnd  kmin, kmax, ktableNum--- > iout  cuserrnd  imin, imax, itableNum--- > kout  cuserrnd  kmin, kmax, ktableNum------ csound doc: <http://csound.com/docs/manual/cuserrnd.html>-cuserrnd :: SigOrD a => a -> a -> a -> SE a-cuserrnd b1 b2 b3 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2 <*> toGE b3-    where f a1 a2 a3 = opcs "cuserrnd" [(Ar,[Kr,Kr,Kr]),(Ir,[Ir,Ir,Ir]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]---- | --- Discrete USER-defined-distribution RaNDom generator.------ > aout  duserrnd  ktableNum--- > iout  duserrnd  itableNum--- > kout  duserrnd  ktableNum------ csound doc: <http://csound.com/docs/manual/duserrnd.html>-duserrnd :: SigOrD a => a -> SE a-duserrnd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "duserrnd" [(Ar,[Kr]),(Ir,[Ir]),(Kr,[Kr])] [a1]---- | --- Random impulses.------ Generates random impulses from 0 to 1.------ > ares  dust  kamp, kdensity--- > kres  dust  kamp, kdensity------ csound doc: <http://csound.com/docs/manual/dust.html>-dust ::  Sig -> Sig -> SE Sig-dust b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "dust" [(Ar,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]---- | --- Random impulses.------ Generates random impulses from -1 to 1.------ > ares  dust2  kamp, kdensity--- > kres  dust2  kamp, kdensity------ csound doc: <http://csound.com/docs/manual/dust2.html>-dust2 ::  Sig -> Sig -> SE Sig-dust2 b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "dust2" [(Ar,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]---- | --- Exponential distribution random number generator (positive values only).------ Exponential distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  exprand  klambda--- > ires  exprand  klambda--- > kres  exprand  klambda------ csound doc: <http://csound.com/docs/manual/exprand.html>-exprand :: SigOrD a => a -> SE a-exprand b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "exprand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Exponential distribution random number generator with---       interpolation (positive values only).------ Exponential distribution random number generator with controlled---       interpolation between values (positive values only). This is an---       x-class noise generator.------ > ares  exprandi  klambda, xamp, xcps--- > ires  exprandi  klambda, xamp, xcps--- > kres  exprandi  klambda, xamp, xcps------ csound doc: <http://csound.com/docs/manual/exprandi.html>-exprandi :: SigOrD a => a -> a -> a -> SE a-exprandi b1 b2 b3 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2 <*> toGE b3-    where f a1 a2 a3 = opcs "exprandi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]---- | --- A fractal noise generator.------ A fractal noise generator implemented as a white noise filtered---       by a cascade of 15 first-order filters.------ > ares  fractalnoise  kamp, kbeta------ csound doc: <http://csound.com/docs/manual/fractalnoise.html>-fractalnoise ::  Sig -> Sig -> SE Sig-fractalnoise b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "fractalnoise" [(Ar,[Kr,Kr])] [a1,a2]---- | --- Gaussian distribution random number generator.------ Gaussian distribution random number generator. This is an x-class noise generator.------ > ares  gauss  krange--- > ires  gauss  krange--- > kres  gauss  krange------ csound doc: <http://csound.com/docs/manual/gauss.html>-gauss ::  Sig -> SE Sig-gauss b1 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "gauss" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Gaussian distribution random number generator with---       interpolation.------ Gaussian distribution random number generator with controlled---       interpolation between values. This is an---       x-class noise generator.------ > ares  gaussi  krange, xamp, xcps--- > ires  gaussi  krange, xamp, xcps--- > kres  gaussi  krange, xamp, xcps------ csound doc: <http://csound.com/docs/manual/gaussi.html>-gaussi :: SigOrD a => a -> a -> a -> SE a-gaussi b1 b2 b3 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2 <*> toGE b3-    where f a1 a2 a3 = opcs "gaussi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]---- | --- Random impulses around a certain frequency.------ Generates random impulses around a certain frequency.------ > ares  gausstrig  kamp, kcps, kdev [, imode] [, ifrst1]--- > kres  gausstrig  kamp, kcps, kdev [, imode] [, ifrst1]------ csound doc: <http://csound.com/docs/manual/gausstrig.html>-gausstrig ::  Sig -> Sig -> Sig -> SE Sig-gausstrig b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "gausstrig" [(Ar,[Kr,Kr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Reads the global seed value.------ Returns the global seed value used for all x-class---       noise generators.------ > ians getseed --- > kans getseed ------ csound doc: <http://csound.com/docs/manual/getseed.html>-getseed ::   SE Sig-getseed  = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "getseed" [(Ir,[]),(Kr,[])] []---- | --- Generates a segmented line whose segments are randomly generated.------ > kout  jitter  kamp, kcpsMin, kcpsMax------ csound doc: <http://csound.com/docs/manual/jitter.html>-jitter ::  Sig -> Sig -> Sig -> SE Sig-jitter b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "jitter" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]---- | --- Generates a segmented line with user-controllable random segments.------ > kout  jitter2  ktotamp, kamp1, kcps1,--- >         kamp2, kcps2, kamp3, kcps3[ , iopt]------ csound doc: <http://csound.com/docs/manual/jitter2.html>-jitter2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> SE Sig-jitter2 b1 b2 b3 b4 b5 b6 b7 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "jitter2" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir])] [a1-                                                                                   ,a2-                                                                                   ,a3-                                                                                   ,a4-                                                                                   ,a5-                                                                                   ,a6-                                                                                   ,a7]---- | --- A jitter-spline generator.------ > ares  jspline  xamp, kcpsMin, kcpsMax--- > kres  jspline  kamp, kcpsMin, kcpsMax------ csound doc: <http://csound.com/docs/manual/jspline.html>-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]---- | --- Linear distribution random number generator (positive values only).------ Linear distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  linrand  krange--- > ires  linrand  krange--- > kres  linrand  krange------ csound doc: <http://csound.com/docs/manual/linrand.html>-linrand :: SigOrD a => a -> SE a-linrand b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "linrand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- A white noise generator with an IIR lowpass filter.------ > ares  noise  xamp, kbeta------ csound doc: <http://csound.com/docs/manual/noise.html>-noise ::  Sig -> Sig -> SE Sig-noise b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "noise" [(Ar,[Xr,Kr])] [a1,a2]---- | --- Cauchy distribution random number generator (positive values only).------ Cauchy distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  pcauchy  kalpha--- > ires  pcauchy  kalpha--- > kres  pcauchy  kalpha------ csound doc: <http://csound.com/docs/manual/pcauchy.html>-pcauchy :: SigOrD a => a -> SE a-pcauchy b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "pcauchy" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Generates pink noise.------ Generates pink noise (-3dB/oct response) by the New---       Shade of Pink algorithm of Stefan Stenzel.------ > ares  pinker ------ csound doc: <http://csound.com/docs/manual/pinker.html>-pinker ::   SE Sig-pinker  = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "pinker" [(Ar,[])] []---- | --- Generates approximate pink noise.------ Generates approximate pink noise (-3dB/oct response) by one of two different methods:------ > ares  pinkish  xin [, imethod] [, inumbands] [, iseed] [, iskip]------ csound doc: <http://csound.com/docs/manual/pinkish.html>-pinkish ::  Sig -> SE Sig-pinkish b1 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "pinkish" [(Ar,[Xr,Ir,Ir,Ir,Ir])] [a1]---- | --- Poisson distribution random number generator (positive values only).------ Poisson distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  poisson  klambda--- > ires  poisson  klambda--- > kres  poisson  klambda------ csound doc: <http://csound.com/docs/manual/poisson.html>-poisson :: SigOrD a => a -> SE a-poisson b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "poisson" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Generates a controlled random number series.------ Output is a controlled random number series between -amp and +amp------ > ares  rand  xamp [, iseed] [, isel] [, ioffset]--- > kres  rand  xamp [, iseed] [, isel] [, ioffset]------ csound doc: <http://csound.com/docs/manual/rand.html>-rand ::  Sig -> SE Sig-rand b1 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1-    where f a1 = opcs "rand" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Xr,Ir,Ir,Ir])] [a1]---- | --- Generates random numbers and holds them for a period of time.------ > ares  randh  xamp, xcps [, iseed] [, isize] [, ioffset]--- > kres  randh  kamp, kcps [, iseed] [, isize] [, ioffset]------ csound doc: <http://csound.com/docs/manual/randh.html>-randh ::  Sig -> Sig -> SE Sig-randh b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "randh" [(Ar,[Xr,Xr,Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir,Ir])] [a1,a2]---- | --- Generates a controlled random number series with interpolation between each new number.------ > ares  randi  xamp, xcps [, iseed] [, isize] [, ioffset]--- > kres  randi  kamp, kcps [, iseed] [, isize] [, ioffset]------ csound doc: <http://csound.com/docs/manual/randi.html>-randi ::  Sig -> Sig -> SE Sig-randi b1 b2 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "randi" [(Ar,[Xr,Xr,Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir,Ir])] [a1,a2]---- | --- Generates a controlled pseudo-random number series between min and max values.------ Generates is a controlled pseudo-random number series between min and max values.------ > ares  random  kmin, kmax--- > ires  random  imin, imax--- > kres  random  kmin, kmax------ csound doc: <http://csound.com/docs/manual/random.html>-random :: SigOrD a => a -> a -> SE a-random b1 b2 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2-    where f a1 a2 = opcs "random" [(Ar,[Kr,Kr]),(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1,a2]---- | --- Generates random numbers with a user-defined limit and holds them for a period of time.------ > ares  randomh  kmin, kmax, xcps [,imode] [,ifirstval]--- > kres  randomh  kmin, kmax, kcps [,imode] [,ifirstval]------ csound doc: <http://csound.com/docs/manual/randomh.html>-randomh ::  Sig -> Sig -> Sig -> SE Sig-randomh b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "randomh" [(Ar,[Kr,Kr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Generates a user-controlled random number series with interpolation between each new number.------ > ares  randomi  kmin, kmax, xcps [,imode] [,ifirstval]--- > kres  randomi  kmin, kmax, kcps [,imode] [,ifirstval]------ csound doc: <http://csound.com/docs/manual/randomi.html>-randomi ::  Sig -> Sig -> Sig -> SE Sig-randomi b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "randomi" [(Ar,[Kr,Kr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- 31-bit bipolar random opcodes with controllable distribution.------ 31-bit bipolar random opcodes with controllable distribution. These units are portable, i.e. using the same seed value will generate the same random sequence on all systems. The distribution of generated random numbers can be varied at k-rate.------ > ax  rnd31  kscl, krpow [, iseed]--- > ix  rnd31  iscl, irpow [, iseed]--- > kx  rnd31  kscl, krpow [, iseed]------ csound doc: <http://csound.com/docs/manual/rnd31.html>-rnd31 :: SigOrD a => a -> a -> SE a-rnd31 b1 b2 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2-    where f a1 a2 = opcs "rnd31" [(Ar,[Kr,Kr,Ir]),(Ir,[Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir])] [a1,a2]---- | --- Generate random spline curves.------ > ares  rspline  xrangeMin, xrangeMax, kcpsMin, kcpsMax--- > kres  rspline  krangeMin, krangeMax, kcpsMin, kcpsMax------ csound doc: <http://csound.com/docs/manual/rspline.html>-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]---- | --- Sets the global seed value.------ Sets the global seed value for all x-class noise generators, as well as other opcodes that use a random call, such as grain.------ >  seed  ival------ csound doc: <http://csound.com/docs/manual/seed.html>-seed ::  D -> SE ()-seed b1 = SE $ (depT_ =<<) $ lift $ f <$> unD b1-    where f a1 = opcs "seed" [(Xr,[Ir])] [a1]---- | --- Generates a controlled pseudo-random number series between min and max values according to a trigger.------ Generates a controlled pseudo-random number series between min and max values at k-rate whenever the trigger parameter is different to 0.------ > kout  trandom  ktrig, kmin, kmax------ csound doc: <http://csound.com/docs/manual/trandom.html>-trandom ::  Sig -> Sig -> Sig -> SE Sig-trandom b1 b2 b3 = fmap ( Sig . return) $ SE $ (depT =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "trandom" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]---- | --- Triangular distribution random number generator------ Triangular distribution random number generator. This is an x-class noise generator.------ > ares  trirand  krange--- > ires  trirand  krange--- > kres  trirand  krange------ csound doc: <http://csound.com/docs/manual/trirand.html>-trirand :: SigOrD a => a -> SE a-trirand b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "trirand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- Uniform distribution random number generator (positive values only).------ Uniform distribution random number generator (positive values only). This is an x-class noise generator.------ > ares  unirand  krange--- > ires  unirand  krange--- > kres  unirand  krange------ csound doc: <http://csound.com/docs/manual/unirand.html>-unirand :: SigOrD a => a -> SE a-unirand b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = opcs "unirand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]---- | --- truly random opcodes with controllable range.------ Truly random opcodes with controllable range. These---       units are for Unix-like systems only and use /dev/urandom to construct---       Csound random values------ > ax  urandom  [imin, imax]--- > ix  urandom  [imin, imax]--- > kx  urandom  [imin, imax]------ csound doc: <http://csound.com/docs/manual/urandom.html>-urandom :: SigOrD a =>  SE a-urandom  = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ return $ f -    where f  = opcs "urandom" [(Ar,[Ir,Ir]),(Ir,[Ir,Ir]),(Kr,[Ir,Ir])] []---- | --- A discrete user-defined-distribution random generator that can be used as a function.------ > aout =  urd (ktableNum)--- > iout =  urd (itableNum)--- > kout =  urd (ktableNum)------ csound doc: <http://csound.com/docs/manual/urd.html>-urd :: SigOrD a => a -> SE a-urd b1 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1-    where f a1 = oprBy "urd" [(Ar,[Kr]), (Kr,[Kr]), (Ir,[Ir])] [a1]---- | --- Weibull distribution random number generator (positive values only).------ Weibull distribution random number generator (positive values only). This is an x-class noise generator------ > ares  weibull  ksigma, ktau--- > ires  weibull  ksigma, ktau--- > kres  weibull  ksigma, ktau------ csound doc: <http://csound.com/docs/manual/weibull.html>-weibull :: SigOrD a => a -> a -> SE a-weibull b1 b2 = fmap ( fromGE . return) $ SE $ (depT =<<) $ lift $ f <$> toGE b1 <*> toGE b2-    where f a1 a2 = opcs "weibull" [(Ar,[Kr,Kr]),(Ir,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]---- Sample Playback.---- | --- Generates breakbeat-style cut-ups of a mono audio stream.------ The BreakBeat Cutter automatically generates cut-ups of a source audio stream in the style of drum and bass/jungle breakbeat manipulations.  There are two versions, for mono (bbcutm) or stereo (bbcuts) sources.  Whilst originally based on breakbeat cutting, the opcode can be applied to any type of source audio.------ > a1  bbcutm  asource, ibps, isubdiv, ibarlength, iphrasebars, inumrepeats \--- >           [, istutterspeed] [, istutterchance] [, ienvchoice ]------ csound doc: <http://csound.com/docs/manual/bbcutm.html>-bbcutm ::  Sig -> D -> D -> D -> D -> D -> Sig-bbcutm b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6-    where f a1 a2 a3 a4 a5 a6 = opcs "bbcutm" [(Ar,[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4-                                                                                  ,a5-                                                                                  ,a6]---- | --- Generates breakbeat-style cut-ups of a stereo audio stream.------ The BreakBeat Cutter automatically generates cut-ups of a source audio stream in the style of drum and bass/jungle breakbeat manipulations.  There are two versions, for mono (bbcutm) or stereo (bbcuts) sources.  Whilst originally based on breakbeat cutting, the opcode can be applied to any type of source audio.------ > a1,a2  bbcuts  asource1, asource2, ibps, isubdiv, ibarlength, iphrasebars, \--- >           inumrepeats [, istutterspeed] [, istutterchance] [, ienvchoice]------ csound doc: <http://csound.com/docs/manual/bbcuts.html>-bbcuts ::  Sig -> Sig -> D -> D -> D -> D -> D -> (Sig,Sig)-bbcuts b1 b2 b3 b4 b5 b6 b7 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7-    where f a1 a2 a3 a4 a5 a6 a7 = mopcs "bbcuts" ([Ar,Ar],[Ar,Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                            ,a2-                                                                                            ,a3-                                                                                            ,a4-                                                                                            ,a5-                                                                                            ,a6-                                                                                            ,a7]---- | --- Function-table-based crossfading looper.------ This opcode reads audio from a function table and plays it back in a loop with user-defined---    start time, duration and crossfade time. It also allows the pitch of the loop to be controlled,---    including reversed playback. It accepts non-power-of-two tables, such as deferred-allocation---    GEN01 tables, with one or two channels.------ > asig1[, asig2]  flooper  kamp, kpitch, istart, idur, ifad, ifn------ csound doc: <http://csound.com/docs/manual/flooper.html>-flooper :: Tuple a => Sig -> Sig -> D -> D -> D -> Tab -> a-flooper b1 b2 b3 b4 b5 b6 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = mopcs "flooper" ([Ar,Ar],[Kr,Kr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6]---- | --- Function-table-based crossfading looper.------ This opcode implements a crossfading looper with variable loop parameters and three---   looping modes, optionally using a table for its crossfade shape. It accepts ---   non-power-of-two tables for its source sounds, such as deferred-allocation---    GEN01 tables, with one or two channels.------ > asig1[,asig2]  flooper2  kamp, kpitch, kloopstart, kloopend, kcrossfade, ifn \--- >           [, istart, imode, ifenv, iskip]------ csound doc: <http://csound.com/docs/manual/flooper2.html>-flooper2 :: Tuple a => Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> a-flooper2 b1 b2 b3 b4 b5 b6 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6-    where f a1 a2 a3 a4 a5 a6 = mopcs "flooper2" ([Ar,Ar],[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir]) [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4-                                                                                           ,a5-                                                                                           ,a6]---- | --- Collects all audio from all Fluidsynth engines in a performance------ > aleft, aright  fluidAllOut ------ csound doc: <http://csound.com/docs/manual/fluidAllOut.html>-fluidAllOut ::   (Sig,Sig)-fluidAllOut  = pureTuple $ return $ f -    where f  = mopcs "fluidAllOut" ([Ar,Ar],[]) []---- | --- Sends a MIDI controller data message to fluid.------ Sends a MIDI controller data (MIDI controller number and value to use)---     message to a fluid engine by number on the user specified MIDI channel number.------ >  fluidCCi  iEngineNumber, iChannelNumber, iControllerNumber, iValue------ csound doc: <http://csound.com/docs/manual/fluidCCi.html>-fluidCCi ::  D -> D -> D -> D -> SE ()-fluidCCi b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "fluidCCi" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Sends a MIDI controller data message to fluid.------ Sends a MIDI controller data (MIDI controller number and value to use)---     message to a fluid engine by number on the user specified MIDI channel number.------ >  fluidCCk  iEngineNumber, iChannelNumber, iControllerNumber, kValue------ csound doc: <http://csound.com/docs/manual/fluidCCk.html>-fluidCCk ::  D -> D -> D -> Sig -> SE ()-fluidCCk b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unSig b4-    where f a1 a2 a3 a4 = opcs "fluidCCk" [(Xr,[Ir,Ir,Ir,Kr])] [a1,a2,a3,a4]---- | --- Sends MIDI note on, note off, and other messages to a SoundFont preset.------ The fluid opcodes provide a simple---     Csound opcode wrapper around Peter Hanappe's Fluidsynth SoundFont2---     synthesizer. This implementation accepts any MIDI note on, note---     off, controller, pitch bend, or program change message at---     k-rate. Maximum polyphony is 4096 simultaneously sounding---     voices. Any number of SoundFonts may be loaded and played---     simultaneously.------ >  fluidControl  ienginenum, kstatus, kchannel, kdata1, kdata2------ csound doc: <http://csound.com/docs/manual/fluidControl.html>-fluidControl ::  D -> Sig -> Sig -> Sig -> Sig -> SE ()-fluidControl b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "fluidControl" [(Xr,[Ir,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5]---- | --- Instantiates a fluidsynth engine.------ Instantiates a fluidsynth engine, and returns ienginenum to identify the---     engine. ienginenum is passed to other other opcodes for loading ---     and playing SoundFonts and gathering the generated sound.------ > ienginenum  fluidEngine  [iReverbEnabled] [, iChorusEnabled] [,iNumChannels] [, iPolyphony] ------ csound doc: <http://csound.com/docs/manual/fluidEngine.html>-fluidEngine ::   D-fluidEngine  = D $ return $ f -    where f  = opcs "fluidEngine" [(Ir,[Ir,Ir,Ir,Ir])] []---- | --- Loads a SoundFont into a fluidEngine, optionally listing SoundFont contents.------ Loads a SoundFont into an instance of a fluidEngine, optionally---     listing banks and presets for SoundFont.------ > isfnum  fluidLoad  soundfont, ienginenum[, ilistpresets]------ csound doc: <http://csound.com/docs/manual/fluidLoad.html>-fluidLoad ::  D -> D -> Tab-fluidLoad b1 b2 = Tab $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "fluidLoad" [(Ir,[Ir,Ir,Ir])] [a1,a2]---- | --- Plays a note on a channel in a fluidSynth engine.------ Plays a note at imidikey pitch and imidivel velocity---     on ichannelnum channel of number ienginenum fluidEngine.------ >  fluidNote  ienginenum, ichannelnum, imidikey, imidivel------ csound doc: <http://csound.com/docs/manual/fluidNote.html>-fluidNote ::  D -> D -> D -> D -> SE ()-fluidNote b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "fluidNote" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Outputs sound from a given fluidEngine------ Outputs the sound from a fluidEngine.------ > aleft, aright  fluidOut  ienginenum------ csound doc: <http://csound.com/docs/manual/fluidOut.html>-fluidOut ::  D -> (Sig,Sig)-fluidOut b1 = pureTuple $ f <$> unD b1-    where f a1 = mopcs "fluidOut" ([Ar,Ar],[Ir]) [a1]---- | --- Assigns a preset from a SoundFont to a channel on a fluidEngine.------ >  fluidProgramSelect  ienginenum, ichannelnum, isfnum, ibanknum, ipresetnum------ csound doc: <http://csound.com/docs/manual/fluidProgramSelect.html>-fluidProgramSelect ::  D -> D -> Tab -> D -> D -> SE ()-fluidProgramSelect b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unTab b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "fluidProgramSelect" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Set interpolation method for channel in Fluid Engine------ Set interpolation method for channel in Fluid Engine.  Lower ---     order interpolation methods will render faster at lower fidelity while ---     higher order interpolation methods will render slower at higher fidelity.---     Default interpolation for a channel is 4th order interpolation.------ >  fluidSetInterpMethod  ienginenum, ichannelnum, iInterpMethod------ csound doc: <http://csound.com/docs/manual/fluidSetInterpMethod.html>-fluidSetInterpMethod ::  D -> D -> D -> SE ()-fluidSetInterpMethod b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3-    where f a1 a2 a3 = opcs "fluidSetInterpMethod" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]---- | --- Read sampled sound from a table.------ Read sampled sound (mono or stereo) from a table, with optional sustain and release looping.------ > ar1 [,ar2]  loscil  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \--- >           [, imod2] [, ibeg2] [, iend2]------ csound doc: <http://csound.com/docs/manual/loscil.html>-loscil :: Tuple a => Sig -> Sig -> Tab -> a-loscil b1 b2 b3 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = mopcs "loscil" ([Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]---- | --- Read sampled sound from a table using cubic interpolation.------ Read sampled sound (mono or stereo) from a table, with optional sustain and release looping, using cubic interpolation.------ > ar1 [,ar2]  loscil3  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \--- >           [, imod2] [, ibeg2] [, iend2]------ csound doc: <http://csound.com/docs/manual/loscil3.html>-loscil3 :: Tuple a => Sig -> Sig -> Tab -> a-loscil3 b1 b2 b3 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = mopcs "loscil3" ([Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]---- | --- Read multi-channel sampled sound from a table.------ Read sampled sound (up to 16 channels) from a table, with---       optional sustain and release looping.------ > ar1 [, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, ar11, ar12, ar13, ar14, \--- >           ar15, ar16]  loscilx  xamp, kcps, ifn \--- >           [, iwsize, ibas, istrt, imod, ibeg, iend]------ csound doc: <http://csound.com/docs/manual/loscilx.html>-loscilx :: Tuple a => Sig -> Sig -> Tab -> a-loscilx b1 b2 b3 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = mopcs "loscilx" ([Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar]-                                       ,[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]---- | --- Generates a table index for sample playback------ This opcode can be used to generate table index for sample playback (e.g. tablexkt).------ > ares  lphasor  xtrns [, ilps] [, ilpe] [, imode] [, istrt] [, istor]------ csound doc: <http://csound.com/docs/manual/lphasor.html>-lphasor ::  Sig -> Sig-lphasor b1 = Sig $ f <$> unSig b1-    where f a1 = opcs "lphasor" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir])] [a1]---- | --- Read sampled sound from a table with looping and high precision.------ Read sampled sound (mono or stereo) from a table, with looping, and high precision.------ > ares  lposcil  kamp, kfreqratio, kloop, kend, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/lposcil.html>-lposcil ::  Sig -> Sig -> Sig -> Sig -> Tab -> Sig-lposcil b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5-    where f a1 a2 a3 a4 a5 = opcs "lposcil" [(Ar,[Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Read sampled sound from a table with high precision and cubic interpolation.------ Read sampled sound (mono or stereo) from a table, with looping, and high precision. lposcil3 uses cubic interpolation.------ > ares  lposcil3  kamp, kfreqratio, kloop, kend, ifn [, iphs]------ csound doc: <http://csound.com/docs/manual/lposcil3.html>-lposcil3 ::  Sig -> Sig -> Sig -> Sig -> Tab -> Sig-lposcil3 b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5-    where f a1 a2 a3 a4 a5 = opcs "lposcil3" [(Ar,[Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Read sampled sound from a table with looping and high precision.------ lposcila reads sampled sound from a table with looping and high precision.------ > ar  lposcila  aamp, kfreqratio, kloop, kend, ift [,iphs] ------ csound doc: <http://csound.com/docs/manual/lposcila.html>-lposcila ::  Sig -> Sig -> Sig -> Sig -> D -> Sig-lposcila b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "lposcila" [(Ar,[Ar,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Read stereo sampled sound from a table with looping and high precision.------ lposcilsa reads stereo sampled sound from a table with looping and high precision.------ > ar1, ar2  lposcilsa  aamp, kfreqratio, kloop, kend, ift [,iphs] ------ csound doc: <http://csound.com/docs/manual/lposcilsa.html>-lposcilsa ::  Sig -> Sig -> Sig -> Sig -> D -> (Sig,Sig)-lposcilsa b1 b2 b3 b4 b5 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = mopcs "lposcilsa" ([Ar,Ar],[Ar,Kr,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]---- | --- Read stereo sampled sound from a table with looping and high precision.------ lposcilsa2 reads stereo sampled sound from a table with looping and high precision.------ > ar1, ar2  lposcilsa2  aamp, kfreqratio, kloop, kend, ift [,iphs] ------ csound doc: <http://csound.com/docs/manual/lposcilsa2.html>-lposcilsa2 ::  Sig -> Sig -> Sig -> Sig -> D -> (Sig,Sig)-lposcilsa2 b1 b2 b3 b4 b5 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = mopcs "lposcilsa2" ([Ar,Ar],[Ar,Kr,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]---- | --- Prints a list of all instruments of a previously loaded SoundFont2 (SF2) file.------ Prints a list of all instruments of a previously loaded SoundFont2 (SF2) sample file. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ >  sfilist  ifilhandle------ csound doc: <http://csound.com/docs/manual/sfilist.html>-sfilist ::  Sf -> SE ()-sfilist b1 = SE $ (depT_ =<<) $ lift $ f <$> unSf b1-    where f a1 = opcs "sfilist" [(Xr,[Sr])] [a1]---- | --- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound.------ Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ar1, ar2  sfinstr  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \--- >           [, iflag] [, ioffset]------ csound doc: <http://csound.com/docs/manual/sfinstr.html>-sfinstr ::  D -> D -> Sig -> Sig -> D -> Sf -> (Sig,Sig)-sfinstr b1 b2 b3 b4 b5 b6 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6-    where f a1 a2 a3 a4 a5 a6 = mopcs "sfinstr" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir]) [a1-                                                                                    ,a2-                                                                                    ,a3-                                                                                    ,a4-                                                                                    ,a5-                                                                                    ,a6]---- | --- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound with cubic interpolation.------ Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ar1, ar2  sfinstr3  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \--- >           [, iflag] [, ioffset]------ csound doc: <http://csound.com/docs/manual/sfinstr3.html>-sfinstr3 ::  D -> D -> Sig -> Sig -> D -> Sf -> (Sig,Sig)-sfinstr3 b1 b2 b3 b4 b5 b6 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6-    where f a1 a2 a3 a4 a5 a6 = mopcs "sfinstr3" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir]) [a1-                                                                                     ,a2-                                                                                     ,a3-                                                                                     ,a4-                                                                                     ,a5-                                                                                     ,a6]---- | --- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound with cubic interpolation.------ Plays a SoundFont2 (SF2) sample instrument, generating a mono sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ares  sfinstr3m  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \--- >           [, iflag] [, ioffset]------ csound doc: <http://csound.com/docs/manual/sfinstr3m.html>-sfinstr3m ::  D -> D -> Sig -> Sig -> D -> Sf -> Sig-sfinstr3m b1 b2 b3 b4 b5 b6 = Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6-    where f a1 a2 a3 a4 a5 a6 = opcs "sfinstr3m" [(Ar,[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir])] [a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4-                                                                                  ,a5-                                                                                  ,a6]---- | --- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound.------ Plays a SoundFont2 (SF2) sample instrument, generating a mono sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ares  sfinstrm  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \--- >           [, iflag] [, ioffset]------ csound doc: <http://csound.com/docs/manual/sfinstrm.html>-sfinstrm ::  D -> D -> Sig -> Sig -> D -> Sf -> Sig-sfinstrm b1 b2 b3 b4 b5 b6 = Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6-    where f a1 a2 a3 a4 a5 a6 = opcs "sfinstrm" [(Ar,[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Loads an entire SoundFont2 (SF2) sample file into memory.------ Loads an entire SoundFont2 (SF2) sample file into memory. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ir  sfload  "filename"------ csound doc: <http://csound.com/docs/manual/sfload.html>-sfload ::  Str -> D-sfload b1 = D $ f <$> unStr b1-    where f a1 = opcs "sfload" [(Ir,[Sr])] [a1]---- | --- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound, with user-defined---       time-varying crossfade looping.------ Plays a SoundFont2 (SF2) sample preset, generating a stereo sound, similarly to sfplay. Unlike that opcode, though,--- 	  it ignores the looping points set in the SF2 file and substitutes them for a user-defined crossfade loop. It is--- 	  a cross between sfplay and---       flooper2.------ > ar1, ar2  sflooper  ivel, inotenum, kamp, kpitch, ipreindex, kloopstart, kloopend, kcrossfade \--- >           [, istart, imode, ifenv, iskip] ------ csound doc: <http://csound.com/docs/manual/sflooper.html>-sflooper ::  D -> D -> Sig -> Sig -> Sf -> Sig -> Sig -> Sig -> (Sig,Sig)-sflooper b1 b2 b3 b4 b5 b6 b7 b8 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5 <*> unSig b6 <*> unSig b7 <*> unSig b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "sflooper" ([Ar,Ar]-                                                       ,[Ir,Ir,Kr,Kr,Ir,Kr,Kr,Kr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8]---- | --- Assigns all presets of a SoundFont2 (SF2) sample file to a sequence of progressive index numbers.------ Assigns all presets of a previously loaded SoundFont2 (SF2)---       sample file to a sequence of progressive index numbers. These---       opcodes allow management the sample-structure of SF2 files. In---       order to understand the usage of these opcodes, the user must---       have some knowledge of the SF2 format, so a brief description of---       this format can be found in---       the SoundFont2 File Format---       Appendix.------ >  sfpassign  istartindex, ifilhandle[, imsgs]------ csound doc: <http://csound.com/docs/manual/sfpassign.html>-sfpassign ::  D -> Sf -> SE ()-sfpassign b1 b2 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unSf b2-    where f a1 a2 = opcs "sfpassign" [(Xr,[Ir,Sr,Ir])] [a1,a2]---- | --- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound.------ Plays a SoundFont2 (SF2) sample preset, generating a stereo sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ar1, ar2  sfplay  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]------ csound doc: <http://csound.com/docs/manual/sfplay.html>-sfplay ::  D -> D -> Sig -> Sig -> Sf -> (Sig,Sig)-sfplay b1 b2 b3 b4 b5 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5-    where f a1 a2 a3 a4 a5 = mopcs "sfplay" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]---- | --- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound with cubic interpolation.------ Plays a SoundFont2 (SF2) sample preset, generating a stereo sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ar1, ar2  sfplay3  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]------ csound doc: <http://csound.com/docs/manual/sfplay3.html>-sfplay3 ::  D -> D -> Sig -> Sig -> Sf -> (Sig,Sig)-sfplay3 b1 b2 b3 b4 b5 = pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5-    where f a1 a2 a3 a4 a5 = mopcs "sfplay3" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]---- | --- Plays a SoundFont2 (SF2) sample preset, generating a mono sound with cubic interpolation.------ Plays a SoundFont2 (SF2) sample preset, generating a mono sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ares  sfplay3m  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]------ csound doc: <http://csound.com/docs/manual/sfplay3m.html>-sfplay3m ::  D -> D -> Sig -> Sig -> Sf -> Sig-sfplay3m b1 b2 b3 b4 b5 = Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5-    where f a1 a2 a3 a4 a5 = opcs "sfplay3m" [(Ar,[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Plays a SoundFont2 (SF2) sample preset, generating a mono sound.------ Plays a SoundFont2 (SF2) sample preset, generating a mono sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ares  sfplaym  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]------ csound doc: <http://csound.com/docs/manual/sfplaym.html>-sfplaym ::  D -> D -> Sig -> Sig -> Sf -> Sig-sfplaym b1 b2 b3 b4 b5 = Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5-    where f a1 a2 a3 a4 a5 = opcs "sfplaym" [(Ar,[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Prints a list of all presets of a SoundFont2 (SF2) sample file.------ Prints a list of all presets of a previously loaded SoundFont2 (SF2) sample file. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ >  sfplist  ifilhandle------ csound doc: <http://csound.com/docs/manual/sfplist.html>-sfplist ::  Sf -> SE ()-sfplist b1 = SE $ (depT_ =<<) $ lift $ f <$> unSf b1-    where f a1 = opcs "sfplist" [(Xr,[Sr])] [a1]---- | --- Assigns an existing preset of a SoundFont2 (SF2) sample file to an index number.------ Assigns an existing preset of a previously loaded SoundFont2 (SF2) sample file to an index number. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.------ > ir  sfpreset  iprog, ibank, ifilhandle, ipreindex------ csound doc: <http://csound.com/docs/manual/sfpreset.html>-sfpreset ::  D -> D -> Sf -> Sf -> D-sfpreset b1 b2 b3 b4 = D $ f <$> unD b1 <*> unD b2 <*> unSf b3 <*> unSf b4-    where f a1 a2 a3 a4 = opcs "sfpreset" [(Ir,[Ir,Ir,Sr,Ir])] [a1,a2,a3,a4]---- | --- A sound looper with pitch control.------ This opcode records input audio and plays it back in a loop with user-defined---    duration and crossfade time. It also allows the pitch of the loop to be controlled,---    including reversed playback.------ > asig, krec  sndloop  ain, kpitch, ktrig, idur, ifad------ csound doc: <http://csound.com/docs/manual/sndloop.html>-sndloop ::  Sig -> Sig -> Sig -> D -> D -> (Sig,Sig)-sndloop b1 b2 b3 b4 b5 = pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = mopcs "sndloop" ([Ar,Kr],[Ar,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]---- | --- A simple time stretch by repeating cycles.------ > ares  waveset  ain, krep [, ilen]------ csound doc: <http://csound.com/docs/manual/waveset.html>-waveset ::  Sig -> Sig -> Sig-waveset b1 b2 = Sig $ f <$> unSig b1 <*> unSig b2-    where f a1 a2 = opcs "waveset" [(Ar,[Ar,Kr,Ir])] [a1,a2]---- Scanned Synthesis.---- | --- Copies from one table to another with a gain control.------ This is is a variant of tablecopy, copying from one table to another, starting at ipos, and with a gain control. The number of points copied is determined by the length of the source. Other points are not changed. This opcode can be used to “hit” a string in the scanned synthesis code.------ >  scanhammer  isrc, idst, ipos, imult------ csound doc: <http://csound.com/docs/manual/scanhammer.html>-scanhammer ::  D -> D -> D -> D -> SE ()-scanhammer b1 b2 b3 b4 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "scanhammer" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Generate audio output using scanned synthesis.------ > ares  scans  kamp, kfreq, ifn, id [, iorder]------ csound doc: <http://csound.com/docs/manual/scans.html>-scans ::  Sig -> Sig -> Tab -> D -> Sig-scans b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "scans" [(Ar,[Kr,Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- A simpler scanned synthesis implementation.------ A simpler scanned synthesis implementation. This is an implementation of a circular string scanned using external tables. This opcode will allow direct modification and reading of values with the table opcodes.------ > aout  scantable  kamp, kpch, ipos, imass, istiff, idamp, ivel------ csound doc: <http://csound.com/docs/manual/scantable.html>-scantable ::  Sig -> Sig -> D -> D -> D -> D -> D -> Sig-scantable b1 b2 b3 b4 b5 b6 b7 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "scantable" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1-                                                                                  ,a2-                                                                                  ,a3-                                                                                  ,a4-                                                                                  ,a5-                                                                                  ,a6-                                                                                  ,a7]---- | --- Compute the waveform and the wavetable for use in scanned synthesis.------ >  scanu  init, irate, ifnvel, ifnmass, ifnstif, ifncentr, ifndamp, kmass, \--- >           kstif, kcentr, kdamp, ileft, iright, kpos, kstrngth, ain, idisp, id------ csound doc: <http://csound.com/docs/manual/scanu.html>-scanu ::  D -> D -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> D -> D -> SE ()-scanu b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unTab b6 <*> unTab b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unSig b11 <*> unD b12 <*> unD b13 <*> unSig b14 <*> unSig b15 <*> unSig b16 <*> unD b17 <*> unD b18-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = opcs "scanu" [(Xr-                                                                                           ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Ar,Ir,Ir])] [a1-                                                                                                                                                      ,a2-                                                                                                                                                      ,a3-                                                                                                                                                      ,a4-                                                                                                                                                      ,a5-                                                                                                                                                      ,a6-                                                                                                                                                      ,a7-                                                                                                                                                      ,a8-                                                                                                                                                      ,a9-                                                                                                                                                      ,a10-                                                                                                                                                      ,a11-                                                                                                                                                      ,a12-                                                                                                                                                      ,a13-                                                                                                                                                      ,a14-                                                                                                                                                      ,a15-                                                                                                                                                      ,a16-                                                                                                                                                      ,a17-                                                                                                                                                      ,a18]---- | --- Allows the position and velocity of a node in a scanned process to be read.------ > kpos, kvel  xscanmap  iscan, kamp, kvamp [, iwhich]------ csound doc: <http://csound.com/docs/manual/xscanmap.html>-xscanmap ::  D -> Sig -> Sig -> (Sig,Sig)-xscanmap b1 b2 b3 = pureTuple $ f <$> unD b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = mopcs "xscanmap" ([Kr,Kr],[Ir,Kr,Kr,Ir]) [a1,a2,a3]---- | --- Fast scanned synthesis waveform and the wavetable generator.------ Experimental version of scans.  Allows much larger matrices and is faster and smaller but removes some (unused?) flexibility.  If liked, it will replace the older opcode as it is syntax compatible but extended.------ > ares  xscans  kamp, kfreq, ifntraj, id [, iorder]------ csound doc: <http://csound.com/docs/manual/xscans.html>-xscans ::  Sig -> Sig -> Tab -> D -> Sig-xscans b1 b2 b3 b4 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unD b4-    where f a1 a2 a3 a4 = opcs "xscans" [(Ar,[Kr,Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]---- | --- Allows the position and velocity of a node in a scanned process to be read.------ >  xscansmap  kpos, kvel, iscan, kamp, kvamp [, iwhich]------ csound doc: <http://csound.com/docs/manual/xscansmap.html>-xscansmap ::  Sig -> Sig -> D -> Sig -> Sig -> SE ()-xscansmap b1 b2 b3 b4 b5 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "xscansmap" [(Xr,[Kr,Kr,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]---- | --- Compute the waveform and the wavetable for use in scanned synthesis.------ Experimental version of scanu. Allows much larger matrices and is faster and smaller but removes some (unused?) flexibility.  If liked, it will replace the older opcode as it is syntax compatible but extended.------ >  xscanu  init, irate, ifnvel, ifnmass, ifnstif, ifncentr, ifndamp, kmass, \--- >           kstif, kcentr, kdamp, ileft, iright, kpos, kstrngth, ain, idisp, id------ csound doc: <http://csound.com/docs/manual/xscanu.html>-xscanu ::  D -> D -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> D -> D -> SE ()-xscanu b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unTab b6 <*> unTab b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unSig b11 <*> unD b12 <*> unD b13 <*> unSig b14 <*> unSig b15 <*> unSig b16 <*> unD b17 <*> unD b18-    where f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = opcs "xscanu" [(Xr-                                                                                            ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Ar,Ir,Ir])] [a1-                                                                                                                                                       ,a2-                                                                                                                                                       ,a3-                                                                                                                                                       ,a4-                                                                                                                                                       ,a5-                                                                                                                                                       ,a6-                                                                                                                                                       ,a7-                                                                                                                                                       ,a8-                                                                                                                                                       ,a9-                                                                                                                                                       ,a10-                                                                                                                                                       ,a11-                                                                                                                                                       ,a12-                                                                                                                                                       ,a13-                                                                                                                                                       ,a14-                                                                                                                                                       ,a15-                                                                                                                                                       ,a16-                                                                                                                                                       ,a17-                                                                                                                                                       ,a18]---- STK Opcodes.---- | --- STKBandedWG uses banded waveguide techniques to model a variety of sounds.------ This opcode uses banded waveguide techniques to model a variety of sounds, including bowed bars, glasses, and bowls.------ > asignal  STKBandedWG  ifrequency, iamplitude, [kpress, kv1[, kmot, kv2[, klfo, kv3[, klfodepth, kv4[, kvel, kv5[, kstrk, kv6[, kinstr, kv7]]]]]]]------ csound doc: <http://csound.com/docs/manual/STKBandedWG.html>-stkBandedWG ::  D -> D -> Sig-stkBandedWG b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBandedWG" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1-                                                                                                ,a2]---- | --- STK Hammond-oid organ-like FM synthesis instrument.------ > asignal  STKBeeThree  ifrequency, iamplitude, [kop4, kv1[, kop3, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKBeeThree.html>-stkBeeThree ::  D -> D -> Sig-stkBeeThree b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBeeThree" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKBlowBotl uses a helmholtz resonator (biquad filter) with a polynomial jet excitation.------ This opcode implements a helmholtz resonator (biquad filter) with a polynomial jet excitation (a la Cook).------ > asignal  STKBlowBotl  ifrequency, iamplitude, [knoise, kv1[, klfo, kv2[, klfodepth, kv3[, kvol, kv4]]]]------ csound doc: <http://csound.com/docs/manual/STKBlowBotl.html>-stkBlowBotl ::  D -> D -> Sig-stkBlowBotl b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBlowBotl" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STK clarinet physical model with one register hole and one tonehole.------ This opcode is based on the clarinet model, with the addition of a two-port register hole and a three-port dynamic tonehole implementation.------ > asignal  STKBlowHole  ifrequency, iamplitude, [kreed, kv1[, knoise, kv2[, khole, kv3[, kreg, kv4[, kbreath, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKBlowHole.html>-stkBlowHole ::  D -> D -> Sig-stkBlowHole b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBlowHole" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKBowed is a bowed string instrument.------ STKBowed is a bowed string instrument, using a waveguide model.------ > asignal  STKBowed  ifrequency, iamplitude, [kpress, kv1[, kpos, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKBowed.html>-stkBowed ::  D -> D -> Sig-stkBowed b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBowed" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKBrass is a simple brass instrument.------ STKBrass uses a simple brass instrument waveguide model, a la Cook.------ > asignal  STKBrass  ifrequency, iamplitude, [klip, kv1[, kslide, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKBrass.html>-stkBrass ::  D -> D -> Sig-stkBrass b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKBrass" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKClarinet uses a simple clarinet physical model.------ > asignal  STKClarinet  ifrequency, iamplitude, [kstiff, kv1[, knoise, kv2[, klfo, kv3[, klfodepth, kv4[, kbreath, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKClarinet.html>-stkClarinet ::  D -> D -> Sig-stkClarinet b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKClarinet" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKDrummer is a drum sampling synthesizer.------ STKDrummer is a drum sampling synthesizer using raw waves and one-pole filters,---       The drum rawwave files are sampled at 22050 Hz, but will be appropriately interpolated for other sample rates.------ > asignal  STKDrummer  ifrequency, iamplitude------ csound doc: <http://csound.com/docs/manual/STKDrummer.html>-stkDrummer ::  D -> D -> Sig-stkDrummer b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKDrummer" [(Ar,[Ir,Ir])] [a1,a2]---- | --- STKFMVoices is a singing FM synthesis instrument.------ STKFMVoices is a singing FM synthesis instrument. It has 3 carriers and a common modulator, also referred to as algorithm 6 of the TX81Z.------ > asignal  STKFMVoices  ifrequency, iamplitude, [kvowel, kv1[, kspec, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKFMVoices.html>-stkFMVoices ::  D -> D -> Sig-stkFMVoices b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKFMVoices" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKFlute uses a simple flute physical model.------ STKFlute uses a simple flute physical model. The jet model uses a polynomial, a la Cook.------ > asignal  STKFlute  ifrequency, iamplitude, [kjet, kv1[, knoise, kv2[, klfo, kv3[, klfodepth, kv4[, kbreath, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKFlute.html>-stkFlute ::  D -> D -> Sig-stkFlute b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKFlute" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKHevyMetl produces metal sounds.------ STKHevyMetl produces metal sounds, using FM synthesis.---       It uses 3 cascade operators with feedback modulation, also referred to as algorithm 3 of the TX81Z.------ > asignal  STKHevyMetl  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKHevyMetl.html>-stkHevyMetl ::  D -> D -> Sig-stkHevyMetl b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKHevyMetl" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKMandolin produces mamdolin-like sounds.------ STKMandolin produces mamdolin-like sounds, using "commuted synthesis" techniques to model a mandolin instrument.------ > asignal  STKMandolin  ifrequency, iamplitude, [kbody, kv1[, kpos, kv2[, ksus, kv3[, kdetune, kv4[, kmic, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKMandolin.html>-stkMandolin ::  D -> D -> Sig-stkMandolin b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKMandolin" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKModalBar is a resonant bar instrument.------ This opcode is a resonant bar instrument.It has a number of different struck bar instruments.------ > asignal  STKModalBar  ifrequency, iamplitude, [khard, kv1[, kpos, kv2[, klfo, kv3[, klfodepth, kv4[, kmix, kv5[, kvol, kv6[, kinstr, kv7]]]]]]]------ csound doc: <http://csound.com/docs/manual/STKModalBar.html>-stkModalBar ::  D -> D -> Sig-stkModalBar b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKModalBar" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1-                                                                                                ,a2]---- | --- STKMoog produces moog-like swept filter sounds.------ STKMoog produces moog-like swept filter sounds, using one attack wave, one looped wave, and an ADSR envelope and adds two sweepable formant filters.------ > asignal  STKMoog  ifrequency, iamplitude, [kq, kv1[, krate, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKMoog.html>-stkMoog ::  D -> D -> Sig-stkMoog b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKMoog" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKPercFlut is a percussive flute FM synthesis instrument.------ STKPercFlut is a percussive flute FM synthesis instrument. The instrument uses an algorithm like the algorithm 4 of the TX81Z.------ > asignal  STKPercFlut  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKPercFlut.html>-stkPercFlut ::  D -> D -> Sig-stkPercFlut b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKPercFlut" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKPlucked uses a plucked string physical model.------ STKPlucked uses a plucked string physical model based on the Karplus-Strong algorithm.------ > asignal  STKPlucked  ifrequency, iamplitude------ csound doc: <http://csound.com/docs/manual/STKPlucked.html>-stkPlucked ::  D -> D -> Sig-stkPlucked b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKPlucked" [(Ar,[Ir,Ir])] [a1,a2]---- | --- STKResonate is a noise driven formant filter.------ STKResonate is a noise driven formant filter. This instrument contains a noise source, which excites a biquad resonance filter, with volume controlled by an ADSR.------ > asignal  STKResonate  ifrequency, iamplitude, [kfreq, kv1[, kpole, kv2[, knotch, kv3[, kzero, kv4[, kenv, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKResonate.html>-stkResonate ::  D -> D -> Sig-stkResonate b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKResonate" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STK Fender Rhodes-like electric piano FM synthesis instrument.------ > asignal  STKRhodey  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKRhodey.html>-stkRhodey ::  D -> D -> Sig-stkRhodey b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKRhodey" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKSaxofony is a faux conical bore reed instrument.------ STKSaxofony is a faux conical bore reed instrument.---       This opcode uses a "hybrid" digital waveguide instrument that can generate a variety of wind-like sounds. It has also been referred to as the "blowed string" model. ---       The waveguide section is essentially that of a string, with one rigid and one lossy termination. The non-linear function is a reed table. ---       The string can be "blown" at any point between the terminations, though just as with strings, it is impossible to excite the system at either end. ---       If the excitation is placed at the string mid-point, the sound is that of a clarinet. At points closer to the "bridge", the sound is closer to that of a saxophone.------ > asignal  STKSaxofony --- >      ifrequency, iamplitude, [kstiff, kv1[, kapert, kv2[, kblow, kv3[, --- >     knoise, kv4[, klfo, kv5[, klfodepth, kv6[, kbreath, kv7]]]]]]]------ csound doc: <http://csound.com/docs/manual/STKSaxofony.html>-stkSaxofony ::  D -> D -> Sig-stkSaxofony b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKSaxofony" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1-                                                                                                ,a2]---- | --- STKShakers is an instrument that simulates environmental sounds or collisions of multiple independent sound producing objects.------ STKShakers are a set of PhISEM and PhOLIES instruments: ---       PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects. ---       It can simulate a Maraca, Sekere, Cabasa, Bamboo Wind Chimes, Water Drops, Tambourine, Sleighbells, and a Guiro. On http://soundlab.cs.princeton.edu/research/controllers/shakers/--- PhOLIES (Physically-Oriented Library of Imitated Environmental Sounds) there is a similar approach for the synthesis of environmental sounds. --- It simulates of breaking sticks, crunchy snow (or not), a wrench, sandpaper, and more..------ > asignal  STKShakers  ifrequency, iamplitude, [kenerg, kv1[, kdecay, kv2[, kshake, kv3[, knum, kv4[, kres, kv5[, kinstr, kv6]]]]]]------ csound doc: <http://csound.com/docs/manual/STKShakers.html>-stkShakers ::  D -> D -> Sig-stkShakers b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKShakers" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKSimple is a wavetable/noise instrument.------ STKSimple is a wavetable/noise instrument.---       It combines a looped wave, a noise source, a biquad resonance filter, a one-pole filter, and an ADSR envelope to create some interesting sounds.------ > asignal  STKSimple  ifrequency, iamplitude, [kpos, kv1[, kcross, kv2[, kenv, kv3[, kgain, kv4]]]]------ csound doc: <http://csound.com/docs/manual/STKSimple.html>-stkSimple ::  D -> D -> Sig-stkSimple b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKSimple" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKSitar uses a plucked string physical model.------ STKSitar uses a plucked string physical model based on the Karplus-Strong algorithm.------ > asignal  STKSitar  ifrequency, iamplitude------ csound doc: <http://csound.com/docs/manual/STKSitar.html>-stkSitar ::  D -> D -> Sig-stkSitar b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKSitar" [(Ar,[Ir,Ir])] [a1,a2]---- | --- STKStifKarp is a plucked stiff string instrument.------ STKStifKarp is a plucked stiff string instrument. ---       It a simple plucked string algorithm (Karplus Strong) with enhancements, including string stiffness and pluck position controls. The stiffness is modeled with allpass filters.------ > asignal  STKStifKarp  ifrequency, iamplitude, [kpos, kv1[, ksus, kv2[, kstretch, kv3]]]------ csound doc: <http://csound.com/docs/manual/STKStifKarp.html>-stkStifKarp ::  D -> D -> Sig-stkStifKarp b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKStifKarp" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKTubeBell is a  tubular bell (orchestral chime) FM synthesis instrument.------ STKTubeBell is a tubular bell (orchestral chime) FM synthesis instrument. ---       It uses two simple FM Pairs summed together, also referred to as algorithm 5 of the TX81Z.------ > asignal  STKTubeBell  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKTubeBell.html>-stkTubeBell ::  D -> D -> Sig-stkTubeBell b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKTubeBell" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKVoicForm is a  four formant synthesis instrument.------ STKVoicForm is a four formant synthesis instrument. --- This instrument contains an excitation singing wavetable (looping wave with random and periodic vibrato, smoothing on frequency, etc.), excitation noise, and four sweepable complex resonances. --- Measured formant data is included, and enough data is there to support either parallel or cascade synthesis. In the floating point case cascade synthesis is the most natural so that's what you'll find here.------ > asignal  STKVoicForm  ifrequency, iamplitude, [kmix, kv1[, ksel, kv2[, klfo, kv3[, klfodepth, kv4[, kloud, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKVoicForm.html>-stkVoicForm ::  D -> D -> Sig-stkVoicForm b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKVoicForm" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKWhistle produces whistle sounds.------ STKWhistle produces (police) whistle sounds. It uses a hybrid physical/spectral model of a police whistle (a la Cook).------ > asignal  STKWhistle  ifrequency, iamplitude, [kmod, kv1[, knoise, kv2[, kfipfreq, kv3[, kfipgain, kv4[, kvol, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKWhistle.html>-stkWhistle ::  D -> D -> Sig-stkWhistle b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKWhistle" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- | --- STKWurley simulates a Wurlitzer electric piano FM synthesis instrument.------ STKWurley simulates a Wurlitzer electric piano FM synthesis instrument. ---       It uses two simple FM Pairs summed together, also referred to as algorithm 5 of the TX81Z.------ > asignal  STKWurley  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]------ csound doc: <http://csound.com/docs/manual/STKWurley.html>-stkWurley ::  D -> D -> Sig-stkWurley b1 b2 = Sig $ f <$> unD b1 <*> unD b2-    where f a1 a2 = opcs "STKWurley" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]---- Table Access.---- | --- Accesses table values by incremental sampling.------ > kres  oscil1  idel, kamp, idur [, ifn]------ csound doc: <http://csound.com/docs/manual/oscil1.html>-oscil1 ::  D -> Sig -> D -> Sig-oscil1 b1 b2 b3 = Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "oscil1" [(Kr,[Ir,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Accesses table values by incremental sampling with linear interpolation.------ > kres  oscil1i  idel, kamp, idur [, ifn]------ csound doc: <http://csound.com/docs/manual/oscil1i.html>-oscil1i ::  D -> Sig -> D -> Sig-oscil1i b1 b2 b3 = Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3-    where f a1 a2 a3 = opcs "oscil1i" [(Kr,[Ir,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Accesses table values by direct indexing.------ > ares  ptable  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  ptable  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  ptable  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/ptable.html>-ptable ::  Sig -> Tab -> Sig-ptable b1 b2 = Sig $ f <$> unSig b1 <*> unTab b2-    where f a1 a2 = opcs "ptable" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                  ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                  ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Accesses table values by direct indexing with cubic interpolation.------ > ares  ptable3  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  ptable3  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  ptable3  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/ptable3.html>-ptable3 ::  Sig -> Tab -> Sig-ptable3 b1 b2 = Sig $ f <$> unSig b1 <*> unTab b2-    where f a1 a2 = opcs "ptable3" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                   ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                   ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Accesses table values by direct indexing with linear interpolation.------ > ares  ptablei  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  ptablei  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  ptablei  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/ptablei.html>-ptablei ::  Sig -> Tab -> Sig-ptablei b1 b2 = Sig $ f <$> unSig b1 <*> unTab b2-    where f a1 a2 = opcs "ptablei" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                   ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                   ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Fast table opcodes.------ Fast table opcodes. Faster than---     table and---     tablew because don't---     allow wrap-around and limit and don't check index validity. Have---     been implemented in order to provide fast access to---     arrays. Support non-power of two tables (can be generated by any---     GEN function by giving a negative length value).------ > ir  tab_i  indx, ifn[, ixmode]------ csound doc: <http://csound.com/docs/manual/tab.html>-tab_i ::  D -> Tab -> D-tab_i b1 b2 = D $ f <$> unD b1 <*> unTab b2-    where f a1 a2 = opcs "tab_i" [(Ir,[Ir,Ir,Ir])] [a1,a2]---- | --- Fast table opcodes.------ Fast table opcodes. Faster than---     table and---     tablew because don't---     allow wrap-around and limit and don't check index validity. Have---     been implemented in order to provide fast access to---     arrays. Support non-power of two tables (can be generated by any---     GEN function by giving a negative length value).------ > kr  tab  kndx, ifn[, ixmode]--- > ar  tab  xndx, ifn[, ixmode]------ csound doc: <http://csound.com/docs/manual/tab.html>-tab ::  Sig -> Tab -> Sig-tab b1 b2 = Sig $ f <$> unSig b1 <*> unTab b2-    where f a1 a2 = opcs "tab" [(Kr,[Kr,Ir,Ir]),(Ar,[Xr,Ir,Ir])] [a1,a2]---- | --- Fast table opcodes.------ Fast table opcodes. Faster than---     table and---     tablew because don't---     allow wrap-around and limit and don't check index validity. Have---     been implemented in order to provide fast access to---     arrays. Support non-power of two tables (can be generated by any---     GEN function by giving a negative length value).------ >  tabw_i  isig, indx, ifn [,ixmode]------ csound doc: <http://csound.com/docs/manual/tab.html>-tabw_i ::  D -> D -> Tab -> SE ()-tabw_i b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unD b1 <*> unD b2 <*> unTab b3-    where f a1 a2 a3 = opcs "tabw_i" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3]---- | --- Fast table opcodes.------ Fast table opcodes. Faster than---     table and---     tablew because don't---     allow wrap-around and limit and don't check index validity. Have---     been implemented in order to provide fast access to---     arrays. Support non-power of two tables (can be generated by any---     GEN function by giving a negative length value).------ >  tabw  ksig, kndx, ifn [,ixmode]--- >  tabw  asig, andx, ifn [,ixmode]------ csound doc: <http://csound.com/docs/manual/tab.html>-tabw ::  Sig -> Sig -> Tab -> SE ()-tabw b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unTab b3-    where f a1 a2 a3 = opcs "tabw" [(Xr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]---- | --- Accesses table values by direct indexing.------ > ares  table  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  table  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  table  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/table.html>-table :: SigOrD a => a -> Tab -> a-table b1 b2 = fromGE $ f <$> toGE b1 <*> unTab b2-    where f a1 a2 = opcs "table" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                 ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                 ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Accesses table values by direct indexing with cubic interpolation.------ > ares  table3  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  table3  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  table3  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/table3.html>-table3 :: SigOrD a => a -> Tab -> a-table3 b1 b2 = fromGE $ f <$> toGE b1 <*> unTab b2-    where f a1 a2 = opcs "table3" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                  ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                  ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- | --- Accesses table values by direct indexing with linear interpolation.------ > ares  tablei  andx, ifn [, ixmode] [, ixoff] [, iwrap]--- > ires  tablei  indx, ifn [, ixmode] [, ixoff] [, iwrap]--- > kres  tablei  kndx, ifn [, ixmode] [, ixoff] [, iwrap]------ csound doc: <http://csound.com/docs/manual/tablei.html>-tablei :: SigOrD a => a -> Tab -> a-tablei b1 b2 = fromGE $ f <$> toGE b1 <*> unTab b2-    where f a1 a2 = opcs "tablei" [(Ar,[Ar,Ir,Ir,Ir,Ir])-                                  ,(Ir,[Ir,Ir,Ir,Ir,Ir])-                                  ,(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1,a2]---- Wave Terrain Synthesis.---- | --- A simple wave-terrain synthesis opcode.------ > aout  wterrain  kamp, kpch, k_xcenter, k_ycenter, k_xradius, k_yradius, \--- >           itabx, itaby------ csound doc: <http://csound.com/docs/manual/wterrain.html>-wterrain ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig-wterrain b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unD b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wterrain" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1-                                                                                       ,a2-                                                                                       ,a3-                                                                                       ,a4-                                                                                       ,a5-                                                                                       ,a6-                                                                                       ,a7-                                                                                       ,a8]---- Waveguide Physical Modeling.---- | --- Produces a naturally decaying plucked string or drum sound.------ Audio output is a naturally decaying plucked string or drum sound based on the Karplus-Strong algorithms.------ > ares  pluck  kamp, kcps, icps, ifn, imeth [, iparm1] [, iparm2]------ csound doc: <http://csound.com/docs/manual/pluck.html>-pluck ::  Sig -> Sig -> D -> Tab -> D -> Sig-pluck b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unTab b4 <*> unD b5-    where f a1 a2 a3 a4 a5 = opcs "pluck" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Physical model of the plucked string.------ repluck is an implementation of the physical model of the plucked string. A user can control the pluck point, the pickup point, the filter, and an additional audio signal, axcite. axcite is used to excite the 'string'. Based on the Karplus-Strong algorithm.------ > ares  repluck  iplk, kamp, icps, kpick, krefl, axcite------ csound doc: <http://csound.com/docs/manual/repluck.html>-repluck ::  D -> Sig -> D -> Sig -> Sig -> Sig -> Sig-repluck b1 b2 b3 b4 b5 b6 = Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "repluck" [(Ar,[Ir,Kr,Ir,Kr,Kr,Ar])] [a1,a2,a3,a4,a5,a6]---- | --- A string resonator with variable fundamental frequency.------ An audio signal is modified by a string resonator with variable fundamental frequency.------ > ares  streson  asig, kfr, kfdbgain------ csound doc: <http://csound.com/docs/manual/streson.html>-streson ::  Sig -> Sig -> Sig -> Sig-streson b1 b2 b3 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3-    where f a1 a2 a3 = opcs "streson" [(Ar,[Ar,Kr,Kr])] [a1,a2,a3]---- | --- Creates a tone similar to a bowed string.------ Audio output is a tone similar to a bowed string, using a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  wgbow  kamp, kfreq, kpres, krat, kvibf, kvamp \--- >         [, ifn] [, iminfreq]------ csound doc: <http://csound.com/docs/manual/wgbow.html>-wgbow ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig-wgbow b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "wgbow" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- A physical model of a bowed bar.------ A physical model of a bowed bar, belonging to the Perry Cook family of waveguide instruments.------ > ares  wgbowedbar  kamp, kfreq, kpos, kbowpres, kgain [, iconst] [, itvel] \--- >           [, ibowpos] [, ilow]------ csound doc: <http://csound.com/docs/manual/wgbowedbar.html>-wgbowedbar ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig-wgbowedbar b1 b2 b3 b4 b5 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "wgbowedbar" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]---- | --- Creates a tone related to a brass instrument.------ Audio output is a tone related to a brass instrument, using a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  wgbrass  kamp, kfreq, ktens, iatt, kvibf, kvamp \--- >         [, ifn] [, iminfreq]------ csound doc: <http://csound.com/docs/manual/wgbrass.html>-wgbrass ::  Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig-wgbrass b1 b2 b3 b4 b5 b6 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unSig b5 <*> unSig b6-    where f a1 a2 a3 a4 a5 a6 = opcs "wgbrass" [(Ar,[Kr,Kr,Kr,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]---- | --- Creates a tone similar to a clarinet.------ Audio output is a tone similar to a clarinet, using a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  wgclar  kamp, kfreq, kstiff, \--- >         iatt, idetk, kngain, kvibf, kvamp [, ifn] [, iminfreq]------ csound doc: <http://csound.com/docs/manual/wgclar.html>-wgclar ::  Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig-wgclar b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unSig b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wgclar" [(Ar,[Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Ir,Ir])] [a1-                                                                                           ,a2-                                                                                           ,a3-                                                                                           ,a4-                                                                                           ,a5-                                                                                           ,a6-                                                                                           ,a7-                                                                                           ,a8]---- | --- Creates a tone similar to a flute.------ Audio output is a tone similar to a flute, using a physical model developed from Perry Cook, but re-coded for Csound.------ > ares  wgflute  kamp, kfreq, kjet, iatt,--- >         idetk, kngain, kvibf, kvamp [, ifn] [, iminfreq] [, ijetrf] [, iendrf]------ csound doc: <http://csound.com/docs/manual/wgflute.html>-wgflute ::  Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig-wgflute b1 b2 b3 b4 b5 b6 b7 b8 = Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unSig b8-    where f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wgflute" [(Ar-                                                      ,[Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8]---- | --- A high fidelity simulation of a plucked string.------ A high fidelity simulation of a plucked string, using interpolating delay-lines.------ > ares  wgpluck  icps, iamp, kpick, iplk, idamp, ifilt, axcite------ csound doc: <http://csound.com/docs/manual/wgpluck.html>-wgpluck ::  D -> D -> Sig -> D -> D -> D -> Sig -> Sig-wgpluck b1 b2 b3 b4 b5 b6 b7 = Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unSig b7-    where f a1 a2 a3 a4 a5 a6 a7 = opcs "wgpluck" [(Ar,[Ir,Ir,Kr,Ir,Ir,Ir,Ar])] [a1-                                                                                ,a2-                                                                                ,a3-                                                                                ,a4-                                                                                ,a5-                                                                                ,a6-                                                                                ,a7]---- | --- Physical model of the plucked string.------ wgpluck2 is an implementation of the physical model of the plucked string, with control over the pluck point, the pickup point and the filter. Based on the Karplus-Strong algorithm.------ > ares  wgpluck2  iplk, kamp, icps, kpick, krefl------ csound doc: <http://csound.com/docs/manual/wgpluck2.html>-wgpluck2 ::  D -> Sig -> D -> Sig -> Sig -> Sig-wgpluck2 b1 b2 b3 b4 b5 = Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5-    where f a1 a2 a3 a4 a5 = opcs "wgpluck2" [(Ar,[Ir,Kr,Ir,Kr,Kr])] [a1,a2,a3,a4,a5]+    bpf, bpfcos, cosseg, cossegb, cossegr, expcurve, expon, expseg, expsega, expsegb, expsegba, expsegr, gainslider, lincos, line, linlin, linseg, linsegb, linsegr, logcurve, loopseg, loopsegp, looptseg, loopxseg, lpshold, lpsholdp, scale, scale2, transeg, transegb, transegr, trigexpseg, triglinseg, xyscale,+    +    -- * Envelope Generators.+    adsr, envlpx, envlpxr, gtadsr, linen, linenr, madsr, mxadsr, xadsr,+    +    -- * Models and Emulations.+    bamboo, barmodel, cabasa, chuap, crunch, dripwater, gendy, gendyc, gendyx, gogobel, guiro, lorenz, mandel, mandol, marimba, moog, planet, prepiano, sandpaper, sekere, shaker, sleighbells, stix, tambourine, vibes, voice,+    +    -- * Phasors.+    ephasor, phasor, phasorbnk, sc_phasor, syncphasor, trigphasor,+    +    -- * Random (Noise) Generators.+    betarand, bexprnd, cauchy, cauchyi, cuserrnd, duserrnd, dust, dust2, exprand, exprandi, fractalnoise, gauss, gaussi, gausstrig, getseed, jitter, jitter2, jspline, lfsr, linrand, noise, pcauchy, pinker, pinkish, poisson, rand, randh, randi, random, randomh, randomi, rnd31, rndseed, rspline, seed, trandom, trirand, unirand, urandom, urd, weibull,+    +    -- * Sample Playback.+    bbcutm, bbcuts, flooper, flooper2, fluidAllOut, fluidCCi, fluidCCk, fluidControl, fluidEngine, fluidInfo, fluidLoad, fluidNote, fluidOut, fluidProgramSelect, fluidSetInterpMethod, loscil, loscilphs, loscil3, loscil3phs, loscilx, lphasor, lposcil, lposcil3, lposcila, lposcilsa, lposcilsa2, sfilist, sfinstr, sfinstr3, sfinstr3m, sfinstrm, sfload, sflooper, sfpassign, sfplay, sfplay3, sfplay3m, sfplaym, sfplist, sfpreset, sndloop, waveset,+    +    -- * Scanned Synthesis.+    scanhammer, scanmap, scans, scansmap, scantable, scanu, scanu2, xscanmap, xscans, xscansmap, xscanu,+    +    -- * STK Opcodes.+    stkBandedWG, stkBeeThree, stkBlowBotl, stkBlowHole, stkBowed, stkBrass, stkClarinet, stkDrummer, stkFMVoices, stkFlute, stkHevyMetl, stkMandolin, stkModalBar, stkMoog, stkPercFlut, stkPlucked, stkResonate, stkRhodey, stkSaxofony, stkShakers, stkSimple, stkSitar, stkStifKarp, stkTubeBell, stkVoicForm, stkWhistle, stkWurley,+    +    -- * Table Access.+    oscil1, oscil1i, ptable, ptable3, ptablei, tab, tab_i, table, table3, tablei, tabw_i,+    +    -- * Wave Terrain Synthesis.+    sterrain, wterrain, wterrain2,+    +    -- * Waveguide Physical Modeling.+    pluck, repluck, streson, wgbow, wgbowedbar, wgbrass, wgclar, wgflute, wgpluck, wgpluck2) where++import Control.Monad.Trans.Class+import Control.Monad+import Csound.Dynamic+import Csound.Typed++-- Additive Synthesis/Resynthesis.++-- | +-- Output is an additive set of individually controlled sinusoids, using an oscillator bank.+--+-- > ares  adsyn  kamod, kfmod, ksmod, ifilcod+--+-- csound doc: <https://csound.com/docs/manual/adsyn.html>+adsyn ::  Sig -> Sig -> Sig -> Str -> Sig+adsyn b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unStr b4+  where+    f a1 a2 a3 a4 = opcs "adsyn" [(Ar,[Kr,Kr,Kr,Sr])] [a1,a2,a3,a4]++-- | +-- Performs additive synthesis with an arbitrary number of partials, not necessarily harmonic.+--+-- > ares  adsynt  kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/adsynt.html>+adsynt ::  Sig -> Sig -> Tab -> Tab -> Tab -> D -> Sig+adsynt b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unD b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "adsynt" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Performs additive synthesis with an arbitrary number of partials -not necessarily harmonic- with interpolation.+--+-- Performs additive synthesis with an arbitrary number of partials, not necessarily harmonic. (see adsynt for detailed manual)+--+-- > ar  adsynt2  kamp, kcps, iwfn, ifreqfn, iampfn, icnt [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/adsynt2.html>+adsynt2 ::  Sig -> Sig -> Tab -> Tab -> Tab -> D -> Sig+adsynt2 b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unTab b4 <*> unTab b5 <*> unD b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "adsynt2" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- An oscillator which takes tonality and brightness as arguments.+--+-- An oscillator which takes tonality and brightness as arguments, relative to a base frequency.+--+-- > ares  hsboscil  kamp, ktone, kbrite, ibasfreq, iwfn, ioctfn \+-- >                    [, ioctcnt] [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/hsboscil.html>+hsboscil ::  Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig+hsboscil b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unTab b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "hsboscil" [(Ar,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- Basic Oscillators.++-- | +-- A low frequency oscillator of various shapes.+--+-- > kres  lfo  kamp, kcps [, itype]+-- > ares  lfo  kamp, kcps [, itype]+--+-- csound doc: <https://csound.com/docs/manual/lfo.html>+lfo ::  Sig -> Sig -> Sig+lfo b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "lfo" [(Kr,[Kr,Kr,Ir]),(Ar,[Kr,Kr,Ir])] [a1,a2]++-- | +-- Mixes the output of any number of oscillators.+--+-- This unit generator mixes the output of any number of oscillators. The frequency, phase, and amplitude of each oscillator can be modulated by two LFOs (all oscillators have a separate set of LFOs, with different phase and frequency); additionally, the output of each oscillator can be filtered through an optional parametric equalizer (also controlled by the LFOs).  This opcode is most useful for rendering ensemble (strings, choir, etc.) instruments.+--+-- > ares  oscbnk   kcps, kamd, kfmd, kpmd, iovrlap, iseed, kl1minf, kl1maxf, \+-- >           kl2minf, kl2maxf, ilfomode, keqminf, keqmaxf, keqminl, keqmaxl, \+-- >           keqminq, keqmaxq, ieqmode, kfn [, il1fn] [, il2fn] [, ieqffn]   \+-- >           [, ieqlfn] [, ieqqfn] [, itabl] [, ioutfn]+--+-- csound doc: <https://csound.com/docs/manual/oscbnk.html>+oscbnk ::  Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Sig+oscbnk b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unD b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unD b11 <*> unSig b12 <*> unSig b13 <*> unSig b14 <*> unSig b15 <*> unSig b16 <*> unSig b17 <*> unD b18 <*> unTab b19+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 = opcs "oscbnk" [(Ar+                                                                                          ,[Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                                                                                                             ,a2+                                                                                                                                                                             ,a3+                                                                                                                                                                             ,a4+                                                                                                                                                                             ,a5+                                                                                                                                                                             ,a6+                                                                                                                                                                             ,a7+                                                                                                                                                                             ,a8+                                                                                                                                                                             ,a9+                                                                                                                                                                             ,a10+                                                                                                                                                                             ,a11+                                                                                                                                                                             ,a12+                                                                                                                                                                             ,a13+                                                                                                                                                                             ,a14+                                                                                                                                                                             ,a15+                                                                                                                                                                             ,a16+                                                                                                                                                                             ,a17+                                                                                                                                                                             ,a18+                                                                                                                                                                             ,a19]++-- | +-- A simple oscillator.+--+-- oscil reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp.+--+-- > ares  oscil  xamp, xcps [, ifn, iphs]+-- > kres  oscil  kamp, kcps [, ifn, iphs]+--+-- csound doc: <https://csound.com/docs/manual/oscil.html>+oscil ::  Sig -> Sig -> Tab -> Sig+oscil b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "oscil" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- A simple oscillator with cubic interpolation.+--+-- oscil3 reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Cubic interpolation is applied for table look up from internal phase values.+--+-- > ares  oscil3  xamp, xcps [, ifn, iphs]+-- > kres  oscil3  kamp, kcps [, ifn, iphs]+--+-- csound doc: <https://csound.com/docs/manual/oscil3.html>+oscil3 ::  Sig -> Sig -> Tab -> Sig+oscil3 b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "oscil3" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- A simple oscillator with linear interpolation.+--+-- oscili reads table ifn sequentially and repeatedly at a frequency xcps. The amplitude is scaled by xamp. Linear interpolation is applied for table look up from internal phase values.+--+-- > ares  oscili  xamp, xcps[, ifn, iphs]+-- > kres  oscili  kamp, kcps[, ifn, iphs]+--+-- csound doc: <https://csound.com/docs/manual/oscili.html>+oscili ::  Sig -> Sig -> Tab -> Sig+oscili b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "oscili" [(Ar,[Xr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- A linearly interpolated oscillator that allows changing the table number at k-rate.+--+-- oscilikt is very similar to oscili, but allows changing the table number at k-rate. It is slightly slower than oscili (especially with high control rate), although also more accurate as it uses a 31-bit phase accumulator, as opposed to the 24-bit one used by oscili.+--+-- > ares  oscilikt  xamp, xcps, kfn [, iphs] [, istor]+-- > kres  oscilikt  kamp, kcps, kfn [, iphs] [, istor]+--+-- csound doc: <https://csound.com/docs/manual/oscilikt.html>+oscilikt ::  Sig -> Sig -> Tab -> Sig+oscilikt b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "oscilikt" [(Ar,[Xr,Xr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- A linearly interpolated oscillator that allows allows phase modulation.+--+-- osciliktp allows phase modulation (which is actually implemented as k-rate frequency modulation, by differentiating phase input). The disadvantage is that there is no amplitude control, and frequency can be varied only at the control-rate. This opcode can be faster or slower than oscilikt, depending on the control-rate.+--+-- > ares  osciliktp  kcps, kfn, kphs [, istor]+--+-- csound doc: <https://csound.com/docs/manual/osciliktp.html>+osciliktp ::  Sig -> Tab -> Sig -> Sig+osciliktp b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unTab b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "osciliktp" [(Ar,[Kr,Kr,Kr,Ir])] [a1,a2,a3]++-- | +-- A linearly interpolated oscillator with sync status that allows changing the table number at k-rate.+--+-- oscilikts is the same as oscilikt. Except it has a sync input that can be used to re-initialize the oscillator to a k-rate phase value. It is slower than oscilikt and osciliktp.+--+-- > ares  oscilikts  xamp, xcps, kfn, async, kphs [, istor]+--+-- csound doc: <https://csound.com/docs/manual/oscilikts.html>+oscilikts ::  Sig -> Sig -> Tab -> Sig -> Sig -> Sig+oscilikts b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unSig b4 <*> unSig b5+  where+    f a1 a2 a3 a4 a5 = opcs "oscilikts" [(Ar,[Xr,Xr,Kr,Ar,Kr,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Accesses table values at a user-defined frequency.+--+-- Accesses table values at a user-defined frequency. This opcode can also be written as oscilx.+--+-- > ares  osciln  kamp, ifrq, ifn, itimes+--+-- csound doc: <https://csound.com/docs/manual/osciln.html>+osciln ::  Sig -> D -> Tab -> D -> Sig+osciln b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unTab b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "osciln" [(Ar,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- A simple, fast sine oscillator+--+-- Simple, fast sine oscillator, that uses only one multiply, and two add operations to generate one sample of output, and does not require a function table.+--+-- > ares  oscils  iamp, icps, iphs [, iflg]+--+-- csound doc: <https://csound.com/docs/manual/oscils.html>+oscils ::  D -> D -> D -> Sig+oscils b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "oscils" [(Ar,[Ir,Ir,Ir,Ir])] [a1,a2,a3]++-- | +-- High precision oscillator.+--+-- > ares  poscil  aamp, acps [, ifn, iphs]+-- > ares  poscil  aamp, kcps [, ifn, iphs]+-- > ares  poscil  kamp, acps [, ifn, iphs]+-- > ares  poscil  kamp, kcps [, ifn, iphs]+-- > ires  poscil  kamp, kcps [, ifn, iphs]+-- > kres  poscil  kamp, kcps [, ifn, iphs]+--+-- csound doc: <https://csound.com/docs/manual/poscil.html>+poscil ::  Sig -> Sig -> Tab -> Sig+poscil b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "poscil" [(Ar,[Ar,Ar,Ir,Ir])+                               ,(Ar,[Ar,Kr,Ir,Ir])+                               ,(Ar,[Kr,Ar,Ir,Ir])+                               ,(Ar,[Kr,Kr,Ir,Ir])+                               ,(Ir,[Kr,Kr,Ir,Ir])+                               ,(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- High precision oscillator with cubic interpolation.+--+-- > ares  poscil3  aamp, acps [, ifn, iphs]+-- > ares  poscil3  aamp, kcps [, ifn, iphs]+-- > ares  poscil3  kamp, acps [, ifn, iphs]+-- > ares  poscil3  kamp, kcps [, ifn, iphs]+-- > ires  poscil3  kamp, kcps [, ifn, iphs]+-- > kres  poscil3  kamp, kcps [, ifn, iphs]+--+-- csound doc: <https://csound.com/docs/manual/poscil3.html>+poscil3 ::  Sig -> Sig -> Tab -> Sig+poscil3 b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "poscil3" [(Ar,[Ar,Ar,Ir,Ir])+                                ,(Ar,[Ar,Kr,Ir,Ir])+                                ,(Ar,[Kr,Ar,Ir,Ir])+                                ,(Ar,[Kr,Kr,Ir,Ir])+                                ,(Ir,[Kr,Kr,Ir,Ir])+                                ,(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- Easier-to-use user-controllable vibrato.+--+-- > kout  vibr  kAverageAmp, kAverageFreq, ifn+--+-- csound doc: <https://csound.com/docs/manual/vibr.html>+vibr ::  Sig -> Sig -> Tab -> Sig+vibr b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = opcs "vibr" [(Kr,[Kr,Kr,Ir])] [a1,a2,a3]++-- | +-- Generates a natural-sounding user-controllable vibrato.+--+-- > kout  vibrato  kAverageAmp, kAverageFreq, kRandAmountAmp, kRandAmountFreq, kAmpMinRate, kAmpMaxRate, kcpsMinRate, kcpsMaxRate, ifn [, iphs+--+-- csound doc: <https://csound.com/docs/manual/vibrato.html>+vibrato ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig+vibrato b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unTab b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "vibrato" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1+                                                                                         ,a2+                                                                                         ,a3+                                                                                         ,a4+                                                                                         ,a5+                                                                                         ,a6+                                                                                         ,a7+                                                                                         ,a8+                                                                                         ,a9]++-- Dynamic Spectrum Oscillators.++-- | +-- Output is a set of harmonically related sine partials.+--+-- > ares  buzz  xamp, xcps, knh, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/buzz.html>+buzz ::  Sig -> Sig -> Sig -> Tab -> Sig+buzz b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4+  where+    f a1 a2 a3 a4 = opcs "buzz" [(Ar,[Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Output is a set of harmonically related cosine partials.+--+-- > ares  gbuzz  xamp, xcps, knh, klh, kmul, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/gbuzz.html>+gbuzz ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig+gbuzz b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "gbuzz" [(Ar,[Xr,Xr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Generates a set of impulses.+--+-- Generates a set of impulses of amplitude kamp separated by kintvl seconds (or samples if kintvl is negative).  The first impulse is generated after a delay of ioffset seconds.+--+-- > ares  mpulse  kamp, kintvl [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/mpulse.html>+mpulse ::  Sig -> Sig -> Sig+mpulse b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "mpulse" [(Ar,[Kr,Kr,Ir])] [a1,a2]++-- | +-- A mostly bandlimited shape-shifting square-pulse-saw-sinewave oscillator with hardsync.+--+-- This oscillator generates a variable shape waveform that can morph freely between classical shapes sine, square, pulse and saw.+-- The shape is controlled by two interacting values: clip (squareness) and "skew" (symmetry).+-- All shapes use a minimum number of samples per transition (ie, the sharp end of a saw or a pulse uses minimum N samples), this makes output bandlimited.+-- At higher frequency, the minimum sweep rate takes over, so over a certain pitch all shapes "degrade" to sinewave. The minimum sweep rate is i-time configurable.+-- Hardsync (a very quick sweep to phase=0) is supported, and a sync signal is output once per cycle.+--+-- > aout [, asyncout]  squinewave  acps, aClip, aSkew, asyncin [, iMinSweep] [, iphase]+-- > aout [, asyncout]  squinewave  acps, aClip, aSkew [, ksyncin] [, iMinSweep] [, iphase]+--+-- csound doc: <https://csound.com/docs/manual/squinewave.html>+squinewave :: forall a . Tuple a => Sig -> Sig -> Sig -> Sig -> a+squinewave b1 b2 b3 b4 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4+  where+    f a1 a2 a3 a4 = mopcs "squinewave" ([Ar,Ar],[Ar,Ar,Ar,Kr,Ir,Ir]) [a1,a2,a3,a4]++-- | +-- Implementation of a band limited, analog modeled oscillator.+--+-- Implementation of a band limited, analog modeled oscillator, based on integration of band limited impulses. vco can be used to simulate a variety of analog wave forms.+--+-- > ares  vco  xamp, xcps, iwave, kpw [, ifn] [, imaxd] [, ileak] [, inyx] \+-- >           [, iphs] [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/vco.html>+vco ::  Sig -> Sig -> D -> Sig -> Sig+vco b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unSig b4+  where+    f a1 a2 a3 a4 = opcs "vco" [(Ar,[Xr,Xr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Implementation of a band-limited oscillator using pre-calculated tables.+--+-- vco2 is similar to vco. But the implementation uses pre-calculated tables of band-limited waveforms (see also GEN30) rather than integrating impulses. This opcode can be faster than vco (especially if a low control-rate is used) and also allows better sound quality. Additionally, there are more waveforms and oscillator phase can be modulated at k-rate. The disadvantage is increased memory usage. For more details about vco2 tables, see also vco2init and vco2ft.+--+-- > ares  vco2  kamp, kcps [, imode] [, kpw] [, kphs] [, inyx]+--+-- csound doc: <https://csound.com/docs/manual/vco2.html>+vco2 ::  Sig -> Sig -> Sig+vco2 b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "vco2" [(Ar,[Kr,Kr,Ir,Kr,Kr,Ir])] [a1,a2]++-- | +-- Returns a table number at k-time for a given oscillator frequency and wavform.+--+-- vco2ft returns the function table number to be used for generating the specified waveform at a given frequency. This function table number can be used by any Csound opcode that generates a signal by reading function tables (like oscilikt). The tables must be calculated by vco2init before vco2ft is called and shared as Csound ftables (ibasfn).+--+-- > kfn  vco2ft  kcps, iwave [, inyx]+--+-- csound doc: <https://csound.com/docs/manual/vco2ft.html>+vco2ft ::  Sig -> D -> Tab+vco2ft b1 b2 =+  Tab $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "vco2ft" [(Kr,[Kr,Ir,Ir])] [a1,a2]++-- | +-- Returns a table number at i-time for a given oscillator frequency and wavform.+--+-- vco2ift is the same as vco2ft, but works at i-time. It is suitable for use with opcodes that expect an i-rate table number (for example, oscili).+--+-- > ifn  vco2ift  icps, iwave [, inyx]+--+-- csound doc: <https://csound.com/docs/manual/vco2ift.html>+vco2ift ::  D -> D -> Tab+vco2ift b1 b2 =+  Tab $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "vco2ift" [(Ir,[Ir,Ir,Ir])] [a1,a2]++-- | +-- Calculates tables for use by vco2 opcode.+--+-- vco2init calculates tables for use by vco2 opcode. Optionally, it is also possible to access these tables as standard Csound function tables. In this case, vco2ft can be used to find the correct table number for a given oscillator frequency.+--+-- > ifn  vco2init  iwave [, ibasfn] [, ipmul] [, iminsiz] [, imaxsiz] [, isrcft]+--+-- csound doc: <https://csound.com/docs/manual/vco2init.html>+vco2init ::  D -> SE Tab+vco2init b1 =+  fmap ( Tab . return) $ SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep "vco2init" [(Ir,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1]++-- FM Synthesis.++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crossfm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crossfm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crossfm b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                    ,a2+                                                                                    ,a3+                                                                                    ,a4+                                                                                    ,a5+                                                                                    ,a6+                                                                                    ,a7]++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crossfmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crossfmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crossfmi b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5+                                                                                     ,a6+                                                                                     ,a7]++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crosspm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crosspm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crosspm b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crosspm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                    ,a2+                                                                                    ,a3+                                                                                    ,a4+                                                                                    ,a5+                                                                                    ,a6+                                                                                    ,a7]++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crosspmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crosspmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crosspmi b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crosspmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5+                                                                                     ,a6+                                                                                     ,a7]++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crossfmpm  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crossfmpm ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crossfmpm b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmpm" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                      ,a2+                                                                                      ,a3+                                                                                      ,a4+                                                                                      ,a5+                                                                                      ,a6+                                                                                      ,a7]++-- | +-- Two mutually frequency and/or phase modulated oscillators.+--+-- Two oscillators, mutually frequency and/or phase modulated by each other.+--+-- > a1, a2  crossfmpmi  xfrq1, xfrq2, xndx1, xndx2, kcps, ifn1, ifn2 [, iphs1] [, iphs2]+--+-- csound doc: <https://csound.com/docs/manual/crossfm.html>+crossfmpmi ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> (Sig,Sig)+crossfmpmi b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "crossfmpmi" ([Ar,Ar],[Xr,Xr,Xr,Xr,Kr,Ir,Ir,Ir,Ir]) [a1+                                                                                       ,a2+                                                                                       ,a3+                                                                                       ,a4+                                                                                       ,a5+                                                                                       ,a6+                                                                                       ,a7]++-- | +-- Uses FM synthesis to create a Hammond B3 organ sound.+--+-- Uses FM synthesis to create a Hammond B3 organ sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmb3  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, ifn3, \+-- >           ifn4, ivfn]+--+-- csound doc: <https://csound.com/docs/manual/fmb3.html>+fmb3 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+fmb3 b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "fmb3" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Uses FM synthesis to create a tublar bell sound.+--+-- Uses FM synthesis to create a tublar bell sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmbell  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, ifn3, \+-- >           ifn4, ivfn, isus]+--+-- csound doc: <https://csound.com/docs/manual/fmbell.html>+fmbell ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+fmbell b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "fmbell" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5+                                                                                     ,a6]++-- | +-- Uses FM synthesis to create a “Heavy Metal” sound.+--+-- Uses FM synthesis to create a “Heavy Metal” sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmmetal  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \+-- >           ifn4, ivfn+--+-- csound doc: <https://csound.com/docs/manual/fmmetal.html>+fmmetal ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig+fmmetal b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmmetal" [(Ar+                                                           ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- | +-- Uses FM synthesis to create a percussive flute sound.+--+-- Uses FM synthesis to create a percussive flute sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmpercfl  kamp, kfreq, kc1, kc2, kvdepth, kvrate[, ifn1, ifn2, \+-- >           ifn3, ifn4, ivfn]+--+-- csound doc: <https://csound.com/docs/manual/fmpercfl.html>+fmpercfl ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+fmpercfl b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "fmpercfl" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                    ,a2+                                                                                    ,a3+                                                                                    ,a4+                                                                                    ,a5+                                                                                    ,a6]++-- | +-- Uses FM synthesis to create a Fender Rhodes electric piano sound.+--+-- Uses FM synthesis to create a Fender Rhodes electric piano sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmrhode  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, \+-- >           ifn3, ifn4, ivfn+--+-- csound doc: <https://csound.com/docs/manual/fmrhode.html>+fmrhode ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig+fmrhode b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmrhode" [(Ar+                                                           ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- | +-- FM Singing Voice Synthesis+--+-- > ares  fmvoice  kamp, kfreq, kvowel, ktilt, kvibamt, kvibrate[, ifn1, \+-- >           ifn2, ifn3, ifn4, ivibfn]+--+-- csound doc: <https://csound.com/docs/manual/fmvoice.html>+fmvoice ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+fmvoice b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "fmvoice" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                   ,a2+                                                                                   ,a3+                                                                                   ,a4+                                                                                   ,a5+                                                                                   ,a6]++-- | +-- Uses FM synthesis to create a Wurlitzer electric piano sound.+--+-- Uses FM synthesis to create a Wurlitzer electric piano sound. It comes from a family of FM sounds, all using 4 basic oscillators and various architectures, as used in the TX81Z synthesizer.+--+-- > ares  fmwurlie  kamp, kfreq, kc1, kc2, kvdepth, kvrate, ifn1, ifn2, ifn3, \+-- >           ifn4, ivfn+--+-- csound doc: <https://csound.com/docs/manual/fmwurlie.html>+fmwurlie ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig+fmwurlie b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9 <*> unTab b10 <*> unTab b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "fmwurlie" [(Ar+                                                            ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- | +-- A basic frequency modulated oscillator.+--+-- > ares  foscil  xamp, kcps, xcar, xmod, kndx, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/foscil.html>+foscil ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig+foscil b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "foscil" [(Ar,[Xr,Kr,Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Basic frequency modulated oscillator with linear interpolation.+--+-- > ares  foscili  xamp, kcps, xcar, xmod, kndx, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/foscili.html>+foscili ::  Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig+foscili b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "foscili" [(Ar,[Xr,Kr,Xr,Xr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- Granular Synthesis.++-- | +-- Synchronous granular synthesis, using a soundfile as source.+--+-- diskgrain implements synchronous granular synthesis. The source sound for the grains is obtained by reading a soundfile containing the samples of the source waveform.+--+-- > asig  diskgrain  Sfname, kamp, kfreq, kpitch, kgrsize, kprate, \+-- >           ifun, iolaps [,imaxgrsize , ioffset]+--+-- csound doc: <https://csound.com/docs/manual/diskgrain.html>+diskgrain ::  Str -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig+diskgrain b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unStr b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unD b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "diskgrain" [(Ar,[Sr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                        ,a2+                                                                                        ,a3+                                                                                        ,a4+                                                                                        ,a5+                                                                                        ,a6+                                                                                        ,a7+                                                                                        ,a8]++-- | +-- Produces sinusoid bursts useful for formant and granular synthesis.+--+-- Audio output is a succession of sinusoid bursts initiated at frequency xfund with a spectral peak at xform. For xfund above 25 Hz these bursts produce a speech-like formant with spectral characteristics determined by the k-input parameters. For lower fundamentals this generator provides a special form of granular synthesis.+--+-- > ares  fof  xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, \+-- >           ifna, ifnb, itotdur [, iphs] [, ifmode] [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/fof.html>+fof ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig+fof b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unTab b10 <*> unTab b11 <*> unD b12+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = opcs "fof" [(Ar+                                                           ,[Xr,Xr,Xr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12]++-- | +-- Produces sinusoid bursts including k-rate incremental indexing with each successive burst.+--+-- Audio output is a succession of sinusoid bursts initiated at frequency xfund with a spectral peak at xform. For xfund above 25 Hz these bursts produce a speech-like formant with spectral characteristics determined by the k-input parameters. For lower fundamentals this generator provides a special form of granular synthesis.+--+-- > ares  fof2  xamp, xfund, xform, koct, kband, kris, kdur, kdec, iolaps, \+-- >           ifna, ifnb, itotdur, kphs, kgliss [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/fof2.html>+fof2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig -> Sig -> Sig+fof2 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unTab b10 <*> unTab b11 <*> unD b12 <*> unSig b13 <*> unSig b14+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 = opcs "fof2" [(Ar+                                                                    ,[Xr,Xr,Xr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14]++-- | +-- Audio output is a succession of grains derived from data in a stored function table+--+-- Audio output is a succession of grains derived from data in a stored function table ifna. The local envelope of these grains and their timing is based on the model of fof synthesis and permits detailed control of the granular synthesis.+--+-- > ares  fog  xamp, xdens, xtrans, aspd, koct, kband, kris, kdur, kdec, \+-- >           iolaps, ifna, ifnb, itotdur [, iphs] [, itmode] [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/fog.html>+fog ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> D -> Sig+fog b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unD b10 <*> unTab b11 <*> unTab b12 <*> unD b13+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 = opcs "fog" [(Ar+                                                               ,[Xr,Xr,Xr,Ar,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13]++-- | +-- Generates granular synthesis textures.+--+-- > ares  grain  xamp, xpitch, xdens, kampoff, kpitchoff, kgdur, igfn, \+-- >           iwfn, imgdur [, igrnd]+--+-- csound doc: <https://csound.com/docs/manual/grain.html>+grain ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> D -> Sig+grain b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unD b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "grain" [(Ar,[Xr,Xr,Xr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                       ,a2+                                                                                       ,a3+                                                                                       ,a4+                                                                                       ,a5+                                                                                       ,a6+                                                                                       ,a7+                                                                                       ,a8+                                                                                       ,a9]++-- | +-- Easy-to-use granular synthesis texture generator.+--+-- Generate granular synthesis textures. grain2 is simpler to use, but grain3 offers more control.+--+-- > ares  grain2  kcps, kfmd, kgdur, iovrlp, kfn, iwfn [, irpow] \+-- >           [, iseed] [, imode]+--+-- csound doc: <https://csound.com/docs/manual/grain2.html>+grain2 ::  Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig+grain2 b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unTab b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "grain2" [(Ar,[Kr,Kr,Kr,Ir,Kr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Generate granular synthesis textures with more user control.+--+-- Generate granular synthesis textures. grain2 is simpler to use but grain3 offers more control.+--+-- > ares  grain3  kcps, kphs, kfmd, kpmd, kgdur, kdens, imaxovr, kfn, iwfn, \+-- >           kfrpow, kprpow [, iseed] [, imode]+--+-- csound doc: <https://csound.com/docs/manual/grain3.html>+grain3 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Tab -> Tab -> Sig -> Sig -> Sig+grain3 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unTab b8 <*> unTab b9 <*> unSig b10 <*> unSig b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "grain3" [(Ar+                                                          ,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- | +-- A more complex granular synthesis texture generator.+--+-- The granule unit generator is more complex than grain, but does add new possibilities.+--+-- > ares  granule  xamp, ivoice, iratio, imode, ithd, ifn, ipshift, igskip, igskip_os, ilength, kgap, igap_os, kgsize, igsize_os, iatt, idec \+-- >           [, iseed] [, ipitch1] [, ipitch2] [, ipitch3] [, ipitch4] [, ifnenv]+--+-- csound doc: <https://csound.com/docs/manual/granule.html>+granule ::  Sig -> D -> D -> D -> D -> Tab -> D -> D -> D -> D -> Sig -> D -> Sig -> D -> D -> D -> Sig+granule b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unTab b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10 <*> unSig b11 <*> unD b12 <*> unSig b13 <*> unD b14 <*> unD b15 <*> unD b16+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 = opcs "granule" [(Ar+                                                                               ,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Ir,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                                                                                      ,a2+                                                                                                                                                      ,a3+                                                                                                                                                      ,a4+                                                                                                                                                      ,a5+                                                                                                                                                      ,a6+                                                                                                                                                      ,a7+                                                                                                                                                      ,a8+                                                                                                                                                      ,a9+                                                                                                                                                      ,a10+                                                                                                                                                      ,a11+                                                                                                                                                      ,a12+                                                                                                                                                      ,a13+                                                                                                                                                      ,a14+                                                                                                                                                      ,a15+                                                                                                                                                      ,a16]++-- | +-- Granular synthesizer with "per grain" control+--       over many of its parameters.  Has a sync input to+--       sychronize its internal grain scheduler clock to an external+--       clock source.+--+-- partikkel was conceived after reading Curtis Roads' book+--       "Microsound", and the goal was to create an opcode that was+--       capable of all time-domain varieties of granular synthesis+--       described in this book. The idea being that most of the+--       techniques only differ in parameter values, and by having a+--       single opcode that can do all varieties of granular synthesis+--       makes it possible to interpolate between techniques. Granular synthesis is sometimes dubbed particle+--       synthesis, and it was thought apt to name the opcode partikkel+--       to distinguish it from other granular opcodes.+--+-- > a1 [, a2, a3, a4, a5, a6, a7, a8]  partikkel  agrainfreq, \+-- >                   kdistribution, idisttab, async, kenv2amt, ienv2tab, ienv_attack, \+-- >                   ienv_decay, ksustain_amount, ka_d_ratio, kduration, kamp, igainmasks, \+-- >                   kwavfreq, ksweepshape, iwavfreqstarttab, iwavfreqendtab, awavfm, \+-- >                   ifmamptab, kfmenv, icosine, ktraincps, knumpartials, kchroma, \+-- >                   ichannelmasks, krandommask, kwaveform1, kwaveform2, kwaveform3, \+-- >                   kwaveform4, iwaveamptab, asamplepos1, asamplepos2, asamplepos3, \+-- >                   asamplepos4, kwavekey1, kwavekey2, kwavekey3, kwavekey4, imax_grains \+-- >                   [, iopcode_id, ipanlaws]+--+-- csound doc: <https://csound.com/docs/manual/partikkel.html>+partikkel :: forall a . Tuple a => Sig -> Sig -> D -> Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> D -> D -> Sig -> D -> Sig -> D -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> a+partikkel b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 b19 b20 b21 b22 b23 b24 b25 b26 b27 b28 b29 b30 b31 b32 b33 b34 b35 b36 b37 b38 b39 b40 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unSig b9 <*> unSig b10 <*> unSig b11 <*> unSig b12 <*> unD b13 <*> unSig b14 <*> unSig b15 <*> unD b16 <*> unD b17 <*> unSig b18 <*> unD b19 <*> unSig b20 <*> unD b21 <*> unSig b22 <*> unSig b23 <*> unSig b24 <*> unD b25 <*> unSig b26 <*> unSig b27 <*> unSig b28 <*> unSig b29 <*> unSig b30 <*> unD b31 <*> unSig b32 <*> unSig b33 <*> unSig b34 <*> unSig b35 <*> unSig b36 <*> unSig b37 <*> unSig b38 <*> unSig b39 <*> unD b40+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 a19 a20 a21 a22 a23 a24 a25 a26 a27 a28 a29 a30 a31 a32 a33 a34 a35 a36 a37 a38 a39 a40 = mopcs "partikkel" ([Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar]+                                                                                                                                                                                 ,[Ar+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Ar+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Kr+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ir+                                                                                                                                                                                  ,Ir]) [a1+                                                                                                                                                                                        ,a2+                                                                                                                                                                                        ,a3+                                                                                                                                                                                        ,a4+                                                                                                                                                                                        ,a5+                                                                                                                                                                                        ,a6+                                                                                                                                                                                        ,a7+                                                                                                                                                                                        ,a8+                                                                                                                                                                                        ,a9+                                                                                                                                                                                        ,a10+                                                                                                                                                                                        ,a11+                                                                                                                                                                                        ,a12+                                                                                                                                                                                        ,a13+                                                                                                                                                                                        ,a14+                                                                                                                                                                                        ,a15+                                                                                                                                                                                        ,a16+                                                                                                                                                                                        ,a17+                                                                                                                                                                                        ,a18+                                                                                                                                                                                        ,a19+                                                                                                                                                                                        ,a20+                                                                                                                                                                                        ,a21+                                                                                                                                                                                        ,a22+                                                                                                                                                                                        ,a23+                                                                                                                                                                                        ,a24+                                                                                                                                                                                        ,a25+                                                                                                                                                                                        ,a26+                                                                                                                                                                                        ,a27+                                                                                                                                                                                        ,a28+                                                                                                                                                                                        ,a29+                                                                                                                                                                                        ,a30+                                                                                                                                                                                        ,a31+                                                                                                                                                                                        ,a32+                                                                                                                                                                                        ,a33+                                                                                                                                                                                        ,a34+                                                                                                                                                                                        ,a35+                                                                                                                                                                                        ,a36+                                                                                                                                                                                        ,a37+                                                                                                                                                                                        ,a38+                                                                                                                                                                                        ,a39+                                                                                                                                                                                        ,a40]++-- | +-- Get mask index for a specific mask parameter of a running partikkel instance.+--+-- partikkelget is an opcode for outputting partikkel mask index for a specific parameter. +--       Used together with partikkelset, it can be used to synchronize partikkel masking between several running instances of the  partikkel opcode. +--       It can also be used to control other processes based on the internal mask index, for example to create more complex masking patterns than is available with the regular grain masking system.+--+-- > kindex  partikkelget  kparameterindex, iopcode_id+--+-- csound doc: <https://csound.com/docs/manual/partikkelget.html>+partikkelget ::  Sig -> D -> Sig+partikkelget b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "partikkelget" [(Kr,[Kr,Ir])] [a1,a2]++-- | +-- Set mask index for a specific mask parameter of a running partikkel instance.+--+-- partikkelset is an opcode for setting the partikkel mask index for a specific parameter. +--       Used together with partikkelget, it can be used to synchronize partikkel masking between several running instances of the  partikkel opcode. +--       It can also be used to set the internal mask index basaed on other processes, for example to create more complex masking patterns than is available with the regular grain masking system.+--+-- >  partikkelset  kparameterindex, kmaskindex, iopcode_id+--+-- csound doc: <https://csound.com/docs/manual/partikkelset.html>+partikkelset ::  Sig -> Sig -> D -> SE ()+partikkelset b1 b2 b3 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "partikkelset" [(Xr,[Kr,Kr,Ir])] [a1,a2,a3]++-- | +-- Outputs partikkel's grain+--       scheduler clock pulse and phase to synchronize several instances of the partikkel+--       opcode to the same clock source.+--+-- partikkelsync is an opcode for outputting partikkel's grain scheduler clock pulse and phase. partikkelsync's output can be used to synchronize other instances of the partikkel opcode to the same clock.+--+-- > async [,aphase]  partikkelsync  iopcode_id+--+-- csound doc: <https://csound.com/docs/manual/partikkelsync.html>+partikkelsync :: forall a . Tuple a => D -> a+partikkelsync b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "partikkelsync" ([Ar,Ar],[Ir]) [a1]++-- | +-- Reads a mono sound sample from a table and applies time-stretching and/or pitch modification.+--+-- sndwarp reads sound samples from a table and applies time-stretching and/or pitch modification. Time and frequency modification are independent from one another. For example, a sound can be stretched in time while raising the pitch!+--+-- > ares [, ac]  sndwarp  xamp, xtimewarp, xresample, ifn1, ibeg, iwsize, \+-- >           irandw, ioverlap, ifn2, itimemode+--+-- csound doc: <https://csound.com/docs/manual/sndwarp.html>+sndwarp :: forall a . Tuple a => Sig -> Sig -> Sig -> Tab -> D -> D -> D -> D -> Tab -> D -> a+sndwarp b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unTab b9 <*> unD b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "sndwarp" ([Ar,Ar],[Xr,Xr,Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                                 ,a2+                                                                                                 ,a3+                                                                                                 ,a4+                                                                                                 ,a5+                                                                                                 ,a6+                                                                                                 ,a7+                                                                                                 ,a8+                                                                                                 ,a9+                                                                                                 ,a10]++-- | +-- Reads a stereo sound sample from a table and applies time-stretching and/or pitch modification.+--+-- sndwarpst reads stereo sound samples from a table and applies time-stretching and/or pitch modification. Time and frequency modification are independent from one another. For example, a sound can be stretched in time while raising the pitch!+--+-- > ar1, ar2 [,ac1] [, ac2]  sndwarpst  xamp, xtimewarp, xresample, ifn1, \+-- >           ibeg, iwsize, irandw, ioverlap, ifn2, itimemode+--+-- csound doc: <https://csound.com/docs/manual/sndwarpst.html>+sndwarpst :: forall a . Tuple a => Sig -> Sig -> Sig -> Tab -> D -> D -> D -> D -> Tab -> D -> a+sndwarpst b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unTab b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unTab b9 <*> unD b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "sndwarpst" ([Ar,Ar,Ar,Ar]+                                                         ,[Xr,Xr,Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]++-- | +-- Synchronous granular synthesis.+--+-- syncgrain implements synchronous granular synthesis. The source sound for the+-- grains is obtained by reading a function table containing the samples of the source waveform. +-- For sampled-sound sources, GEN01 is used.+-- syncgrain will accept deferred allocation tables.+--+-- > asig  syncgrain  kamp, kfreq, kpitch, kgrsize, kprate, ifun1, \+-- >           ifun2, iolaps+--+-- csound doc: <https://csound.com/docs/manual/syncgrain.html>+syncgrain ::  Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig+syncgrain b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "syncgrain" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir])] [a1+                                                                                  ,a2+                                                                                  ,a3+                                                                                  ,a4+                                                                                  ,a5+                                                                                  ,a6+                                                                                  ,a7+                                                                                  ,a8]++-- | +-- Synchronous granular synthesis.+--+-- syncloop is a variation on syncgrain,+-- which implements synchronous granular synthesis. +-- syncloop adds loop start and end points and an optional start position. Loop start+-- and end control grain start positions, so the actual grains can go beyond the loop+-- points (if the loop points are not at the extremes of the table), enabling+-- seamless crossfading. For more information on the granular synthesis process,+-- check the syncgrain manual page.+--+-- > asig  syncloop  kamp, kfreq, kpitch, kgrsize, kprate, klstart, \+-- >           klend, ifun1, ifun2, iolaps[,istart, iskip]+--+-- csound doc: <https://csound.com/docs/manual/syncloop.html>+syncloop ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig+syncloop b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unD b8 <*> unD b9 <*> unD b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcs "syncloop" [(Ar+                                                        ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]++-- | +-- Simple vocal simulation based on glottal pulses with formant characteristics.+--+-- This opcode produces a simple vocal simulation based on glottal pulses with formant characteristics.+-- Output is a series of sound events, where each event is composed of a burst of squared sine pulses followed by silence.+-- The VOSIM (VOcal SIMulation) synthesis method was developed by Kaegi and Tempelaars in the 1970's.+--+-- > ar  vosim  kamp, kFund, kForm, kDecay, kPulseCount, kPulseFactor, ifn [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/vosim.html>+vosim ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Sig+vosim b1 b2 b3 b4 b5 b6 b7 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcs "vosim" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7]++-- Hyper Vectorial Synthesis.++-- | +-- Allows one-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- hvs1 allows one-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- >  hvs1  kx, inumParms, inumPointsX, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]+--+-- csound doc: <https://csound.com/docs/manual/hvs1.html>+hvs1 ::  Sig -> D -> D -> D -> D -> D -> SE ()+hvs1 b1 b2 b3 b4 b5 b6 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6+  where+    f a1 a2 a3 a4 a5 a6 = opcsDep_ "hvs1" [(Xr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Allows two-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- hvs2 allows two-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- >  hvs2  kx, ky, inumParms, inumPointsX, inumPointsY, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]+--+-- csound doc: <https://csound.com/docs/manual/hvs2.html>+hvs2 ::  Sig -> Sig -> D -> D -> D -> D -> D -> D -> SE ()+hvs2 b1 b2 b3 b4 b5 b6 b7 b8 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcsDep_ "hvs2" [(Xr,[Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                    ,a2+                                                                                    ,a3+                                                                                    ,a4+                                                                                    ,a5+                                                                                    ,a6+                                                                                    ,a7+                                                                                    ,a8]++-- | +-- Allows three-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- hvs3 allows three-dimensional Hyper Vectorial Synthesis (HVS) controlled by externally-updated k-variables.+--+-- >  hvs3  kx, ky, kz, inumParms, inumPointsX, inumPointsY, inumPointsZ, iOutTab, iPositionsTab, iSnapTab [, iConfigTab]+--+-- csound doc: <https://csound.com/docs/manual/hvs3.html>+hvs3 ::  Sig -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> SE ()+hvs3 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unD) b4 <*> (lift . unD) b5 <*> (lift . unD) b6 <*> (lift . unD) b7 <*> (lift . unD) b8 <*> (lift . unD) b9 <*> (lift . unD) b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = opcsDep_ "hvs3" [(Xr,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1+                                                                                                 ,a2+                                                                                                 ,a3+                                                                                                 ,a4+                                                                                                 ,a5+                                                                                                 ,a6+                                                                                                 ,a7+                                                                                                 ,a8+                                                                                                 ,a9+                                                                                                 ,a10]++-- Linear and Exponential Generators.++-- | +-- Break point function with linear interpolation+--+-- Break-point function with linear interpolation. Useful when+-- 	  defining a table with GEN27 and scaling the x value would be+-- 	  overkill.+--+-- > ky  bpf  kx, kx1, ky1, kx2, ..., kxn, kyn+-- > iy  bpf  ix, ix1, iy1, ix2, ..., ixn, iyn+-- > kys[]  bpf  kxs[], kx1, ky1, kx2, ..., kxn, kyn+-- > iys[]  bpf  ixs[], ix1, iy1, ix2, ..., ixn, iyn+-- > ky  bpf  kx, kxs[], kys[]+-- > iy  bpf  ix, ixs[], iys[]+-- > ay  bpf  ax, kx1, ky1, kx2, ..., kxn, kyn+-- > ay  bpf  ax, kxs[], kys[]+-- > ky, kw  bpf  kx, kxs[], kys[], kws[]+--+-- csound doc: <https://csound.com/docs/manual/bpf.html>+bpf ::  Sig -> Sig -> Sig -> [Sig] -> (Sig,Sig)+bpf b1 b2 b3 b4 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> mapM unSig b4+  where+    f a1 a2 a3 a4 = mopcs "bpf" ([Kr,Kr],[Kr,Kr,Kr,Kr]) ([a1,a2,a3] ++ a4)++-- | ++--+-- > ky  bpfcos  kx, kx1, ky1, kx2, ..., kxn, kyn+-- > kys[]  bpfcos  kxs[], kx1, ky1, kx2, ..., kxn, kyn+-- > ky  bpfcos  kx, kxs[], kys[]+-- > ky  bpfcos  kx, ixs[], iys[]+-- > ky, kz  bpfcos  kx, kxs[], kys[], kzs[] +-- > ky, kz  bpfcos  kx, ixs[], iys[], izs[] +-- > kys[]  bpfcos  kxs[], kx1, ky1, kx2, ..., kxn, kyn+-- > ky  bpfcos  kx, ixs[], iys[]+-- > ky, kz  bpfcos  kx, kxs[], kys[], kzs[] +--+-- csound doc: <https://csound.com/docs/manual/bpfcos.html>+bpfcos ::  Sig -> Sig -> Sig -> [Sig] -> (Sig,Sig)+bpfcos b1 b2 b3 b4 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> mapM unSig b4+  where+    f a1 a2 a3 a4 = mopcs "bpfcos" ([Kr,Kr],[Kr,Kr,Kr,Kr]) ([a1,a2,a3] ++ a4)++-- | +-- Trace a series of line segments between specified points with+--       cosine interpolation.+--+-- > ares  cosseg  ia, idur1, ib [, idur2] [, ic] [...]+-- > kres  cosseg  ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/cosseg.html>+cosseg ::  [D] -> Sig+cosseg b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "cosseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- Trace a series of line segments between specified absolute points with+--       cosine interpolation.+--+-- > ares  cossegb  ia, itim1, ib [, itim2] [, ic] [...]+-- > kres  cossegb  ia, itim1, ib [, itim2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/cossegb.html>+cossegb ::  [D] -> Sig+cossegb b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "cossegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- Trace a series of line segments between specified points with+--       cosine interpolation, including a release segment.+--+-- > ares  cossegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+-- > kres  cossegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+--+-- csound doc: <https://csound.com/docs/manual/cossegr.html>+cossegr ::  [D] -> D -> D -> Sig+cossegr b1 b2 b3 =+  Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = setRate Kr $ opcs "cossegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])++-- | +-- This opcode implements a formula for generating a normalised exponential curve in range 0 - 1. It is based on the Max / MSP work of Eric Singer (c) 1994.+--+-- Generates an exponential curve in range 0 to 1 of arbitrary steepness.+--       Steepness index equal to or lower than 1.0 will result in Not-a-Number+--       errors and cause unstable behavior.+--+-- > kout  expcurve  kindex, ksteepness+--+-- csound doc: <https://csound.com/docs/manual/expcurve.html>+expcurve ::  Sig -> Sig -> Sig+expcurve b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "expcurve" [(Kr,[Kr,Kr])] [a1,a2]++-- | +-- Trace an exponential curve between specified points.+--+-- > ares  expon  ia, idur, ib+-- > kres  expon  ia, idur, ib+--+-- csound doc: <https://csound.com/docs/manual/expon.html>+expon ::  D -> D -> D -> Sig+expon b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "expon" [(Ar,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1,a2,a3]++-- | +-- Trace a series of exponential segments between specified points.+--+-- > ares  expseg  ia, idur1, ib [, idur2] [, ic] [...]+-- > kres  expseg  ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/expseg.html>+expseg ::  [D] -> Sig+expseg b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "expseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- An exponential segment generator operating at a-rate.+--+-- An exponential segment generator operating at a-rate. This unit is almost identical to expseg, but more precise when defining segments with very short durations (i.e., in a percussive attack phase) at audio rate.+--+-- > ares  expsega  ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/expsega.html>+expsega ::  [D] -> Sig+expsega b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = opcs "expsega" [(Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- Trace a series of exponential segments between specified+--       absolute points.+--+-- > ares  expsegb  ia, itim1, ib [, itim2] [, ic] [...]+-- > kres  expsegb  ia, itim1, ib [, itim2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/expsegb.html>+expsegb ::  [D] -> Sig+expsegb b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = opcs "expsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- An exponential segment generator operating at a-rate with+--       absolute times.+--+-- An exponential segment generator operating at a-rate. This unit+--       is almost identical to expsegb, but+--       more precise when defining segments with very short durations+--       (i.e., in a percussive attack phase) at audio rate.+--+-- > ares  expsegba  ia, itim1, ib [, itim2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/expsegba.html>+expsegba ::  D -> D -> D -> Sig+expsegba b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "expsegba" [(Ar,(repeat Ir))] [a1,a2,a3]++-- | +-- Trace a series of exponential segments between specified points including a release segment.+--+-- > ares  expsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+-- > kres  expsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+--+-- csound doc: <https://csound.com/docs/manual/expsegr.html>+expsegr ::  [D] -> D -> D -> Sig+expsegr b1 b2 b3 =+  Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = setRate Kr $ opcs "expsegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])++-- | +-- An implementation of a logarithmic gain curve which is similar to the gainslider~ object from Cycling 74 Max / MSP.+--+-- This opcode is intended for use to multiply by an audio signal to give a console mixer like feel. There is no bounds in the+--       source code so you can for example give higher than 127 values for extra amplitude but possibly clipped audio.+--+-- > kout  gainslider  kindex+--+-- csound doc: <https://csound.com/docs/manual/gainslider.html>+gainslider ::  Sig -> Sig+gainslider b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "gainslider" [(Kr,[Kr])] [a1]++-- | ++--+-- > ky  lincos  kx, ky0, ky1 [, kx0, kx1 ]+-- > iy  lincos  ix, iy0, iy1 [, ix0, ix1 ]+--+-- csound doc: <https://csound.com/docs/manual/lincos.html>+lincos ::  Sig -> Sig -> Sig -> D+lincos b1 b2 b3 =+  D $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "lincos" [(Kr,[Kr,Kr,Kr,Kr,Kr]),(Ir,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3]++-- | +-- Trace a straight line between specified points.+--+-- > ares  line  ia, idur, ib+-- > kres  line  ia, idur, ib+--+-- csound doc: <https://csound.com/docs/manual/line.html>+line ::  D -> D -> D -> Sig+line b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "line" [(Ar,[Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir])] [a1,a2,a3]++-- | +-- Linear to linear interpolation+--+-- Maps a linear range of values to another linear range of values.+--+-- > ky  linlin  kx, ky0, ky1 [, kx0, kx1 ]+-- > iy  linlin  ix, iy0, iy1 [, ix0, ix1 ]+-- > kys[]  linlin  kxs[], ky0, ky1 [, kx0, kx1 ]+-- > iys[]  linlin  ixs[], ky0, ky1, [ kx0, kx1 ]+-- > kC[]  linlin  kx, kA[], kB[] [, kx0, kx1 ]+--+-- csound doc: <https://csound.com/docs/manual/linlin.html>+linlin ::  Sig -> Sig -> Sig -> Sig+linlin b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "linlin" [(Kr,[Kr,Kr,Kr,Kr,Kr])+                               ,(Ir,[Ir,Ir,Ir,Ir,Ir])+                               ,(Kr,[Kr,Kr,Kr,Kr,Kr])+                               ,(Ir,[Ir,Kr,Kr,Kr,Kr])+                               ,(Kr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3]++-- | +-- Trace a series of line segments between specified points.+--+-- > ares  linseg  ia, idur1, ib [, idur2] [, ic] [...]+-- > kres  linseg  ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/linseg.html>+linseg ::  [D] -> Sig+linseg b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "linseg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- Trace a series of line segments between specified absolute points.+--+-- > ares  linsegb  ia, itim1, ib [, itim2] [, ic] [...]+-- > kres  linsegb  ia, itim1, ib [, itim2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/linsegb.html>+linsegb ::  [D] -> Sig+linsegb b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "linsegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1])++-- | +-- Trace a series of line segments between specified points including a release segment.+--+-- > ares  linsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+-- > kres  linsegr  ia, idur1, ib [, idur2] [, ic] [...], irel, iz+--+-- csound doc: <https://csound.com/docs/manual/linsegr.html>+linsegr ::  [D] -> D -> D -> Sig+linsegr b1 b2 b3 =+  Sig $ f <$> mapM unD b1 <*> unD b2 <*> unD b3+  where+    f a1 a2 a3 = setRate Kr $ opcs "linsegr" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, last a1, a2, a3])++-- | +-- This opcode implements a formula for generating a normalised logarithmic curve in range 0 - 1. It is based on the Max / MSP work of Eric Singer (c) 1994.+--+-- Generates a logarithmic curve in range 0 to 1 of arbitrary steepness.+--       Steepness index equal to or lower than 1.0 will result in Not-a-Number+--       errors and cause unstable behavior.+--+-- > kout  logcurve  kindex, ksteepness+--+-- csound doc: <https://csound.com/docs/manual/logcurve.html>+logcurve ::  Sig -> Sig -> Sig+logcurve b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "logcurve" [(Kr,[Kr,Kr])] [a1,a2]++-- | +-- Generate control signal consisting of linear segments delimited by two or more specified points.+--+-- Generate control signal consisting of linear segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.+--+-- > ksig  loopseg  kfreq, ktrig, iphase, kvalue0, ktime0 [, kvalue1] [, ktime1] \+-- >     [, kvalue2] [, ktime2][...]+--+-- csound doc: <https://csound.com/docs/manual/loopseg.html>+loopseg ::  Sig -> Sig -> D -> [Sig] -> Sig+loopseg b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4+  where+    f a1 a2 a3 a4 = opcs "loopseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)++-- | +-- Control signals based on linear segments.+--+-- Generate control signal consisiting of linear segments delimited+--     by two or more specified points. The entire envelope can be looped+--     at time-variant rate. Each segment coordinate can also be varied+--     at k-rate.+--+-- > ksig  loopsegp   kphase, kvalue0, kdur0, kvalue1 \+-- >           [, kdur1, ... , kdurN-1, kvalueN]+--+-- csound doc: <https://csound.com/docs/manual/loopsegp.html>+loopsegp ::  Sig -> [Sig] -> Sig+loopsegp b1 b2 =+  Sig $ f <$> unSig b1 <*> mapM unSig b2+  where+    f a1 a2 = opcs "loopsegp" [(Kr,(repeat Kr))] ([a1] ++ a2)++-- | +-- Generate control signal consisting of exponential or linear segments delimited by two or more specified points.+--+-- Generate control signal consisting of controllable exponential segments or linear segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.+--+-- > ksig  looptseg  kfreq, ktrig, iphase, kvalue0, ktype0, ktime0, [, kvalue1] [,ktype1] [, ktime1] \+-- >           [, kvalue2] [,ktype2] [, ktime2] [...] [, kvalueN] [,ktypeN] [, ktimeN]+--+-- csound doc: <https://csound.com/docs/manual/looptseg.html>+looptseg ::  Sig -> Sig -> [Sig] -> Sig+looptseg b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> mapM unSig b3+  where+    f a1 a2 a3 = opcs "looptseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2] ++ a3)++-- | +-- Generate control signal consisting of exponential segments delimited by two or more specified points.+--+-- Generate control signal consisting of exponential segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.+--+-- > ksig  loopxseg  kfreq, ktrig, iphase, kvalue0, ktime0  [, kvalue1] [, ktime1] \+-- >           [, kvalue2] [, ktime2] [...]+--+-- csound doc: <https://csound.com/docs/manual/loopxseg.html>+loopxseg ::  Sig -> Sig -> D -> [Sig] -> Sig+loopxseg b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4+  where+    f a1 a2 a3 a4 = opcs "loopxseg" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)++-- | +-- Generate control signal consisting of held segments.+--+-- Generate control signal consisting of held segments delimited by two or more specified points. The entire envelope is looped at kfreq rate. Each parameter can be varied at k-rate.+--+-- > ksig  lpshold  kfreq, ktrig, iphase, kvalue0, ktime0  [, kvalue1] [, ktime1] [, kvalue2] [, ktime2] [...]+--+-- csound doc: <https://csound.com/docs/manual/lpshold.html>+lpshold ::  Sig -> Sig -> D -> [Sig] -> Sig+lpshold b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> mapM unSig b4+  where+    f a1 a2 a3 a4 = opcs "lpshold" [(Kr,[Kr,Kr,Ir] ++ (repeat Kr))] ([a1,a2,a3] ++ a4)++-- | +-- Control signals based on held segments.+--+-- Generate control signal consisiting of held segments delimited+--     by two or more specified points. The entire envelope can be looped+--     at time-variant rate. Each segment coordinate can also be varied+--     at k-rate.+--+-- > ksig  lpsholdp   kphase, kvalue0, ktime0  [, kvalue1] [, ktime1] \+-- >           [, kvalue2] [, ktime2] [...]+--+-- csound doc: <https://csound.com/docs/manual/lpsholdp.html>+lpsholdp ::  Sig -> Sig -> [Sig] -> Sig+lpsholdp b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> mapM unSig b3+  where+    f a1 a2 a3 = opcs "lpsholdp" [(Kr,(repeat Kr))] ([a1,a2] ++ a3)++-- | +-- Arbitrary signal scaling.+--+-- Scales incoming value to user-definable range. Similar to scale object found in popular dataflow languages.+--+-- > kscl  scale  kinput, kmax, kmin[, kimax, kimin]+--+-- csound doc: <https://csound.com/docs/manual/scale.html>+scale ::  Sig -> Sig -> Sig -> Sig+scale b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "scale" [(Kr,[Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3]++-- | ++--+-- > kscl  scale2  kinput, kmin, kmax[, kimin, kimax][ihtime]+--+-- csound doc: <https://csound.com/docs/manual/scale2.html>+scale2 ::  Sig -> Sig -> Sig -> Sig+scale2 b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "scale2" [(Kr,[Kr,Kr,Kr,Kr,Kr,Ir])] [a1,a2,a3]++-- | +-- Constructs a user-definable envelope.+--+-- > ares  transeg  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...+-- > kres  transeg  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...+--+-- csound doc: <https://csound.com/docs/manual/transeg.html>+transeg ::  [D] -> Sig+transeg b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "transeg" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1])++-- | +-- Constructs a user-definable envelope in absolute time.+--+-- > ares  transegb  ia, itim, itype, ib [, itim2] [, itype] [, ic] ...+-- > kres  transegb  ia, itim, itype, ib [, itim2] [, itype] [, ic] ...+--+-- csound doc: <https://csound.com/docs/manual/transegb.html>+transegb ::  [D] -> Sig+transegb b1 =+  Sig $ f <$> mapM unD b1+  where+    f a1 = setRate Kr $ opcs "transegb" [(Kr, repeat Ir), (Ar, repeat Ir)] (a1 ++ [1, 0, last a1])++-- | +-- Constructs a user-definable envelope with extended release segment.+--+-- Constructs a user-definable envelope. It is the same+--       as transeg,+--       with an extended release segment.+--+-- > ares  transegr  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...+-- > kres  transegr  ia, idur, itype, ib [, idur2] [, itype] [, ic] ...+--+-- csound doc: <https://csound.com/docs/manual/transegr.html>+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])++-- | ++--+-- > ares  trigexpseg  kTrig, ia, idur1, ib [, idur2] [, ic] [...]+-- > kres  trigexpseg  kTrig, ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/trigexpseg.html>+trigexpseg ::  Sig -> D -> D -> D -> Sig+trigexpseg b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "trigexpseg" [(Ar,[Kr] ++ (repeat Ir)),(Kr,[Kr] ++ (repeat Ir))] [a1+                                                                                          ,a2+                                                                                          ,a3+                                                                                          ,a4]++-- | ++--+-- > ares  triglinseg  kTrig, ia, idur1, ib [, idur2] [, ic] [...]+-- > kres  triglinseg  kTrig, ia, idur1, ib [, idur2] [, ic] [...]+--+-- csound doc: <https://csound.com/docs/manual/triglinseg.html>+triglinseg ::  Sig -> D -> D -> D -> Sig+triglinseg b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "triglinseg" [(Ar,[Kr] ++ (repeat Ir)),(Kr,[Kr] ++ (repeat Ir))] [a1+                                                                                          ,a2+                                                                                          ,a3+                                                                                          ,a4]++-- | +-- 2D linear interpolation+--+-- 2D linear interpolation between 4 points at (0,0), (1,0), (0,1),+-- 	  (1,1)+--+-- > kout  xyscale  kx, ky, k00, k10, k01, k11+--+-- csound doc: <https://csound.com/docs/manual/xyscale.html>+xyscale ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+xyscale b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "xyscale" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6]++-- Envelope Generators.++-- | +-- Calculates the classical ADSR envelope using linear segments.+--+-- > ares  adsr  iatt, idec, islev, irel [, idel]+-- > kres  adsr  iatt, idec, islev, irel [, idel]+--+-- csound doc: <https://csound.com/docs/manual/adsr.html>+adsr ::  D -> D -> D -> D -> Sig+adsr b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "adsr" [(Ar,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Applies an envelope consisting of 3 segments.+--+-- envlpx -- apply an envelope consisting of 3 segments:+--+-- > ares  envlpx  xamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod]+-- > kres  envlpx  kamp, irise, idur, idec, ifn, iatss, iatdec [, ixmod]+--+-- csound doc: <https://csound.com/docs/manual/envlpx.html>+envlpx ::  Sig -> D -> D -> D -> Tab -> D -> D -> Sig+envlpx b1 b2 b3 b4 b5 b6 b7 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unTab b5 <*> unD b6 <*> unD b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcs "envlpx" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])+                                           ,(Kr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7]++-- | +-- The envlpx opcode with a final release segment.+--+-- envlpxr is the same as envlpx except that the final segment is entered only on sensing a MIDI note release. The note is then extended by the decay time.+--+-- > ares  envlpxr  xamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind]+-- > kres  envlpxr  kamp, irise, idec, ifn, iatss, iatdec [, ixmod] [,irind]+--+-- csound doc: <https://csound.com/docs/manual/envlpxr.html>+envlpxr ::  Sig -> D -> D -> Tab -> D -> D -> Sig+envlpxr b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unTab b4 <*> unD b5 <*> unD b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "envlpxr" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])+                                         ,(Kr,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | ++--+-- > ares  gtadsr  asig, katt, kdec, ksus,+-- >         krel, kgate+-- > xres  gtadsr  kamp, katt, kdec, ksus,+-- >         krel, kgate+--+-- csound doc: <https://csound.com/docs/manual/gtadsr.html>+gtadsr ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+gtadsr b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "gtadsr" [(Ar,[Ar,Kr,Kr,Kr,Kr,Kr]),(Xr,[Kr,Kr,Kr,Kr,Kr,Kr])] [a1+                                                                                            ,a2+                                                                                            ,a3+                                                                                            ,a4+                                                                                            ,a5+                                                                                            ,a6]++-- | +-- Applies a straight line rise and decay pattern to an input amp signal.+--+-- linen -- apply a straight line rise and decay pattern to an input amp signal.+--+-- > ares  linen  xamp, irise, idur, idec+-- > kres  linen  kamp, irise, idur, idec+--+-- csound doc: <https://csound.com/docs/manual/linen.html>+linen ::  Sig -> D -> D -> D -> Sig+linen b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "linen" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- The linen opcode extended with a final release segment.+--+-- linenr -- same as linen except that the final segment is entered only on sensing a MIDI note release. The note is then extended by the decay time.+--+-- > ares  linenr  xamp, irise, idec, iatdec+-- > kres  linenr  kamp, irise, idec, iatdec+--+-- csound doc: <https://csound.com/docs/manual/linenr.html>+linenr ::  Sig -> D -> D -> D -> Sig+linenr b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "linenr" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Calculates the classical ADSR envelope using the linsegr mechanism.+--+-- > ares  madsr  iatt, idec, islev, irel [, idel] [, ireltim]+-- > kres  madsr  iatt, idec, islev, irel [, idel] [, ireltim]+--+-- csound doc: <https://csound.com/docs/manual/madsr.html>+madsr ::  D -> D -> D -> D -> Sig+madsr b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "madsr" [(Ar,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Calculates the classical ADSR envelope using the expsegr mechanism.+--+-- > ares  mxadsr  iatt, idec, islev, irel [, idel] [, ireltim]+-- > kres  mxadsr  iatt, idec, islev, irel [, idel] [, ireltim]+--+-- csound doc: <https://csound.com/docs/manual/mxadsr.html>+mxadsr ::  D -> D -> D -> D -> Sig+mxadsr b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "mxadsr" [(Ar,[Ir,Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Calculates the classical ADSR envelope.+--+-- Calculates the classical ADSR envelope+--+-- > ares  xadsr  iatt, idec, islev, irel [, idel]+-- > kres  xadsr  iatt, idec, islev, irel [, idel]+--+-- csound doc: <https://csound.com/docs/manual/xadsr.html>+xadsr ::  D -> D -> D -> D -> Sig+xadsr b1 b2 b3 b4 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "xadsr" [(Ar,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- Models and Emulations.++-- | +-- Semi-physical model of a bamboo sound.+--+-- bamboo is a semi-physical model of a bamboo sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  bamboo  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \+-- >           [, ifreq1] [, ifreq2]+--+-- csound doc: <https://csound.com/docs/manual/bamboo.html>+bamboo ::  Sig -> D -> Sig+bamboo b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "bamboo" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Creates a tone similar to a struck metal bar.+--+-- Audio output is a tone similar to a struck metal bar, using a+--     physical model developed from solving the partial differential+--     equation.  There are controls over the boundary conditions as+--     well as the bar characteristics.+--+-- > ares  barmodel  kbcL, kbcR, iK, ib, kscan, iT30, ipos, ivel, iwid+--+-- csound doc: <https://csound.com/docs/manual/barmodel.html>+barmodel ::  Sig -> Sig -> D -> D -> Sig -> D -> D -> D -> D -> Sig+barmodel b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unSig b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "barmodel" [(Ar,[Kr,Kr,Ir,Ir,Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                       ,a2+                                                                                       ,a3+                                                                                       ,a4+                                                                                       ,a5+                                                                                       ,a6+                                                                                       ,a7+                                                                                       ,a8+                                                                                       ,a9]++-- | +-- Semi-physical model of a cabasa sound.+--+-- cabasa is a semi-physical model of a cabasa sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  cabasa  iamp, idettack [, inum] [, idamp] [, imaxshake]+--+-- csound doc: <https://csound.com/docs/manual/cabasa.html>+cabasa ::  D -> D -> Sig+cabasa b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "cabasa" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Simulates Chua's oscillator, an LRC oscillator with an active resistor, proved capable of bifurcation and chaotic attractors, with k-rate control of circuit elements.+--+-- > aI3, aV2, aV1  chuap  kL, kR0, kC2, kG, kGa, kGb, kE, kC1, iI3, iV2, iV1, ktime_step+--+-- csound doc: <https://csound.com/docs/manual/chuap.html>+chuap ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> D -> Sig -> (Sig+                                                                                        ,Sig+                                                                                        ,Sig)+chuap b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unD b10 <*> unD b11 <*> unSig b12+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 = mopcs "chuap" ([Ar,Ar,Ar]+                                                             ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Kr]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12]++-- | +-- Semi-physical model of a crunch sound.+--+-- crunch is a semi-physical model of a crunch sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  crunch  iamp, idettack [, inum] [, idamp] [, imaxshake]+--+-- csound doc: <https://csound.com/docs/manual/crunch.html>+crunch ::  D -> D -> Sig+crunch b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "crunch" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Semi-physical model of a water drop.+--+-- dripwater is a semi-physical model of a water drop. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  dripwater  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \+-- >           [, ifreq1] [, ifreq2]+--+-- csound doc: <https://csound.com/docs/manual/dripwater.html>+dripwater ::  Sig -> D -> Sig+dripwater b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "dripwater" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Dynamic stochastic approach to waveform synthesis conceived by Iannis Xenakis.+--+-- Implementation of the Génération Dynamique Stochastique+--       (GENDYN), a dynamic stochastic approach to waveform synthesis conceived+--       by Iannis Xenakis.+--+-- > ares  gendy  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                kampscl, kdurscl [, initcps] [, knum]+-- > kres  gendy  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                kampscl, kdurscl [, initcps] [, knum]+--+-- csound doc: <https://csound.com/docs/manual/gendy.html>+gendy ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+gendy b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "gendy" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])+                                                ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9]++-- | +-- Dynamic stochastic approach to waveform synthesis using cubic interpolation.+--+-- Implementation with cubic interpolation of the+--       Génération Dynamique Stochastique (GENDYN),+--       a dynamic stochastic approach to waveform synthesis conceived by+--       Iannis Xenakis.+--+-- > ares  gendyc  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                 kampscl, kdurscl [, initcps] [, knum]+-- > kres  gendyc  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                 kampscl, kdurscl [, initcps] [, knum]+--+-- csound doc: <https://csound.com/docs/manual/gendyc.html>+gendyc ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+gendyc b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "gendyc" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])+                                                 ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9]++-- | +-- Variation of the dynamic stochastic approach to waveform+--       synthesis conceived by Iannis Xenakis.+--+-- gendyx (gendy eXtended) is an implementation+--       of the Génération Dynamique Stochastique+--       (GENDYN), a dynamic stochastic approach to waveform synthesis+--       conceived by Iannis Xenakis, using curves instead of segments.+--+-- > ares  gendyx  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                 kampscl, kdurscl, kcurveup, kcurvedown [, initcps] [, knum]+-- > kres  gendyx  kamp, kampdist, kdurdist, kadpar, kddpar, kminfreq, kmaxfreq, \+-- >                 kampscl, kdurscl, kcurveup, kcurvedown [, initcps] [, knum]+--+-- csound doc: <https://csound.com/docs/manual/gendyx.html>+gendyx ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+gendyx b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unSig b8 <*> unSig b9 <*> unSig b10 <*> unSig b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "gendyx" [(Ar+                                                          ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])+                                                         ,(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- | +-- Audio output is a tone related to the striking of a cow bell or similar.+--+-- Audio output is a tone related to the striking of a cow bell or similar. The method is a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  gogobel  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivfn+--+-- csound doc: <https://csound.com/docs/manual/gogobel.html>+gogobel ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> Sig+gogobel b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "gogobel" [(Ar,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir])] [a1+                                                                                ,a2+                                                                                ,a3+                                                                                ,a4+                                                                                ,a5+                                                                                ,a6+                                                                                ,a7+                                                                                ,a8]++-- | +-- Semi-physical model of a guiro sound.+--+-- guiro is a semi-physical model of a guiro sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  guiro  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] [, ifreq1]+--+-- csound doc: <https://csound.com/docs/manual/guiro.html>+guiro ::  Sig -> D -> Sig+guiro b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "guiro" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Implements the Lorenz system of equations.+--+-- Implements the Lorenz system of equations.  The Lorenz system is a chaotic-dynamic system which was originally used to simulate the motion of a particle in convection currents and simplified weather systems. Small differences in initial conditions rapidly lead to diverging values. This is sometimes expressed as the butterfly effect. If a butterfly flaps its wings in Australia, it will have an effect on the weather in Alaska. This system is one of the milestones in the development of chaos theory. It is useful as a chaotic audio source or as a low frequency modulation source.+--+-- > ax, ay, az  lorenz  ksv, krv, kbv, kh, ix, iy, iz, iskip [, iskipinit]+--+-- csound doc: <https://csound.com/docs/manual/lorenz.html>+lorenz ::  Sig -> Sig -> Sig -> Sig -> D -> D -> D -> D -> (Sig,Sig,Sig)+lorenz b1 b2 b3 b4 b5 b6 b7 b8 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "lorenz" ([Ar,Ar,Ar],[Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                         ,a2+                                                                                         ,a3+                                                                                         ,a4+                                                                                         ,a5+                                                                                         ,a6+                                                                                         ,a7+                                                                                         ,a8]++-- | +-- Mandelbrot set+--+-- Returns the number of iterations corresponding to a given point of complex plane by applying the Mandelbrot set formula.+--+-- > kiter, koutrig  mandel   ktrig, kx, ky, kmaxIter+--+-- csound doc: <https://csound.com/docs/manual/mandel.html>+mandel ::  Sig -> Sig -> Sig -> Sig -> (Sig,Sig)+mandel b1 b2 b3 b4 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4+  where+    f a1 a2 a3 a4 = mopcs "mandel" ([Kr,Kr],[Kr,Kr,Kr,Kr]) [a1,a2,a3,a4]++-- | +-- An emulation of a mandolin.+--+-- > ares  mandol  kamp, kfreq, kpluck, kdetune, kgain, ksize \+-- >         [, ifn] [, iminfreq]+--+-- csound doc: <https://csound.com/docs/manual/mandol.html>+mandol ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+mandol b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "mandol" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Physical model related to the striking of a wooden block.+--+-- Audio output is a tone related to the striking of a wooden block as found in a marimba. The method is a physical model developed from Perry Cook but re-coded for Csound.+--+-- > ares  marimba  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec \+-- >           [, idoubles] [, itriples]+--+-- csound doc: <https://csound.com/docs/manual/marimba.html>+marimba ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> D -> Sig+marimba b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unD b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "marimba" [(Ar,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                            ,a2+                                                                                            ,a3+                                                                                            ,a4+                                                                                            ,a5+                                                                                            ,a6+                                                                                            ,a7+                                                                                            ,a8+                                                                                            ,a9]++-- | +-- An emulation of a mini-Moog synthesizer.+--+-- > ares  moog  kamp, kfreq, kfiltq, kfiltrate, kvibf, kvamp, iafn, iwfn, ivfn+--+-- csound doc: <https://csound.com/docs/manual/moog.html>+moog ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Tab -> Sig+moog b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8 <*> unTab b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "moog" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir])] [a1+                                                                                   ,a2+                                                                                   ,a3+                                                                                   ,a4+                                                                                   ,a5+                                                                                   ,a6+                                                                                   ,a7+                                                                                   ,a8+                                                                                   ,a9]++-- | +-- Simulates a planet orbiting in a binary star system.+--+-- planet simulates a planet orbiting in a binary star system. The outputs are the x, y and z coordinates of the orbiting planet. It is possible for the planet to achieve escape velocity by a close encounter with a star. This makes this system somewhat unstable.+--+-- > ax, ay, az  planet  kmass1, kmass2, ksep, ix, iy, iz, ivx, ivy, ivz, idelta \+-- >           [, ifriction] [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/planet.html>+planet ::  Sig -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> (Sig,Sig,Sig)+planet b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7 <*> unD b8 <*> unD b9 <*> unD b10+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 = mopcs "planet" ([Ar,Ar,Ar]+                                                      ,[Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10]++-- | +-- Creates a tone similar to a piano string prepared in a Cageian fashion.+--+-- Audio output is a tone similar to a piano string, prepared with+--     a number of rubbers and rattles. The method uses a+--     physical model developed from solving the partial differential+--     equation.+--+-- > ares  prepiano  ifreq, iNS, iD, iK, \+-- >         iT30,iB, kbcl, kbcr, imass, ihvfreq, iinit, ipos, ivel, isfreq, \+-- >         isspread[, irattles, irubbers]+-- > al,ar  prepiano  ifreq, iNS, iD, iK, \+-- >         iT30,iB, kbcl, kbcr, imass, ihvfreq, iinit, ipos, ivel, isfreq, \+-- >         isspread[, irattles, irubbers]+--+-- csound doc: <https://csound.com/docs/manual/prepiano.html>+prepiano ::  D -> D -> D -> D -> D -> D -> Sig -> Sig -> D -> D -> D -> D -> D -> D -> D -> (Sig+                                                                                            ,Sig)+prepiano b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unSig b7 <*> unSig b8 <*> unD b9 <*> unD b10 <*> unD b11 <*> unD b12 <*> unD b13 <*> unD b14 <*> unD b15+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 = mopcs "prepiano" ([Ar,Ar]+                                                                            ,[Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                                                                   ,a2+                                                                                                                                   ,a3+                                                                                                                                   ,a4+                                                                                                                                   ,a5+                                                                                                                                   ,a6+                                                                                                                                   ,a7+                                                                                                                                   ,a8+                                                                                                                                   ,a9+                                                                                                                                   ,a10+                                                                                                                                   ,a11+                                                                                                                                   ,a12+                                                                                                                                   ,a13+                                                                                                                                   ,a14+                                                                                                                                   ,a15]++-- | +-- Semi-physical model of a sandpaper sound.+--+-- sandpaper is a semi-physical model of a sandpaper sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  sandpaper  iamp, idettack [, inum] [, idamp] [, imaxshake]+--+-- csound doc: <https://csound.com/docs/manual/sandpaper.html>+sandpaper ::  D -> D -> Sig+sandpaper b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "sandpaper" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Semi-physical model of a sekere sound.+--+-- sekere is a semi-physical model of a sekere sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  sekere  iamp, idettack [, inum] [, idamp] [, imaxshake]+--+-- csound doc: <https://csound.com/docs/manual/sekere.html>+sekere ::  D -> D -> Sig+sekere b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "sekere" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Sounds like the shaking of a maraca or similar gourd instrument.+--+-- Audio output is a tone related to the shaking of a maraca or similar gourd instrument. The method is a physically inspired model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  shaker  kamp, kfreq, kbeans, kdamp, ktimes [, idecay]+--+-- csound doc: <https://csound.com/docs/manual/shaker.html>+shaker ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig+shaker b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5+  where+    f a1 a2 a3 a4 a5 = opcs "shaker" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Semi-physical model of a sleighbell sound.+--+-- sleighbells is a semi-physical model of a sleighbell sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  sleighbells  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \+-- >           [, ifreq1] [, ifreq2]+--+-- csound doc: <https://csound.com/docs/manual/sleighbells.html>+sleighbells ::  Sig -> D -> Sig+sleighbells b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "sleighbells" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Semi-physical model of a stick sound.+--+-- stix is a semi-physical model of a stick sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  stix  iamp, idettack [, inum] [, idamp] [, imaxshake]+--+-- csound doc: <https://csound.com/docs/manual/stix.html>+stix ::  D -> D -> Sig+stix b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "stix" [(Ar,[Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Semi-physical model of a tambourine sound.+--+-- tambourine is a semi-physical model of a tambourine sound. It is one of the PhISEM percussion opcodes. PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects.+--+-- > ares  tambourine  kamp, idettack [, inum] [, idamp] [, imaxshake] [, ifreq] \+-- >           [, ifreq1] [, ifreq2]+--+-- csound doc: <https://csound.com/docs/manual/tambourine.html>+tambourine ::  Sig -> D -> Sig+tambourine b1 b2 =+  Sig $ f <$> unSig b1 <*> unD b2+  where+    f a1 a2 = opcs "tambourine" [(Ar,[Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2]++-- | +-- Physical model related to the striking of a metal block.+--+-- Audio output is a tone related to the striking of a metal block as found in a vibraphone. The method is a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  vibes  kamp, kfreq, ihrd, ipos, imp, kvibf, kvamp, ivibfn, idec+--+-- csound doc: <https://csound.com/docs/manual/vibes.html>+vibes ::  Sig -> Sig -> D -> D -> D -> Sig -> Sig -> Tab -> D -> Sig+vibes b1 b2 b3 b4 b5 b6 b7 b8 b9 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unD b9+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 = opcs "vibes" [(Ar,[Kr,Kr,Ir,Ir,Ir,Kr,Kr,Ir,Ir])] [a1+                                                                                    ,a2+                                                                                    ,a3+                                                                                    ,a4+                                                                                    ,a5+                                                                                    ,a6+                                                                                    ,a7+                                                                                    ,a8+                                                                                    ,a9]++-- | +-- An emulation of a human voice.+--+-- > ares  voice  kamp, kfreq, kphoneme, kform, kvibf, kvamp, ifn, ivfn+--+-- csound doc: <https://csound.com/docs/manual/voice.html>+voice ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Sig+voice b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unTab b7 <*> unTab b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "voice" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1+                                                                              ,a2+                                                                              ,a3+                                                                              ,a4+                                                                              ,a5+                                                                              ,a6+                                                                              ,a7+                                                                              ,a8]++-- Phasors.++-- | ++--+-- > aexp,aph  ephasor  kfreq, kR+--+-- csound doc: <https://csound.com/docs/manual/ephasor.html>+ephasor ::  Sig -> Sig -> (Sig,Sig)+ephasor b1 b2 =+  pureTuple $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = mopcs "ephasor" ([Ar,Ar],[Kr,Kr]) [a1,a2]++-- | +-- Produce a normalized moving phase value.+--+-- > ares  phasor  xcps [, iphs]+-- > kres  phasor  kcps [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/phasor.html>+phasor ::  Sig -> Sig+phasor b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "phasor" [(Ar,[Xr,Ir]),(Kr,[Kr,Ir])] [a1]++-- | +-- Produce an arbitrary number of normalized moving phase values.+--+-- Produce an arbitrary number of normalized moving phase values, accessable by an index.+--+-- > ares  phasorbnk  xcps, kndx, icnt [, iphs]+-- > kres  phasorbnk  kcps, kndx, icnt [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/phasorbnk.html>+phasorbnk ::  Sig -> Sig -> D -> Sig+phasorbnk b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "phasorbnk" [(Ar,[Xr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- A resettable linear ramp between two levels+--+-- A resettable linear ramp between two levels. Port of+-- 	  Supercollider's Phasor.+--+-- > aindex  sc_phasor  xtrig, xrate, kstart, kend [, kresetPos] +-- > kindex  sc_phasor  xtrig, xrate, kstart, kend [, kresetPos] +--+-- csound doc: <https://csound.com/docs/manual/sc_phasor.html>+sc_phasor ::  Sig -> Sig -> Sig -> Sig -> Sig+sc_phasor b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4+  where+    f a1 a2 a3 a4 = opcs "sc_phasor" [(Ar,[Xr,Xr,Kr,Kr,Kr]),(Kr,[Xr,Xr,Kr,Kr,Kr])] [a1,a2,a3,a4]++-- | +-- Produces a normalized moving phase value with sync input and output.+--+-- Produces a moving phase value between zero and one and an extra impulse output ("sync out") whenever its phase value crosses or is reset to zero. The phase can be reset at any time by an impulse on the "sync in" parameter.+--+-- > aphase, asyncout  syncphasor  xcps, asyncin, [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/syncphasor.html>+syncphasor ::  Sig -> Sig -> (Sig,Sig)+syncphasor b1 b2 =+  pureTuple $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = mopcs "syncphasor" ([Ar,Ar],[Xr,Ar,Ir]) [a1,a2]++-- | ++--+-- > aindex  trigphasor  xtrig, xrate, kstart, kend [, kresetPos] +-- > kindex  trigphasor  xtrig, xrate, kstart, kend [, kresetPos] +--+-- csound doc: <https://csound.com/docs/manual/trigphasor.html>+trigphasor ::  Sig -> Sig -> Sig -> Sig -> Sig+trigphasor b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4+  where+    f a1 a2 a3 a4 = opcs "trigphasor" [(Ar,[Xr,Xr,Kr,Kr,Kr]),(Kr,[Xr,Xr,Kr,Kr,Kr])] [a1,a2,a3,a4]++-- Random (Noise) Generators.++-- | +-- Beta distribution random number generator (positive values only).+--+-- Beta distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  betarand  krange, kalpha, kbeta+-- > ires  betarand  krange, kalpha, kbeta+-- > kres  betarand  krange, kalpha, kbeta+--+-- csound doc: <https://csound.com/docs/manual/betarand.html>+betarand :: SigOrD a => a -> a -> a -> SE a+betarand b1 b2 b3 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2 <*> (lift . toGE) b3+  where+    f a1 a2 a3 = opcsDep "betarand" [(Ar,[Kr,Kr,Kr]),(Ir,[Kr,Kr,Kr]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- | +-- Exponential distribution random number generator.+--+-- Exponential distribution random number generator. This is an x-class noise generator.+--+-- > ares  bexprnd  krange+-- > ires  bexprnd  krange+-- > kres  bexprnd  krange+--+-- csound doc: <https://csound.com/docs/manual/bexprnd.html>+bexprnd :: SigOrD a => a -> SE a+bexprnd b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "bexprnd" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Cauchy distribution random number generator.+--+-- Cauchy distribution random number generator. This is an x-class noise generator.+--+-- > ares  cauchy  kalpha+-- > ires  cauchy  kalpha+-- > kres  cauchy  kalpha+--+-- csound doc: <https://csound.com/docs/manual/cauchy.html>+cauchy :: SigOrD a => a -> SE a+cauchy b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "cauchy" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Cauchy distribution random number generator with+--       interpolation.+--+-- Cauchy distribution random number generator with controlled+--       interpolation between values. This is an x-class noise+--       generator.+--+-- > ares  cauchyi  klambda, xamp, xcps+-- > ires  cauchyi  klambda, xamp, xcps+-- > kres  cauchyi  klambda, xamp, xcps+--+-- csound doc: <https://csound.com/docs/manual/cauchyi.html>+cauchyi :: SigOrD a => a -> a -> a -> SE a+cauchyi b1 b2 b3 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2 <*> (lift . toGE) b3+  where+    f a1 a2 a3 = opcsDep "cauchyi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]++-- | +-- Continuous USER-defined-distribution RaNDom generator.+--+-- > aout  cuserrnd  kmin, kmax, ktableNum+-- > iout  cuserrnd  imin, imax, itableNum+-- > kout  cuserrnd  kmin, kmax, ktableNum+--+-- csound doc: <https://csound.com/docs/manual/cuserrnd.html>+cuserrnd :: SigOrD a => a -> a -> a -> SE a+cuserrnd b1 b2 b3 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2 <*> (lift . toGE) b3+  where+    f a1 a2 a3 = opcsDep "cuserrnd" [(Ar,[Kr,Kr,Kr]),(Ir,[Ir,Ir,Ir]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- | +-- Discrete USER-defined-distribution RaNDom generator.+--+-- > aout  duserrnd  ktableNum+-- > iout  duserrnd  itableNum+-- > kout  duserrnd  ktableNum+--+-- csound doc: <https://csound.com/docs/manual/duserrnd.html>+duserrnd :: SigOrD a => a -> SE a+duserrnd b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "duserrnd" [(Ar,[Kr]),(Ir,[Ir]),(Kr,[Kr])] [a1]++-- | +-- Random impulses.+--+-- Generates random impulses from 0 to 1.+--+-- > ares  dust  kamp, kdensity+-- > kres  dust  kamp, kdensity+--+-- csound doc: <https://csound.com/docs/manual/dust.html>+dust ::  Sig -> Sig -> SE Sig+dust b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "dust" [(Ar,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]++-- | +-- Random impulses.+--+-- Generates random impulses from -1 to 1.+--+-- > ares  dust2  kamp, kdensity+-- > kres  dust2  kamp, kdensity+--+-- csound doc: <https://csound.com/docs/manual/dust2.html>+dust2 ::  Sig -> Sig -> SE Sig+dust2 b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "dust2" [(Ar,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]++-- | +-- Exponential distribution random number generator (positive values only).+--+-- Exponential distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  exprand  klambda+-- > ires  exprand  klambda+-- > kres  exprand  klambda+--+-- csound doc: <https://csound.com/docs/manual/exprand.html>+exprand :: SigOrD a => a -> SE a+exprand b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "exprand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Exponential distribution random number generator with+--       interpolation (positive values only).+--+-- Exponential distribution random number generator with controlled+--       interpolation between values (positive values only). This is an+--       x-class noise generator.+--+-- > ares  exprandi  klambda, xamp, xcps+-- > ires  exprandi  klambda, xamp, xcps+-- > kres  exprandi  klambda, xamp, xcps+--+-- csound doc: <https://csound.com/docs/manual/exprandi.html>+exprandi :: SigOrD a => a -> a -> a -> SE a+exprandi b1 b2 b3 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2 <*> (lift . toGE) b3+  where+    f a1 a2 a3 = opcsDep "exprandi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]++-- | +-- A fractal noise generator.+--+-- A fractal noise generator implemented as a white noise filtered+--       by a cascade of 15 first-order filters.+--+-- > ares  fractalnoise  kamp, kbeta+--+-- csound doc: <https://csound.com/docs/manual/fractalnoise.html>+fractalnoise ::  Sig -> Sig -> SE Sig+fractalnoise b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "fractalnoise" [(Ar,[Kr,Kr])] [a1,a2]++-- | +-- Gaussian distribution random number generator.+--+-- Gaussian distribution random number generator. This is an x-class noise generator.+--+-- > ares  gauss  krange+-- > ires  gauss  irange+-- > kres  gauss  krange+-- > ares  gauss  kmean, ksdev+-- > ires  gauss  imean, isdev+-- > kres  gauss  kmean, ksdev+--+-- csound doc: <https://csound.com/docs/manual/gauss.html>+gauss ::  Sig -> SE Sig+gauss b1 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep "gauss" [(Ar,[Kr])+                           ,(Ir,[Ir])+                           ,(Kr,[Kr])+                           ,(Ar,[Kr,Kr])+                           ,(Ir,[Ir,Ir])+                           ,(Kr,[Kr,Kr])] [a1]++-- | +-- Gaussian distribution random number generator with+--       interpolation.+--+-- Gaussian distribution random number generator with controlled+--       interpolation between values. This is an+--       x-class noise generator.+--+-- > ares  gaussi  krange, xamp, xcps+-- > ires  gaussi  krange, xamp, xcps+-- > kres  gaussi  krange, xamp, xcps+--+-- csound doc: <https://csound.com/docs/manual/gaussi.html>+gaussi :: SigOrD a => a -> a -> a -> SE a+gaussi b1 b2 b3 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2 <*> (lift . toGE) b3+  where+    f a1 a2 a3 = opcsDep "gaussi" [(Ar,[Kr,Xr,Xr]),(Ir,[Kr,Xr,Xr]),(Kr,[Kr,Xr,Xr])] [a1,a2,a3]++-- | +-- Random impulses around a certain frequency.+--+-- Generates random impulses around a certain frequency.+--+-- > ares  gausstrig  kamp, kcps, kdev [, imode] [, ifrst1]+-- > kres  gausstrig  kamp, kcps, kdev [, imode] [, ifrst1]+--+-- csound doc: <https://csound.com/docs/manual/gausstrig.html>+gausstrig ::  Sig -> Sig -> Sig -> SE Sig+gausstrig b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "gausstrig" [(Ar,[Kr,Kr,Kr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- Reads the global seed value.+--+-- Returns the global seed value used for all x-class+--       noise generators.+--+-- > ians getseed +-- > kans getseed +--+-- csound doc: <https://csound.com/docs/manual/getseed.html>+getseed ::   SE Sig+getseed  =+  fmap ( Sig . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "getseed" [(Ir,[]),(Kr,[])] []++-- | +-- Generates a segmented line whose segments are randomly generated.+--+-- > kout  jitter  kamp, kcpsMin, kcpsMax+--+-- csound doc: <https://csound.com/docs/manual/jitter.html>+jitter ::  Sig -> Sig -> Sig -> SE Sig+jitter b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "jitter" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- | +-- Generates a segmented line with user-controllable random segments.+--+-- > kout  jitter2  ktotamp, kamp1, kcps1,+-- >         kamp2, kcps2, kamp3, kcps3[ , iopt]+--+-- csound doc: <https://csound.com/docs/manual/jitter2.html>+jitter2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> SE Sig+jitter2 b1 b2 b3 b4 b5 b6 b7 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5 <*> (lift . unSig) b6 <*> (lift . unSig) b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcsDep "jitter2" [(Kr,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Ir])] [a1+                                                                                ,a2+                                                                                ,a3+                                                                                ,a4+                                                                                ,a5+                                                                                ,a6+                                                                                ,a7]++-- | +-- A jitter-spline generator.+--+-- > ares  jspline  xamp, kcpsMin, kcpsMax+-- > kres  jspline  kamp, kcpsMin, kcpsMax+--+-- csound doc: <https://csound.com/docs/manual/jspline.html>+jspline ::  Sig -> Sig -> Sig -> SE Sig+jspline b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "jspline" [(Ar,[Xr,Kr,Kr]),(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- | ++--+-- > knum  lfsr  ilen, iprob [, iseed]+--+-- csound doc: <https://csound.com/docs/manual/lfsr.html>+lfsr ::  D -> D -> SE Sig+lfsr b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2+  where+    f a1 a2 = opcsDep "lfsr" [(Kr,[Ir,Ir,Ir])] [a1,a2]++-- | +-- Linear distribution random number generator (positive values only).+--+-- Linear distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  linrand  krange+-- > ires  linrand  krange+-- > kres  linrand  krange+--+-- csound doc: <https://csound.com/docs/manual/linrand.html>+linrand :: SigOrD a => a -> SE a+linrand b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "linrand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- A white noise generator with an IIR lowpass filter.+--+-- > ares  noise  xamp, kbeta+--+-- csound doc: <https://csound.com/docs/manual/noise.html>+noise ::  Sig -> Sig -> SE Sig+noise b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "noise" [(Ar,[Xr,Kr])] [a1,a2]++-- | +-- Cauchy distribution random number generator (positive values only).+--+-- Cauchy distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  pcauchy  kalpha+-- > ires  pcauchy  kalpha+-- > kres  pcauchy  kalpha+--+-- csound doc: <https://csound.com/docs/manual/pcauchy.html>+pcauchy :: SigOrD a => a -> SE a+pcauchy b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "pcauchy" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Generates pink noise.+--+-- Generates pink noise (-3dB/oct response) by the New+--       Shade of Pink algorithm of Stefan Stenzel.+--+-- > ares  pinker +--+-- csound doc: <https://csound.com/docs/manual/pinker.html>+pinker ::   SE Sig+pinker  =+  fmap ( Sig . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "pinker" [(Ar,[])] []++-- | +-- Generates approximate pink noise.+--+-- Generates approximate pink noise (-3dB/oct response) by one of two different methods:+--+-- > ares  pinkish  xin [, imethod] [, inumbands] [, iseed] [, iskip]+--+-- csound doc: <https://csound.com/docs/manual/pinkish.html>+pinkish ::  Sig -> SE Sig+pinkish b1 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep "pinkish" [(Ar,[Xr,Ir,Ir,Ir,Ir])] [a1]++-- | +-- Poisson distribution random number generator (positive values only).+--+-- Poisson distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  poisson  klambda+-- > ires  poisson  klambda+-- > kres  poisson  klambda+--+-- csound doc: <https://csound.com/docs/manual/poisson.html>+poisson :: SigOrD a => a -> SE a+poisson b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "poisson" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Generates a controlled random number series.+--+-- Output is a controlled random number series between -amp and +amp+--+-- > ares  rand  xamp [, iseed] [, isel] [, ioffset]+-- > kres  rand  xamp [, iseed] [, isel] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/rand.html>+rand ::  Sig -> SE Sig+rand b1 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1+  where+    f a1 = opcsDep "rand" [(Ar,[Xr,Ir,Ir,Ir]),(Kr,[Xr,Ir,Ir,Ir])] [a1]++-- | +-- Generates random numbers and holds them for a period of time.+--+-- > ares  randh  xamp, xcps [, iseed] [, isize] [, ioffset]+-- > kres  randh  kamp, kcps [, iseed] [, isize] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/randh.html>+randh ::  Sig -> Sig -> SE Sig+randh b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "randh" [(Ar,[Xr,Xr,Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir,Ir])] [a1,a2]++-- | +-- Generates a controlled random number series with interpolation between each new number.+--+-- > ares  randi  xamp, xcps [, iseed] [, isize] [, ioffset]+-- > kres  randi  kamp, kcps [, iseed] [, isize] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/randi.html>+randi ::  Sig -> Sig -> SE Sig+randi b1 b2 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2+  where+    f a1 a2 = opcsDep "randi" [(Ar,[Xr,Xr,Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir,Ir,Ir])] [a1,a2]++-- | +-- Generates a controlled pseudo-random number series between min and max values.+--+-- Generates is a controlled pseudo-random number series between min and max values.+--+-- > ares  random  kmin, kmax+-- > ires  random  imin, imax+-- > kres  random  kmin, kmax+--+-- csound doc: <https://csound.com/docs/manual/random.html>+random :: SigOrD a => a -> a -> SE a+random b1 b2 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2+  where+    f a1 a2 = opcsDep "random" [(Ar,[Kr,Kr]),(Ir,[Ir,Ir]),(Kr,[Kr,Kr])] [a1,a2]++-- | +-- Generates random numbers with a user-defined limit and holds them for a period of time.+--+-- > ares  randomh  kmin, kmax, xcps [,imode] [,ifirstval]+-- > kres  randomh  kmin, kmax, kcps [,imode] [,ifirstval]+--+-- csound doc: <https://csound.com/docs/manual/randomh.html>+randomh ::  Sig -> Sig -> Sig -> SE Sig+randomh b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "randomh" [(Ar,[Kr,Kr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- Generates a user-controlled random number series with interpolation between each new number.+--+-- > ares  randomi  kmin, kmax, xcps [,imode] [,ifirstval]+-- > kres  randomi  kmin, kmax, kcps [,imode] [,ifirstval]+--+-- csound doc: <https://csound.com/docs/manual/randomi.html>+randomi ::  Sig -> Sig -> Sig -> SE Sig+randomi b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "randomi" [(Ar,[Kr,Kr,Xr,Ir,Ir]),(Kr,[Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- 31-bit bipolar random opcodes with controllable distribution.+--+-- 31-bit bipolar random opcodes with controllable distribution. These units are portable, i.e. using the same seed value will generate the same random sequence on all systems. The distribution of generated random numbers can be varied at k-rate.+--+-- > ax  rnd31  kscl, krpow [, iseed]+-- > ix  rnd31  iscl, irpow [, iseed]+-- > kx  rnd31  kscl, krpow [, iseed]+--+-- csound doc: <https://csound.com/docs/manual/rnd31.html>+rnd31 :: SigOrD a => a -> a -> SE a+rnd31 b1 b2 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2+  where+    f a1 a2 = opcsDep "rnd31" [(Ar,[Kr,Kr,Ir]),(Ir,[Ir,Ir,Ir]),(Kr,[Kr,Kr,Ir])] [a1,a2]++-- | ++--+-- >  rndseed  ival+--+-- csound doc: <https://csound.com/docs/manual/rndseed.html>+rndseed ::  D -> SE ()+rndseed b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "rndseed" [(Xr,[Ir])] [a1]++-- | +-- Generate random spline curves.+--+-- > ares  rspline  xrangeMin, xrangeMax, kcpsMin, kcpsMax+-- > kres  rspline  krangeMin, krangeMax, kcpsMin, kcpsMax+--+-- csound doc: <https://csound.com/docs/manual/rspline.html>+rspline ::  Sig -> Sig -> Sig -> Sig -> SE Sig+rspline b1 b2 b3 b4 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep "rspline" [(Ar,[Xr,Xr,Kr,Kr]),(Kr,[Kr,Kr,Kr,Kr])] [a1,a2,a3,a4]++-- | +-- Sets the global seed value.+--+-- Sets the global seed value for all x-class noise generators, as well as other opcodes that use a random call, such as grain.+--+-- >  seed  ival+--+-- csound doc: <https://csound.com/docs/manual/seed.html>+seed ::  D -> SE ()+seed b1 =+  SE $ join $ f <$> (lift . unD) b1+  where+    f a1 = opcsDep_ "seed" [(Xr,[Ir])] [a1]++-- | +-- Generates a controlled pseudo-random number series between min and max values according to a trigger.+--+-- Generates a controlled pseudo-random number series between min and max values at k-rate whenever the trigger parameter is different to 0.+--+-- > kout  trandom  ktrig, kmin, kmax+--+-- csound doc: <https://csound.com/docs/manual/trandom.html>+trandom ::  Sig -> Sig -> Sig -> SE Sig+trandom b1 b2 b3 =+  fmap ( Sig . return) $ SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3+  where+    f a1 a2 a3 = opcsDep "trandom" [(Kr,[Kr,Kr,Kr])] [a1,a2,a3]++-- | +-- Triangular distribution random number generator+--+-- Triangular distribution random number generator. This is an x-class noise generator.+--+-- > ares  trirand  krange+-- > ires  trirand  krange+-- > kres  trirand  krange+--+-- csound doc: <https://csound.com/docs/manual/trirand.html>+trirand :: SigOrD a => a -> SE a+trirand b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "trirand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- Uniform distribution random number generator (positive values only).+--+-- Uniform distribution random number generator (positive values only). This is an x-class noise generator.+--+-- > ares  unirand  krange+-- > ires  unirand  krange+-- > kres  unirand  krange+--+-- csound doc: <https://csound.com/docs/manual/unirand.html>+unirand :: SigOrD a => a -> SE a+unirand b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = opcsDep "unirand" [(Ar,[Kr]),(Ir,[Kr]),(Kr,[Kr])] [a1]++-- | +-- truly random opcodes with controllable range.+--+-- Truly random opcodes with controllable range. These+--       units are for Unix-like systems only and use /dev/urandom to construct+--       Csound random values+--+-- > ax  urandom  [imin, imax]+-- > ix  urandom  [imin, imax]+-- > kx  urandom  [imin, imax]+--+-- csound doc: <https://csound.com/docs/manual/urandom.html>+urandom :: SigOrD a =>  SE a+urandom  =+  fmap ( fromGE . return) $ SE $ join $ return $ f +  where+    f  = opcsDep "urandom" [(Ar,[Ir,Ir]),(Ir,[Ir,Ir]),(Kr,[Ir,Ir])] []++-- | +-- A discrete user-defined-distribution random generator that can be used as a function.+--+-- > aout =  urd (ktableNum)+-- > iout =  urd (itableNum)+-- > kout =  urd (ktableNum)+--+-- csound doc: <https://csound.com/docs/manual/urd.html>+urd :: SigOrD a => a -> SE a+urd b1 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1+  where+    f a1 = oprByDep "urd" [(Ar,[Kr]), (Kr,[Kr]), (Ir,[Ir])] [a1]++-- | +-- Weibull distribution random number generator (positive values only).+--+-- Weibull distribution random number generator (positive values only). This is an x-class noise generator+--+-- > ares  weibull  ksigma, ktau+-- > ires  weibull  ksigma, ktau+-- > kres  weibull  ksigma, ktau+--+-- csound doc: <https://csound.com/docs/manual/weibull.html>+weibull :: SigOrD a => a -> a -> SE a+weibull b1 b2 =+  fmap ( fromGE . return) $ SE $ join $ f <$> (lift . toGE) b1 <*> (lift . toGE) b2+  where+    f a1 a2 = opcsDep "weibull" [(Ar,[Kr,Kr]),(Ir,[Kr,Kr]),(Kr,[Kr,Kr])] [a1,a2]++-- Sample Playback.++-- | +-- Generates breakbeat-style cut-ups of a mono audio stream.+--+-- The BreakBeat Cutter automatically generates cut-ups of a source audio stream in the style of drum and bass/jungle breakbeat manipulations.  There are two versions, for mono (bbcutm) or stereo (bbcuts) sources.  Whilst originally based on breakbeat cutting, the opcode can be applied to any type of source audio.+--+-- > a1  bbcutm  asource, ibps, isubdiv, ibarlength, iphrasebars, inumrepeats \+-- >           [, istutterspeed] [, istutterchance] [, ienvchoice ]+--+-- csound doc: <https://csound.com/docs/manual/bbcutm.html>+bbcutm ::  Sig -> D -> D -> D -> D -> D -> Sig+bbcutm b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unD b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "bbcutm" [(Ar,[Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Generates breakbeat-style cut-ups of a stereo audio stream.+--+-- The BreakBeat Cutter automatically generates cut-ups of a source audio stream in the style of drum and bass/jungle breakbeat manipulations.  There are two versions, for mono (bbcutm) or stereo (bbcuts) sources.  Whilst originally based on breakbeat cutting, the opcode can be applied to any type of source audio.+--+-- > a1,a2  bbcuts  asource1, asource2, ibps, isubdiv, ibarlength, iphrasebars, \+-- >           inumrepeats [, istutterspeed] [, istutterchance] [, ienvchoice]+--+-- csound doc: <https://csound.com/docs/manual/bbcuts.html>+bbcuts ::  Sig -> Sig -> D -> D -> D -> D -> D -> (Sig,Sig)+bbcuts b1 b2 b3 b4 b5 b6 b7 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = mopcs "bbcuts" ([Ar,Ar],[Ar,Ar,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                      ,a2+                                                                                      ,a3+                                                                                      ,a4+                                                                                      ,a5+                                                                                      ,a6+                                                                                      ,a7]++-- | +-- Function-table-based crossfading looper.+--+-- This opcode reads audio from a function table and plays it back in a loop with user-defined+--    start time, duration and crossfade time. It also allows the pitch of the loop to be controlled,+--    including reversed playback. It accepts non-power-of-two tables, such as deferred-allocation+--    GEN01 tables, with one or two channels.+--+-- > asig1[, asig2]  flooper  kamp, kpitch, istart, idur, ifad, ifn+--+-- csound doc: <https://csound.com/docs/manual/flooper.html>+flooper :: forall a . Tuple a => Sig -> Sig -> D -> D -> D -> Tab -> a+flooper b1 b2 b3 b4 b5 b6 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = mopcs "flooper" ([Ar,Ar],[Kr,Kr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6]++-- | +-- Function-table-based crossfading looper.+--+-- This opcode implements a crossfading looper with variable loop parameters and three+--   looping modes, optionally using a table for its crossfade shape. It accepts +--   non-power-of-two tables for its source sounds, such as deferred-allocation+--    GEN01 tables, with one or two channels.+--+-- > asig1[,asig2]  flooper2  kamp, kpitch, kloopstart, kloopend, kcrossfade, ifn \+-- >           [, istart, imode, ifenv, iskip]+--+-- csound doc: <https://csound.com/docs/manual/flooper2.html>+flooper2 :: forall a . Tuple a => Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> a+flooper2 b1 b2 b3 b4 b5 b6 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unTab b6+  where+    f a1 a2 a3 a4 a5 a6 = mopcs "flooper2" ([Ar,Ar],[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir]) [a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5+                                                                                     ,a6]++-- | +-- Collects all audio from all Fluidsynth engines in a performance+--+-- > aleft, aright  fluidAllOut +--+-- csound doc: <https://csound.com/docs/manual/fluidAllOut.html>+fluidAllOut ::   (Sig,Sig)+fluidAllOut  =+  pureTuple $ return $ f +  where+    f  = mopcs "fluidAllOut" ([Ar,Ar],[]) []++-- | +-- Sends a MIDI controller data message to fluid.+--+-- Sends a MIDI controller data (MIDI controller number and value to use)+--     message to a fluid engine by number on the user specified MIDI channel number.+--+-- >  fluidCCi  iEngineNumber, iChannelNumber, iControllerNumber, iValue+--+-- csound doc: <https://csound.com/docs/manual/fluidCCi.html>+fluidCCi ::  D -> D -> D -> D -> SE ()+fluidCCi b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "fluidCCi" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Sends a MIDI controller data message to fluid.+--+-- Sends a MIDI controller data (MIDI controller number and value to use)+--     message to a fluid engine by number on the user specified MIDI channel number.+--+-- >  fluidCCk  iEngineNumber, iChannelNumber, iControllerNumber, kValue+--+-- csound doc: <https://csound.com/docs/manual/fluidCCk.html>+fluidCCk ::  D -> D -> D -> Sig -> SE ()+fluidCCk b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unSig) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "fluidCCk" [(Xr,[Ir,Ir,Ir,Kr])] [a1,a2,a3,a4]++-- | +-- Sends MIDI note on, note off, and other messages to a SoundFont preset.+--+-- The fluid opcodes provide a simple+--     Csound opcode wrapper around Peter Hanappe's Fluidsynth SoundFont2+--     synthesizer. This implementation accepts any MIDI note on, note+--     off, controller, pitch bend, or program change message at+--     k-rate. Maximum polyphony is 4096 simultaneously sounding+--     voices. Any number of SoundFonts may be loaded and played+--     simultaneously.+--+-- >  fluidControl  ienginenum, kstatus, kchannel, \+-- >         kdata1, kdata2 [,imsgs]+--+-- csound doc: <https://csound.com/docs/manual/fluidControl.html>+fluidControl ::  D -> Sig -> Sig -> Sig -> Sig -> SE ()+fluidControl b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSig) b2 <*> (lift . unSig) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "fluidControl" [(Xr,[Ir,Kr,Kr,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Instantiates a fluidsynth engine.+--+-- Instantiates a fluidsynth engine, and returns ienginenum to identify the+--     engine. ienginenum is passed to other other opcodes for loading +--     and playing SoundFonts and gathering the generated sound.+--+-- > ienginenum  fluidEngine  [iChorusEnabled] [, iRevervEnabled] [, iNumChannels] [, iPolyphony] +--+-- csound doc: <https://csound.com/docs/manual/fluidEngine.html>+fluidEngine ::   D+fluidEngine  =+  D $ return $ f +  where+    f  = opcs "fluidEngine" [(Ir,[Ir,Ir,Ir,Ir])] []++-- | ++--+-- > SPrograms[]  fluidInfo  ienginenum+--+-- csound doc: <https://csound.com/docs/manual/fluidInfo.html>+fluidInfo ::  D -> Str+fluidInfo b1 =+  Str $ f <$> unD b1+  where+    f a1 = opcs "fluidInfo" [(Sr,[Ir])] [a1]++-- | +-- Loads a SoundFont into a fluidEngine, optionally listing SoundFont contents.+--+-- Loads a SoundFont into an instance of a fluidEngine, optionally+--     listing banks and presets for SoundFont.+--+-- > isfnum  fluidLoad  soundfont, ienginenum[, ilistpresets]+--+-- csound doc: <https://csound.com/docs/manual/fluidLoad.html>+fluidLoad ::  D -> D -> Tab+fluidLoad b1 b2 =+  Tab $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "fluidLoad" [(Ir,[Ir,Ir,Ir])] [a1,a2]++-- | +-- Plays a note on a channel in a fluidSynth engine.+--+-- Plays a note at imidikey pitch and imidivel velocity+--     on ichannelnum channel of number ienginenum fluidEngine.+--+-- >  fluidNote  ienginenum, ichannelnum, imidikey, imidivel+--+-- csound doc: <https://csound.com/docs/manual/fluidNote.html>+fluidNote ::  D -> D -> D -> D -> SE ()+fluidNote b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "fluidNote" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Outputs sound from a given fluidEngine+--+-- Outputs the sound from a fluidEngine.+--+-- > aleft, aright  fluidOut  ienginenum+--+-- csound doc: <https://csound.com/docs/manual/fluidOut.html>+fluidOut ::  D -> (Sig,Sig)+fluidOut b1 =+  pureTuple $ f <$> unD b1+  where+    f a1 = mopcs "fluidOut" ([Ar,Ar],[Ir]) [a1]++-- | +-- Assigns a preset from a SoundFont to a channel on a fluidEngine.+--+-- >  fluidProgramSelect  ienginenum, ichannelnum, isfnum, ibanknum, ipresetnum+--+-- csound doc: <https://csound.com/docs/manual/fluidProgramSelect.html>+fluidProgramSelect ::  D -> D -> Tab -> D -> D -> SE ()+fluidProgramSelect b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3 <*> (lift . unD) b4 <*> (lift . unD) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "fluidProgramSelect" [(Xr,[Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Set interpolation method for channel in Fluid Engine+--+-- Set interpolation method for channel in Fluid Engine.  Lower +--     order interpolation methods will render faster at lower fidelity while +--     higher order interpolation methods will render slower at higher fidelity.+--     Default interpolation for a channel is 4th order interpolation.+--+-- >  fluidSetInterpMethod  ienginenum, ichannelnum, iInterpMethod+--+-- csound doc: <https://csound.com/docs/manual/fluidSetInterpMethod.html>+fluidSetInterpMethod ::  D -> D -> D -> SE ()+fluidSetInterpMethod b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3+  where+    f a1 a2 a3 = opcsDep_ "fluidSetInterpMethod" [(Xr,[Ir,Ir,Ir])] [a1,a2,a3]++-- | +-- Read sampled sound from a table.+--+-- Read sampled sound (mono or stereo) from a table, with optional sustain and release looping.+--+-- > ar1 [,ar2]  loscil  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \+-- >         [, imod2] [, ibeg2] [, iend2]+--+-- csound doc: <https://csound.com/docs/manual/loscil.html>+loscil :: forall a . Tuple a => Sig -> Sig -> Tab -> a+loscil b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = mopcs "loscil" ([Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]++-- | ++--+-- > aph, ar1 [,ar2]  loscilphs  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \+-- >           [, imod2] [, ibeg2] [, iend2]+--+-- csound doc: <https://csound.com/docs/manual/loscil.html>+loscilphs :: forall a . Tuple a => Sig -> Sig -> Tab -> a+loscilphs b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = mopcs "loscilphs" ([Ar,Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]++-- | +-- Read sampled sound from a table using cubic interpolation.+--+-- Read sampled sound (mono or stereo) from a table, with optional sustain and release looping, using cubic interpolation.+--+-- > ar1 [,ar2]  loscil3  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \+-- >         [, imod2] [, ibeg2] [, iend2]+--+-- csound doc: <https://csound.com/docs/manual/loscil3.html>+loscil3 :: forall a . Tuple a => Sig -> Sig -> Tab -> a+loscil3 b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = mopcs "loscil3" ([Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]++-- | ++--+-- > aph, ar1 [,ar2]  loscil3phs  xamp, kcps, ifn [, ibas] [, imod1] [, ibeg1] [, iend1] \+-- >           [, imod2] [, ibeg2] [, iend2]+--+-- csound doc: <https://csound.com/docs/manual/loscil3.html>+loscil3phs :: forall a . Tuple a => Sig -> Sig -> Tab -> a+loscil3phs b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = mopcs "loscil3phs" ([Ar,Ar,Ar],[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]++-- | +-- Read multi-channel sampled sound from a table.+--+-- Read sampled sound (up to 16 channels) from a table, with+--       optional sustain and release looping.+--+-- > ar1 [, ar2, ar3, ar4, ar5, ar6, ar7, ar8, ar9, ar10, ar11, ar12, ar13, ar14, \+-- >           ar15, ar16]  loscilx  xamp, kcps, ifn \+-- >         [, iwsize, ibas, istrt, imod, ibeg, iend]+-- > ar[]  loscilx  xamp, kcps, ifn \+-- >         [, iwsize, ibas, istrt, imod, ibeg, iend]+--+-- csound doc: <https://csound.com/docs/manual/loscilx.html>+loscilx :: forall a . Tuple a => Sig -> Sig -> Tab -> a+loscilx b1 b2 b3 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unTab b3+  where+    f a1 a2 a3 = mopcs "loscilx" ([Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar,Ar]+                                 ,[Xr,Kr,Ir,Ir,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3]++-- | +-- Generates a table index for sample playback+--+-- This opcode can be used to generate table index for sample playback (e.g. tablexkt).+--+-- > ares  lphasor  xtrns [, ilps] [, ilpe] [, imode] [, istrt] [, istor]+--+-- csound doc: <https://csound.com/docs/manual/lphasor.html>+lphasor ::  Sig -> Sig+lphasor b1 =+  Sig $ f <$> unSig b1+  where+    f a1 = opcs "lphasor" [(Ar,[Xr,Ir,Ir,Ir,Ir,Ir])] [a1]++-- | +-- Read sampled sound from a table with looping and high precision.+--+-- Read sampled sound (mono or stereo) from a table, with looping, and high precision.+--+-- > ares  lposcil  kamp, kfreqratio, kloop, kend, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/lposcil.html>+lposcil ::  Sig -> Sig -> Sig -> Sig -> Tab -> Sig+lposcil b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5+  where+    f a1 a2 a3 a4 a5 = opcs "lposcil" [(Ar,[Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Read sampled sound from a table with high precision and cubic interpolation.+--+-- Read sampled sound (mono or stereo) from a table, with looping, and high precision. lposcil3 uses cubic interpolation.+--+-- > ares  lposcil3  kamp, kfreqratio, kloop, kend, ifn [, iphs]+--+-- csound doc: <https://csound.com/docs/manual/lposcil3.html>+lposcil3 ::  Sig -> Sig -> Sig -> Sig -> Tab -> Sig+lposcil3 b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unTab b5+  where+    f a1 a2 a3 a4 a5 = opcs "lposcil3" [(Ar,[Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Read sampled sound from a table with looping and high precision.+--+-- lposcila reads sampled sound from a table with looping and high precision.+--+-- > ar  lposcila  aamp, kfreqratio, kloop, kend, ift [,iphs] +--+-- csound doc: <https://csound.com/docs/manual/lposcila.html>+lposcila ::  Sig -> Sig -> Sig -> Sig -> D -> Sig+lposcila b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = opcs "lposcila" [(Ar,[Ar,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Read stereo sampled sound from a table with looping and high precision.+--+-- lposcilsa reads stereo sampled sound from a table with looping and high precision.+--+-- > ar1, ar2  lposcilsa  aamp, kfreqratio, kloop, kend, ift [,iphs] +--+-- csound doc: <https://csound.com/docs/manual/lposcilsa.html>+lposcilsa ::  Sig -> Sig -> Sig -> Sig -> D -> (Sig,Sig)+lposcilsa b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = mopcs "lposcilsa" ([Ar,Ar],[Ar,Kr,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]++-- | +-- Read stereo sampled sound from a table with looping and high precision.+--+-- lposcilsa2 reads stereo sampled sound from a table with looping and high precision.+--+-- > ar1, ar2  lposcilsa2  aamp, kfreqratio, kloop, kend, ift [,iphs] +--+-- csound doc: <https://csound.com/docs/manual/lposcilsa2.html>+lposcilsa2 ::  Sig -> Sig -> Sig -> Sig -> D -> (Sig,Sig)+lposcilsa2 b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = mopcs "lposcilsa2" ([Ar,Ar],[Ar,Kr,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]++-- | +-- Prints a list of all instruments of a previously loaded SoundFont2 (SF2) file.+--+-- Prints a list of all instruments of a previously loaded SoundFont2 (SF2) sample file. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- >  sfilist  ifilhandle [, Sprintprefix] +--+-- csound doc: <https://csound.com/docs/manual/sfilist.html>+sfilist ::  Sf -> SE ()+sfilist b1 =+  SE $ join $ f <$> (lift . unSf) b1+  where+    f a1 = opcsDep_ "sfilist" [(Xr,[Sr,Sr])] [a1]++-- | +-- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound.+--+-- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ar1, ar2  sfinstr  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \+-- >           [, iflag] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/sfinstr.html>+sfinstr ::  D -> D -> Sig -> Sig -> D -> Sf -> (Sig,Sig)+sfinstr b1 b2 b3 b4 b5 b6 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6+  where+    f a1 a2 a3 a4 a5 a6 = mopcs "sfinstr" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir]) [a1,a2,a3,a4,a5,a6]++-- | +-- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound with cubic interpolation.+--+-- Plays a SoundFont2 (SF2) sample instrument, generating a stereo sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ar1, ar2  sfinstr3  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \+-- >           [, iflag] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/sfinstr3.html>+sfinstr3 ::  D -> D -> Sig -> Sig -> D -> Sf -> (Sig,Sig)+sfinstr3 b1 b2 b3 b4 b5 b6 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6+  where+    f a1 a2 a3 a4 a5 a6 = mopcs "sfinstr3" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir]) [a1,a2,a3,a4,a5,a6]++-- | +-- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound with cubic interpolation.+--+-- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ares  sfinstr3m  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \+-- >           [, iflag] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/sfinstr3m.html>+sfinstr3m ::  D -> D -> Sig -> Sig -> D -> Sf -> Sig+sfinstr3m b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "sfinstr3m" [(Ar,[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound.+--+-- Plays a SoundFont2 (SF2) sample instrument, generating a mono sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ares  sfinstrm  ivel, inotenum, xamp, xfreq, instrnum, ifilhandle \+-- >           [, iflag] [, ioffset]+--+-- csound doc: <https://csound.com/docs/manual/sfinstrm.html>+sfinstrm ::  D -> D -> Sig -> Sig -> D -> Sf -> Sig+sfinstrm b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unD b5 <*> unSf b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "sfinstrm" [(Ar,[Ir,Ir,Xr,Xr,Ir,Sr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Loads an entire SoundFont2 (SF2) sample file into memory.+--+-- Loads an entire SoundFont2 (SF2) sample file into memory. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ir  sfload  "filename"+--+-- csound doc: <https://csound.com/docs/manual/sfload.html>+sfload ::  Str -> D+sfload b1 =+  D $ f <$> unStr b1+  where+    f a1 = opcs "sfload" [(Ir,[Sr])] [a1]++-- | +-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound, with user-defined+--       time-varying crossfade looping.+--+-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound, similarly to sfplay. Unlike that opcode, though,+-- 	  it ignores the looping points set in the SF2 file and substitutes them for a user-defined crossfade loop. It is+-- 	  a cross between sfplay and+--       flooper2.+--+-- > ar1, ar2  sflooper  ivel, inotenum, kamp, kpitch, ipreindex, kloopstart, kloopend, kcrossfade \+-- >           [, istart, imode, ifenv, iskip, iflag] +--+-- csound doc: <https://csound.com/docs/manual/sflooper.html>+sflooper ::  D -> D -> Sig -> Sig -> Sf -> Sig -> Sig -> Sig -> (Sig,Sig)+sflooper b1 b2 b3 b4 b5 b6 b7 b8 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5 <*> unSig b6 <*> unSig b7 <*> unSig b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = mopcs "sflooper" ([Ar,Ar]+                                                 ,[Ir,Ir,Kr,Kr,Ir,Kr,Kr,Kr,Ir,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5,a6,a7,a8]++-- | +-- Assigns all presets of a SoundFont2 (SF2) sample file to a sequence of progressive index numbers.+--+-- Assigns all presets of a previously loaded SoundFont2 (SF2)+--       sample file to a sequence of progressive index numbers. These+--       opcodes allow management the sample-structure of SF2 files. In+--       order to understand the usage of these opcodes, the user must+--       have some knowledge of the SF2 format, so a brief description of+--       this format can be found in+--       the SoundFont2 File Format+--       Appendix.+--+-- >  sfpassign  istartindex, ifilhandle[, imsgs]+--+-- csound doc: <https://csound.com/docs/manual/sfpassign.html>+sfpassign ::  D -> Sf -> SE ()+sfpassign b1 b2 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unSf) b2+  where+    f a1 a2 = opcsDep_ "sfpassign" [(Xr,[Ir,Sr,Ir])] [a1,a2]++-- | +-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound.+--+-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ar1, ar2  sfplay  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]+--+-- csound doc: <https://csound.com/docs/manual/sfplay.html>+sfplay ::  D -> D -> Sig -> Sig -> Sf -> (Sig,Sig)+sfplay b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5+  where+    f a1 a2 a3 a4 a5 = mopcs "sfplay" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]++-- | +-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound with cubic interpolation.+--+-- Plays a SoundFont2 (SF2) sample preset, generating a stereo sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ar1, ar2  sfplay3  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]+--+-- csound doc: <https://csound.com/docs/manual/sfplay3.html>+sfplay3 ::  D -> D -> Sig -> Sig -> Sf -> (Sig,Sig)+sfplay3 b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5+  where+    f a1 a2 a3 a4 a5 = mopcs "sfplay3" ([Ar,Ar],[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir]) [a1,a2,a3,a4,a5]++-- | +-- Plays a SoundFont2 (SF2) sample preset, generating a mono sound with cubic interpolation.+--+-- Plays a SoundFont2 (SF2) sample preset, generating a mono sound with cubic interpolation. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ares  sfplay3m  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]+--+-- csound doc: <https://csound.com/docs/manual/sfplay3m.html>+sfplay3m ::  D -> D -> Sig -> Sig -> Sf -> Sig+sfplay3m b1 b2 b3 b4 b5 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5+  where+    f a1 a2 a3 a4 a5 = opcs "sfplay3m" [(Ar,[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Plays a SoundFont2 (SF2) sample preset, generating a mono sound.+--+-- Plays a SoundFont2 (SF2) sample preset, generating a mono sound. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ares  sfplaym  ivel, inotenum, xamp, xfreq, ipreindex [, iflag] [, ioffset] [, ienv]+--+-- csound doc: <https://csound.com/docs/manual/sfplaym.html>+sfplaym ::  D -> D -> Sig -> Sig -> Sf -> Sig+sfplaym b1 b2 b3 b4 b5 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unSig b4 <*> unSf b5+  where+    f a1 a2 a3 a4 a5 = opcs "sfplaym" [(Ar,[Ir,Ir,Xr,Xr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Prints a list of all presets of a SoundFont2 (SF2) sample file.+--+-- Prints a list of all presets of a previously loaded SoundFont2 (SF2) sample file. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- >  sfplist  ifilhandle+--+-- csound doc: <https://csound.com/docs/manual/sfplist.html>+sfplist ::  Sf -> SE ()+sfplist b1 =+  SE $ join $ f <$> (lift . unSf) b1+  where+    f a1 = opcsDep_ "sfplist" [(Xr,[Sr])] [a1]++-- | +-- Assigns an existing preset of a SoundFont2 (SF2) sample file to an index number.+--+-- Assigns an existing preset of a previously loaded SoundFont2 (SF2) sample file to an index number. These opcodes allow management the sample-structure of SF2 files. In order to understand the usage of these opcodes, the user must have some knowledge of the SF2 format, so a brief description of this format can be found in the SoundFont2 File Format Appendix.+--+-- > ir  sfpreset  iprog, ibank, ifilhandle, ipreindex+--+-- csound doc: <https://csound.com/docs/manual/sfpreset.html>+sfpreset ::  D -> D -> Sf -> Sf -> D+sfpreset b1 b2 b3 b4 =+  D $ f <$> unD b1 <*> unD b2 <*> unSf b3 <*> unSf b4+  where+    f a1 a2 a3 a4 = opcs "sfpreset" [(Ir,[Ir,Ir,Sr,Ir])] [a1,a2,a3,a4]++-- | +-- A sound looper with pitch control.+--+-- This opcode records input audio and plays it back in a loop with user-defined+--    duration and crossfade time. It also allows the pitch of the loop to be controlled,+--    including reversed playback.+--+-- > asig, krec  sndloop  ain, kpitch, ktrig, idur, ifad+--+-- csound doc: <https://csound.com/docs/manual/sndloop.html>+sndloop ::  Sig -> Sig -> Sig -> D -> D -> (Sig,Sig)+sndloop b1 b2 b3 b4 b5 =+  pureTuple $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = mopcs "sndloop" ([Ar,Kr],[Ar,Kr,Kr,Ir,Ir]) [a1,a2,a3,a4,a5]++-- | +-- A simple time stretch by repeating cycles.+--+-- > ares  waveset  ain, krep [, ilen]+--+-- csound doc: <https://csound.com/docs/manual/waveset.html>+waveset ::  Sig -> Sig -> Sig+waveset b1 b2 =+  Sig $ f <$> unSig b1 <*> unSig b2+  where+    f a1 a2 = opcs "waveset" [(Ar,[Ar,Kr,Ir])] [a1,a2]++-- Scanned Synthesis.++-- | +-- Copies from one table to another with a gain control.+--+-- This is is a variant of tablecopy, copying from one table to another, starting at ipos, and with a gain control. The number of points copied is determined by the length of the source. Other points are not changed. This opcode can be used to “hit” a string in the scanned synthesis code.+--+-- >  scanhammer  isrc, idst, ipos, imult+--+-- csound doc: <https://csound.com/docs/manual/scanhammer.html>+scanhammer ::  D -> D -> D -> D -> SE ()+scanhammer b1 b2 b3 b4 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unD) b3 <*> (lift . unD) b4+  where+    f a1 a2 a3 a4 = opcsDep_ "scanhammer" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | ++--+-- > kpos, kvel  scanmap  iscan, kamp, kvamp [, iwhich]+--+-- csound doc: <https://csound.com/docs/manual/scanmap.html>+scanmap ::  D -> Sig -> Sig -> (Sig,Sig)+scanmap b1 b2 b3 =+  pureTuple $ f <$> unD b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = mopcs "scanmap" ([Kr,Kr],[Ir,Kr,Kr,Ir]) [a1,a2,a3]++-- | +-- Generate audio output using scanned synthesis.+--+-- > ares  scans  kamp, kfreq, ifn, id [, iorder]+--+-- csound doc: <https://csound.com/docs/manual/scans.html>+scans ::  Sig -> Sig -> Tab -> D -> Sig+scans b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "scans" [(Ar,[Kr,Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | ++--+-- >  scansmap  kpos, kvel, iscan, kamp, kvamp [, iwhich]+--+-- csound doc: <https://csound.com/docs/manual/scansmap.html>+scansmap ::  Sig -> Sig -> D -> Sig -> Sig -> SE ()+scansmap b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "scansmap" [(Xr,[Kr,Kr,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]++-- | +-- A simpler scanned synthesis implementation.+--+-- A simpler scanned synthesis implementation. This is an implementation of a circular string scanned using external tables. This opcode will allow direct modification and reading of values with the table opcodes.+--+-- > aout  scantable  kamp, kpch, ipos, imass, istiff, idamp, ivel+--+-- csound doc: <https://csound.com/docs/manual/scantable.html>+scantable ::  Sig -> Sig -> D -> D -> D -> D -> D -> Sig+scantable b1 b2 b3 b4 b5 b6 b7 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unD b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcs "scantable" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5,a6,a7]++-- | +-- Compute the waveform and the wavetable for use in scanned synthesis.+--+-- >  scanu  init, irate, ifndisplace,+-- >         ifnmass, ifnmatrix, ifncentr, ifndamp, kmass, kmtrxstiff, kcentr,+-- >         kdamp, ileft, iright, kpos, kdisplace, ain, idisp, id+--+-- csound doc: <https://csound.com/docs/manual/scanu.html>+scanu ::  D -> D -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> D -> D -> SE ()+scanu b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3 <*> (lift . unTab) b4 <*> (lift . unTab) b5 <*> (lift . unTab) b6 <*> (lift . unTab) b7 <*> (lift . unSig) b8 <*> (lift . unSig) b9 <*> (lift . unSig) b10 <*> (lift . unSig) b11 <*> (lift . unD) b12 <*> (lift . unD) b13 <*> (lift . unSig) b14 <*> (lift . unSig) b15 <*> (lift . unSig) b16 <*> (lift . unD) b17 <*> (lift . unD) b18+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = opcsDep_ "scanu" [(Xr+                                                                                         ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Ar,Ir,Ir])] [a1+                                                                                                                                                    ,a2+                                                                                                                                                    ,a3+                                                                                                                                                    ,a4+                                                                                                                                                    ,a5+                                                                                                                                                    ,a6+                                                                                                                                                    ,a7+                                                                                                                                                    ,a8+                                                                                                                                                    ,a9+                                                                                                                                                    ,a10+                                                                                                                                                    ,a11+                                                                                                                                                    ,a12+                                                                                                                                                    ,a13+                                                                                                                                                    ,a14+                                                                                                                                                    ,a15+                                                                                                                                                    ,a16+                                                                                                                                                    ,a17+                                                                                                                                                    ,a18]++-- | ++--+-- >  scanu2  init, irate, ifndisplace,+-- >         ifnmass, ifnmatrix, ifncentr, ifndamp, kmass, kmtrxstiff, kcentr,+-- >         kdamp, ileft, iright, kpos, kdisplace, ain, idisp, id+--+-- csound doc: <https://csound.com/docs/manual/scanu2.html>+scanu2 ::  D -> D -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> D -> D -> SE ()+scanu2 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3 <*> (lift . unTab) b4 <*> (lift . unTab) b5 <*> (lift . unTab) b6 <*> (lift . unTab) b7 <*> (lift . unSig) b8 <*> (lift . unSig) b9 <*> (lift . unSig) b10 <*> (lift . unSig) b11 <*> (lift . unD) b12 <*> (lift . unD) b13 <*> (lift . unSig) b14 <*> (lift . unSig) b15 <*> (lift . unSig) b16 <*> (lift . unD) b17 <*> (lift . unD) b18+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = opcsDep_ "scanu2" [(Xr+                                                                                          ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Ar,Ir,Ir])] [a1+                                                                                                                                                     ,a2+                                                                                                                                                     ,a3+                                                                                                                                                     ,a4+                                                                                                                                                     ,a5+                                                                                                                                                     ,a6+                                                                                                                                                     ,a7+                                                                                                                                                     ,a8+                                                                                                                                                     ,a9+                                                                                                                                                     ,a10+                                                                                                                                                     ,a11+                                                                                                                                                     ,a12+                                                                                                                                                     ,a13+                                                                                                                                                     ,a14+                                                                                                                                                     ,a15+                                                                                                                                                     ,a16+                                                                                                                                                     ,a17+                                                                                                                                                     ,a18]++-- | +-- Allows the position and velocity of a node in a scanned process to be read.+--+-- > kpos, kvel  xscanmap  iscan, kamp, kvamp [, iwhich]+--+-- csound doc: <https://csound.com/docs/manual/xscanmap.html>+xscanmap ::  D -> Sig -> Sig -> (Sig,Sig)+xscanmap b1 b2 b3 =+  pureTuple $ f <$> unD b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = mopcs "xscanmap" ([Kr,Kr],[Ir,Kr,Kr,Ir]) [a1,a2,a3]++-- | +-- Fast scanned synthesis waveform and the wavetable generator.+--+-- Experimental version of scans.  Allows much larger matrices and is faster and smaller but removes some (unused?) flexibility.  If liked, it will replace the older opcode as it is syntax compatible but extended.+--+-- > ares  xscans  kamp, kfreq, ifntraj, id [, iorder]+--+-- csound doc: <https://csound.com/docs/manual/xscans.html>+xscans ::  Sig -> Sig -> Tab -> D -> Sig+xscans b1 b2 b3 b4 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unTab b3 <*> unD b4+  where+    f a1 a2 a3 a4 = opcs "xscans" [(Ar,[Kr,Kr,Ir,Ir,Ir])] [a1,a2,a3,a4]++-- | +-- Allows the position and velocity of a node in a scanned process to be read.+--+-- >  xscansmap  kpos, kvel, iscan, kamp, kvamp [, iwhich]+--+-- csound doc: <https://csound.com/docs/manual/xscansmap.html>+xscansmap ::  Sig -> Sig -> D -> Sig -> Sig -> SE ()+xscansmap b1 b2 b3 b4 b5 =+  SE $ join $ f <$> (lift . unSig) b1 <*> (lift . unSig) b2 <*> (lift . unD) b3 <*> (lift . unSig) b4 <*> (lift . unSig) b5+  where+    f a1 a2 a3 a4 a5 = opcsDep_ "xscansmap" [(Xr,[Kr,Kr,Ir,Kr,Kr,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Compute the waveform and the wavetable for use in scanned synthesis.+--+-- Experimental version of scanu. Allows much larger matrices and is faster and smaller but removes some (unused?) flexibility.  If liked, it will replace the older opcode as it is syntax compatible but extended.+--+-- >  xscanu  init, irate, ifndisplace, ifnmass, ifnmatrix, ifncentr, ifndamp, kmass, \+-- >           kmtrxstiff, kcentr, kdamp, ileft, iright, kpos, kdisplace, ain, idisp, id+--+-- csound doc: <https://csound.com/docs/manual/xscanu.html>+xscanu ::  D -> D -> Tab -> Tab -> Tab -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> D -> D -> SE ()+xscanu b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 b18 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3 <*> (lift . unTab) b4 <*> (lift . unTab) b5 <*> (lift . unTab) b6 <*> (lift . unTab) b7 <*> (lift . unSig) b8 <*> (lift . unSig) b9 <*> (lift . unSig) b10 <*> (lift . unSig) b11 <*> (lift . unD) b12 <*> (lift . unD) b13 <*> (lift . unSig) b14 <*> (lift . unSig) b15 <*> (lift . unSig) b16 <*> (lift . unD) b17 <*> (lift . unD) b18+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 a18 = opcsDep_ "xscanu" [(Xr+                                                                                          ,[Ir,Ir,Ir,Ir,Ir,Ir,Ir,Kr,Kr,Kr,Kr,Ir,Ir,Kr,Kr,Ar,Ir,Ir])] [a1+                                                                                                                                                     ,a2+                                                                                                                                                     ,a3+                                                                                                                                                     ,a4+                                                                                                                                                     ,a5+                                                                                                                                                     ,a6+                                                                                                                                                     ,a7+                                                                                                                                                     ,a8+                                                                                                                                                     ,a9+                                                                                                                                                     ,a10+                                                                                                                                                     ,a11+                                                                                                                                                     ,a12+                                                                                                                                                     ,a13+                                                                                                                                                     ,a14+                                                                                                                                                     ,a15+                                                                                                                                                     ,a16+                                                                                                                                                     ,a17+                                                                                                                                                     ,a18]++-- STK Opcodes.++-- | +-- STKBandedWG uses banded waveguide techniques to model a variety of sounds.+--+-- This opcode uses banded waveguide techniques to model a variety of sounds, including bowed bars, glasses, and bowls.+--+-- > asignal  STKBandedWG  ifrequency, iamplitude, [kpress, kv1[, kmot, kv2[, klfo, kv3[, klfodepth, kv4[, kvel, kv5[, kstrk, kv6[, kinstr, kv7]]]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBandedWG.html>+stkBandedWG ::  D -> D -> Sig+stkBandedWG b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBandedWG" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STK Hammond-oid organ-like FM synthesis instrument.+--+-- > asignal  STKBeeThree  ifrequency, iamplitude, [kop4, kv1[, kop3, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBeeThree.html>+stkBeeThree ::  D -> D -> Sig+stkBeeThree b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBeeThree" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKBlowBotl uses a helmholtz resonator (biquad filter) with a polynomial jet excitation.+--+-- This opcode implements a helmholtz resonator (biquad filter) with a polynomial jet excitation (a la Cook).+--+-- > asignal  STKBlowBotl  ifrequency, iamplitude, [knoise, kv1[, klfo, kv2[, klfodepth, kv3[, kvol, kv4]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBlowBotl.html>+stkBlowBotl ::  D -> D -> Sig+stkBlowBotl b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBlowBotl" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STK clarinet physical model with one register hole and one tonehole.+--+-- This opcode is based on the clarinet model, with the addition of a two-port register hole and a three-port dynamic tonehole implementation.+--+-- > asignal  STKBlowHole  ifrequency, iamplitude, [kreed, kv1[, knoise, kv2[, khole, kv3[, kreg, kv4[, kbreath, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBlowHole.html>+stkBlowHole ::  D -> D -> Sig+stkBlowHole b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBlowHole" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKBowed is a bowed string instrument.+--+-- STKBowed is a bowed string instrument, using a waveguide model.+--+-- > asignal  STKBowed  ifrequency, iamplitude, [kpress, kv1[, kpos, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBowed.html>+stkBowed ::  D -> D -> Sig+stkBowed b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBowed" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKBrass is a simple brass instrument.+--+-- STKBrass uses a simple brass instrument waveguide model, a la Cook.+--+-- > asignal  STKBrass  ifrequency, iamplitude, [klip, kv1[, kslide, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKBrass.html>+stkBrass ::  D -> D -> Sig+stkBrass b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKBrass" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKClarinet uses a simple clarinet physical model.+--+-- > asignal  STKClarinet  ifrequency, iamplitude, [kstiff, kv1[, knoise, kv2[, klfo, kv3[, klfodepth, kv4[, kbreath, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKClarinet.html>+stkClarinet ::  D -> D -> Sig+stkClarinet b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKClarinet" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKDrummer is a drum sampling synthesizer.+--+-- STKDrummer is a drum sampling synthesizer using raw waves and one-pole filters,+--       The drum rawwave files are sampled at 22050 Hz, but will be appropriately interpolated for other sample rates.+--+-- > asignal  STKDrummer  ifrequency, iamplitude+--+-- csound doc: <https://csound.com/docs/manual/STKDrummer.html>+stkDrummer ::  D -> D -> Sig+stkDrummer b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKDrummer" [(Ar,[Ir,Ir])] [a1,a2]++-- | +-- STKFMVoices is a singing FM synthesis instrument.+--+-- STKFMVoices is a singing FM synthesis instrument. It has 3 carriers and a common modulator, also referred to as algorithm 6 of the TX81Z.+--+-- > asignal  STKFMVoices  ifrequency, iamplitude, [kvowel, kv1[, kspec, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKFMVoices.html>+stkFMVoices ::  D -> D -> Sig+stkFMVoices b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKFMVoices" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKFlute uses a simple flute physical model.+--+-- STKFlute uses a simple flute physical model. The jet model uses a polynomial, a la Cook.+--+-- > asignal  STKFlute  ifrequency, iamplitude, [kjet, kv1[, knoise, kv2[, klfo, kv3[, klfodepth, kv4[, kbreath, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKFlute.html>+stkFlute ::  D -> D -> Sig+stkFlute b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKFlute" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKHevyMetl produces metal sounds.+--+-- STKHevyMetl produces metal sounds, using FM synthesis.+--       It uses 3 cascade operators with feedback modulation, also referred to as algorithm 3 of the TX81Z.+--+-- > asignal  STKHevyMetl  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKHevyMetl.html>+stkHevyMetl ::  D -> D -> Sig+stkHevyMetl b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKHevyMetl" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKMandolin produces mamdolin-like sounds.+--+-- STKMandolin produces mamdolin-like sounds, using "commuted synthesis" techniques to model a mandolin instrument.+--+-- > asignal  STKMandolin  ifrequency, iamplitude, [kbody, kv1[, kpos, kv2[, ksus, kv3[, kdetune, kv4[, kmic, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKMandolin.html>+stkMandolin ::  D -> D -> Sig+stkMandolin b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKMandolin" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKModalBar is a resonant bar instrument.+--+-- This opcode is a resonant bar instrument.It has a number of different struck bar instruments.+--+-- > asignal  STKModalBar  ifrequency, iamplitude, [khard, kv1[, kpos, kv2[, klfo, kv3[, klfodepth, kv4[, kmix, kv5[, kvol, kv6[, kinstr, kv7]]]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKModalBar.html>+stkModalBar ::  D -> D -> Sig+stkModalBar b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKModalBar" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKMoog produces moog-like swept filter sounds.+--+-- STKMoog produces moog-like swept filter sounds, using one attack wave, one looped wave, and an ADSR envelope and adds two sweepable formant filters.+--+-- > asignal  STKMoog  ifrequency, iamplitude, [kq, kv1[, krate, kv2[, klfo, kv3[, klfodepth, kv4[, kvol, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKMoog.html>+stkMoog ::  D -> D -> Sig+stkMoog b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKMoog" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKPercFlut is a percussive flute FM synthesis instrument.+--+-- STKPercFlut is a percussive flute FM synthesis instrument. The instrument uses an algorithm like the algorithm 4 of the TX81Z.+--+-- > asignal  STKPercFlut  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKPercFlut.html>+stkPercFlut ::  D -> D -> Sig+stkPercFlut b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKPercFlut" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKPlucked uses a plucked string physical model.+--+-- STKPlucked uses a plucked string physical model based on the Karplus-Strong algorithm.+--+-- > asignal  STKPlucked  ifrequency, iamplitude+--+-- csound doc: <https://csound.com/docs/manual/STKPlucked.html>+stkPlucked ::  D -> D -> Sig+stkPlucked b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKPlucked" [(Ar,[Ir,Ir])] [a1,a2]++-- | +-- STKResonate is a noise driven formant filter.+--+-- STKResonate is a noise driven formant filter. This instrument contains a noise source, which excites a biquad resonance filter, with volume controlled by an ADSR.+--+-- > asignal  STKResonate  ifrequency, iamplitude, [kfreq, kv1[, kpole, kv2[, knotch, kv3[, kzero, kv4[, kenv, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKResonate.html>+stkResonate ::  D -> D -> Sig+stkResonate b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKResonate" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STK Fender Rhodes-like electric piano FM synthesis instrument.+--+-- > asignal  STKRhodey  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKRhodey.html>+stkRhodey ::  D -> D -> Sig+stkRhodey b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKRhodey" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKSaxofony is a faux conical bore reed instrument.+--+-- STKSaxofony is a faux conical bore reed instrument.+--       This opcode uses a "hybrid" digital waveguide instrument that can generate a variety of wind-like sounds. It has also been referred to as the "blowed string" model. +--       The waveguide section is essentially that of a string, with one rigid and one lossy termination. The non-linear function is a reed table. +--       The string can be "blown" at any point between the terminations, though just as with strings, it is impossible to excite the system at either end. +--       If the excitation is placed at the string mid-point, the sound is that of a clarinet. At points closer to the "bridge", the sound is closer to that of a saxophone.+--+-- > asignal  STKSaxofony  ifrequency, iamplitude, [kstiff, kv1[, kapert, kv2[, kblow, kv3[, knoise, kv4[, klfo, kv5[, klfodepth, kv6[, kbreath, kv7]]]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKSaxofony.html>+stkSaxofony ::  D -> D -> Sig+stkSaxofony b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKSaxofony" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKShakers is an instrument that simulates environmental sounds or collisions of multiple independent sound producing objects.+--+-- STKShakers are a set of PhISEM and PhOLIES instruments: +--       PhISEM (Physically Informed Stochastic Event Modeling) is an algorithmic approach for simulating collisions of multiple independent sound producing objects. +--       It can simulate a Maraca, Sekere, Cabasa, Bamboo Wind Chimes, Water Drops, Tambourine, Sleighbells, and a Guiro. On http://soundlab.cs.princeton.edu/research/controllers/shakers/+-- PhOLIES (Physically-Oriented Library of Imitated Environmental Sounds) there is a similar approach for the synthesis of environmental sounds. +-- It simulates of breaking sticks, crunchy snow (or not), a wrench, sandpaper, and more..+--+-- > asignal  STKShakers  ifrequency, iamplitude, [kenerg, kv1[, kdecay, kv2[, kshake, kv3[, knum, kv4[, kres, kv5[, kinstr, kv6]]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKShakers.html>+stkShakers ::  D -> D -> Sig+stkShakers b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKShakers" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKSimple is a wavetable/noise instrument.+--+-- STKSimple is a wavetable/noise instrument.+--       It combines a looped wave, a noise source, a biquad resonance filter, a one-pole filter, and an ADSR envelope to create some interesting sounds.+--+-- > asignal  STKSimple  ifrequency, iamplitude, [kpos, kv1[, kcross, kv2[, kenv, kv3[, kgain, kv4]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKSimple.html>+stkSimple ::  D -> D -> Sig+stkSimple b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKSimple" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKSitar uses a plucked string physical model.+--+-- STKSitar uses a plucked string physical model based on the Karplus-Strong algorithm.+--+-- > asignal  STKSitar  ifrequency, iamplitude+--+-- csound doc: <https://csound.com/docs/manual/STKSitar.html>+stkSitar ::  D -> D -> Sig+stkSitar b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKSitar" [(Ar,[Ir,Ir])] [a1,a2]++-- | +-- STKStifKarp is a plucked stiff string instrument.+--+-- STKStifKarp is a plucked stiff string instrument. +--       It a simple plucked string algorithm (Karplus Strong) with enhancements, including string stiffness and pluck position controls. The stiffness is modeled with allpass filters.+--+-- > asignal  STKStifKarp  ifrequency, iamplitude, [kpos, kv1[, ksus, kv2[, kstretch, kv3]]]+--+-- csound doc: <https://csound.com/docs/manual/STKStifKarp.html>+stkStifKarp ::  D -> D -> Sig+stkStifKarp b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKStifKarp" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKTubeBell is a  tubular bell (orchestral chime) FM synthesis instrument.+--+-- STKTubeBell is a tubular bell (orchestral chime) FM synthesis instrument. +--       It uses two simple FM Pairs summed together, also referred to as algorithm 5 of the TX81Z.+--+-- > asignal  STKTubeBell  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKTubeBell.html>+stkTubeBell ::  D -> D -> Sig+stkTubeBell b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKTubeBell" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKVoicForm is a  four formant synthesis instrument.+--+-- STKVoicForm is a four formant synthesis instrument. +-- This instrument contains an excitation singing wavetable (looping wave with random and periodic vibrato, smoothing on frequency, etc.), excitation noise, and four sweepable complex resonances. +-- Measured formant data is included, and enough data is there to support either parallel or cascade synthesis. In the floating point case cascade synthesis is the most natural so that's what you'll find here.+--+-- > asignal  STKVoicForm  ifrequency, iamplitude, [kmix, kv1[, ksel, kv2[, klfo, kv3[, klfodepth, kv4[, kloud, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKVoicForm.html>+stkVoicForm ::  D -> D -> Sig+stkVoicForm b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKVoicForm" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKWhistle produces whistle sounds.+--+-- STKWhistle produces (police) whistle sounds. It uses a hybrid physical/spectral model of a police whistle (a la Cook).+--+-- > asignal  STKWhistle  ifrequency, iamplitude, [kmod, kv1[, knoise, kv2[, kfipfreq, kv3[, kfipgain, kv4[, kvol, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKWhistle.html>+stkWhistle ::  D -> D -> Sig+stkWhistle b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKWhistle" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- | +-- STKWurley simulates a Wurlitzer electric piano FM synthesis instrument.+--+-- STKWurley simulates a Wurlitzer electric piano FM synthesis instrument. +--       It uses two simple FM Pairs summed together, also referred to as algorithm 5 of the TX81Z.+--+-- > asignal  STKWurley  ifrequency, iamplitude, [kmod, kv1[, kcross, kv2[, klfo, kv3[, klfodepth, kv4[, kadsr, kv5]]]]]+--+-- csound doc: <https://csound.com/docs/manual/STKWurley.html>+stkWurley ::  D -> D -> Sig+stkWurley b1 b2 =+  Sig $ f <$> unD b1 <*> unD b2+  where+    f a1 a2 = opcs "STKWurley" [(Ar,[Ir,Ir,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2]++-- Table Access.++-- | +-- Accesses table values by incremental sampling.+--+-- > kres  oscil1  idel, kamp, idur [, ifn]+--+-- csound doc: <https://csound.com/docs/manual/oscil1.html>+oscil1 ::  D -> Sig -> D -> Sig+oscil1 b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "oscil1" [(Kr,[Ir,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- Accesses table values by incremental sampling with linear interpolation.+--+-- > kres  oscil1i  idel, kamp, idur [, ifn]+--+-- csound doc: <https://csound.com/docs/manual/oscil1i.html>+oscil1i ::  D -> Sig -> D -> Sig+oscil1i b1 b2 b3 =+  Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3+  where+    f a1 a2 a3 = opcs "oscil1i" [(Kr,[Ir,Kr,Ir,Ir])] [a1,a2,a3]++-- | +-- Accesses table values by direct indexing.+--+-- > ares  ptable  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  ptable  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  ptable  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/ptable.html>+ptable ::  Sig -> Tab -> Sig+ptable b1 b2 =+  Sig $ f <$> unSig b1 <*> unTab b2+  where+    f a1 a2 = opcs "ptable" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                                ,a2]++-- | +-- Accesses table values by direct indexing with cubic interpolation.+--+-- > ares  ptable3  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  ptable3  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  ptable3  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/ptable3.html>+ptable3 ::  Sig -> Tab -> Sig+ptable3 b1 b2 =+  Sig $ f <$> unSig b1 <*> unTab b2+  where+    f a1 a2 = opcs "ptable3" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                                 ,a2]++-- | +-- Accesses table values by direct indexing with linear interpolation.+--+-- > ares  ptablei  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  ptablei  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  ptablei  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/ptablei.html>+ptablei ::  Sig -> Tab -> Sig+ptablei b1 b2 =+  Sig $ f <$> unSig b1 <*> unTab b2+  where+    f a1 a2 = opcs "ptablei" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                                 ,a2]++-- | +-- Fast table opcodes.+--+-- Fast table opcodes. Faster than+--     table and+--     tablew because don't+--     allow wrap-around and limit and don't check index validity. Have+--     been implemented in order to provide fast access to+--     arrays. Support non-power of two tables (can be generated by any+--     GEN function by giving a negative length value).+--+-- > kr  tab  kndx, ifn[, ixmode]+-- > ar  tab  xndx, ifn[, ixmode]+--+-- csound doc: <https://csound.com/docs/manual/tab.html>+tab ::  Sig -> Tab -> Sig+tab b1 b2 =+  Sig $ f <$> unSig b1 <*> unTab b2+  where+    f a1 a2 = opcs "tab" [(Kr,[Kr,Ir,Ir]),(Ar,[Xr,Ir,Ir])] [a1,a2]++-- | +-- Fast table opcodes.+--+-- Fast table opcodes. Faster than+--     table and+--     tablew because don't+--     allow wrap-around and limit and don't check index validity. Have+--     been implemented in order to provide fast access to+--     arrays. Support non-power of two tables (can be generated by any+--     GEN function by giving a negative length value).+--+-- > ir  tab_i  indx, ifn[, ixmode]+--+-- csound doc: <https://csound.com/docs/manual/tab_i.html>+tab_i ::  D -> Tab -> D+tab_i b1 b2 =+  D $ f <$> unD b1 <*> unTab b2+  where+    f a1 a2 = opcs "tab_i" [(Ir,[Ir,Ir,Ir])] [a1,a2]++-- | +-- Accesses table values by direct indexing.+--+-- > ares  table  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  table  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  table  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/table.html>+table :: SigOrD a => a -> Tab -> a+table b1 b2 =+  fromGE $ f <$> toGE b1 <*> unTab b2+  where+    f a1 a2 = opcs "table" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                               ,a2]++-- | +-- Accesses table values by direct indexing with cubic interpolation.+--+-- > ares  table3  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  table3  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  table3  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/table3.html>+table3 :: SigOrD a => a -> Tab -> a+table3 b1 b2 =+  fromGE $ f <$> toGE b1 <*> unTab b2+  where+    f a1 a2 = opcs "table3" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                                ,a2]++-- | +-- Accesses table values by direct indexing with linear interpolation.+--+-- > ares  tablei  andx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > ires  tablei  indx, ifn [, ixmode] [, ixoff] [, iwrap]+-- > kres  tablei  kndx, ifn [, ixmode] [, ixoff] [, iwrap]+--+-- csound doc: <https://csound.com/docs/manual/tablei.html>+tablei :: SigOrD a => a -> Tab -> a+tablei b1 b2 =+  fromGE $ f <$> toGE b1 <*> unTab b2+  where+    f a1 a2 = opcs "tablei" [(Ar,[Ar,Ir,Ir,Ir,Ir]),(Ir,[Ir,Ir,Ir,Ir,Ir]),(Kr,[Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                                ,a2]++-- | +-- Fast table opcodes.+--+-- Fast table opcodes. Faster than+--     table and+--     tablew because don't+--     allow wrap-around and limit and don't check index validity. Have+--     been implemented in order to provide fast access to+--     arrays. Support non-power of two tables (can be generated by any+--     GEN function by giving a negative length value).+--+-- >  tabw_i  isig, indx, ifn [,ixmode]+--+-- csound doc: <https://csound.com/docs/manual/tabw_i.html>+tabw_i ::  D -> D -> Tab -> SE ()+tabw_i b1 b2 b3 =+  SE $ join $ f <$> (lift . unD) b1 <*> (lift . unD) b2 <*> (lift . unTab) b3+  where+    f a1 a2 a3 = opcsDep_ "tabw_i" [(Xr,[Ir,Ir,Ir,Ir])] [a1,a2,a3]++-- Wave Terrain Synthesis.++-- | ++--+-- > aout  sterrain  kamp, kcps, kx, ky, krx, kry, krot, ktab0, ktab1, km1, km2, kn1, kn2, kn3, ka, kb, kperiod+-- >         +--+-- csound doc: <https://csound.com/docs/manual/sterrain.html>+sterrain ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+sterrain b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 b12 b13 b14 b15 b16 b17 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unTab b9 <*> unSig b10 <*> unSig b11 <*> unSig b12 <*> unSig b13 <*> unSig b14 <*> unSig b15 <*> unSig b16 <*> unSig b17+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 a17 = opcs "sterrain" [(Ar+                                                                                    ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1+                                                                                                                                            ,a2+                                                                                                                                            ,a3+                                                                                                                                            ,a4+                                                                                                                                            ,a5+                                                                                                                                            ,a6+                                                                                                                                            ,a7+                                                                                                                                            ,a8+                                                                                                                                            ,a9+                                                                                                                                            ,a10+                                                                                                                                            ,a11+                                                                                                                                            ,a12+                                                                                                                                            ,a13+                                                                                                                                            ,a14+                                                                                                                                            ,a15+                                                                                                                                            ,a16+                                                                                                                                            ,a17]++-- | +-- A simple wave-terrain synthesis opcode.+--+-- > aout  wterrain  kamp, kpch, k_xcenter, k_ycenter, k_xradius, k_yradius, \+-- >           itabx, itaby+--+-- csound doc: <https://csound.com/docs/manual/wterrain.html>+wterrain ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> D -> D -> Sig+wterrain b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unD b7 <*> unD b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wterrain" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1+                                                                                 ,a2+                                                                                 ,a3+                                                                                 ,a4+                                                                                 ,a5+                                                                                 ,a6+                                                                                 ,a7+                                                                                 ,a8]++-- | ++--+-- > aout  wterrain2  kamp, kcps, kx, ky, krx, kry, krot, \+-- >           ktab0, ktab1, kcurve, kcurveparam+-- >         +--+-- csound doc: <https://csound.com/docs/manual/wterrain2.html>+wterrain2 ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Tab -> Tab -> Sig -> Sig -> Sig+wterrain2 b1 b2 b3 b4 b5 b6 b7 b8 b9 b10 b11 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6 <*> unSig b7 <*> unTab b8 <*> unTab b9 <*> unSig b10 <*> unSig b11+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 = opcs "wterrain2" [(Ar+                                                             ,[Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr,Kr])] [a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11]++-- Waveguide Physical Modeling.++-- | +-- Produces a naturally decaying plucked string or drum sound.+--+-- Audio output is a naturally decaying plucked string or drum sound based on the Karplus-Strong algorithms.+--+-- > ares  pluck  kamp, kcps, icps, ifn, imeth [, iparm1] [, iparm2]+--+-- csound doc: <https://csound.com/docs/manual/pluck.html>+pluck ::  Sig -> Sig -> D -> Tab -> D -> Sig+pluck b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unD b3 <*> unTab b4 <*> unD b5+  where+    f a1 a2 a3 a4 a5 = opcs "pluck" [(Ar,[Kr,Kr,Ir,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Physical model of the plucked string.+--+-- repluck is an implementation of the physical model of the plucked string. A user can control the pluck point, the pickup point, the filter, and an additional audio signal, axcite. axcite is used to excite the 'string'. Based on the Karplus-Strong algorithm.+--+-- > ares  repluck  iplk, kamp, icps, kpick, krefl, axcite+--+-- csound doc: <https://csound.com/docs/manual/repluck.html>+repluck ::  D -> Sig -> D -> Sig -> Sig -> Sig -> Sig+repluck b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "repluck" [(Ar,[Ir,Kr,Ir,Kr,Kr,Ar])] [a1,a2,a3,a4,a5,a6]++-- | +-- A string resonator with variable fundamental frequency.+--+-- An audio signal is modified by a string resonator with variable fundamental frequency.+--+-- > ares  streson  asig, kfr, kfdbgain+--+-- csound doc: <https://csound.com/docs/manual/streson.html>+streson ::  Sig -> Sig -> Sig -> Sig+streson b1 b2 b3 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3+  where+    f a1 a2 a3 = opcs "streson" [(Ar,[Ar,Kr,Kr])] [a1,a2,a3]++-- | +-- Creates a tone similar to a bowed string.+--+-- Audio output is a tone similar to a bowed string, using a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  wgbow  kamp, kfreq, kpres, krat, kvibf, kvamp \+-- >         [, ifn] [, iminfreq]+--+-- csound doc: <https://csound.com/docs/manual/wgbow.html>+wgbow ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig -> Sig+wgbow b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "wgbow" [(Ar,[Kr,Kr,Kr,Kr,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- A physical model of a bowed bar.+--+-- A physical model of a bowed bar, belonging to the Perry Cook family of waveguide instruments.+--+-- > ares  wgbowedbar  kamp, kfreq, kpos, kbowpres, kgain [, iconst] [, itvel] \+-- >           [, ibowpos] [, ilow]+--+-- csound doc: <https://csound.com/docs/manual/wgbowedbar.html>+wgbowedbar ::  Sig -> Sig -> Sig -> Sig -> Sig -> Sig+wgbowedbar b1 b2 b3 b4 b5 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unSig b4 <*> unSig b5+  where+    f a1 a2 a3 a4 a5 = opcs "wgbowedbar" [(Ar,[Kr,Kr,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1,a2,a3,a4,a5]++-- | +-- Creates a tone related to a brass instrument.+--+-- Audio output is a tone related to a brass instrument, using a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  wgbrass  kamp, kfreq, ktens, iatt, kvibf, kvamp \+-- >         [, ifn] [, iminfreq]+--+-- csound doc: <https://csound.com/docs/manual/wgbrass.html>+wgbrass ::  Sig -> Sig -> Sig -> D -> Sig -> Sig -> Sig+wgbrass b1 b2 b3 b4 b5 b6 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unSig b5 <*> unSig b6+  where+    f a1 a2 a3 a4 a5 a6 = opcs "wgbrass" [(Ar,[Kr,Kr,Kr,Ir,Kr,Kr,Ir,Ir])] [a1,a2,a3,a4,a5,a6]++-- | +-- Creates a tone similar to a clarinet.+--+-- Audio output is a tone similar to a clarinet, using a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  wgclar  kamp, kfreq, kstiff, \+-- >         iatt, idetk, kngain, kvibf, kvamp [, ifn] [, iminfreq]+--+-- csound doc: <https://csound.com/docs/manual/wgclar.html>+wgclar ::  Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig+wgclar b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unSig b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wgclar" [(Ar,[Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Ir,Ir])] [a1+                                                                                     ,a2+                                                                                     ,a3+                                                                                     ,a4+                                                                                     ,a5+                                                                                     ,a6+                                                                                     ,a7+                                                                                     ,a8]++-- | +-- Creates a tone similar to a flute.+--+-- Audio output is a tone similar to a flute, using a physical model developed from Perry Cook, but re-coded for Csound.+--+-- > ares  wgflute  kamp, kfreq, kjet, iatt,+-- >         idetk, kngain, kvibf, kvamp [, ifn] [, iminfreq] [, ijetrf] [, iendrf]+--+-- csound doc: <https://csound.com/docs/manual/wgflute.html>+wgflute ::  Sig -> Sig -> Sig -> D -> D -> Sig -> Sig -> Sig -> Sig+wgflute b1 b2 b3 b4 b5 b6 b7 b8 =+  Sig $ f <$> unSig b1 <*> unSig b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unSig b6 <*> unSig b7 <*> unSig b8+  where+    f a1 a2 a3 a4 a5 a6 a7 a8 = opcs "wgflute" [(Ar,[Kr,Kr,Kr,Ir,Ir,Kr,Kr,Kr,Ir,Ir,Ir,Ir])] [a1+                                                                                            ,a2+                                                                                            ,a3+                                                                                            ,a4+                                                                                            ,a5+                                                                                            ,a6+                                                                                            ,a7+                                                                                            ,a8]++-- | +-- A high fidelity simulation of a plucked string.+--+-- A high fidelity simulation of a plucked string, using interpolating delay-lines.+--+-- > ares  wgpluck  icps, iamp, kpick, iplk, idamp, ifilt, axcite+--+-- csound doc: <https://csound.com/docs/manual/wgpluck.html>+wgpluck ::  D -> D -> Sig -> D -> D -> D -> Sig -> Sig+wgpluck b1 b2 b3 b4 b5 b6 b7 =+  Sig $ f <$> unD b1 <*> unD b2 <*> unSig b3 <*> unD b4 <*> unD b5 <*> unD b6 <*> unSig b7+  where+    f a1 a2 a3 a4 a5 a6 a7 = opcs "wgpluck" [(Ar,[Ir,Ir,Kr,Ir,Ir,Ir,Ar])] [a1,a2,a3,a4,a5,a6,a7]++-- | +-- Physical model of the plucked string.+--+-- wgpluck2 is an implementation of the physical model of the plucked string, with control over the pluck point, the pickup point and the filter. Based on the Karplus-Strong algorithm.+--+-- > ares  wgpluck2  iplk, kamp, icps, kpick, krefl+--+-- csound doc: <https://csound.com/docs/manual/wgpluck2.html>+wgpluck2 ::  D -> Sig -> D -> Sig -> Sig -> Sig+wgpluck2 b1 b2 b3 b4 b5 =+  Sig $ f <$> unD b1 <*> unSig b2 <*> unD b3 <*> unSig b4 <*> unSig b5+  where+    f a1 a2 a3 a4 a5 = opcs "wgpluck2" [(Ar,[Ir,Kr,Ir,Kr,Kr])] [a1,a2,a3,a4,a5]