From c9592fadd2fa5ea13bc35b14baaa366e8f52cdaa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Phillip=20K=C3=BChne?= <phillip.kuehne@stud.htwk-leipzig.de>
Date: Wed, 7 Feb 2024 04:47:37 +0100
Subject: [PATCH] Update list processing

---
 scratchpads/lists.tidal | 36 ++++++++++++++++++++++++++++++++----
 1 file changed, 32 insertions(+), 4 deletions(-)

diff --git a/scratchpads/lists.tidal b/scratchpads/lists.tidal
index 5e7e969..67d4af2 100644
--- a/scratchpads/lists.tidal
+++ b/scratchpads/lists.tidal
@@ -1,5 +1,6 @@
 import Text.Read
 import Data.Maybe
+import Sound.Tidal.Chords
 import TemperatureData
 import HumidityData
 import BatteryData
@@ -8,12 +9,39 @@ import BatteryData
 d1 $ s "bd"
 
 getNum value scalar = fromInteger $ round $ (maybe 0.0 id (readMaybe value :: Maybe Float)) * scalar
-let temperatureScalar = 10
-d1 $ fast 10 $ n (fromList (map (\x -> getNum x 10)  (map (\x -> snd x)  (take 100 temperaturedata))) |- 120 )  # s "superpiano"
+sliceList start end list  = take (end - start + 1) (drop start list)
 
-d1 $ fast 10 $ n (fromList (map (\x -> fromInteger (round ((getFloat x)*10)))  (map (\x -> snd x)  (take 100 temperaturedata)))) # s "jvbass" # room 0.5 # delay 0.7
+
+let temperatureScalar = 10
+    temperaturePattern = scale "major" (fromList (map (\x -> getNum x temperatureScalar)  (map (\x -> snd x)  (take 10 temperaturedata))) |- 150)
+    temperature = fast 4 $ n ("x(3,5)" |> temperaturePattern + "['maj | 'min]" )# s "superpiano" # room 0.5 
+    in d1 $ temperature
+
+
+
+let batteryScalar = 5
+    battery = n ("x(3,5)" |> batteryPattern + "['maj | 'min]" )# s "jvbass" # room 0.5 
+    in d2 $ battery
+
+batteryScalar = 5
+batteryPattern = scale "major" (fromList (map (\x -> getNum x batteryScalar)  (map (\x -> snd x)  (sliceList 500 510 batterydata))) |- 150)
+battery = n ("x(3,5)" |> batteryPattern + "['maj | 'min]" )
+queryArc battery (Arc 0 2)
+
+queryArc temperature (Arc 0 2.5)
+
+d1 $ fast 10 $ append (n (fromList (map (\x -> fromInteger (round ((getFloat x)*10)))  (map (\x -> snd x)  (take 100 temperaturedata))))) ("~!10") # s "jvbass" # room 0.5 # delay 0.7
 
 d2 $ fast 10 $ n (fromList (map (\x -> fromInteger (round ((getFloat x)*5)))  (map (\x -> snd x)  (take 100 humiditydata)))) # s "arpy" # room 0.5 # delay 0.7
 
+d1 $ trigger $ s "<bd sn*4 bd sn*2>"
 
-:t map (\x -> getMaybeFloat (snd x))  (take 100 temperaturedata)
\ No newline at end of file
+d1 $ n ( run 10) # s "v"
+:t map (\x -> getMaybeFloat (snd x))  (take 100 temperaturedata)
+
+queryArc (n("c'maj f4'maj'ii g4'maj'i c'maj")) (Arc 0 1)
+
+scaleTable
+
+
+chordTable
\ No newline at end of file