initial commit with all the bits

2018-05-14 12:11:40 +01:00
commit 05d3518fac
15 changed files with 546 additions and 0 deletions
@@ -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"
+           ]