Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 31 lines (21 sloc) 0.566 kB
de8ecee @yaxu strategies
authored
1 -- combine with self shifted
2 (\x -> combine [x, (1%8) ~> x])
3
4 -- combine with self denser
5 (\x -> combine [x, density 2 x])
6
7 -- move around
8 pan (sinewave1)
9
10 -- slow parts
11 slow 8
12
13 -- dense parts
14 density 8
15
16 -- striate
17 d4 $ slow 2 $ striate (sound $ "") 64
18
19 -- sample switch
20 (sample <$> "jvbass jvbass [jvbass [jvbass jvbass]]" <*> "[1 6]")
21
22 -- density step
23 every 2 (density 2)
24
25 -- rotate
26 every 2 ((1%8) <~)
27
28 -- concatenate things of different densities, striations etc
29 (\x -> cat [slow 3 x, slow 4 x, slow 2 x, slow 8 x]) (striate (sound "cr/2") 32)
30 ~~ pan "0 1 2 3"
Something went wrong with that request. Please try again.