loooph
/
cm-dfs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: loooph:d39eda420e95ed8bb03e88ea665bd6b4e8bb9b07
Branches Tags
loooph:master
..
compare: loooph:5f0fada42d19a08673af1632a6c1762542ca7513
Branches Tags
loooph:master

No commits in common. "d39eda420e95ed8bb03e88ea665bd6b4e8bb9b07" and "5f0fada42d19a08673af1632a6c1762542ca7513" have entirely different histories.
d39eda420e ... 5f0fada42d

2 changed files with 6 additions and 8 deletions
Show Stats Expand all files Collapse all files

6
BootTidal.hs → BootTidalVis.hs
View File

@ -8,9 +8,7 @@ hSetEncoding stdout utf8
-- Target and shape for pattern visualizing. -- Target and shape for pattern visualizing.
patternTarget = Target { oName = "Pattern handler", oAddress = "127.0.0.1", oPort = 5050, oBusPort = Nothing, oLatency = 0.02, oWindow = Nothing, oSchedule = Pre BundleStamp, oHandshake = False } patternTarget = Target { oName = "Pattern handler", oAddress = "127.0.0.1", oPort = 5050, oBusPort = Nothing, oLatency = 0.02, oWindow = Nothing, oSchedule = Pre BundleStamp, oHandshake = False }
edgeShape = OSC "/edge" $ Named {requiredArgs = ["w", "edge_type"]} patternShape = OSC "/trigger/something" $ Named {requiredArgs = []}
vertexShape = OSC "/vertex" $ Named {requiredArgs = ["vertex"]}
-- Target for playing music via SuperCollider. -- Target for playing music via SuperCollider.
musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120 } musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort = 57120 }
@ -18,7 +16,7 @@ musicTarget = superdirtTarget { oLatency = 0.1, oAddress = "127.0.0.1", oPort =
config = defaultConfig {cFrameTimespan = 1/20} config = defaultConfig {cFrameTimespan = 1/20}
-- Send pattern as OSC both to SuperCollider and to tidal-vis. -- Send pattern as OSC both to SuperCollider and to tidal-vis.
tidal <- startStream config [(musicTarget, [superdirtShape]), (patternTarget, [edgeShape, vertexShape])] tidal <- startStream config [(musicTarget, [superdirtShape]), (patternTarget, [patternShape])]
-- Send pattern as OSC to SuperCollider only. -- Send pattern as OSC to SuperCollider only.
-- tidal <- startTidal musicTarget config -- tidal <- startTidal musicTarget config

8
dfs.tidal
View File

@ -82,10 +82,10 @@ nubbeKG = buildG (0,89) [(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,52),(0,53),(0,54
let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instrument g e) let edgePattern g e = (n $ pure $ toEnum $ (snd e) `mod` 31) # (s $ pure $ instrument g e)
# gain 1 # gain 1
vertexPattern g v = (scale "ritusen" $ pure $ toEnum $ (v `mod` 31) - 10) # s "supersquare" vertexPattern g v = (scale "ritusen" $ pure $ toEnum $ (v `mod` 31) - 10) # s "supersquare"
# rate 0.1 # rate 0.1
# resonance 0.2 # resonance 0.2
# end 0.2 # end 0.2
# gain 0.8 # gain 0.8
patternize g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g patternize g = map (\(x,y) -> fastcat [vertexPattern g x, cat $ map (edgePattern g) y]) $ nodeEdgePairs g
gs = [ k 30 gs = [ k 30
, p 2 , p 2