Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 116 lines (81 sloc) 2.681 kb
8254b766 »
2012-03-22 foo
1
2 d1 <- dirtstream "d1"
3 d2 <- dirtstream "d2"
4 d3 <- dirtstream "d3"
5 d4 <- dirtstream "d4"
6 d5 <- dirtstream "d5"
7
8
9 d1 $ explode (sound "bd ~ sn/2 ~ cp ~ [sn sn] sn") 4
10 ~~ pan "[0 1]"
11 d1 silence
12 d3 silence
13
14 d2 $ slow 4 $ explode ( sound "[pebbles, bd]") 32
15 ~~ pan ((1-) <$> sinewave1)
16
17 d3 $ slow 8 $ explode ( sound "[sheffield, bd]") 32
18 ~~ pan (sinewave1)
19
20 d4 $ slow 12 $ explode ( sound "sax") 128
21 ~~ pan "[0 1]"
22 ~~ vowel "a"
23
24 d1 $ sound (every 3 ((1%4) <~) "bd/4 bd sn/2 bd")
25
26
27
28 d4 $ sound (sample <$> "[odx odx bd bd] ~ bd bd" <*> (slow 3 "[0 1 3]"))
29 ~~ speed "[0.9, 0.8, 0.7]"
30 ~~ pan "1"
31
32 d5 $ sound (sample <$> "[odx [odx odx odx] bd bd] ~ newnotes bd" <*> (slow 2 "[0 1]"))
33 ~~ speed "[0.9, 0.8, 0.7]"
34 ~~ pan "0"
35 d2 silence
36 d1 $ explode (sound "bd") 4
37 d2 <- dirtstream "d2"
38 d3 <- dirtstream "d3"
39 d4 <- dirtstream "d4"
40 d5 <- dirtstream "d5"
41
42 flat (0, 2) $ cf ((slow 2 $ sound "bd chin") ~~ (slow 2 $ pan "1 0")) (0,2)
43
44 d1 silence
45 d1 silence
46
47 d1 ((slow 2 $ sound "bd bd chin chin") ~~ (pan "1 0 ~ ~"))
48
49
50 flat (100,101) $(slow 2 $ sound "bd bd chin chin") ~~ (pan "0 0 1 1")
51
52 d1 $ sound (every 3 ((1%4) <~) (slow (3%2) "[[bd] ~ tok, ~] proc ~ ~"))
53 ~~ speed ((+ 8) . (* 0.4) <$> sinewave1)
54 ~~ pan "0"
55 ~~ vowel "i"
56
57 d2 $ sound (slow (3%2) "[[bd, jvbass] ~ sn, diphone2/0] bd bd bd")
58 ~~ speed ((+ 0.8) . (* 0.4) <$> sinewave)
59 ~~ pan "1"
60 ~~ vowel "i"
61
62 d3 $ sound (slow (4%3) "odx tabla ~ ~ odx ~")
63 ~~ speed "[1, 1.01, 1.2]"
64 ~~ vowel "[a ~]"
65
66 d4 $ sound "bottle/2 can [can bass bass/2 psr psr/2]"
67
68 d2 $ silence
69
70 d1 $ sound (sample <$> "[bd [bd [bd bd] bd] bd bd, hc hc [hc [hc [hc hc]]] hc, sn]" <*> "[0 5 2]")
71 ~~ speed "2"
72 ~~ duration "[0.7, 5]"
73 ~~ pan "1"
74
75 d2 $ slow (1/1) $ (sound $ (sample <$> "[bd [bd [bd ~] bd] bd bd, hc ~ ~ hc, sn]" <*> "[0 5 2]"))
76 ~~ speed "[2, 0.7]"
77 ~~ pan "0.5"
78
79 d1 $ (sound $ (sample <$> "[bd bd] sn bd [bd bd bd] bd [sn sn] bd bd" <*> ( ((floor . (* 16)) <$> (slow 4 triwave1)))))
80 ~~ pan (slow 1 triwave1)
81 ~~ duration (slow 4 ((+0.1) <$> sinewave1))
82 ~~ speed "0.5"
83
84 d1 $ sound (sample <$> ("sn bd sn bd") <*> (slow (3%2) "0 0 1 1 2 2"))
85
86 d2 silence
87 cf ((patterns ((patterns $ pattern x) !! 0) ) !! 0)(0,1)
88
89 cf (cf (cf x (0,1)) (0,1)) (0,1)
90
91 :t sample <$> ("bd bd" :: Pattern String)
92
93 flat (0,3) $ cf x (0,3)
94
95
96 :t x
97 :reload
98 flat (0,3) $ ((slow (3) "1 2 3") :: Pattern String)
99
100 d1 $ sound $ flatten (201,202) x
101
102 d1 $ sound $ flatten (0, 1) $ "bd sn sn"
103
104 d1 silence
105 d2 <- dirtstream "d2"
106 d3 <- dirtstream "d3"
107 d4 <- dirtstream "d4"
108 d5 <- dirtstream "d5"
109 d6 <- dirtstream "d6"
110 d7 <- dirtstream "d7"
111 d8 <- dirtstream "d8"
112 cc attribution, with thanks to:
113 jakeharries@freesound
114 dobroide@freesound
115 kMoon@freesound
Something went wrong with that request. Please try again.