basically just had a bunch of cool ideas

haddeo.tidal

@@ -26,11 +26,6 @@ d2 $
   withmod 11 5 0.5 1 (density 2) $
   n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
 
-d2 $
-  whenmod 3 2 (density 2) $
-  withmod 11 5 0.5 1 (density 2) $
-  n "[[~ 0] [[2!! ~]/4 0]]/2" # s "kit"
-
 d2 $
   every' 16 8 (const $ s "kit:3") $
   whenmod 3 2 (density 2) $
@@ -41,10 +36,18 @@ d2 $
 
 d3 $ slow 16 . striate 256 $ s "icarus"
 
+d3 $ superimpose (8 ~>) $
+  slow 16 . striate 256 $ s "icarus"
+
 d3 $
   every' 2 2 (within (0, 0.75) (iter 16)) $
   slow 16 . striate 256 $ s "icarus"
 
+d3 $
+  superimpose (8 ~>) $
+  every' 2 2 (within (0, 0.75) (iter 16)) $
+  slow 16 . striate 256 $ s "icarus"
+
 {-
 d3 $
   slow 8 $ smash 64 [0.5,0.75] $
@@ -79,15 +82,6 @@ d4 $ mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
 d4 $ whenmod 5 3 rev $
   mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
 
-d4 $
-  superimpose (
-    iter 4 .
-    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
-    (# nudge "0")
-    ) $
-  whenmod 5 3 rev $
-  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
-
 d4 $
   every' 2 2 (within (0, 0.5) (const silence)) $
   superimpose (
@@ -129,5 +123,101 @@ d4 $
   whenmod 5 3 rev $
   mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
 
-d4 silence
+-- hahaha, holy fuck
+
+d4 $ whenmod 4 2 (const silence) $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+
+d4 $ whenmod 4 2 (const silence) $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d4 $ whenmod 4 2 (const silence) $
+  density 2 $ (# cut "4") $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d4 $
+  superimpose ((4 ~>) . iter 4) $
+  whenmod 4 2 (const silence) $
+  density 2 $ (# cut "4") $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d4 $
+  superimpose (density 2 . (4 ~>) . iter 4) $
+  whenmod 4 2 (const silence) $
+  density 2 $ (# cut "4") $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d5 $ slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+
+d1 silence
+
+{-???
+d1 $ stack [
+  n "[1, 0*2 [~! 0 ~] [~ 0 ~!] ~]/4" # s "drum",
+  n "[~ 1]/2" # s "sn"
+  ]
+-}
+
+d1 $ stack [
+  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
+  n "[~ 1]/2" # s "sn"
+  ]
+
+d1 $ stack [
+  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
+  4 ~> n "[~ 1 [~ 1/2 ~!] 1]/4" # s "sn"
+  ]
+
+d1 $ stack [
+  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
+  8 ~> n "[~ [1 ~ ~ 1/4] [~ 1/2 ~!] 1]/4" # s "sn"
+  ]
+
+-- heh
+--bpm 80
+
+d4 $
+  (2 ~>) $
+  superimpose (density 2 . (4 ~>) . iter 4) $
+  whenmod 4 2 (const silence) $
+  density 2 $ (# cut "4") $
+  slow 16 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d5 $
+  superimpose (
+    iter 4 .
+    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
+    (# nudge "0")
+    ) $
+  whenmod 5 3 rev $
+  slow 16 $ striate 256 $ n "[0 1]/2" # s "nimble"
+
+d4 $
+  (2 ~>) $
+  superimpose (density 2 . (4 ~>) . iter 4) $
+  whenmod 4 2 (const silence) $
+  density 2 $ (# cut "4") $
+  mt 16 1 $ striate 16 $ n "[0 1]/2" # s "nimble"
+  # vowel "e a"
+
+d5 $
+  superimpose (
+    iter 4 .
+    (# speed ((+0.8).(/1.5) <$> slow 2.5 sine1)) .
+    (# nudge "0")
+    ) $
+  whenmod 5 3 rev $
+  mt 16 1 $ striate 256 $ n "[0 1]/2" # s "nimble"
+
+d1 $ mt 16 16 $ stack [
+  n "[1, 0*2 [~ 0] ! ~]/4" # s "drum",
+  4 ~> n "[~ 1 [~ 1/2 ~!] 1]/4" # s "sn"
+  ]
+
+
 hush