munshkr / SuperDirtMod

SuperDirt extension for parameter modulation of currently running synth nodes
GNU General Public License v3.0
4 stars 1 forks source link

Update osc instructions for tidal 1.5> #1

Open diegodorado opened 3 years ago

diegodorado commented 3 years ago

What worked for me was to set it this way:

let modTarget = superdirtTarget {oName = "SuperDirtMod", oAddress = "127.0.0.1", oPort = 57130 }
    oscSet = OSC "/set" $  Named {required = []}
    modMap = [(modTarget, [oscSet])]
    mod <- startStream defaultConfig modMap
mynkit commented 1 year ago

TidalCycles version 1.7.10 ghc 9.2.2

The following worked in this environment.

--
-- == SuperDirtMod BEGIN ==
--

-- Define mod target
modTarget = superdirtTarget {oName = "SuperDirtMod", oAddress = "127.0.0.1", oPort = 57130 }
oscSet = OSC "/set" Named {requiredArgs = []}
modMap = [(modTarget, [oscSet])]
-- Define mod stream
mod <- startStream defaultConfig modMap

-- Define pmod stream replacer and orbit helper functions
pmod = streamReplace mod
mod1 = pmod "mod1" . (|< orbit 0)
mod2 = pmod "mod2" . (|< orbit 1)
mod3 = pmod "mod3" . (|< orbit 2)
mod4 = pmod "mod4" . (|< orbit 3)
mod5 = pmod "mod5" . (|< orbit 4)
mod6 = pmod "mod6" . (|< orbit 5)
mod7 = pmod "mod7" . (|< orbit 6)
mod8 = pmod "mod8" . (|< orbit 7)
mod9 = pmod "mod9" . (|< orbit 8)
mod10 = pmod "mod10" . (|< orbit 9)
mod11 = pmod "mod11" . (|< orbit 10)
mod12 = pmod "mod12" . (|< orbit 11)

-- Reset functions
reset = pI "reset" 1
modResetAll = streamOnce mod reset

putStrLn "SuperDirtMod enabled"

--
-- == SuperDirtMod END ==
--