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"