csound-expression-dynamic 0.1.1 → 0.1.2

raw patch · 4 files changed

+9/−7 lines, 4 files

Files

csound-expression-dynamic.cabal +1/−1
src/Csound/Dynamic/Build.hs +3/−2
src/Csound/Dynamic/Render/Instr.hs +2/−2
src/Csound/Dynamic/Types/Flags.hs +3/−2

csound-expression-dynamic.cabal view

@@ -1,5 +1,5 @@ Name:          csound-expression-dynamic-Version:       0.1.1+Version:       0.1.2 Cabal-Version: >= 1.6 License:       BSD3 License-file:  LICENSE

src/Csound/Dynamic/Build.hs view

@@ -20,7 +20,7 @@     Specs, specs, MultiOut, mopcs, mo,       -- * Global init statements-    setSr, setKsmps, setNchnls, setKr, setZeroDbfs+    setSr, setKsmps, setNchnls, setNchnls_i, setKr, setZeroDbfs ) where  import qualified Data.Map as M(fromList)@@ -173,13 +173,14 @@ ---------------------------------------------------------------- -- global inits -setSr, setKsmps, setNchnls, setKr :: Monad m => Int -> DepT m ()+setSr, setKsmps, setNchnls, setNchnls_i, setKr :: Monad m => Int -> DepT m ()      setZeroDbfs :: Monad m => Double -> DepT m  ()  setSr       = gInit "sr" setKr       = gInit "kr" setNchnls   = gInit "nchnls"+setNchnls_i = gInit "nchnls_i" setKsmps    = gInit "ksmps" setZeroDbfs = gInitDouble "0dbfs"

src/Csound/Dynamic/Render/Instr.hs view

@@ -42,12 +42,12 @@  getFrameInfo :: RatedExp a -> FrameInfo getFrameInfo x = case ratedExpExp x of-    -- | Imperative If-then-else+    -- Imperative If-then-else     IfBegin _     -> StartFrame     ElseIfBegin _ -> NextFrame     ElseBegin     -> NextFrame      IfEnd         -> StopFrame-    -- | looping constructions+    -- looping constructions     UntilBegin _ -> StartFrame     UntilEnd     -> StopFrame     _            -> NoFrame

src/Csound/Dynamic/Types/Flags.hs view

@@ -194,7 +194,7 @@         , midiVelocityAmp   = midiVelocityAmp a <|> midiVelocityAmp b         , midiOutDevice     = midiOutDevice a <|> midiOutDevice b } -data Rtmidi = PortMidi | AlsaMidi | MmeMidi | WinmmMidi | VirtualMidi | NoRtmidi+data Rtmidi = PortMidi | AlsaMidi | CoreMidi | MmeMidi | WinmmeMidi | VirtualMidi | NoRtmidi  -- Display @@ -413,8 +413,9 @@         VirtualMidi -> "virtual"         PortMidi    -> "PortMidi"         AlsaMidi    -> "alsa"+        CoreMidi    -> "coremidi"         MmeMidi     -> "mme"-        WinmmMidi   -> "winmm"+        WinmmeMidi  -> "winmme"         NoRtmidi    -> "0"  instance Pretty Displays where