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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
do
resetCycles
setcps (120/60/4)
d1 $ mask "<t!28 f!3 [f!3 t]>" $ "[kick:5,bd]*4" # gain 0.65
d2
$ degradeBy (slow 32 $ range 0 0.8 cosine)
$ sometimesBy "<t!6 f f>" (superimpose (# "glitch"))
$ "[~ dr]*4" # gain 0.7
d3
$ degradeBy (slow 32 $ range 0 0.8 (sine + 0.25))
$ "hh*<16!3 [16!3 4]>" # gain 0.55
d4
$ degradeBy (slow 32 $ range 0 0.8 sine)
$ superimpose (mask "t f!3" . (|- note 24))
$ sometimesBy "0 <0.5!3 1>" rev
$ slice 8 (run 16)
$ note (scale "minPent" $ ("<e!3 b>" + run 8 - 12))
# "supercomparator"
# gain (slow 64 $ range 0.65 0.6 sine)
# pan (range 0.6 0.9 perlin)
d5
$ mask "<t!32 f!3 [f!3 t] t!28>"
$ note (scale "minPent" $ "<e!3 <b a>>"
- 24
)
# "superpwm"
# legato 2
# gain "<0.7!3 0.65>"
# pan 0.3
# room 0.1
-- PWN Maniac
do
d1 -- 4, the four
$ whenmod 16 12 (fast "<2 2 1 [0.5 1]>")
$ "jazz*4" # gain 0.5
d2 -- Claps graves contretemps
$ whenmod 8 7 (fast "<2!3 4>")
$ "~ cp"
# lpf 2000
# gain 0.8
d3 -- LEAD BASS
$ whenmod 16 8 (euclid "<5!3 <3 8>>" 8)
$ note "<g!3 <ef <d d6>>>"
# "superpwm"
# octave 2
# resonance 0.25
# semitone "<7!3 12>"
# legato (slow 64 $ range 0.75 1 sine)
# gain 0.65
d4
$ fast 4
$ "hh*<1!4 2 2 [2 4 2] [4 8]>"
# gain 0.45
# cut 4
-- NOISE
do
d1 $ "jazz*4" # gain 0.8
d2 $ "[glitch:2]*8" # gain 0.6
d3
$ note ("b3'sevenSus2'2")
# "superchip/4"
# legato 2
# slide (0)
# pitch2 4
# pitch3 (-12)
# gain 0.5