1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
d1
-- $ whenmod 128 100 ((# gain "<0.7 0 0.7 [0 0.7]>") . (# lpq "1"))
-- $ whenmod 128 1 (# gain "<0.8 1 0.8 [0.8 0.8]>")
$ whenmod 64 32 ((|- note 7) . chop "2 0")
$ whenmod 64 1 (|+ note 7)
$ someCyclesBy 0.1 (chop 2 . superimpose (rev))
$ off (1/8) (|+ 7)
$ off (3/16) (|- 7)
$ someCyclesBy 1 (<|
note (scale "major" "<0*2 2(3,<4 8>) 7(3,<4 8>,2) <5 5 4>*2>"))
$ note (scale "major" "<0 2 7 <5 5 4>*2>")
# s "phazer"
# gain 0.7
solo 1
d2
-- $ every 4 (# gain "0 1")
-- $ whenmod 32 28 (fix (# gain tri) (s "arp"))
-- $ whenmod 32 0 (# gain "0.8 1")
-- $ whenmod 32 9 (fix (# gain 1) (s "bd"))
-- $ whenmod 32 8 (fix (# gain (1 - tri)) (s "bd"))
-- $ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "bd [electro1:2, arp]"
# note "0"
# gain "1 1"
d3
$ someCycles (# silence)
$ sometimes (# gain 0.8)
$ fast 4
$ s "electro1:4"
d4
$ every 4 (jux rev)
$ sometimes (off 0.125 (|+ 0))
$ s "~ electro1:2"
d5
-- $ whenmod 32 16 (someCycles (off (1/16) (|+ 0)))
$ s "~ ~ ~ glitch:2"
d6
$ whenmod 16 12 (# n 0)
$ whenmod 16 0 (# n 1)
$ note "c(5,8) a*2 f? <e e e c>(3,4)"
# s "bass"