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)