API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 22nd, 2019
91
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Haskell 12.96 KB | None | 0 0
raw download clone embed print report
  1. -- Weave vocal strands
  2. d1 $ weave' 16 ((slow 16 $ striate' 128 (1/64) $ sound "bev*2") # pan sine)
  3.   [(vowel "a e i o u" #),
  4.    (vowel "i e p u" #),
  5.    (speed "1 1.5 0.5" #)]
  6.  
  7. -- pour the wine
  8. d1 $ stack [slow 4 $ every 2 (rev) $ slow 32 $ striate 256 $ sound "[bev]*6"
  9.             # pan "1",
  10.             slow 2 $ every 2 (rev) $ slow 32 $ striate 256 $ sound "[bev]*4"
  11.             # pan "0"]
  12.  
  13. -- Weave kicks
  14. d1 $ jux (density 1.5) $ weave 16 (shape (range 0 0.8 sine)) (map (every 4 rev) $
  15.   [sound "bd8(3,8)", sound "drum(5,8)"])
  16.   # speed "1"
  17.   # accelerate "-1"
  18.  
  19. -- plastik
  20. d1 $ weave 16 (speed (range 1 1.4 sine)) [jux (iter 8) $ sound "sd8:4*4",
  21.                                            jux (iter 4) $ sound "bd*2",
  22.                                            jux (iter 3) $ sound "sd8:3*4"]
  23.  
  24. d2 $ weave 32 (speed (range 0.9 1.6 sine)) [jux (iter 8) $ sound "sd8:4*4",
  25.                                              jux (iter 4) $ sound "bd*2",
  26.                                              jux (iter 3) $ sound "sd8:3*4"]
  27.  
  28. -- scrape it
  29. d1 $ sometimes rev $ slowspread (stut 4 1) [0.03,0.1, 0.2, 0.01] $ jux (# speed "4") $ every 2 (density 2) $
  30.   sound "bd8*2"
  31.   # shape "0.5"
  32.  
  33. -- rissetesque rise, try replacing (rev) with (iter 4)
  34. d1 $ jux (rev) $ weave 16 (sound (samples "arpy*8" (run 8)))
  35.   [vowel "a e o",
  36.    vowel "a e o i",
  37.    vowel "o i a o i",
  38.    speed "2 3 1",
  39.    speed "-0.75 -0.5"]
  40.  
  41. -- shackup cut up
  42. d1 $ jux (iter 4) $ weave 16 (chop 32 $ sound "shackup") [vowel "a e o" # speed "2",
  43.                                                           speed "2 3 1 0.5",
  44.                                                           crush "[8 4 5 8]*2"]
  45.  
  46. -- additive rhythm
  47. d1 $ sound (samples "[sd8, jvbass]*8" (slow 8 $ scan 8))
  48.  
  49. -- additive rhythm + woven parameters
  50. d1 $ weave' 4 (sound (samples "[sd8, ht8]*8" (slow 8 $ scan 8)))
  51.  [(# speed "1 2 3"),
  52.   chop 8 . (pan "0 0.25 0.5 0.75" #)]
  53.  
  54. -- every four times, twice as fast, every other of those, reversed
  55. d1 $ every 4 (every 8 (rev) . density 2) $ brak $ sound "drum drum:1"
  56.  # shape "0.8"
  57.  # speed "2"
  58.  
  59. -- broken dub
  60. d1 $ every 2 (slowspread (chop) [2,4,8,16])
  61.  $ slowspread ($) [density 2, rev, iter 4, density 1.5]
  62.  $ sound (samples "feel less" (slow 16 $ scan 16))
  63.  
  64. d1 $ stack [slow 2 $ jux (whenmod 6 4 (density 2)) $ brak $ sound (samples "newnotes newnotes" (slow 8 $ run 9))
  65.            # speed "[1,2 4 3]/4",
  66.            slow 2 $ (1/32) <~ (rev $ brak $ sound (samples "newnotes newnotes newnotes" (slow 8 $ run 12))
  67.            # speed "[1,2 4 8]/4")]
  68.  
  69. -- kitchen techno
  70. d1 $ every 2 (density 2) $ stack [sound "{jungbass*3 jungbass:1*4, jungbass:5 [east*3 east:3*2] east:2*4}"
  71.                                  # speed "[2 1 3]/2"
  72.                                  # shape "0.5",
  73.                                  every 3 (density 2) $ every 2 (jux rev) $ sound (samples "east*8" "{1 2 3, 4 5 6 7, 8 9 10 11 12}")
  74.                                  # speed "[2 1]/2"
  75.                                  # end "0.2"]
  76.  
  77. -- bossanova
  78. d1 $ slow 2 $ sound $ pick <$> "[casio]*8" <*> "1 0 2 0 1 0 2 2"
  79.  
  80. -- difficult gabber
  81. d1 $ stut 8 0.7 (-(1/8))$ superimpose (iter 4) $ sound "[gabbalouder*2 gabba*3 less*2]/3 hc"
  82.  # speed "[4 3 24 4]/5"
  83.  
  84. -- drum solo
  85. d1 $ stack [slowspread density [1,64,1,4,1,3,1,12] $ striate 8 $ sound "[bd sn/2 [~ bd] sn/2]/4"
  86.            # speed "0.9"
  87.            # pan "1",
  88.            slowspread density [1,128,1,4,1,3,1,12] $ striate 4 $ sound "[bd sn/2 [~ bd] sn/2]/4"
  89.            # speed "0.9"
  90.            # pan "0"]
  91.  
  92. -- kicks are all around
  93. d1 $ every 3 (iter 4) $ jux (slow 2 . rev) $ slow 2 $ brak $ sound "bd*16 drum*8 bd*12 drum*12"
  94.  
  95. -- breaks
  96. d1 $ every 2 (slow 2) $ (juxcut (rev . iter 8) $ every 4 (0.25 <~) $ striate 4 $ sound "[breaks165, breaks125]")
  97.  # speed "[2 1 1]/2"
  98.  
  99. -- unbelievable
  100. d1 $ weave 32 (crush (range 2 4 sine)) $
  101.  [jux rev $ slowspread ($) [id, iter 8] $ sound "bd ~ sn:2*3?",
  102.   every 2 (# vowel "a") $ jux rev $ iter 4 $ chop 128 $ sound "breaks165"
  103.     # gain "1",
  104.   spin 2 $ slow 4 $ chop 16 $ superimpose (slowspread (<~) [0.25, 0.75]) $
  105.     sound "bass3 bass3:3"
  106.     # shape "0.6"
  107.     # speed "[2, -2.03]",
  108.   palindrome . chop 8 $ jux (2 <~) $
  109.     sound (pick <$> "h*4" <*> (slow 8 $ floor <$> range 0 16 sine))
  110.     # speed "0.7"]
  111.  
  112. -- cut pulse
  113. d1 $ every 4 (const (sound "feel:2"))  $ superimpose (iter 4) $ stut 4 0.9 (1/4) $ every 4 rev $ striate 4 $ sound "[[bd*4, can] [bass3:2, can:2]]/2"
  114.   # speed "4"
  115.  
  116. -- up and down
  117. d1 $ every 3 (slow 1.5) $ every 2 (density 1.5) $ (density 2 $ striate 32 $ sound "wobble wobble wobble wobble")
  118.   # speed "2 8 ~ 5"
  119.  
  120. -- jolly old rave
  121. d1 $ superimpose (iter 4) $ sound "feel [rave2 rave2:4]/2 feel:2 ~"
  122.   # speed "[1 2 3 2]/4"
  123.  
  124. -- very quiet nibbling
  125. d1 $ superimpose (iter 8) $ sound "chin*4 chin*3 ~ chin*4"
  126.  
  127. -- roll over
  128. d1 $ every 2 (smash 4 [1,2,3,4]) $ sound "bd8:4 ~ sd8 bd8:2*2 bd8:4 ~ [~ bd] sn"
  129.  
  130. -- err
  131. d1 $ every 2 (slow 2) $ stut 5 0.9 (1/16) $ every 4 (0.25 <~) $ jux (iter 4) $ slow 2 $ sound "{bd bd bd ~ , cp [~ sn:2] [kurt:4 kurt:8]}"
  132.   # gain "0.9"
  133.   # end "0.2"
  134.  
  135. -- soft cell gabber remix
  136. d1 $ slowspread ($) [iter 8, rev, density 2, slow 2] $  jux (rev) $ every 3 (# speed "2") $ every 2 (striate 4) $ sound "if if:2 if:3 ~"
  137.  # speed "8"
  138.  
  139. -- slightly electroacoustic dnb intro
  140. d1 $ slowspread ($) [rev, (# speed "[0.5]"), density 2, (# speed "[1,2]")] $  every 3 (# vowel "a e") $ every 4 (# speed "0.25") $ jux (rev) $ slow 4 $ striate 16 $ sound "pad:3"
  141.  # speed "0.5"
  142.  # gain "0.8"
  143.  
  144. -- tap
  145. d1 $ stut 4 0.9 (-3) $ slowspread ($) [id, density 2, iter 8, density 3] $ jux (# speed "1.3") $ slow 2 $ sound "bd8*2 sd8"
  146.   # shape "0.2"
  147.   # speed "[1.2 3]/2"
  148.  
  149. -- walking
  150. d1 $ stack [slow 2 $ every 4 (density 2) $ jux (iter 8) $ sound (pick <$> "bass3*2 bass3" <*> (slow 3 $ "1 2 3 4 5"))
  151.            # speed "2"
  152.            # vowel (every 3 rev "a e"),
  153.            brak $ every 3 (slow 2) $ jux (iter 4) $ sound (pick <$> "jvbass*2 jvbass*3" <*> (slow 3 $ "1 2 3 4 5"))
  154.            # speed "2"
  155.            # shape "0.7"
  156.            # vowel (every 3 rev "a e")]
  157.  
  158. -- itch no more
  159. d1 $ every 4 (rev . chop 8) $ superimpose (iter 4) $
  160.     every 2 (slow 2) $ stack [sound (samples "lt8(3,8)" (slow 10 $ scan 12)) # speed "1" # pan "0",
  161.                               sound (samples "bd8(5,8)" (slow 12 $ scan 12)) # speed "0.9" # pan "1"]
  162.   # delay "0.9"
  163.   # delaytime "0.02 0.01"
  164.  
  165. -- here we are and there we are
  166. d1 $ every 2 rev $ striate 16 $ sound "[tabla tabla:2]"
  167.  # speed (slow 4 $ (+0.4) <$> sine)
  168.  
  169. -- clapclap
  170. d1 $ every 2 (density 2) $ every 3 (rev) $ superimpose (iter 8) $ sound "bd ~ sn:2 cp"
  171.  # speed "[1 2]/2"
  172.  
  173. -- rasp
  174. d1 $ spin 2 $ slow 2 $ every 2 (slow 0.75) $ sound "bd*8 bd:3*2 bd*32 ~"
  175.   # gain "0.9"
  176.  
  177. -- righteous happysadcore
  178. d1 $ stack [(slowspread (chop) [4, 8, 3] $ sound "~ off")
  179.            # speed (slow 4 $ range 0.5 2 $ sine),
  180.            slow 2 $ every 2 (0.25 <~) $ stut 3 0.9 (0.75) $ every 2 (within (0,0.25) (density 2)) $ chop 32 $ sound "breaks125"]
  181.  
  182. -- smashed melody
  183. d1 $ (slow 4 $ jux rev $ every 2 (slow 2) $ (striate 32 $ sound (samples "[newnotes*8 newnotes*12 newnotes*8 newnotes]" (slow 5 $ run 16))))
  184.  # speed ((+0.5) <$> (slow 8 $ sine))
  185.  # vowel "[a o o e i o u]"
  186.  # shape "0.4"
  187.  
  188. -- poignant duet
  189. d1 $
  190.  stack [
  191.    every 2 (density 2) $ jux4 (iter 8) $ slowspread ($) [slow 2, iter 8, id, (# speed "0.9")] $ sound (pick <$> "kurt*8" <*> (slow 3 $ run 12))
  192.    # speed "2",
  193.    smash 4 [1,2,3,4] $ brak $ spin 2 $ slow 2 $ chop 3 $ sound "rave:6"]
  194.  
  195. -- all you need
  196. d1 $ stack [jux (((every 3 rev) . every 2 ((1/16) <~)) . (# speed "[2,3]")) $ slow 2 $ sound (samples "jvbass*2 jvbass*4 jvbass*2" "[3 5 2,8 2 1]/4")
  197.            # shape "0.3"
  198.            # end "0.25",
  199.            jux (rev) $ striate 4 $ sound (samples "[newnotes*2] newnotes" "3 2 1")
  200.            # speed (every 2 ((*0.5) <$>) "[1 0.75 1 0.5, 3 2 1]/3")]
  201.  
  202. -- buy my plugin
  203. d1 $ density 2 $ slowcat [superimpose (smash 4 [4,2,1,4]) $ jux rev $ sound (samples "{gretsch*4, gretsch*3 bd*2 sn/2}" (stack [(slow 3 $ run 8), "1 5 2"]))
  204.              # speed "2",
  205.              interlace (jux (0.25 <~) $ (striate 4) $ sound "bd/4*4 bleep/7")
  206.  (sound (samples "mouth*8" (every 3 rev $ run 8)))]
  207.  
  208. -- raise your hands
  209. d1 $ stack [(every 4 (0.5 <~) $ every 3 (0.25 <~) $ striate 64 $ sound "breaks125")
  210.            # speed "[1 2 3]/5",
  211.            (spin 2 $ every 3 (0.5 <~) $ every 3 (0.25 <~) $ striate 64 $ sound "breaks125")
  212.            # speed "[1 2 3 4]/5"]
  213.  
  214. -- spot the tactus
  215. d1 $ slow 2 $ (superimpose (iter 8) $ every 4 (slow 3) $ every 3 (density 5) $ sound "[feel ~ lt8:5, sd8:3 ht8:3]" # speed ((+1) . (*0.2) <$> slow 4 sine))
  216.  
  217. -- bass interlace
  218. d1 $ interlace (sound "bass3:2 ~ jvbass:3 jvbass:4")
  219.  (rev $ sound "bass3:2 jvbass:3 jvbass:4")
  220.  
  221. -- heavy hardcore
  222. d1 $ stack [superimpose (iter 4) $ every 4 rev $ sound "[[feel feel:0] feel*3, haw:4*3 haw]",
  223.            sound "~ sid:2 peri:1 ~"
  224.            # gain "1.5"
  225.            # speed "1 2 3",
  226.            slow 2 $ stut 4 0.98 (-0.25) $ slow 2 $ sound "[feel*2 feel:2 [~ feel*2] feel:2, ~ feel mod:2]"
  227.            # speed "4"
  228.            # gain "1.4",
  229.            slow 16 $ striate 128 $ sound "bev*2"
  230.            # gain "1.4"
  231.            # speed "1.5"]
  232.  
  233. -- cave rave
  234. d1 $ spin (4) $ (every 3 (density 1.5) $ slow 2 $ sound (pick <$> "[rave2 ~ rave2] [rave2*8]" <*> "[3 4 2 3]/3"))
  235.  # speed (slow 4 $ (+1.5) <$> sine)
  236.  
  237. -- don't sneeze
  238. d1 $ slowspread ($) [echo 0.5, rev, density 2, density 1.5] $ jux (iter 4) $ every 2 (iter 3) $ sound "bd:3 [sn:1 ~ sn:1]"
  239.   # speed (every 3 rev "2 1")
  240.   # end "0.2"
  241.  
  242. -- put some effort in
  243. d1 $ stack [slow 2 $ every 2 (0.25 <~) $ superimpose (rev) $ every 4 (striate 4) $ sound (pick <$> "bd*2 bd*4" <*> (slow 4 $ ((floor . (*16)) <$> sine))),
  244.             smash 2 [1,2] $ jux (brak) $ whenmod 4 2 (density 2) $ slow 2 $ sound (pick <$> "amencutup*8" <*> (slow 4 $ run 32))
  245.             # speed ((+1) <$>sine)]
  246.  
  247. -- euphoric squee
  248. d1 $ interlace (smash 8 [1,2,1,4] $ every 2 (density 2) $ jux (brak) $ whenmod 4 2 (density 2) $ slow 2 $ sound (pick <$> "future*8" <*> (slow 4 $ run 32))
  249.   # speed ((+1) <$>sine))
  250.   (sound "~ bleep:9"
  251.   # speed (slow 8 sine))
  252.  
  253. -- woodpeckstep
  254. d1 $ slow 2 $ every 3 (slow 2) $ every 4 (density 2) $ superimpose (iter 4) $ jux (every 2 rev) $ sound "bd ~ sn*16 ~ bd*8 ~ sn*6 ~"
  255.   # speed "2"
  256.   # vowel "a"
  257.  
  258. -- knock em back
  259. d1 $ stack [every 2 (slow 2) $ superimpose (iter 4) $ slow 2 $ every 8 ((1/4) <~) $ sound "future*3 bd*2 wobble [cp bd bd]"
  260.             # shape "0.9"
  261.             # gain "2"
  262.             # speed "[2,3,4]"
  263.             # cutoff ((+0.01) <$> (slow 16 $ range 0 0.01 sine))
  264.             # resonance ((+0.2) <$> (slow 12 $ range 0 0.5 sine)),
  265.             slowspread ($) [rev, iter 8, (# speed "0.75"), density 2] $ jux (0.25 <~) $ sound (pick <$> "amencutup*4 amencutup*2" <*> (slow 8 $ run 128))
  266.             # shape "0.7"
  267.             # gain "2"]
  268.  
  269. -- if a cat made techno
  270. d1 $ slowspread ($) [rev, iter 4, (0.5 <~)] $ slowspread (stut 8 0.95) [0.25,0.5,1,0.75] $ slow 2 $ superimpose rev $ sound "[bd bleep:5 bd*2 bd bd cp drum:1 ~, gabbalouder ~ rave2:4 ~]"
  271.   # gain "0.5"
  272.   # speed "[1,[2 3 0.75]/3]"
  273. --  # delay "1"
  274.  
  275. -- snel hest
  276. d1 $ stack [every 3 (stut 3 0.9 (1/3)) $ sound "{lighter lighter:3 ~ lighter:4, lighter:9 bd drum:2}",
  277.             slow 2 $ slowspread ($) [id, density 2, iter 4, rev] $ sound "~ [jungbass:4 ! jungbass:4*2 jungbass:5]/2"
  278.             # speed "2",
  279.             every 4 (within (0, 0.25) (density 2)) $ (slow 2 $ sound (pick <$> "{lighter ~ can ~ bd rave2 bd sn, bd*3 cp:2 bd}" <*> (slow 5 $ run 12)))
  280.             # speed "16"]
  281.  
  282. -- wakkawakka
  283. d1 $ stack [slowspread ($) [(# speed "2"), rev, iter 4, rev] $ stut 3 (0.25) (-0.25) $ sound (pick <$> "industrial*8" <*> (every 6 (const (irand 32)) "[0 [1 4]/3 2 [3 6 4]/3]*2"))
  284.             # end (every 8 (const 0.04 <$>) $ "0.03")
  285.             # cutoff (every 4 ((*4) <$>) "0.04 0.05")
  286.             # resonance "[0.6 0.4 0.1]/3",
  287.             jux rev $ density 4 $ striate' 2 0.2 $ sound (pick <$> "[bass3:2 bass3:7]/2" <*> (slow 8 $ run 8))
  288.            # speed (every 4 ((*2) <$> ) "[[1,2] 1 1 [4.1 2]/2]/4")
  289.            # accelerate "1"
  290.            # gain "0.8"]
  291.  
  292. -- bad noise, don't run
  293. d1 $ every 2 (density 2) $
  294.   stack [slow 2 $ sound "{jungbass*3 jungbass:1*4, jungbass:5 [east*3 east:3*2] east:2*4}"
  295.          # speed "[2 1 0.5]/2"
  296.          # shape "0.5",
  297.          every 3 (density 2) $ every 2 (jux rev) $ sound (samples "east*8" "{1 2 3, 4 5 6 7, 8 9 10 11 12}")
  298.          # speed "[0.5 1]/2"
  299.          # end "0.2"]
  300.  
  301. -- move gabba
  302. d1 $ weave 16 (pan sine) [sound "gabba(3,8)",
  303.                            sound "gabba(5,8)",
  304.                            sound "arpy*4" # gain "1.2",
  305.                            jux (iter 4. chop 8 . rev) $ sound (samples "arpy*2 kurt" "[1 2]/2")
  306.                            # gain "1.4"
  307.                            # speed "[0.5 1]/2"
  308.                            # accelerate "[-1 2]/2"]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!