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,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"