csound-expression-opcodes 0.0.3.1 → 0.0.3.2
raw patch · 3 files changed
+3/−39 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Csound.Typed.Opcode.InstrumentControl: turnoff2 :: Sig -> Sig -> Sig -> SE ()
- Csound.Typed.Opcode.JackoOpcodes: jackoFreewheel :: SE ()
- Csound.Typed.Opcode.JackoOpcodes: jackoInfo :: SE ()
Files
- csound-expression-opcodes.cabal +1/−1
- src/Csound/Typed/Opcode/InstrumentControl.hs +1/−12
- src/Csound/Typed/Opcode/JackoOpcodes.hs +1/−26
csound-expression-opcodes.cabal view
@@ -1,5 +1,5 @@ Name: csound-expression-opcodes-Version: 0.0.3.1+Version: 0.0.3.2 Cabal-Version: >= 1.6 License: BSD3 License-file: LICENSE
src/Csound/Typed/Opcode/InstrumentControl.hs view
@@ -5,7 +5,7 @@ clockoff, clockon, -- * Duration Control.- ihold, turnoff, turnoff2, turnon,+ ihold, turnoff, turnon, -- * Invocation. event, event_i, mute, readscore, remove, schedkwhen, schedkwhennamed, schedule, schedwhen, scoreline, scoreline_i,@@ -75,17 +75,6 @@ turnoff :: SE () turnoff = SE $ (depT_ =<<) $ lift $ return $ f where f = opcs "turnoff" [(Xr,[])] []---- | --- Turn off instance(s) of other instruments at performance time.------ > turnoff2 kinsno, kmode, krelease--- > ------ csound doc: <http://www.csounds.com/manual/html/turnoff2.html>-turnoff2 :: Sig -> Sig -> Sig -> SE ()-turnoff2 b1 b2 b3 = SE $ (depT_ =<<) $ lift $ f <$> unSig b1 <*> unSig b2 <*> unSig b3- where f a1 a2 a3 = opcs "turnoff2" [(Xr,[Kr,Kr,Kr])] [a1,a2,a3] -- | -- Activate an instrument for an indefinite time.
src/Csound/Typed/Opcode/JackoOpcodes.hs view
@@ -2,7 +2,7 @@ - jackoAudioIn, jackoAudioInConnect, jackoAudioOut, jackoAudioOutConnect, jackoFreewheel, jackoInfo, jackoInit, jackoMidiInConnect, jackoMidiOut, jackoMidiOutConnect, jackoNoteOut, jackoOn, jackoTransport) where+ jackoAudioIn, jackoAudioInConnect, jackoAudioOut, jackoAudioOutConnect, jackoInit, jackoMidiInConnect, jackoMidiOut, jackoMidiOutConnect, jackoNoteOut, jackoOn, jackoTransport) where import Control.Applicative import Control.Monad.Trans.Class@@ -67,31 +67,6 @@ 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]---- | --- Turns Jack's freewheeling mode on or off.------ > JackoFreewheel [ienabled]------ csound doc: <http://www.csounds.com/manual/html/JackoFreewheel.html>-jackoFreewheel :: SE ()-jackoFreewheel = SE $ (depT_ =<<) $ lift $ return $ f - where f = opcs "JackoFreewheel" [(Xr,[Ir])] []---- | --- Prints information about the Jack system.------ Prints the Jack daemon and client names, the--- sampling rate and frames per period, --- and all active Jack port names, --- types, states, and connections.------ > JackoInfo ------ csound doc: <http://www.csounds.com/manual/html/JackoInfo.html>-jackoInfo :: SE ()-jackoInfo = SE $ (depT_ =<<) $ lift $ return $ f - where f = opcs "JackoInfo" [(Xr,[])] [] -- | -- Initializes Csound as a Jack client.