listeningdaemon/tidal/boot/2024-10-22.hs

:set -XOverloadedStrings
:set prompt ""

import Sound.Tidal.Context

import System.IO (hSetEncoding, stdout, utf8)

hSetEncoding stdout utf8

listenPortOne         = 8001
listenPortTwo         = 8002
listenPortThree       = 8003
listenPortFour        = 8004
listenPortFive        = 8005
listenPortSix         = 8006
listenPortSeven       = 8007
listenPortEight       = 8008
listenPortNine        = 8009
listenPortTen         = 8010
listenPortEleven      = 8011
listenPortTwelve      = 8012
listenPortThriteen    = 8013
listenPortFourteen    = 8014
listenPortFifteen     = 8015
listenPortSixteen     = 8016
listenPortSeventeen   = 8017
listenPortEighteen    = 8018
listenPortNineteen    = 8019
listenPortTwenty      = 8020
listenPortTwentyOne   = 8021
listenPortTwentyTwo   = 8022
listenPortTwentyThree = 8023
listenPortTwentyFour  = 8024
listenPortTwentyFive  = 8025
listenPortTwentySix   = 8026
listenPortTwentySeven = 8027
listenPortTwentyEight = 8028
listenPortTwentyNine  = 8029
listenPortThirty      = 8030
listenPortThirtyOne   = 8031
listenPortThirtyTwo   = 8032

:{
   let lolinTarget =
           Target {oName = "lolin",
                   oAddress = "192.168.1.110",
                   oPort = 7000,
                   oLatency = 0.15,
                   oSchedule = Live,
                   oWindow = Nothing,
                   oHandshake = False,
                   oBusPort = Nothing
                  }
                  
       lolinLedAnalog  = [("intensity", Just $ VF 0)]
       lolinLedDigital = [("blink", Just $ VS "off")]
                         
       lolinFormats = [(OSC "/led/analog" $ ArgList lolinLedAnalog),
                        (OSC "/led/digital" $ ArgList lolinLedDigital)
                       ]
       lolinMap = [(lolinTarget, lolinFormats)]
:}

lolinStream <- startStream (defaultConfig {cCtrlAddr = "0.0.0.0", cCtrlPort = 6010}) lolinMap

h1 = streamReplace lolinStream 1
      
:{
   let devkitTarget =
           Target {oName = "devkit",
                   oAddress = "192.168.1.111",
                   oPort = 7000,
                   oLatency = 0.15,
                   oSchedule = Live,
                   oWindow = Nothing,
                   oHandshake = False,
                   oBusPort = Nothing
                  }
                  
       devkitLedAnalog  = [("intensity", Just $ VF 0)]
       devkitLedDigital = [("blink", Just $ VS "off")]
                         
       devkitFormats = [(OSC "/led/analog" $ ArgList devkitLedAnalog),
                        (OSC "/led/digital" $ ArgList devkitLedDigital)
                       ]
       devkitMap = [(devkitTarget, devkitFormats)]
:}

devkitStream <- startStream (defaultConfig {cCtrlAddr = "0.0.0.0", cCtrlPort = 6020}) devkitMap

h2 = streamReplace devkitStream 1


:{
   let intensity = pF "intensity"
       blink = pS "blink"
:}

             
tidal <- startTidal (superdirtTarget {oLatency = 0.05, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cVerbose = True, cFrameTimespan = 1/20, cCtrlAddr = "0.0.0.0", cCtrlPort = 6030})

:{
let only = (hush >>)
    p = streamReplace tidal
    hush = streamHush tidal
    panic = do hush
               once $ sound "superpanic"
    list = streamList tidal
    mute = streamMute tidal
    unmute = streamUnmute tidal
    unmuteAll = streamUnmuteAll tidal
    unsoloAll = streamUnsoloAll tidal
    solo = streamSolo tidal
    unsolo = streamUnsolo tidal
    once = streamOnce tidal
    first = streamFirst tidal
    asap = once
    nudgeAll = streamNudgeAll tidal
    all = streamAll tidal
    resetCycles = streamResetCycles tidal
    setCycle = streamSetCycle tidal
    setcps = asap . cps
    getcps = streamGetcps tidal
    getnow = streamGetnow tidal
    xfade i = transition tidal True (Sound.Tidal.Transition.xfadeIn 4) i
    xfadeIn i t = transition tidal True (Sound.Tidal.Transition.xfadeIn t) i
    histpan i t = transition tidal True (Sound.Tidal.Transition.histpan t) i
    wait i t = transition tidal True (Sound.Tidal.Transition.wait t) i
    waitT i f t = transition tidal True (Sound.Tidal.Transition.waitT f t) i
    jump i = transition tidal True (Sound.Tidal.Transition.jump) i
    jumpIn i t = transition tidal True (Sound.Tidal.Transition.jumpIn t) i
    jumpIn' i t = transition tidal True (Sound.Tidal.Transition.jumpIn' t) i
    jumpMod i t = transition tidal True (Sound.Tidal.Transition.jumpMod t) i
    jumpMod' i t p = transition tidal True (Sound.Tidal.Transition.jumpMod' t p) i
    mortal i lifespan release = transition tidal True (Sound.Tidal.Transition.mortal lifespan release) i
    interpolate i = transition tidal True (Sound.Tidal.Transition.interpolate) i
    interpolateIn i t = transition tidal True (Sound.Tidal.Transition.interpolateIn t) i
    clutch i = transition tidal True (Sound.Tidal.Transition.clutch) i
    clutchIn i t = transition tidal True (Sound.Tidal.Transition.clutchIn t) i
    anticipate i = transition tidal True (Sound.Tidal.Transition.anticipate) i
    anticipateIn i t = transition tidal True (Sound.Tidal.Transition.anticipateIn t) i
    forId i t = transition tidal False (Sound.Tidal.Transition.mortalOverlay t) i
    d1 = p 1 . (|< orbit 0)
    d2 = p 2 . (|< orbit 1)
    d3 = p 3 . (|< orbit 2)
    d4 = p 4 . (|< orbit 3)
    d5 = p 5 . (|< orbit 4)
    d6 = p 6 . (|< orbit 5)
    d7 = p 7 . (|< orbit 6)
    d8 = p 8 . (|< orbit 7)
    d9 = p 9 . (|< orbit 8)
    d10 = p 10 . (|< orbit 9)
    d11 = p 11 . (|< orbit 10)
    d12 = p 12 . (|< orbit 11)
    d13 = p 13
    d14 = p 14
    d15 = p 15
    d16 = p 16
:}

:{
let getState = streamGet tidal
    setI = streamSetI tidal
    setF = streamSetF tidal
    setS = streamSetS tidal
    setR = streamSetR tidal
    setB = streamSetB tidal
:}

:set prompt "> "
:set prompt-cont ""

default (Pattern String, Integer, Double)