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
once $ "dr"
do
resetCycles
setcps (90/60/4)
let gDJF = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF
d1 $ g
$ midiOn "^73" (fast 2)
$ midiBoth "^41" "^42" (struct "t t t <t <[~ t] t*2>>")
$ midiOn "^42" (struct "t*2")
$ "jazz"
# midiG' "^78" 0 1
d2 $ g
$ midiOn "^43" (superimpose (const
$ midiOn "^41" (fast 2)
$ "~ . c*<1!3 <2 1>> <~!7 [~ c]>" # "cp"
# note "-4!7 -2"
# lpf 4000
# midiG' "^79" 0 1.4
))
$ ply "<1!16 [2 1]!4 [2!3 1]!8 2!6 [4 1] [2 4]>"
$ n "[0 <0 1 2 3>]*2"
# "amencutup"
# midiG' "^79" 0 1.4
d3 $ g
$ midiOn "^43" (fast 2)
$ "d*<4 8 <4 8> <4!3 8>> d*<3 <4 6>> d*<2 3 4 3> d*[1 <1 2 4 8>]"
# "cpu:4"
# midiG' "^80" 0 1.8
d4 $ g
$ "90s_glassatm:3/4"
# cut 4
# crushbus 41 (range 16 3.5 "^55")
# midiG' "^83" 0 1
d5 $ g
$ stut' 4 "h" ((|* gain 0.6) . (|+ pan 0.05))
$ "90s_matrix:0/2"
# midiG' "^84" 0 1
# crushbus 51 (range 10 1.5 "^56")
# pan 0.7
d6 $ g
-- $ slow 2
$ fix (|* gain 0.93) (note "c6")
$ midiOn "^89" (fast 4)
-- $ note ("<c ef f fs c ef f c ef f fs f ef f ef c>") -- 1&2'
-- $ note ("<c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 3&4
$ note ("<c ef f fs c ef f c ef f fs f ef f ef c c6 bf5 g f fs f ef c c ef f ef ef f g c6>") -- 1&2&3&4
# octave 2
# "supersaw"
# voice 0.01
# crushbus 61 (range 16 1.5 "^53")
# midiG' "^81" 0 1.3