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
resetCycles
setcps (90/60/4)
do
let chorus = pF "chorus"
d1
$ (off "e" (mask "<t f>" . (# "hh27") . ( # n "[8,16]") . (# cut 12)))
$ superimpose (
(# "reverbkick")
. (|* gain 0.75)
. (# lpf 4000)
. (# cut 11)
)
$ "<k [k <~ k> ~ k]> ~"
# "808bd:1" # gain 1.2
# release "[0.7 2] ~"
# cut 1
d2
$ "~ . s <~ s [~ s*2] s*[4 [<4 2> 4]]>"
# "snare"
# n "[2,3]"
# gain 0.8
d3
$ whenmod 8 6 (fast "<2 [2 4]>")
$ "dr*8" # gain 0.6
d4
$ superimpose ((|- note 12) . (# cut 41))
-- $ degradeBy ("0 1!7" * (slow 32 $ range 1 0.8 sine))
$ mask "t <f t f> [t|f]"
$ note (4 + -- offset en mi
scale "major" ( -- gamme choisie
"[0 1 2 3] [2 3]" -- arpège
+ "<0 1 2 [3 4]>" -- progression montée
)
) # "moogBass"
# cutoff 1000
# chorus 0.25
# pan 0.9
# legato 2
# room 0.5 # sz 0.6
# cut 4
# gain (slow 16 "<0.55 0.7>")
d5
$ superimpose (# crush 6)
$ note (4 + -- offset en mi
scale "major" ( -- gamme choisie
"<0 0(<3 5>,8)> [~ [1 2] [2] <~ 2>]" -- arpège
+ "0 <0!3 2>" -- spread
+ "<0 1 2 [3 [0,4]]>" -- progression
)
) # "[bassWarsaw]"
# voice 0.1
# octave 3
# gain 0.7
# pan 0.2
# room 0.8 # sz 0.9 # dry 1
d9
$ whenmod 8 4 (juxBy 0.5 rev)
$ struct "t(3,8) [<t!3 [~ t]> <t ~> <t t*2> <t*2 t t*2 t*2>]"
$ "hh:3"
# speed (segment 16 $ fast 2 $ range 0.25 1.2 (perlin + (slow 8 $ sine)))
# gain (slow 8 $ range 0.6 1.2 saw)
-- breaks
-- bourrasque
$ every 16 (jux rev) -- echo
$ every 8 (# gain 0.9)
$ s "space:3"
# speed 0.25
# gain 0.7