Update

tools/BootTidal.hs

@@ -1,94 +0,0 @@
-:set -XOverloadedStrings
-:set -XExtendedDefaultRules
-:set prompt ""
-
--- Load Data. This currently is pinned to my setup.
-:cd /home/phillip/Projekte/HTWK/Computermusik/data-composition/datamodules
-
-import Sound.Tidal.Context
-
-import System.IO (hSetEncoding, stdout, utf8)
-hSetEncoding stdout utf8
-
--- Expose otherwise hidden modules
-:set -package vector
-:set -package bytestring
-:set -package random
-
--- Load Data
-:l TemperatureData HumidityData BatteryData
-
-tidal <- startTidal (superdirtTarget {oLatency = 0.05, oAddress = "127.0.0.1", oPort = 57120}) (defaultConfig {cVerbose = True, cFrameTimespan = 1/20})
-
-:{
-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 "tidal> "
-:set prompt-cont ""
-
-default (Pattern String, Integer, Double)

tools/superdirt.sh

@@ -1,4 +1,8 @@
 #!/bin/bash
-# Make SuperCollider construct the Path to the default SuperDirt startup file and load it.
-# Afterwards direct stdin to sclang so we can control it.
-(echo -e 'load(Platform.userAppSupportDir+/+"/downloaded-quarks/SuperDirt/superdirt_startup.scd")' && cat) | sclang
+# Load Supercollider with custom SuperDirt startup script
+SCRIPT=$(readlink -f "$0")
+SCRIPTPATH=$(dirname "$SCRIPT")
+PROJECTBASEDIR=$(dirname "$SCRIPTPATH")
+
+cd "$PROJECTBASEDIR/configs" || exit
+sclang "$PROJECTBASEDIR/configs/superdirt_startup.scd"

tools/tidal.sh

@@ -1,3 +1,9 @@
 #!/bin/sh
-ghci -ghci-script ../scratchpads/BootTidal.hs
+
+SCRIPT=$(readlink -f "$0")
+SCRIPTPATH=$(dirname "$SCRIPT")
+PROJECTBASEDIR=$(dirname "$SCRIPTPATH")
+
+ghci -ghci-script "$PROJECTBASEDIR/configs/BootTidal.hs"
+
 

tools/troop_client_with_tidal_interpreter.sh

@@ -2,7 +2,8 @@
 # Script location
 SCRIPT=$(readlink -f "$0")
 SCRIPTPATH=$(dirname "$SCRIPT")
+PROJECTBASEDIR=$(dirname "$SCRIPTPATH")
 
 cd "$SCRIPTPATH"/Troop || exit
 # Explicit python version is on purpose, Troop won't work with python 3.11+
-python3.10 run-client.py --cli --syntax "tidalcycles" --mode $(which ghci) --args "-ghci-script $SCRIPTPATH/BootTidal.hs"
+python3.10 run-client.py --cli --syntax "tidalcycles" --mode $(which ghci) --args "-ghci-script $PROJECTBASEDIR/configs/BootTidal.hs"

tools/troop_server.sh

@@ -6,4 +6,4 @@ PROJECTBASEDIR=$(dirname "$SCRIPTPATH")
 
 cd "$SCRIPTPATH"/Troop || exit
 # Explicit python version is on purpose, Troop won't work with python 3.11+
-python3.10 run-server.py
+python3.10 run-server.py --password ""