Archived
142 lines
3.9 KiB
Plaintext
142 lines
3.9 KiB
Plaintext
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"
|
|
]
|