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
49
50
51
52
53
54
-- status: good lead, weird bass, decent beat, needs better snares/claps
setcps 0.5
d1 -- beat + dark amp
$ (fast 4 . (fix (# n "[9,7?]") (s "kick"))) -- FASTER!
$ every' 4 3 (# gain "0 <0 1 1 0>") -- dark arp
$ whenmod 32 0 (fix (# gain 0) (s "arp"))
$ whenmod 32 16 (someCycles (fix (# silence) (s "electro1")))
$ s "kick:14 [electro1:2, arp]"
# gain 1
d2 $ s "hh*2 clap(<2 2 1 1>,4)"
# n "0 <2 2 2 3>"
# gain 0.9
d3
$ someCycles (# silence)
$ sometimes (# gain 0.8)
$ fast 4
$ s "electro1:4"
d4
$ every 4 (jux rev)
$ sometimes (off 0.125 id)
$ s "~ electro1:2"
d5
-- $ 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 0.2 (<|
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
d6
-- $ someCyclesBy 0.2 (rev)
$ off 0.125 (|+ 3)
$ note (scale "aeolian" "<c c f f>(<3 1>,<8 1>) a5(2,<4 2 1>)")
|- note 28
# s "bassWarsaw"
# gain 0.9
d7
$ whenmod 32 16 (someCycles (off (1/16) id))
$ s "~ ~ ~ glitch:2"