supercollider-ht 0.1.1 → 0.1.1.1

raw patch · 3 files changed

+19/−12 lines, 3 filesdep ~processdep ~transformersPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: process, transformers

API changes (from Hackage documentation)

Files

• src/Sound/SC3/Example/Effect.hs +10/−5
• src/Sound/SC3/Server/PlayEasy.hs +5/−3
• supercollider-ht.cabal +4/−4

@@ -1,3 +1,8 @@+{- |+Remember to call @withSC3 reset@ before trying any example.+An example can be tested with 'audition'.+The sound can be stopped with @withSC3 reset@, again.+-} module Sound.SC3.Example.Effect where  import Sound.SC3.UGen.UGen@@ -19,7 +24,6 @@ import Sound.OpenSoundControl.Transport.Monad (send, ) import qualified Sound.OpenSoundControl.Time as Time import qualified Sound.OpenSoundControl.Transport.Monad as Trans-import qualified Sound.OpenSoundControl.Transport.Monad.IO as MIO  import System.Random(randomRs, mkStdGen, ) import Control.Concurrent(threadDelay, )@@ -103,16 +107,17 @@ bassFilterRun =   withSC3 $    do play bassFilter-      mapM (\p -> set "cutoff" p >> lift (threadDelay 150000))-           (randomRs (400,2000) (mkStdGen 34))+      mapM_+         (\p -> set "cutoff" p >> lift (threadDelay 150000))+         (randomRs (400,2000) (mkStdGen 34))       stop   bassFilterGlissando :: UGen bassFilterGlissando =    let ctrl = 600 * exp (lag (lfNoise0 seed KR 6) 0.1)-       tone    = saw AR (MCE [55, 55.1]) * 0.1-       w       = rlpf tone ctrl 0.05+       tone = saw AR (MCE [55, 55.1]) * 0.1+       w    = rlpf tone ctrl 0.05    in  w  

@@ -25,8 +25,10 @@ import qualified Sound.OpenSoundControl.Transport.Monad as Trans import qualified Sound.OpenSoundControl.Transport.Monad.IO as TIO +import Prelude hiding (init, )  + type NodeId = Int  -- | Construct an instrument definition, send /d_recv and /s_new messages to scsynth.@@ -42,7 +44,7 @@  -- | Free all nodes and re-create group node with id 'homeId'. reset :: Trans.C m => m ()-reset = send (g_freeAll [rootId]) >> init_+reset = send (g_freeAll [rootId]) >> init  -- | Bracket SC3 communication. withSC3 :: TIO.T UDP a -> IO a@@ -97,8 +99,8 @@ simpleSync :: Trans.C m => OSC -> m () simpleSync o = sync o >> return () -init_ :: Trans.C m => m ()-init_ = send (g_new [(homeId, AddToTail, rootId)])+init :: Trans.C m => m ()+init = send (g_new [(homeId, AddToTail, rootId)])  playIdCustomOut :: Trans.C m => NodeId -> UGen -> m OSC playIdCustomOut sid u =

@@ -1,5 +1,5 @@ Name:             supercollider-ht-Version:          0.1.1+Version:          0.1.1.1 License:          GPL License-File:     LICENSE Copyright:        Henning Thielemann, 2008-2009@@ -27,7 +27,7 @@ Source-Repository this   type:     darcs   location: http://code.haskell.org/~thielema/supercollider/-  tag:      0.1.1+  tag:      0.1.1.1   Flag splitBase@@ -40,11 +40,11 @@ Library   Build-Depends: hosc >=0.8 && <0.9, hsc3 >=0.8 && <0.9   Build-Depends: opensoundcontrol-ht >=0.1 && <0.2-  Build-Depends: transformers >=0.2 && <0.3+  Build-Depends: transformers >=0.2 && <0.4   If flag(splitBase)     Build-Depends:       random >= 1.0 && <2,-      process >= 1.0 && <1.1,+      process >= 1.0 && <1.2,       base >= 2 && <5   Else     Build-Depends: base >= 1.0 && < 2