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
resetCycles
-- TECHNOBASS Sypathique
-- Bim, DNB, sorry
-- TODO: Laisse tourner tes boucles!
do
let fxManual = (# crush (slow 16 $ range 16 4 saw))
let fxManual = (id)
let fxFilter = (whenmod 16 12 (# lpf ("<20 15 10 5>" * 1000)))
let dGlob = (fxFilter . fxManual)
setcps (150/60/4)
d1 -- Kick
$ dGlob
$ whenmod 128 64 ((# "snare") . (# n "[4,20]") . (# gain 0.65)) -- INVERSION KS
-- $ sometimes (mask "t [t|f]")
$ "k . ~ k ~ ~"
# "[jazz,kick:7]"
# gain 0.8
d2 -- Snare
$ sometimes (mask "t [t|f]")
$ dGlob
$ whenmod 128 64 (# "[jazz,kick:7]") -- INVERSION KS
$ fast 1 $ "~ . s <~!7 s>"
# "snare" # n "[4,20]"
# gain 0.6
# lpf 5000
d3
$ dGlob
$ whenmod 128 96 (|* gain 0.8)
$ whenmod 128 64 (slow 2)
$ someCycles (fast "2 1")
$ fast "<4 8 16>" $ "drum:8" # gain 0.7
d4
$ dGlob
$ whenmod 64 32 (mask "<t [t f]!3>")
$ whenmod 32 16 (degradeBy (slow 8 $ saw) . segment 16)
$ slice 4 (cat [
run 8,
"0 1 2 3 4!4",
run 8, run 8, run 8,
"<0!4 1!4 3!8>(5,8)"
])
$ "fbass"
# n "<42!14 41!2>"
# cut 2
# gain (slow 32 $ range 0.75 0.55 tri)
d5
$ dGlob
$ slow (slow 4 $ "<2 4>")
$ every' 8 7 (sometimes (# n 42))
$ degradeBy "<1!64 0.8!32 0.5!16 0.1!16>"
$ slice 4 "<0 ~ 0?!2> 1? <0 2> <1 3>"
$ "fguitar:43"
# cut 4
# gain 0.65
d6
$ superimpose (arp "updown downup" . ply 2 . (|+ note 12))
$ note ("<c'maj!3 c'min!4 c'maj>")
# s "superhoover"
# gain (slow 32 $ range 0.35 0.5 saw)
d5
$ note (scale "major" "<0!2 2 4 -2>")
# "supergong"
# accelerate (slow 32 $ "<1 -1>")
# octave 2
# gain 0.65
d7
$ segment (slow 8 "<1 <2 4>>") -- Light to tornado
-- $ sometimesBy "<0.75!3 0.1>" (arp "updown")
$ note ("<f e d <d!2 e f>>" + "c'maj'5")
# octave 5
# s "superpiano"
-- # velocity (slow 8 ("<0.8 <0.75 0.65>>" + 0.45)) -- TODO: Electric velocity
# gain 0.4