From f398084692db81ed13f4dfa7dc6803a754f2991b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Phillip=20K=C3=BChne?= <phillip.kuehne@stud.htwk-leipzig.de>
Date: Tue, 30 Jan 2024 00:09:01 +0100
Subject: [PATCH] Add some results of playing around

---
 scratchpads/granular.tidal | 25 ++++++++++++
 scratchpads/test.tidal     | 83 ++++++++++++++++++++++++++++++++++++++
 scratchpads/test2.tidal    | 40 ++++++++++++++++++
 3 files changed, 148 insertions(+)
 create mode 100644 scratchpads/granular.tidal
 create mode 100644 scratchpads/test.tidal
 create mode 100644 scratchpads/test2.tidal

diff --git a/scratchpads/granular.tidal b/scratchpads/granular.tidal
new file mode 100644
index 0000000..6b6f515
--- /dev/null
+++ b/scratchpads/granular.tidal
@@ -0,0 +1,25 @@
+d1 $ slow 4 $ striate 3 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
+
+d1 $ slow 4 $ chop 3 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
+
+d1 $ slow 4 $ sound "numbers:0 numbers:1 numbers:2 numbers:3"
+
+d1 $ chop 256 $ sound "bd*4 [sn cp] [hh future]*2 [cp feel]"
+
+d1 $ chop 2 $ sound (samples "arpy*8" (run 16))
+
+d1 $ slow 2 $ jux rev $ chop 16 $ sound "breaks125"
+
+d1 $ chop "<16 128 32>" $ sound "arpy ~ feel*2 newnotes"
+
+d1 "newnotes"
+
+d1 $ slice 8 (irand n) $ sound "breaks165"
+  # legato 1
+
+d1 $ n "0 .. 7" # sound "drum"
+
+d1 $ bite 4 "0 1*2 2*2 [~ 3]" $ n "0 .. 7" # sound "drum"
+
+d1 $ chew 4 "0 1*2 2*2 [~ 3]" $ n "0 .. 7" # sound "drum"
+
diff --git a/scratchpads/test.tidal b/scratchpads/test.tidal
new file mode 100644
index 0000000..4842fbc
--- /dev/null
+++ b/scratchpads/test.tidal
@@ -0,0 +1,83 @@
+
+-- EVAL IN CASE OF EARRAPE
+hush
+
+setcps (120/60/4)
+
+d1 $ stut 3
+      (range 0.02 0.8 rand)
+      (range (1/16) (3/16) square)
+    $ s "sn:3"
+
+d1 silence
+
+d2 $ fast 2 $ s "808:7 [~ 808:7]"
+
+d2 silence
+
+
+d3 $ s "bd:5!4" # gain 1.3
+
+d3 $ stack [
+    s "bd:5!4" # gain 1.3,
+    sometimes (hurry 4) $ s "bd:5!4" # gain 1.3
+    ]
+
+d3 silence
+
+
+d4  $ slow 10
+    $ sometimes (# speed (-1))
+    $ n (run 10) +| "0*40"
+    # s "numbers"
+    # begin (range 0.1 0.2 rand)
+    # end (range 0.3 0.4 rand)
+    # room 1
+    # delay 1 # delayfeedback 0.8 # delaytime (1/8)
+    # lock 1
+
+d4 silence
+
+-- "Space for Future Expansion"
+
+d7  $ note "<[e4!4 [f4*10]] [e5!3 g5 [f5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]] [e5!3 g5 [f5*10],g5!3 b5 [a5*10]]>"
+    # s "jvbass"
+    # room 1
+    # delay 0.5
+    # delayfeedback 0.8
+    # delaytime 0.5
+
+d7 silence
+
+
+d8  $ slow 4 
+    $ degradeBy 0.9
+    $ sometimes rev
+    $ n (run 32)
+    # s "industrial"
+    # room 1 # size 1
+    # delay 0.5 # delayfeedback 0.5 # delaytime (1/4)
+    # lock 1
+    # speed (-4)
+    # gain 0.7
+    # release 0.9
+
+d8 silence
+
+d9 $ slow 5 $ loopAt 5 $ s "sheffield"  # gain 0.5 # release 0.9
+
+d9 silence
+
+d10 $ jux ( sometimes rev ) $ loopAt 1 $ chop 4 $ s "breaks125" # delay 0.5 # delaytime (1/4)
+
+d1 $ slow 8 $ s "tabla" <| n (run 26)
+
+-- Something different:
+
+d1 $ slow 2 $ s "arpy" <| up "c'maj(3,8) f'maj(3,8) ef'maj(3,8,1) bf4'maj(3,8)" # delay 0.5
+d2 $ s "can" <| n (run 16) # speed "0.125 1!15"
+d3 $ slow 2 $ s "speakspell" <| n (run 12) # speed "{-1 2 0.25? -0.5}%6"
+d4 $ jux (# delay 0.5) $ s "808bd:3" # gain 1.5 # delaytime (1/400) # lock 1
+d5 $ degradeBy 0.3 $ fast 8 $ s "[clak clak]!2" <| n (run 2) # gain "1 0.7 0.7 0.7"
+
+hush
\ No newline at end of file
diff --git a/scratchpads/test2.tidal b/scratchpads/test2.tidal
new file mode 100644
index 0000000..4af1c3f
--- /dev/null
+++ b/scratchpads/test2.tidal
@@ -0,0 +1,40 @@
+-- Basic rythm
+
+d1 $ sometimes (fast "2") $ s "[bd:3*4,sn*2,hh*8]" # delay 0.5 # delaytime 1 # leslie 0.5
+
+d1 ""
+
+d2 $ "1!7 1*2" # s "hh"
+
+d2 ""
+
+-- Sliced and jumbled breaks
+
+d3 $ sometimes (fast 2) $ slice 16 (run 8 |> irand 16) $ sound "breaks165:1" # cut "-1" # room 0.5
+
+d3 ""
+
+-- Something melodic or so?
+
+d4 $ n (scale "minor" "[1 3 5 3]*2"|+"<[-2,+5] [-1,+6]>") # s "jvbass" # room 0.3 # delay 0.75 # delayfb 0.8
+
+d4 ""
+
+d5 $ sometimes (jux rev) $ n ( scale "<major minor locrian>" (run 8)) # s "supermandolin" # room 0.3 # delay 0.75 # delayfb 0.8
+
+d5 silence
+
+
+d6 $ n (run 16 |> run 64 |+| slow 4 "4 13 7 2")  # s "jvbass" # room 5 # delay 0.75 # delayfb 0.9 # gain 0.5
+
+d6 ""
+
+-- Quantized Perlin Noise
+
+d7 $ s "superpiano*2" # n (quantise 1 (perlin * 10))
+-- Why does the following not work then???
+d7 $ s "superpiano*2" # n (scale "major" (perlin * 10))
+
+d7 silence
+
+hush
\ No newline at end of file