initial commit with all the bits

.gitignore

@@ -0,0 +1,2 @@
+recording/
+samples/rec_*.wav

tidal/fwonk-cauldron-1.bk.tidal

@@ -0,0 +1,82 @@
+bps (150/60)
+
+--
+-- drum
+--
+
+-- 4 to floor
+d1 $ stack [
+  superimpose (slow 1) $ sound "house*2",
+  0.5 ~> sound "cp"
+  ]
+
+-- marching drum
+d1 $ stack [
+  slow 2 $ sound "house house [house [house]/2] house",
+  brak $ 0.5 ~> sound (pick <$> "sn*3 cp" <*> (spread iter [2,2,3]) "15 4 3 8")
+  --  |+| shape ((/1.2) <$> slow 8 sinewave1)
+  |+| resonance (slow 2 sinewave1)
+  ]
+
+-- crazy ass drum
+d1 $ slow 1 $ stack [
+  sound "house*2",
+  jux (spread slow [3,5] . rev) $ every 3 (striate 3) $ every 2 (brak) $ sound "house*2",
+  0.5 ~> sound "cp"
+  --sound "hh*4 [cp hh*2]"
+]
+
+-- kinda funky
+d1 $ overlay (interlace (sound "rm*3") (sound "hh*3")) $ sound "house*2"
+
+--
+-- fwonk
+--
+
+-- cool fwonk lewp
+d2 $ every 3 (|+| resonance "0.5") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| shape ((/3) <$> sinewave1)
+
+-- weird fwonks
+d2 $ every 5 (jux rev) $ every 3 (|+| resonance "0.4") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> slow 5 "2 4 6 9")
+  |+| vowel "a e"
+  |+| shape ((/3) <$> sinewave1)
+
+-- spaced fwonk
+d2 $ jux (iter 3) $ slow 4 $ interlace (sound "fwonk/1 space*2") (0.5 ~> sound "[space/2 fwonk*2]")
+  |+| vowel "a"
+  |+| resonance "0.5"
+  |+| shape "0.2"
+  |+| pan (density 3 sinewave1)
+
+--
+-- wind
+--
+
+-- nice
+d3 $ every 3 (jux rev) $ smash 10 [1,2] $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- nice in 4/4
+d3 $ slow 2 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> slow 2 "0 2 4 5 7 1 3 5")
+  |+| shape ((/2) <$> slow 2 sinewave1)
+
+-- simple wind 4/4
+d3 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> density 2 "0 1 2 3 7")
+  |+| vowel "e u"
+  |+| resonance ((/1.2) <$> sinewave1)
+
+--
+-- space - n.b. samples are way too loud
+--
+
+-- Sweet space break #1
+d4 $ spread striate [3,4] $ sound (pick <$> "space invaders" <*> spread density [2,2,5] "0 2 4 5 8 15 7")
+  |+| vowel "e"
+  |+| resonance "0.2"
+
+-- Sweet space break #2
+d4 $ striate 4 $ sound (pick <$> "[space invaders]*3" <*> spread density [2,3,5] "0 2 4 6")
+  |+| vowel "e"
+  |+| resonance "0.2"

tidal/fwonk-cauldron-1.tidal

@@ -0,0 +1,106 @@
+bps (150/60)
+
+--
+-- drum
+--
+
+-- 4 to floor
+d1 $ stack [
+  superimpose (slow 1) $ sound "house*2",
+  0.5 ~> sound "cp"
+  ]
+
+-- marching drum
+d1 $ stack [
+  sound "house*2",
+  --slow 2 $ sound "house house [house [house]/2] house",
+  brak $ 0.5 ~> sound (pick <$> "sn*3 cp" <*> (spread iter [2,2,3]) "15 4 3 8")
+  --  |+| shape ((/1.2) <$> slow 8 sinewave1)
+  |+| resonance (slow 2 sinewave1)
+  ]
+
+-- crazy ass drum
+d1 $ slow 1 $ stack [
+  sound "house*2",
+  jux (spread slow [3,5] . rev) $ every 3 (striate 3) $ every 2 (brak) $ sound "house*2",
+  0.5 ~> sound "cp"
+  --sound "hh*4 [cp hh*2]"
+]
+
+-- *much* better crazy drum
+d1 $ stack [
+  sound "house*2",
+  jux (spread slow [3,5] . rev) $ every 3 (striate 3) $ every 2 (brak) $ sound "{rm*2, hh*4}",
+  0.5 ~> sound "cp"
+  ]
+
+--
+-- fwonk
+--
+
+-- cool fwonk lewp
+d2 $ every 3 (|+| resonance "0.5") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| shape ((/3) <$> sinewave1)
+
+-- cool #2 (more staccato, aggressive)
+d2 $ every 3 (|+| resonance "0.3") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] (run 4))
+  |+| vowel "a u o"
+  |+| shape ((/2) <$> sinewave1)
+
+-- weird fwonks
+d2 $ every 5 (jux rev) $ every 3 (|+| resonance "0.4") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> slow 5 "2 4 6 9")
+  |+| vowel "a e"
+  |+| shape ((/3) <$> sinewave1)
+
+-- spaced fwonk
+d2 $ jux (iter 3) $ slow 4 $ interlace (sound "fwonk/1 space*2") (0.5 ~> sound "[space/2 fwonk*2]")
+  |+| vowel "a"
+  |+| resonance "0.5"
+  |+| shape "0.2"
+  |+| pan (density 3 sinewave1)
+
+--
+-- wind
+--
+
+d1 $ stack [
+  sound "house*2",
+  0.5 ~> sound "cp"
+  ]
+
+d3 $ every 3 (jux rev) $ smash 10 [1,2] $ slow 1 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- nice
+d3 $ every 3 (jux rev) $ smash 10 [1,2] $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- nice in 4/4
+d3 $ slow 2 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> slow 2 "0 2 4 5 7 1 3 5")
+  |+| shape ((/2) <$> slow 2 sinewave1)
+
+-- simple wind 4/4
+d3 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> density 2 "0 1 2 3 7")
+  |+| vowel "e u"
+  |+| resonance ((/1.2) <$> sinewave1)
+
+--
+-- space - n.b. samples are way too loud
+--
+
+-- Sweet space break #1
+d4 $ spread striate [3,4] $ sound (pick <$> "space invaders" <*> spread density [2,2,5] "0 2 4 5 8 15 7")
+  |+| vowel "e"
+  |+| resonance "0.2"
+
+-- Sweet space break #2
+d4 $ striate 4 $ sound (pick <$> "[space invaders]*3" <*> spread density [2,3,5] "0 2 4 6")
+  |+| vowel "e"
+  |+| resonance "0.2"
+
+d4 $ sound "invaders"
+-- velocity does nothing??
+--  |+| velocity (run 10)
+-- gain not in scope 
+--  |+| gain "0"

tidal/performance.tidal

@@ -0,0 +1,25 @@
+bps (146/60)
+
+d1 $ every 2 (density 2) $ sound "wobble"
+  |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+  |+| shape "0.5"
+
+d2 $ spread slow [2,1] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+  |+| shape ((/2) <$> slow 2 sinewave1)
+  |+| speed ((/) <$> slow 5 sinewave1 <*> "3 2 1")
+
+d3 $ stack [
+  jux (slow 1.5 . iter 6) $ every 4 (rev) $ sound "[house rm*2] [sn house]",
+  sound "house*2"
+]
+
+d4 $ every 3 (|+| vowel "a") $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 5 (run 3))
+  |+| resonance ((/2) <$> slow 3 sinewave)
+  |+| shape ((/3) <$> slow 4 sinewave1)
+  |+| speed "1.6"
+
+hush
+
+-- fwónk
+-- recorded for the cauldron challenge 001 (soundcloud.com/fwonkrecords/sets/the-cauldron-challenge-001)
+-- song in emacs + tidal by anny fm (anny.fm, soundcloud.com/anny-fm)

tidal/phase1.tidal

@@ -0,0 +1,59 @@
+bps (153/60)
+
+-- wind cans. unsure whether to keep this
+d1 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- standard fwonk loop
+d2 $ every 3 (|+| resonance "0.3") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| shape ((/3) <$> slow 3 sinewave1)
+
+-- out of sync deliberately
+d2 $ every 3 (|+| resonance "0.3") $ slow 1.9 $ sound (pick <$> "fwonk [fwonk/2]*2 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| resonance ((/2) <$> slow 2 sinewave1)
+  |+| shape ((/3) <$> slow 3 sinewave1)
+
+-- excellent
+d3 $ stack [
+  spread slow [1,1.1] $ every 2 brak $ sound "{rm*2, hh*4}",
+  sound "house*2",
+  brak $ 0.5 ~> sound (pick <$> "rm*3 sn/9" <*> spread iter [2,2,3] (run 4))
+           ]
+
+-- kinda cool bassy
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 4 $ sound (pick <$> "wobble*4" <*> slow 2 "1 3 5 15")
+--  |+| vowel "o"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+-- ok this actually turned out pretty good
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 4 $ sound (pick <$> "psr wobble*4" <*> slow 2 "1 3 5 15")
+--  |+| vowel "o"
+  |+| end "0.4"
+--  |+| end "0.8" -- heavier
+  |+| shape ((/2) <$> slow 4 sinewave1)
+-- also try slow 3.7
+
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 3.7 $ sound (pick <$> "psr wobble*4" <*> spread slow [2,1,2] (run 5))
+  |+| end "0.8"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+--
+-- composition notes
+--
+
+-- start slow
+d3 $ slow 2 $ stack [
+  sound "house*2 [sn/9 ~ [house]/2]"
+  ]
+
+d3 $ slow 2 $ stack [
+  sound "house*2 [sn/9 ~ ~ ~ [house]/2]"
+                    ]
+
+-- speed up a bit
+d3 $ stack [
+  sound "house*2",
+  slow 2 $ 0.5 ~> sound "sn/9"
+           ]

tidal/phase2.tidal

@@ -0,0 +1,141 @@
+bps (146/60)
+
+--
+-- drum
+--
+
+d1 $ sound "house [~ house]"
+
+d1 $ sound "house [sn:2 house]"
+
+d1 $ sound "[house hh*2] [sn:2 house]"
+
+d1 $ every 4 rev $ sound "[house hh*2] [sn:2 house]"
+
+-- ooh
+d1 $ jux (slow 1.5 . iter 6) $ every 4 rev $ sound "[house hh*2] [sn:2 house]"
+-- "mono" copy
+d1 $ superimpose (slow 1.5 . iter 6) $ every 4 rev $ sound "[house hh*2] [sn:2 house]"
+
+d1 $ every 2 (slow 2 . brak) $ jux (slow 1.5 . iter 6) $ every 4 rev $ sound "[house rm*2] [sn:2 house]"
+
+-- nah
+--d1 $ superimpose (iter 4) $ every 4 rev $ sound "[house hh*2] [sn:2 house]"
+--d1 $ superimpose (slow 1.5 . iter 6) $ every 4 rev $ sound "[house hh*2] [sn:2 house]"
+
+--
+-- fwonk
+--
+
+d2 $ sound "fwonk:2"
+
+d2 $ sound "fwonk:2 fwonk:2*2"
+
+d2 $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+
+d2 $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+
+d2 $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+   |+| resonance ((/2) <$> slow 3 sinewave)
+
+d2 $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+   |+| resonance ((/2) <$> slow 3 sinewave)
+   |+| shape ((/3) <$> slow 4 sinewave1)
+
+d2 $ every 3 (|+| vowel "a") $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+   |+| resonance ((/2) <$> slow 3 sinewave)
+   |+| shape ((/3) <$> slow 4 sinewave1)
+
+d2 $ every 3 (|+| vowel "a") $ every 2 (density 2) $ sound (pick <$> "fwonk fwonk*2" <*> slow 7 (run 3))
+   |+| resonance ((/2) <$> slow 3 sinewave)
+   |+| shape ((/3) <$> slow 4 sinewave1)
+   |+| speed "1.8"
+
+--
+-- wind
+--
+
+d3 $ slow 4 $ sound "wind"
+
+d3 $ slow 4 $ sound "wind can"
+
+d3 $ slow 4 $ sound "wind [can can*2]"
+
+d3 $ slow 4 $ sound "[wind]/2 [can can*2]"
+
+d3 $ slow 4 $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 3 (run 4))
+
+d3 $ slow 4 $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+
+d3 $ slow 3 $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+
+d3 $ spread slow [3,2] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+
+d3 $ spread slow [2,1] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+
+d3 $ spread slow [2,1] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+   |+| shape ((/2) <$> slow 2 sinewave1)
+
+d3 $ spread slow [2,1] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+   |+| vowel "o u"
+   |+| shape ((/2) <$> slow 2 sinewave1)
+
+d3 $ spread slow [2,1] $ sound (pick <$> "[wind]/2 [can can*2]" <*> slow 5 (run 8))
+   |+| vowel "o u"
+   |+| shape ((/2) <$> slow 2 sinewave1)
+   |+| speed ((/) <$> slow 5 sinewave1 <*> "3 2 1")
+
+--
+-- bass
+--
+
+d5 $ sound "wobble"
+   |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+
+d5 $ every 2 (density 2) $ sound "wobble"
+   |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+
+d5 $ brak $ every 2 (density 2) $ sound "wobble"
+   |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+
+d5 $ brak $ every 2 (density 2) $ sound "wobble"
+   |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+   |+| shape "0.4"
+
+-- ugh
+d5 $ every 2 (|+| resonance "1") $ every 4 (density 1.1) $ brak $ every 2 (density 2) $ sound "wobble"
+   |+| speed ((+0.3).(*1.3) <$> slow 4 sinewave1)
+
+--
+-- lol
+--
+
+d5 $ spread density [1,2,1] $ sound (pick <$> "metal*2" <*> slow 6 (run 5))
+
+d5 $ spread density [1,2,1] $ sound (pick <$> "newnotes*2" <*> slow 6 (run 5))
+
+d5 $ spread density [1,1,2] $ sound (pick <$> "newnotes metal" <*> slow 8 (run 5))
+
+--
+-- click
+-- (maybe save this for a 4-to-floor track)
+
+d4 $ sound "click"
+
+d4 $ sound (pick <$> "click" <*> slow 5 (run 4))
+
+d4 $ density 2 $ sound (pick <$> "click" <*> slow 5 (run 4))
+
+d4 $ spread density [1,1,2] $ sound (pick <$> "click" <*> slow 5 (run 4))
+
+d4 $ spread density [1,2,1] $ sound (pick <$> "click" <*> slow 5 (run 4))
+
+-- more drums
+-- kinda shit but possible evolution
+
+d1 $ jux (slow 1.5 . iter 6) $ every 4 rev $ sound (pick <$> "[house hh*2] [sn:2 house]" <*> slow 2 (run 4))
+
+d1 $ stack [
+   jux (slow 1.5 . iter 6) $ every 4 rev $ 0.2 ~> sound (pick <$> "[rm hh*2] [sn:2 rm]" <*> slow 2 (run 4)),
+   sound "house*2"
+]

tidal/scratch.tidal

@@ -0,0 +1,33 @@
+bps (153/60)
+
+-- wind cans. unsure whether to keep this
+d1 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- standard fwonk loop
+d2 $ every 3 (|+| resonance "0.3") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| shape ((/3) <$> sinewave1)
+
+-- out of sync deliberately
+d2 $ every 3 (|+| resonance "0.3") $ slow 1.9 $ sound (pick <$> "fwonk [fwonk/2]*2 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| resonance ((/2) <$> slow 2 sinewave1)
+  |+| shape ((/3) <$> slow 3 sinewave1)
+
+-- excellent
+d3 $ stack [
+  spread slow [1,1.1] $ every 2 brak $ sound "{rm*2, hh*4}",
+  sound "house*2",
+  brak $ 0.5 ~> sound (pick <$> "rm*3 sn/9" <*> spread iter [2,2,3] (run 4))
+           ]
+
+-- kinda cool bassy
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 4 $ sound (pick <$> "wobble*4" <*> slow 2 "1 3 5 15")
+--  |+| vowel "o"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+-- is this bass any good at all???
+d4 $ jux (slow (13%12) . rev) $ striate 12 $ sound "wobble*4"
+--  |+| vowel "u"
+  |+| shape ((/2) <$> spread density [0.5,4,3] sinewave1)

tidal/second go.tidal

@@ -0,0 +1,98 @@
+bps (153/60)
+
+-- wind cans. unsure whether to keep this
+d1 $ sound (pick <$> "[wind]/2 [can*2 [can/2]*2]" <*> (spread density [3,4] . iter 3) "0 2 4 6 8 9")
+  |+| shape ((/2) <$> slow 3 sinewave1)
+
+-- standard fwonk loop
+d2 $ every 3 (|+| resonance "0.3") $ slow 2 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| shape ((/3) <$> slow 3 sinewave1)
+
+-- out of sync deliberately
+d2 $ every 3 (|+| resonance "0.3") $ slow 1.9 $ sound (pick <$> "fwonk [fwonk/2]*2 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+  |+| resonance ((/2) <$> slow 2 sinewave1)
+  |+| shape ((/3) <$> slow 3 sinewave1)
+
+-- excellent
+d3 $ stack [
+  spread slow [1,1.1] $ every 2 brak $ sound "{rm*2, hh*4}",
+  sound "house*2",
+  brak $ 0.5 ~> sound (pick <$> "rm*3 sn/9" <*> spread iter [2,2,3] (run 4))
+           ]
+
+-- kinda cool bassy
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 4 $ sound (pick <$> "wobble*4" <*> slow 2 "1 3 5 15")
+--  |+| vowel "o"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+-- ok this actually turned out pretty good
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 4 $ sound (pick <$> "psr wobble*4" <*> slow 2 "1 3 5 15")
+--  |+| vowel "o"
+  |+| end "0.4"
+--  |+| end "0.8" -- heavier
+  |+| shape ((/2) <$> slow 4 sinewave1)
+-- also try slow 3.7
+
+d4 $ jux (slow (13%12) . rev) $ striate 6 $ slow 3.7 $ sound (pick <$> "psr wobble*4" <*> spread slow [2,1,2] (run 5))
+  |+| end "0.8"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+--
+-- composition notes
+--
+
+-- start slow
+d3 $ slow 2 $ stack [
+  sound "house*2 [sn/9 ~ [house]/2]"
+  ]
+
+d3 $ slow 2 $ stack [
+  sound "house*2 [sn/9 ~ ~ ~ [house]/2]"
+  ]
+
+-- speed up a bit
+d3 $ stack [
+  sound "house*2",
+  slow 2 $ 0.5 ~> sound "sn/9"
+  ]
+
+--
+-- some shit i did night of monday 17th feb
+--
+
+d1 $ jux (slow (13%12) . rev) $ striate 6 $ slow 3 $ sound "psr wobble*4"
+  |+| end "0.8"
+  |+| shape ((/2) <$> slow 4 sinewave1)
+
+-- 130bpm
+d2 $ stack [
+  sound "house*2",
+  sound "bd*6",
+  0.5 ~> sound (pick <$> "rm*3 sn/9" <*> spread iter [2,2,3] (run 4)),
+  sound "{rm*2, hh*4}"
+  ]
+
+d2 $ stack [
+  --superimpose brak $ sound "house*2",
+  brak $ sound "fwonk*2 sn/9",
+  every 4 (density 2) $ sound "hh*4"
+  ]
+
+d1 $ sound "[fwonk/3] cp*2, cp*16"
+  |+| shape ((/2) <$> slow 4 sinewave)
+
+d3 $ slow 1.9 $ sound (pick <$> "fwonk*2 [fwonk/2]*3 fwonk/1" <*> spread slow [2,3,5] "1 2 3 4 5 10")
+  |+| vowel "a"
+--  |+| resonance ((/3) <$> slow 3 sinewave1)
+  |+| shape ((/2) <$> slow 2 sinewave1)
+
+d4 $ slow 1.5 $ sound (pick <$> "[wind]/2 [can [can/2]*2]" <*> spread density [2,3] "1 4 5 8")
+  |+| shape ((/2) <$> slow 1.2 sinewave1)
+
+d2 $ sound "house*8"
+
+d1 $ spread density [1,2] $ striate 5 $ sound "fwonk/3 fwonk/2 wobble*3"
+  |+| vowel "a"
+  |+| shape ((/1.3) <$> slow 4 sinewave1)