Bläddra i källkod

started breaking it out into something of a song structure

Aneurin Barker Snook 9 år sedan
förälder
incheckning
ece655df29
1 ändrade filer med 96 tillägg och 27 borttagningar
  1. 96 27
      for-mix2.tidal

+ 96 - 27
for-mix2.tidal

@@ -1,15 +1,57 @@
-cps (100/60)
+cps (99/60)
 
 let every' n o f = when ((== (o-1)) . (`mod` n)) f
 
 hush
 
+d1 $ s "k"
+
+d3 $
+  s "[[vb vb:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # vowel "e o"
+
+d2 $
+  smash 16 [0.25, 0.5] $
+  s "hh hh:2"
+  # gain "0.6"
+
+d1 $ every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k"
+
+d2 $
+  whenmod 16 15 (density 3) $
+  smash 16 [0.25, 0.5] $
+  s "hh hh:2"
+  # gain "0.6"
+
+d1 $ stack [
+  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
+  (0.5 ~>) $ s "sn/2"
+  ]
+
+d3 $
+  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"
+  ]
+
+d3 $
+  whenmod 3 2 (slow 2) $
+  s "[[vb vb:1] ~]/2"
+  # end (slow 1.4 "0.2 0.4")
+  # speed (slow 2.5 "1 -1")
+  # vowel "e o"
+
 d2 $
---  iter 4 $
---  (# pan (density 16 "0.25 0.75")) $
-  every' 16 16 (density 3) $
---  smash 16 [0.25, 0.5] $
---  every 3 (append $ s "hh:1 hh") $
+  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"
 
@@ -21,6 +63,7 @@ d1 $ stack [
   (0.5 ~>) $ s "sn/2"
   ]
 
+-- these two quickly
 d2 $
   iter 4 $
   (# pan (density 16 "0.25 0.75")) $
@@ -30,42 +73,49 @@ 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"
+  ]
+
 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" -- woot
+  # vowel "e o"
 
-d1 $ stack [
-  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $
-  every' 12 2 (density 3) $
-  s "k",
-  (0.5 ~>) $ s "sn/2"
-  ]
+d4 $
+  density 0.25 $
+  gap 128 $
+  s "eg*2"
+  # gain "0.7" -- fade up to 0.8
+  # cut "4"
 
 d4 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.245 $
+  density 0.25 $
+  gap 128 $
+  s "eg*2"
+  # gain "0.7"
+  # cut "4"
+
+d4 $
+  (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
+  density 0.25 $
   slowspread density [1, 2, 0.5, 2] $
   gap 128 $
   s "eg*2"
-  # gain "0.8"
+  # gain "0.7"
   # cut "4"
 
 d2 silence
 
-d1 $ stack [
-  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
-  s "[k ~ k*2 ~]/4",
-  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
-  (1 ~>) $ s "sn/2"
-]
-
 d4 $
-  (0.18 <~) $
-  every 2 (const silence) $
+  (0.18 <~) $ every 2 (const silence) $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
   density 0.245 $
   slowspread density [1, 2, 0.5, 2] $
@@ -74,9 +124,29 @@ d4 $
   # gain "0.8"
   # cut "4"
 
+d1 $ stack [
+  every' 8 7 (overlay $ (0.32 ~>) $ s "k") $
+  s "[k ~ k*2 ~]/4",
+  every' 16 16 (overlay $ (0.82 ~>) $ s "sn") $
+  (1 ~>) $ s "sn/2"
+  ]
+
+d5 $
+  chop 128 $
+  s "[gt [~ gt] ! ~]/2"
+  # gain "0.7"
+  # cut "4"
+
+d5 $
+  density 0.98 $
+  chop 128 $
+  s "[gt [~ gt] ! ~]/2"
+  # gain "0.7"
+  # cut "4"
+
 d5 $
   (# speed ((+0.8).(/2) <$> slow 4 saw1)) $
-  density 0.98 $ -- snap out of this into density 1, or vice versa?
+  density 0.98 $
   chop 128 $
   s "[gt [~ gt] ! ~]/2"
   # gain "0.7"
@@ -90,11 +160,10 @@ d1 $ stack [
   ]
 
 d4 silence
-d5 silence
 
 -- fast!
 d1 $ stack [
-  every' 8 8 (overlay $ (0.25 ~>) $ s "k*2") $ s "k",
+  every' 8 8 (overlay $ (0.32 ~>) $ s "k*2") $ s "k",
   (0.5 ~>) $ s "sn"
   ]