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
84
85
86
87
88
89
90
do
resetCycles
once $ "igor:4" # cut 7 # gain 0.6
setcps (150/60/4)
let gF = whenmod 64 48 (# djfbus 1 (slow 16 $ range 0.5 0.05 saw))
d1 $ gF
$ mask "<t!8 f!7 t t!16 f t!15 f t!15 f!16 t!16 f!4 t!12 f t!15>"
$ "k*4"
# "[bd,jazz]"
# lpf 200
# att 0
# rel 0.7
# room 2.7
# sz 0.2
# dry 1
# gain 0.7
# crush 8
# note "-2"
d2 $ gF -- Running hats
$ mask "<t!8 t!2 f!6 f!8 t!8 t!48>"
$ someCyclesBy "<0!32 1!32>" (<| "h([<12!3 16> <6 8>],<12!3 8>)")
$ someCyclesBy "<1!32 0!32>" (<| "[~ h h <~!7 h>]*4")
$ "h2ogmhh"
# n "[0,1]"
# pan 0.4
# dry 1
# room 0.4
# gain (slow 16 $ range 0.3 0.4 saw)
d4 -- BURNING MOOG
$ mask "<f!8 t!56 f!16 t!16 f!16 t!16>"
$ whenmod 32 16 (off "h" (
(# cut 41)
. (|+ note 12)
. (|* gain 0.75)
. (# leslie perlin)
. (# crush 5.10)
))
$ someCyclesBy "<1!16 0.5!16 0!32>" (# delay 0)
$ note (scale "aeolian" ("<0 0 0 4> <1 2 3 1> . ~!3 <~ 2>"))
# "moog"
# legato 2
# delay (slow 16 $ range 0.25 0.65 saw)
# delayfb (0.5 + 0.25 * perlin)
# delaytime (slow 4 $ "<<q e> <h 1>>")
# gain (slow 16 $ range 0.37 0.5 (fast 4 $ cosine))
# crushbus 40 (slow 32 $ range 16 5 (saw + 0.2 * perlin))
# cut 4
d5 -- Phantom Choirs
$ mask "<f!64 t!32 f!16 t!16>"
$ note (scale "aeolian" "<0 <0 4>(3,3)> . <1 2 <3 5> 12>"
- 12
)
# "moogBass"
# gain 0.5
d5
$ mask "<f!16 t!8 f!8 t!48>"
$ "[dr,drum:2](<4 <8 <12 16>>>,12)"
# gain 0.45
# pan 0.8
d10 -- Announcing cymbals
$ mask "<f!64 t!8 <t f>!8 f!48>"
$ "h2ogmcy:3"
# cut 10
# gain (slow 8 $ range 0.35 0.65 saw)
# hpf (slow 16 $ range 0 6500 saw)
-- Igor ressort - TODO rework
d9
$ "igor:15"
# cut 7
# gain 0.56
# begin (0 + "<0 0.1 0.2 0.3>")
# end (0.02 + "<0 0.1 0.2 0.3>")
# att 0
# rel 2
once $ "moog:4" # cut 4
once $ "fbass:40" # cut 4 # gain 0.7
d3
$ "<w!3 [w|w*2] w w w*2!2>"
# "wobble"
# crush (slow 16 $ range 16 3.5 saw)
# gain 0.8
# legato 2
# pan 0.6