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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
-- Techno - 80s - aerian
setcps 0.4
d1
-- $ fast 4 . (off 0.5 (# s "<~ clap>"))
$ (fast 2) . (off 0.5 ((# s "clap:1") . (# room 0.5) . (# dry 1)))
$ s "kick:2"
# gain 1
d2 -- batterie, FIXME too loud
$ fix (# s "electro1:0") (n 1)
$ n "3 1 3 [[1 ~ 1?] 1]"
# s "jazz"
# gain 0.8
-- # note (irand 7)
d3 -- drums
$ whenmod 16 10 ( -- 80s drumroll
const $ every 4 (off 0.25 (# n 2))
$ n "[2 3] . 2 . 3 . 2 2 3 2" # s "electro1"
-- const $ n "[2 <[3 2] [2 3]> ~] [3 2 <3? ~>]" # s "electro1"
)
$ whenmod 32 16 (degrade)
$ whenmod 16 8 (off 0.125 id)
$ sometimes (# s "dr")
$ s "hh(<4 4 3 4>,8)"
d4
$ every 8 (fast 2)
$ s "[~ electro1:1]*4"
# gain 0.8
d5
$ whenmod 8 4 (|- note 2)
-- $ off 0.125 (degrade . (# room 0.2) . (# size 0.8))
$ superimpose ((# s "bass3:2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
|- note 14
# s "bassWarsaw"
d7 -- piano lead
$ whenmod 8 0 (off (1/8) (# s "jazz:6")) -- scratched
$ off (3/8) (|+ note 7)
$ s "jazz:5?*16"
# note (scale "major" "11")
|+ note "7 0 -7"
# gain 0.8
d6 -- piano second
$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
$ whenmod 8 4 (|- note 2)
$ sometimes (off 0.125 (|+ note 7))
$ superimpose ((# s "FMRhodes2") . (|+ note 7))
$ note "0 [~ 0 ~] . <0 <[0 3] [0 -2]>>"
# s "FMRhodes1"
d9 -- noise
$ sometimes (# crush 6)
$ whenmod 32 28 (often $ (# gain 0.7))
$ whenmod 32 0 (almostNever $ (# gain 0.7))
$ s "~ cosmicg:2/2"
# gain 0
d8 -- white noise
$ someCycles (# silence)
$ sometimes (jux rev)
$ (# speed (rand / 2))
$ s "glitch:2" -- # n (run 8)
# cut 1
# gain 1.2
--- SANDBOX
d6 -- lead synth? too low currently
$ whenmod 32 30 ((# s "control") . (# gain 0.8)) -- transition synth: violent
$ whenmod 8 7 (# note (scale "major" "1 3 5 7"))
$ whenmod 8 6 (|+ note 7)
$ whenmod 8 2 (|- note 7)
-- $ whenmod 32 24 (degradeBy 0.8)
-- $ whenmod 32 16 (degrade)
$ superimpose ((# s "moogBass") . (# gain 0.8))
$ s "FMRhodes1*8"
# note (scale "major" "1 3 7 <5 ~>")