Bladeren bron

dunno if this works but fuck it, gonna commit

Aneurin Barker Snook 9 jaren geleden
bovenliggende
commit
af08b20dd7
4 gewijzigde bestanden met toevoegingen van 84 en 40 verwijderingen
  1. 84 40
      for-mix2.tidal
  2. BIN
      samples/pc/RR_PolyCoder_110-C.wav
  3. BIN
      samples/pc/RR_Robocoder_110-E.wav
  4. BIN
      samples/pclow/RR_LowCoder_110-C.wav

+ 84 - 40
for-mix2.tidal

@@ -48,12 +48,27 @@ d3 $
   # speed (slow 2.5 "1 -1")
   # vowel "e o"
 
+d3 $
+  whenmod 3 2 (slow 2) $
+  (whenmod 4 2 $ density 3) $
+  s "[[vb vb:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # speed (slow 2.5 "1 -1")
+  # vowel "e o"
+
 d1 $ stack [
   (1 ~>) $ sound "cy/8",
   every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
   (0.5 ~>) $ s "sn/2"
   ]
 
+d7 $
+  slowspread ($) [id, slow 2] $
+  slow 16 $ gap 48 $ s "pc:1"
+  # gain "0.9"
+  # cut "7"
+  # speed "[1 0.7]"
+
 d2 $
   whenmod 16 15 (density 3) $
   smash 16 [0.25, 0.5] $
@@ -69,7 +84,15 @@ d1 $ stack [
   (0.5 ~>) $ s "sn/2"
   ]
 
--- these two quickly
+d1 $ stack [
+  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
+  every' 12 2 (density 3) $
+  s "k",
+  (0.5 ~>) $ s "sn/2"
+  ]
+
+d7 silence
+
 d2 $
   iter 4 $
   (# pan (density 16 "0.25 0.75")) $
@@ -79,27 +102,12 @@ d2 $
   s "hh hh:2"
   # gain "0.6"
 
-d1 $ stack [
-  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
-  every' 12 2 (density 3) $
-  s "k",
-  (0.5 ~>) $ s "sn/2"
-  ]
-
 d6 $
   slow 4 . chop 128 $
   s (samples "udu" (slow 4 $ irand 4))
   # gain "0.8"
   # cut "6"
 
-d3 $
-  whenmod 3 2 (slow 2) $
-  (whenmod 4 2 $ density 3) $
-  s "[[vb vb:1] ~]/2"
-  # end (slow 1.4 "0.2 0.4")
-  # speed (slow 2.5 "1 -1")
-  # vowel "e o"
-
 d4 $
   density 0.25 $
   gap 128 $ s "eg*2"
@@ -171,11 +179,12 @@ d6 $
   # gain "0.8"
   # cut "6"
 
-d5 $
-  chop 128 $ s "[gt [~ gt] ! ~]/2"
---  # gain "0.8"
- # gain "0.8" -- fade up to 0.8
-  # cut "5"
+d7 $
+  slowspread ($) [id, slow 2] $
+  slow 16 $ gap 48 $ s "[pc pc:1]"
+  # gain "0.8"
+  # cut "7"
+  # speed "[1 0.7]"
 
 d6 $
   (every' 5 3 $ brak) $
@@ -186,12 +195,41 @@ d6 $
   # gain "0.8"
   # cut "6"
 
+d7 $
+  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+  slowspread ($) [id, slow 2] $
+  slow 16 $ gap 48 $ s "[pc pc:1]"
+  # gain "0.8"
+  # cut "7"
+  # speed "[1 0.7]"
+
+d7 $
+  whenmod 7 5 (density 1.25) $
+  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+  slowspread ($) [id, slow 2] $
+  slow 16 $ gap 48 $ s "[pc pc:1]"
+  # gain "0.8"
+  # cut "7"
+  # speed "[1 0.7]"
+
+d5 $
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
+  # gain "0.8" -- fade up to 0.8
+  # cut "5"
+
 d5 $
   chop 128 $ s "[gt [~ gt] ! ~]/2"
   # gain "0.8" -- fade up to 0.8
   # cut "5"
   # speed ((+1).(/4) <$> slow 1.95 sinewave1)
 
+d5 $
+  density 0.98 $
+  chop 128 $ s "[gt [~ gt] ! ~]/2"
+  # gain "0.8"
+  # cut "5"
+  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
+
 d3 $
   (whenmod 3 2 $ slow 2) $
   (whenmod 4 2 $ density 3) $
@@ -200,13 +238,6 @@ d3 $
   # speed (slow 2.5 "1 -1")
   # vowel "e o"
 
-d5 $
-  density 0.98 $
-  chop 128 $ s "[gt [~ gt] ! ~]/2"
-  # gain "0.8"
-  # cut "5"
-  # speed ((+1).(/4) <$> slow 1.95 sinewave1)
-
 d4 $
   (0.18 <~) $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
@@ -216,15 +247,6 @@ d4 $
   # gain "0.8"
   # cut "4"
 
-d2 $
-  iter 4 $
-  (# pan (density 16 "0.25 0.75")) $
-  whenmod 16 15 (density 3) $
-  smash 16 [0.25, 0.5] $
-  every 3 (append $ s "hh:1 hh") $
-  s "hh hh:2"
-  # gain "0.6"
-
 d3 $
   within (0.5, 1) (slow (4%3) . brak) $
   (whenmod 4 2 $ density 3) $
@@ -234,8 +256,6 @@ d3 $
   # speed (slow 2.5 "1 -1")
   # vowel "e o"
 
-d4 silence
-
 d1 $ stack [
   every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
   s "[k ~ k*2 ~]/4",
@@ -243,6 +263,11 @@ d1 $ stack [
   (1 ~>) $ s "sn/2"
   ]
 
+d4 silence
+
+d8 $ slow 16 . gap 64 $ s "pclow"
+  # gain "0.86"
+
 {-
 d1 $ stack [
   every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
@@ -259,6 +284,25 @@ d3 $
   # speed (slow 2.5 "1 -1")
   # vowel "e o"
 
-mapM_ ($ silence) [d2,d5]
+d5 silence
+
+d7 $
+  stut 4 0.8 0.5 $
+  whenmod 7 5 (density 1.25) $
+  slowspread ($) [rev, id, brak, (0.25 ~>), id] $
+  slowspread ($) [id, slow 2] $
+  slow 16 $ gap 48 $ s "[pc pc:1]"
+  # gain "0.8"
+  # cut "7"
+  # speed "[1 0.7]"
+
+d2 $
+  iter 4 $
+  (# pan (density 16 "0.25 0.75")) $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+  every 3 (append $ s "hh:1 hh") $
+  s "hh hh:2"
+  # gain "0.6"
 
 hush

BIN
samples/pc/RR_PolyCoder_110-C.wav


BIN
samples/pc/RR_Robocoder_110-E.wav


BIN
samples/pclow/RR_LowCoder_110-C.wav