tidal 0.4.20 → 0.4.21
raw patch · 4 files changed
+11/−11 lines, 4 files
Files
- Sound/Tidal/Dirt.hs +4/−3
- Sound/Tidal/Stream.hs +3/−4
- tidal.cabal +1/−1
- tidal.el +3/−3
Sound/Tidal/Dirt.hs view
@@ -45,16 +45,17 @@ F "bandf" (Just 0), F "bandq" (Just 0) ],- timestamp = MessageStamp+ timestamp = MessageStamp,+ latency = 0.04 } - kriole :: OscShape kriole = OscShape {path = "/trigger", params = [ I "ksymbol" Nothing, F "kpitch" (Just 1) ],- timestamp = MessageStamp+ timestamp = MessageStamp,+ latency = 0.04 } dirtstart name = start "127.0.0.1" 7771 dirt
Sound/Tidal/Stream.hs view
@@ -36,14 +36,13 @@ data OscShape = OscShape {path :: String, params :: [Param],- timestamp :: TimeStamp+ timestamp :: TimeStamp,+ latency :: Double } type OscMap = Map.Map Param (Maybe Datum) type OscPattern = Pattern OscMap -latency = 0.04- ticksPerCycle = 8 defaultDatum :: Param -> Maybe Datum@@ -80,7 +79,7 @@ let cycleD = ((fromIntegral tick) / (fromIntegral ticksPerCycle)) :: Double logicalNow = (logicalTime change cycleD) logicalPeriod = (logicalTime change (cycleD + (1/(fromIntegral ticksPerCycle)))) - logicalNow- logicalOnset = logicalNow + (logicalPeriod * o) + latency+ logicalOnset = logicalNow + (logicalPeriod * o) + (latency shape) sec = floor logicalOnset usec = floor $ 1000000 * (logicalOnset - (fromIntegral sec)) oscdata = catMaybes $ mapMaybe (\x -> Map.lookup x m') (params shape)
tidal.cabal view
@@ -1,5 +1,5 @@ name: tidal-version: 0.4.20+version: 0.4.21 synopsis: Pattern language for improvised music -- description: homepage: http://yaxu.org/tidal/
tidal.el view
@@ -56,7 +56,7 @@ (tidal-see-output)) (tidal-send-string ":set prompt \"\"") (tidal-send-string "import Sound.Tidal.Context")- (tidal-send-string "import Sound.Tidal.VolcaKeys")+; (tidal-send-string "import Sound.Tidal.VolcaKeys") ; (tidal-send-string "import Volca.Beat") ; (tidal-send-string "import Volca.Key") ; (tidal-send-string "(note, [portamento, expression, voice, octave, detune, vcoegint, kcutoff, vcfegint, lforate, lfopitchint, lfocutoffint, attack, decay, sustain, dtime , dfeedback], keystop) <- keystart")@@ -71,10 +71,10 @@ (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]") (tidal-send-string "let solo = (>>) hush") (tidal-send-string ":set prompt \"tidal> \"") )