tidal 0.4.24 → 0.4.26

raw patch · 4 files changed

+30/−3 lines, 4 files

Files

• Sound/Tidal/Context.hs +1/−0
• Sound/Tidal/SuperCollider.hs +24/−0
• tidal.cabal +2/−1
• tidal.el +3/−2

@@ -11,3 +11,4 @@ import Sound.Tidal.Strategies as C import Sound.Tidal.Tempo as C import Sound.Tidal.Time as C+import Sound.Tidal.SuperCollider as C

@@ -0,0 +1,24 @@+{-# LANGUAGE NoMonomorphismRestriction #-}++module Sound.Tidal.SuperCollider where++import Sound.Tidal.Stream+import Sound.Tidal.Pattern+import Sound.Tidal.Parse+import Sound.OSC.FD++supercollider :: String -> [Param] -> Double -> OscShape+supercollider n ps l = OscShape { +  -- The OSC path+  path = "/s_new",+preamble = [string n, int32 (-1), int32 1, int32 1],+  namedParams = True,+  params = ps,+  timestamp = BundleStamp,+  latency = l+  }++scStream n ps l = do let shape = (supercollider n ps l)+                     sc <- stream "127.0.0.1" 57110 shape+                     return (sc, shape)+

@@ -1,5 +1,5 @@ name:                tidal-version:             0.4.24+version:         0.4.26 synopsis:            Pattern language for improvised music -- description:          homepage:            http://yaxu.org/tidal/@@ -27,5 +27,6 @@                        Sound.Tidal.Time                        Sound.Tidal.Context                        Sound.Tidal.Utils+                       Sound.Tidal.SuperCollider    Build-depends: base < 5, process, parsec, hosc > 0.13, hashable, colour, containers, time, websockets > 0.8, text, mtl >=2.1, transformers, mersenne-random-pure64,binary, bytestring, hmt

@@ -72,10 +72,11 @@   (tidal-send-string "d8 <- dirtStream")   (tidal-send-string "d9 <- dirtStream")   (tidal-send-string "d10 <- dirtStream")-  (tidal-send-string "k1 <- keyStream")+;  (tidal-send-string "k1 <- keyStream")   (tidal-send-string "(cps, getNow) <- bpsUtils")   (tidal-send-string "let bps x = cps (x/2)")-  (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,k1]")+ ; (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,k1]")+  (tidal-send-string "let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10]")   (tidal-send-string "let solo = (>>) hush")   (tidal-send-string ":set prompt \"tidal> \"") )