IMN22-WiSe23_24/data-composition
1
0
Fork 0
mirror of https://gitlab.dit.htwk-leipzig.de/computermusik-ws23/data-composition.git synced 2025-05-19 10:41:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

Update experiments

Browse Source
This commit is contained in:
Phillip Kühne 2024-02-06 00:04:47 +01:00
parent 6acdc72db1
commit f083263e92
Signed by: phillip
GPG Key ID: E4C1C4D2F90902AA
3 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitmodules vendored Normal file
View File

@ -0,0 +1,3 @@
[submodule "paper"]
path = paper
url = https://git@git.overleaf.com/65c0de00fe99eea78a9ac0df

1
paper Submodule

@ -0,0 +1 @@
Subproject commit f69ec93db93c2277168a64e0ecebfa22880cb6ee

9
scratchpads/lists.tidal
View File

@ -7,10 +7,13 @@ import BatteryData
d1 $ s "bd" d1 $ s "bd"
-- Yes, i know this is not optimal... getNum value scalar = fromInteger $ round $ (maybe 0.0 id (readMaybe value :: Maybe Float)) * scalar
getFloat x = maybe 0.0 id (readMaybe x :: Maybe Float) let temperatureScalar = 10
d1 $ fast 10 $ n (fromList (map (\x -> getNum x 10) (map (\x -> snd x) (take 100 temperaturedata))) |- 120 ) # s "superpiano"
-- Do something audible with the temperature data for the first time ever
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 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
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 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
:t map (\x -> getMaybeFloat (snd x)) (take 100 temperaturedata)