Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

adds

  • Loading branch information...
commit d7a65ef9295256176459ee1f86a99f0a9acbc55a 1 parent de8ecee
@yaxu authored
View
19 AdeSync.hs
@@ -0,0 +1,19 @@
+import Sound.OpenSoundControl
+import Network.Netclock.Client
+
+tpb = 4
+address = "127.0.0.1"
+
+adeip = "192.168.1.3"
+adeport = 1777
+
+main = clocked "adesync" address address tpb ot
+
+ot :: BpsChange -> Int -> IO ()
+ot change tick = do putStrLn "tick"
+ ade <- openUDP adeip adeport
+ let m = Message "/PureEvents/Beat" [Int tick]
+ send ade m
+ close ade
+ return ()
+
View
14 scripts/beam.smooth
@@ -0,0 +1,14 @@
+d4 $ (striate (every 2 ((1%2) <~) (sound "[bd h/3] [bd kurt/2 kurt bd]")) 3)
+ ~~ pan "1 0"
+ ~~ vowel "e"
+
+d1 $ sound (cat ["[~ [sn jvbass] ~ [sn, jvbass]]",
+ density (1%3) "[~ [sn jvbass] ~ [sn, jvbass]]"
+ ])
+ ~~ pan "0 1"
+
+d3 $ sound "[bd wobble bd] wobble"
+ ~~ speed "0.8"
+
+d5 $ sound "bd sn/4 [cp sn/4]"
+
View
21 scripts/crunch.smooth
@@ -0,0 +1,21 @@
+d1 $ every 2 (density (1%2)) $ sound "[bd bd bd bd] [bd bd bd] bd"
+ ~~ pan "0"
+
+d2 $ every 3 ((1%2) <~) $ sound ("[bd bd [bd [sn/2 sn/2]]]")
+ ~~ pan "[1 0]"
+
+d3 $ (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 6 x]) (striate (sound "bd/2") 32)
+ ~~ pan "[1 0]"
+
+d1 $ (0) <~ (slow 4 $ striate (sound "bd can [~ [bd bd]] [sn sn sn]") 16
+ ~~ pan "1" ~~ speed "0.5")
+
+d2 $ (1%2) <~ (slow 6 $ striate (sound "bd can [~ [bd bd]] [sn sn sn]") 16
+ ~~ pan "0" ~~ speed "0.5")
+
+d4 $ sound (sample <$> ("[bd bd [bd bd bd], [bd bd bd] [bd bd bd bd]]") <*> "[1 2 4]")
+ ~~ speed "0.8"
+
+d5 $ sound "~ [~ off]"
+ ~~ speed "0.5"
+ ~~ end "0.25"
View
38 scripts/gear.smooth
@@ -0,0 +1,38 @@
+d2 $ slow (40%3) $ striate (sound "pebbles/2]") 160
+ ~~ speed "1.75"
+ ~~ pan "[0.5, 0]"
+
+d1 $ (slow (20%3) $ striate (sound "fire/2]") 160
+ ~~ speed "1.6"
+ ~~ pan "[0 1]")
+ ~~ vowel "u i"
+
+d2 $ (slow (20%3) $ striate (sound "fire/2]") 80
+ ~~ speed "1.5"
+ ~~ pan "[1 0]")
+ ~~ vowel "o e u"
+
+d3 $ slow (2%3) $ sound "[bd [~ ~ bd] bd bd, cr/5 rm rm]"
+ ~~ end "0.20"
+ ~~ speed "1.5"
+ ~~ pan "0"
+
+d4 $ slow (5%3) $ sound "[bd [bd [~ sn/2 ~] ~] bd bd, rm cr/4 rm]"
+ ~~ end "0.25"
+ ~~ speed "1.4"
+ ~~ pan "1"
+
+d4 silence
+d3 silence
+
+d5 $ every 3 (density (2%3)) $ sound (sample <$> "jvbass jvbass [jvbass [jvbass jvbass]]" <*> "[1 6]")
+ ~~ speed "[1.3,6.2,2.3]"
+
+d6 $ every 4 (density (2%3)) $ sound (sample <$> "jvbass jvbass [jvbass [jvbass jvbass ~]]" <*> "[1 6]")
+ ~~ speed (every 2 ((*2) <$>) "[3.9,1.5,1.3]")
+
+d7 $ every 2 (density 2) $ every 2 (density 2) $ sound "kurt/3 kurt/1 kurt/2 kurt/4 kurt/3 kurt/3"
+ ~~ begin "0.1"
+ ~~ end "0.15"
+ ~~ speed "0.3"
+
View
24 scripts/horse.smooth
@@ -0,0 +1,24 @@
+d1 $ slow 3 $ every 2 (~~ vowel "o" ~~ speed "0.9") (slow 3 $ sound "~ ~ ~ [hand/4 hand/4 hand/3] ~ hand/4 ~ ~"
+~~ pan "0")
+~~ speed "0.2"
+~~ vowel "i"
+
+d2 $ slow 2 $ sound "~ hand/3 ~ [hand/4 hand/4 hand/4] ~ hand/4 ~ ~"
+~~ pan "0.4"
+~~ speed "3"
+
+
+d3 $ slow 3 ( sound "hand/9 hand/4 ~ [hand/4 ~ hand/6]")
+ ~~ pan (sinewave1)
+ ~~ vowel "a e"
+
+
+d4 $ slow 4 $ striate (sound "hand/9 hand/6 hand/12") 128
+ ~~ pan "[1 0]"
+ ~~ speed "0.3"
+ ~~ vowel "e"
+
+d5 $ every 2 ((1%4) <~) (sound (sample <$> "hand hand ~ [hand ~ [hand hand]]" <*> (slow 5 "1 2 5 4 15")))
+
+d6 $ slow 2 $ every 4 ((1%8) <~) (sound "hand/5 [hand/4 hand/3 hand/4] [~ hand/5] ~"
+ ~~ pan "0 1" ~~ speed "0.04")
View
22 scripts/interface (fireflash's conflicted copy 2012-06-29).smooth
@@ -0,0 +1,22 @@
+d1 $ every 2 (density (1%2)) $ sound "[bd bd bd bd] [bd bd bd] bd"
+ ~~ pan "0"
+
+d2 $ every 3 ((1%2) <~) $ sound ("[bd bd [bd [sn/2 sn/2]]]")
+ ~~ pan "[1 0]"
+
+d3 $ (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 6 x]) (striate (sound "bd/2") 32)
+ ~~ pan "[1 0]"
+
+d1 $ (0) <~ (slow 4 $ striate (sound "bd can [~ [bd bd]] [sn sn sn]") 16
+ ~~ pan "1" ~~ speed "0.5")
+
+d2 $ (1%2) <~ (slow 6 $ striate (sound "bd can [~ [bd bd]] [sn sn sn]") 16
+ ~~ pan "0" ~~ speed "0.5")
+
+d4 $ sound (sample <$> ("[bd bd [bd bd bd], [bd bd bd] [bd bd bd bd]]") <*> "[1 2 4]")
+ ~~ speed "0.8"
+
+d5 $ sound "~ [~ off]"
+ ~~ speed "0.5"
+ ~~ end "0.25"
+
View
35 scripts/interface.smooth
@@ -0,0 +1,35 @@
+d1 $ (sound $ combine ["[bd cp bd] [bd/2 bd/4 cp [bd/3 bd] cp bd]", "sn/3 off cr"])
+ ~~ vowel "o"
+
+
+d1 silence
+d2 $ (slow 3 $ striate (sound "[bd bd bd] [bd bd [bd bd] bd]") 8)
+ ~~ pan "1"
+ ~~ end "0.1"
+d2 silence
+d3 $ every 3 (slow 2) $ (sound $ cat [slow 2 $ "bd [bd bd sn] [~ sn/2] bd",
+ slow 3 $ (sample <$> "bd bd [kurt [h bd]]" <*> "1 2 3 4")
+ ])
+ ~~ pan sinewave1
+ ~~ end "0.15"
+
+d4 $ (sound $ cat [slow 2 $ "bd [bd kurt/3 sn] [~ kurt] bd",
+ slow 3 $ "bd bd [bd [bd bd]]"
+ ])
+ ~~ pan "2 3"
+ ~~ end "0.5"
+
+d5 $ every 3 ((1%2) <~) $sound "[bd ~ bd] sn [~ [[bd [bd bd] bd] drum/2]] sn"
+
+
+d5 $ (\x -> cat [slow 3 x, slow 2 x, slow 3 x, slow 8 x]) (striate (sound "off/2") 4)
+ ~~ pan "2 3"
+ ~~ vowel "e"
+
+d6 $ every 2 (slow 3) $ (\x -> cat [slow 3 x, slow 2 x, slow 3 x, slow 8 x]) (striate (sound "sax/2") 4)
+ ~~ pan "2 3 1 0"
+ ~~ vowel "a e"
+ ~~ speed "[3 2 1]"
+
+d7 $ sound (every 3 ((1%3) <~) "[future/0 future/1 future/0] wobble [jvbass/2 jvbass/3]")
+ ~~ speed "1.2"
View
30 scripts/nnnnn.smooth
@@ -0,0 +1,30 @@
+d1 <- dirtstream "dirt1"
+d2 <- dirtstream "dirt2"
+d3 <- dirtstream "dirt3"
+d4 <- dirtstream "dirt4"
+
+
+d1 $ sample "bd ht [lt ht bd]"
+ ~~ pan "1 0"
+
+d2 $ sample "bd [bd bd bd] [lt ht bd]"
+ ~~ pan "0 1"
+d2 silence
+
+d4 $ sample "[]"
+ ~~ pan "0"
+ ~~ speed "0.3"
+d1 silence
+
+d3 $ sample "[~ ~ jvbass/0 ~ , ~ jvbass/2 ~ bd jvbass/8 ~, bd bd]"
+ ~~ speed "1"
+ ~~ pan "1"
+
+d2 $ sample "[jvbass/4 jvbass/0 ~ , ~ jvbass/2 bd jvbass/8 ~, bd ~ ~ ~]"
+ ~~ speed "0.4"
+ ~~ pan "0"
+
+d1 $ sample "[industrial/2 mouth/3 jvbass/4, mouth/4 [mouth/5 mouth/5 mouth/3] ~]"
+ ~~ duration "0.5"
+ ~~ speed "0.5"
+
View
38 scripts/poem.smooth
@@ -0,0 +1,38 @@
+d1 $ every 2 (~~ vowel "a") $ sound ((\x -> combine [x, density 4 x]) (sample <$> "kurt [kurt kurt kurt] kurt" <*> "1 2 3"))
+ ~~ pan "0 1"
+ ~~ speed "0.8"
+
+d2 $ every 2 (density 3) $ every 2 (density 6) $ sound "chin chin"
+ ~~ pan "0.6"
+
+d3 $ every 2 (density 2) $ every 2 (density 4) $ sound "chin chin"
+ ~~ pan "0"
+ ~~ speed "0.5"
+
+d4 $ every 3 (density 3) $ every 2 (density 2) $ sound "chin chin"
+ ~~ pan "2"
+ ~~ speed "0.5"
+
+d5 $ every 3 (density 3) $ every 5 (density 2) $ sound "chin chin"
+ ~~ pan "3"
+ ~~ speed "0.3"
+
+d6 $ sound "[bd bd] [odx odx odx]"
+ ~~ end "0.02"
+ ~~ pan "2"
+ ~~ speed "2"
+
+d7 $ every 3 ((1%4) <~) $ sound "[bd bd bd] [odx odx odx odx]"
+ ~~ end "0.02"
+ ~~ pan "3"
+ ~~ speed "1.4"
+
+d8 $ (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 8 x]) (striate (sound "cr/2") 32)
+ ~~ pan "0 1 2 3"
+
+d9 $ sound (cat ["bd [~ [sn sn sn]] bd [sn bd]", "bd sn sn"])
+ ~~ pan "0"
+
+d10 $ every 3 ((1%2) <~) (sound (cat ["bd [~ [sn sn sn]] bd [sn bd]", "bd sn sn"]))
+ ~~ pan "1"
+
View
43 scripts/poem2.smooth
@@ -0,0 +1,43 @@
+
+d1 $ sound "bd bd bd bd"
+ ~~ pan "0 1 2 3"
+
+
+
+d1 $ every 2 (density 4) $ (sound "[kurt kurt/1] [kurt/2 kurt/3 kurt/4]")
+ ~~ (pan "0 1")
+ ~~ vowel "e"
+ ~~ speed "3"
+
+d2 $ every 2 (density 2) $ ((1%4) <~ sound "[kurt kurt/1] [kurt/2 kurt/3 kurt/4]")
+ ~~ pan "0 1"
+ ~~ vowel "a"
+ ~~ speed "2"
+
+d2 silence
+
+d3 $ density 2 $ sound "bd sn"
+ ~~ pan (slow 8 ((*4)<$> sinewave1))
+ ~~ speed "4"
+
+d4 $ every 4 (density 2) $ sound "[bd sn [cp bd] sn, bd bd bd]"
+ ~~ pan "2.5"
+ ~~ speed "2"
+
+d5 $ (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 6 x]) (striate (sound "cr/2") 16)
+ ~~ pan "0 1 2 3"
+
+d8 $ (slow 2 (striate (sound "tabla/2 tabla/3") 8))
+ ~~ pan "2.5"
+ ~~ speed "[0.6,0.5]"
+ ~~ vowel "o"
+
+d6 $ slow 8 $ striate (sound $ "sheffield") 128
+ ~~ (slow 8 $ pan ((*1) <$> sinewave1))
+
+d8 $ sound "bd future wobble"
+
+d9 $ sound "[bd [bd bd bd] bd bd] [off bd bd]"
+ ~~ vowel "e"
+ ~~ pan sinewave
+
View
35 scripts/prism.smooth
@@ -0,0 +1,35 @@
+
+{- 7/4 quick quick slow -}
+
+{- Polyrhythmic house -}
+
+{- Texture -}
+
+{- Gabba -}
+
+d1 $ sound "bd [hc kurt hc kurt/2] bd/2 [hc [hc hc]]"
+ ~~ end "0.01"
+ ~~ speed "0.7"
+ ~~ pan "1"
+
+d2 $ sound "~ bd [hc kurt hc kurt/2] [hc [hc hc]]"
+ ~~ end "0.02"
+ ~~ speed "0.7"
+ ~~ pan "0"
+ ~~ vowel "o"
+
+d3 $ (sound $ combine ["bd ~ sn/4 ~ ~ bd sn/2 ~", density 6 "hh bd"])
+ ~~ end "0.1"
+
+d1 silence
+
+d4 $ slow 1 $ striate (sound "sheffield") 64
+ ~~ speed "2"
+
+d1 silence
+
+d1 $ sound "[bd ~] [sn sn] [sn [bd bd bd bd] sn]"
+ ~~ pan (sinewave1)
+ ~~ vowel "[a e]"
+
+d1 silence
View
87 scripts/setup.smooth
@@ -0,0 +1,87 @@
+
+d1 <- dirtstream "d1"
+d2 <- dirtstream "d2"
+d3 <- dirtstream "d3"
+d4 <- dirtstream "d4"
+d5 <- dirtstream "d5"
+d6 <- dirtstream "d6"
+d7 <- dirtstream "d7"
+d8 <- dirtstream "d8"
+d9 <- dirtstream "d9"
+d10 <- dirtstream "d10"
+d11 <- dirtstream "d11"
+d12 <- dirtstream "d12"
+
+d1 $ sound "[gabba, wobble, industrial] [gabba industrial/2 gabba] [gabba sn/2] gabba"
+
+d1 silence
+
+let x = striateO (sound "loop") 16 0.5
+
+d1 silence
+d1 $ x
+ ~~ speed "[1]"
+ ~~ pan "[0 1]"
+
+
+d2 $ sound (every 3 ((1%3) <~) "bd [bd ~ bd] bd sn/3")
+ ~~ pan "[0 1]"
+
+d1 silence
+
+d1 silence
+
+d1 $ every 4 ((1%4) <~)( (striate (sound "loop") 128)
+ ~~ speed "[0.9 3 1]"
+ ~~ pan "[0 0.5 1]"
+ ~~ vowel "[a e o]"
+ )
+
+
+
+d3 $ sound "[bd sn] [bd/5 sn] [bd/2 sn hc] [hc hc hc hc]"
+ ~~ pan "0"
+ ~~ vowel "e"
+
+d1 $ sound "[bd sn sn] [bd/5 sn] hc [bd/2 sn] [hc hc hc hc]"
+ ~~ pan "1"
+ ~~ vowel "e"
+
+d2 $ slow 3 $ striate ( sound "[sax, bd]") 64
+ ~~ pan ((1-) <$> sinewave1)
+ ~~ speed "4"
+ ~~ vowel "e"
+
+d4 $ slow 4 $ striate ( sound "sax") 64
+ ~~ pan "0"
+ ~~ vowel "e"
+
+d5 $ sound (every 3 ((1%4) <~) "bd/4 bd sn/2 bd")
+
+d4 silence
+
+d6 $ sound (sample <$> "[odx odx bd bd] ~ bd bd" <*> (slow 3 "[0 1 3]"))
+ ~~ speed "[0.9, 0.8, 0.7]"
+ ~~ pan "1"
+
+d7 $ sound (sample <$> "[odx [odx odx odx] bd bd] ~ newnotes bd" <*> (slow 2 "[0 1]"))
+ ~~ speed "[0.9, 0.8, 0.7]"
+ ~~ pan "0"
+
+
+d1 $ sound (sample <$> "[bd [bd [bd bd] bd] bd bd, hc hc [hc [hc [hc hc]]] hc, sn]" <*> "[0 5 2]")
+ ~~ speed "2"
+ ~~ end "[0.7, 5]"
+ ~~ pan "1"
+
+d2 $ slow (1/1) $ (sound $ (sample <$> "[bd [bd [bd ~] bd] bd bd, hc ~ ~ hc, sn]" <*> "[0 5 2]"))
+ ~~ speed "[2, 0.7]"
+ ~~ pan "0.5"
+
+d1 $ (sound $ (sample <$> "[bd bd] sn bd [bd bd bd] bd [sn sn] bd bd" <*> ( ((floor . (* 16)) <$> (slow 4 triwave1)))))
+ ~~ pan (slow 1 triwave1)
+ ~~ end (slow 4 ((+0.1) <$> sinewave1))
+ ~~ speed "0.5"
+
+d1 $ sound (sample <$> ("sn bd sn bd") <*> (slow (3%2) "0 0 1 1 2 2"))
+
View
21 scripts/slow.smooth
@@ -0,0 +1,21 @@
+d1 $ sound "bd [bd [bd [bd bd] bd bd] bd] bd"
+ ~~ pan "0"
+
+d7 $ slow 8 $ sound "bd [bd [bd [bd bd] bd bd] bd] bd"
+ ~~ end "0.04"
+
+d2 $ sound "sn/3 sn/4 sn/3 sn/4"
+
+
+d3 $ (sound $ (\x -> combine [x, (1%8) ~> x]) "bass/1 bass/1 bass bass/2 bass bass/1")
+ ~~ speed "1"
+
+d3 $ slow 4 $ ((\x -> combine [x, (1%12) ~> x, ((1%16) ~> x) ~~ vowel "a"]) $ sound "bass/1 bass/1 bass bass/1 bass bass/1")
+ ~~ speed "1"
+
+d4 $ slow 3 $ ((\x -> combine [x, (1%12) ~> x, ((1%16) ~> x) ~~ vowel "a"]) $ sound "bass/1 bass/1 bass bass/2 bass bass/1")
+ ~~ speed "2 1 0.5"
+
+d5 $ combine [density 2 $ sound "bd sn/2 [~ [bd/2 bd/4 bd/3]] [sn/2, cp]", density 8 $ sound "~ hc/7"]
+ ~~ pan sinewave
+
View
34 scripts/steel.smooth
@@ -0,0 +1,34 @@
+
+d1 $ cat [(slow 3 $ striate (sound "bd" ~~ speed "0.5" ~~ pan "[1 0 0.5]") 32), (sound "bd cr/2 bd" ~~ speed "30")]
+ ~~ pan "[1 0]"
+
+d2 $ sound (every 3 (density 3) "sn cr/2")
+ ~~ speed "20"
+
+d3 $ every 3 (0.25 <~) $ sound ("future [~ bd/4] cr/9 ~")
+ ~~ speed "2"
+
+d4 $ cat [(slow 4 $ striate (sound "cr/5" ~~ speed "0.5" ~~ pan "0.25 0.75") 16),
+ 0.5 <~ (slow 4 $ striate (sound "cr/1" ~~ speed "1" ~~ pan "0.25 0.75") 8),
+ 0.5 <~ (slow 4 $ striate (sound "cr/5" ~~ speed "0.5" ~~ pan "0.25 0.75") 16),
+ 0.5 <~ (slow 4 $ striate (sound "cr/1" ~~ speed "1" ~~ pan "0.25 0.75") 32)
+ ]
+
+d1 silence
+
+d5 $ slow (3) $ sound "[bd [~ ~ bd] bd bd, cr/5 rm rm]"
+ ~~ end "0.20"
+ ~~ speed "1.5"
+ ~~ pan "0"
+
+d6 $ slow (3) $ sound "[bd [bd [~ sn/2 ~] ~] bd bd, rm cr/4 rm]"
+ ~~ end "0.25"
+ ~~ speed "1.4"
+ ~~ pan "1"
+
+d7 $ slow 6 $ every 3 (density (1%3)) $ sound (sample <$> "jvbass jvbass [jvbass [jvbass jvbass]]" <*> "[1 6]")
+ ~~ speed "[1.3,6.2,2.3]"
+
+d8 $ slow 6 $ every 4 (density (1%3)) $ sound (sample <$> "jvbass jvbass [jvbass [jvbass jvbass ~]]" <*> "[1 6]")
+ ~~ speed (every 2 ((*2) <$>) "[3.9,1.5,1.3]")
+
View
3  scripts/stem.smooth
@@ -0,0 +1,3 @@
+d1 $ (sound $ (sample <$> "[bd bd] sn bd [bd bd bd] bd [sn sn] bd bd" <*> ( ((floor . (* 16)) <$> (slow 4 sinewave1)))))
+ ~~ duration (slow 4 ((+0.1) <$> sinewave1))
+ ~~ speed "0.5"
View
4 scripts/striated.smooth
@@ -0,0 +1,4 @@
+
+
+d1 $ sound "bd"
+d1 silence
View
52 scripts/test.smooth
@@ -0,0 +1,52 @@
+d2 <- dirtstream "dirt2"
+d3 <- dirtstream "dirt3"
+d4 <- dirtstream "dirt4"
+
+d2 $ explode (sound "bd") 4
+d2 silence
+
+d <- dirtstream "dirt1"
+
+d2 $ (Dirt.sample $ (slow $ 3%4) "bd [bd cp cp] bd [bd cp/1 cp/1]")
+ ~~ pan "0.75"
+
+d2 $ (Dirt.sample $ (slow $ 1%2) "bd [bd cp cp] bd [bd cp/1 cp/1]")
+ ~~ pan "0.25"
+ ~~ speed "1.2"
+
+d silence
+
+
+flat (0, 1) $ ("bd bd sn" :: Pattern String)
+
+~~ pan "[0 1]"
+a
+2379 % 4, 595 % 1
+595 % 1, 2381 % 4
+2381 % 4, 1191 % 2
+1191 % 2, 2383 % 4
+
+
+d silence
+d2 silence
+
+d $ sample $ "[hardcore/4 hardcore/8 bd [bd bd bd] [hardcore/4 hardcore/4 hardcore/4] ~ hardcore/3 ~, bd sn/3 bd sn/4 bd sn/2]"
+
+d2 $ Dirt.sample "bd [bd, ~ bd bd bd bd] [bd/4 bd/2 bd/2] [bd [bd bd] [bd bd]], future future/2 future [chin chin chin] future/1"
+ ~~ pan "1 0 0.5"
+
+
+d3 $ pan "0 1" ~~ Dirt.sample "[[[bd bd bd bd] [bd sn/3 [bd sn]] bd [sn/2 bd], bd/4 sn/4 bd sn/4, ~ [hh hh] ~ hh [hc hc] hc bd hc [hc/4 hc/2 hc/4 hc/2] hh ~ hc hc/3 hh ~ hh],]"
+
+d2 $ Dirt.sample "[[[bd bd bd bd bd] [bd sn/3 [bd sn]] bd [sn/2 bd], bd/4 sn/4 bd sn/4, ~ [hh hc/2 hh] ~ hh [hc hc hc] hc bd hc [hc/4 hc/4 hc/2] hh ~ hc hc/3 hh ~ hh], jvbass/0 ~ ~]"
+ ~~ pan sinewave1
+
+d4 $ Dirt.sample "[bd/2 bd/2]" ~~ pan ((1-) <$> sinewave1)
+
+
+
+d silence
+d2 silence
+d3 silence
+d4 silence
+flat (0,1%2) ("bd bd bd bd" :: Pattern String)
View
61 scripts/toplap.smooth
@@ -0,0 +1,61 @@
+d1 $ sound "bd"
+d1 $ sound "bd bd"
+
+d1 $ slow 2 $ sound "bd bd"
+
+d1 $ sound "bd bd bd"
+d1 $ sound "bd [bd bd] bd"
+d1 $ sound "bd [bd bd bd] bd"
+d1 $ sound "bd [bd [bd bd bd bd bd bd] bd] bd"
+
+d1 $ sound "[bd drum/2] [bd drum/2] [bd drum/2 drum/2]"
+
+d1 $ sound "[bd drum/2] [bd drum/2] [bd drum/2 drum/2]"
+ ~~ pan "0"
+
+d2 $ sound "[bd drum/2] [bd drum/2 drum/2] [bd drum/2]"
+ ~~ pan "1"
+
+d2 silence
+
+d1 $ sound "sax"
+
+d1 $ striate (sound "sax") 128
+d2 $ sound "bd [sn sn/2 sn]"
+d1 silence
+
+d1 $ slow 2 $ striate (sound "sax") 16
+ ~~ speed "2"
+
+d1 $ slow 2 $ striate (sound "sax") 16
+ ~~ pan sinewave1
+
+d1 $ sound $ combine ["bd ~ sn/4 ~ ~ bd [sn/2 bd] ~", density 32 "hh"]
+
+d1 $ sound $ combine ["bd ~ sn/4 ~ ~ bd sn/2 ~", density 6 "hh bd"]
+
+d1 $ sound $ every 3 ((1%4) <~) "bd ~ sn/4 ~ ~ bd sn/2 ~"
+
+d1 $ every 4 ((1%8) <~) $ slow (1%4) $ striate (sound "bd drum/1 sn/2 off") 64
+ ~~ pan (slow 8 sinewave1)
+ ~~ speed "1"
+
+
+d1 $ slow 4 $ striate (sound "[sitar/3 fire ~ tabla/6, ~ sitar/2]") 32
+ ~~ speed "2.2"
+ ~~ pan "[0.5, 0]"
+
+d2 $ slow 4 $ striate (sound "[sitar/3 ~ pebbles tabla/6, ~ sitar/2]") 12
+ ~~ speed "2.2"
+ ~~ pan "[0.5, 1]"
+
+d3 $ (sound $ slow 2 "[drum sn/2] [drum drum sn/1] [drum sn/4] [drum [drum drum] sn/1]")
+ ~~ speed "[1 1.2 1]"
+ ~~ vowel "[o e, i]"
+
+d4 $ sound "wobble [~ wobble] ~"
+ ~~ speed (every 4 (fmap (+1)) "2 2")
+
+d5 $ sound (every 4 ((\x -> sample x 2) <$>) "bd sn [bd bd h bd] sn")
+ ~~ end "0.1 0.3 1"
+ ~~ speed "1.5"
View
4 scripts/train.smooth
@@ -0,0 +1,4 @@
+d1 $ sound "[bd [bd bd bd]] [sn/1 [sn/2 drum/2 bd] sn/2]"
+ ~~ pan sinewave1
+ ~~ vowel "a e"
+d1 silence
View
51 scripts/turing.smooth
@@ -0,0 +1,51 @@
+d4 $ slow 2 $ striate (sound $ "sheffield") 64
+ ~~ (pan ((* 3) <$> sinewave1))
+ ~~ vowel "o"
+
+d2 $ sound "sn/4 [sn/4 [sn/1 sn/1] [sn/3 sn/3 sn/3]]"
+ ~~ pan "0"
+
+d4 $ sound "bd/4 [bd/4 [bd/1 bd/1 bd/3] [bd/3 bd/3 bd/3]]"
+
+d5 $ sound "bd sn/2 [~ bd/2 bd] sn/2"
+ ~~ pan "0"
+
+d1 $ sound "bd sn/3 [~ bd/2 bd/2 bd/2] sn/2"
+ ~~ pan "1"
+
+d1 $ sound "bd/4 sn/5 [~ future/2 ht/2 ht/2 ht/2] sn/4"
+ ~~ pan "1"
+
+d3 $ (sound $ (\x -> combine [x, (1%8) ~> x]) "bass/1 bass/1 bass bass/1")
+ ~~ speed "1"
+
+d1 $ (\x -> combine [x, density 3 x]) $ (sound $ "bd [bd bd] sn sn ~")
+ ~~ pan "0"
+
+d2 $ (\x -> combine [x, density 2 x]) $ (sound $ "bd [bd bd] sn sn ~")
+ ~~ pan "1"
+
+d3 silence
+
+d1 $ sound "bd bd [sn [sn sn/2] sn] sn"
+ ~~ pan ((* 2) <$> (slow 8 sinewave))
+ ~~ begin "0.1"
+
+d2 $ sound (((1%8) <~) "bd bd [sn [sn sn/2] sn] sn")
+ ~~ pan ((3 -) <$> ((* 2) <$> (slow 8 sinewave)))
+ ~~ begin "0.1"
+
+d3 $ (\x -> combine [slow 2 x, slow 3 x]) $ sound (sample <$> "kurt [kurt [kurt kurt] kurt] [kurt kurt]" <*> "0 1 2 4") ~~ pan sinewave1
+
+
+d4 $ cat [(slow 4 $ striate (sound "cr/5" ~~ speed "0.5" ~~ pan "0.25 0.75") 16),
+ 0.5 <~ (slow 4 $ striate (sound "cr/1" ~~ speed "1" ~~ pan "0.25 0.75") 8),
+ 0.5 <~ (slow 4 $ striate (sound "cr/5" ~~ speed "0.5" ~~ pan "0.25 0.75") 16),
+ 0.5 <~ (slow 4 $ striate (sound "cr/1" ~~ speed "1" ~~ pan "0.25 0.75") 32)
+ ]
+
+d4 $ (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 8 x]) (striate (sound "cr/2 h") 32)
+ ~~ pan "[0 1 2 3]"
+
+d1 $ density 2 $ sound "ht [ht ht] ht lt"
+ ~~ pan "[0 1 2 3]"
Please sign in to comment.
Something went wrong with that request. Please try again.