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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
-- Algolia DevCon23 - LiveCoding demo
setcps (120/60/4)
-- you can control short samples
once $ "jazz bd cpu kick:5" # gain 1.3
-- or longer ones
once $ "scratch_short:30" # cut 4
-- Or synthetizers
once $ arpeggiate $ note "c'majPent'3" # "moog"
# cut 1
# room "0@3 0.8"
# crush "10@3 7.5"
-- Then loops
d1 $ "jazz <cp [dr*<8 [8 16]>]>" # gain 1.2
-- Then songs...
-- SlowMo: Lent mouvement
do
resetCycles
setcps (60/60/4)
let rMask = (mask "t!6 <t!4 t?!3 f> <t t t <t? f>>")
let rLPF = (someCyclesBy "<0!32 1!8 0!16 1!8>" (# lpf (slow 8 $ range 5000 200 saw)))
let gLPF = (someCyclesBy "<0!48 1!16>" (# lpf (slow 16 $ range 6000 100 saw)))
let gR = (rMask . rLPF)
let gMask = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> <f!4 t f t t>]"
let gMaskB = mask "[t <t!4 t <f t!3> t t>!3 . t <f!4 t!4> <f f t t t f f t> t]"
let g = (gLPF . gMask)
let gB = (gLPF . gMaskB)
d1 $ g $ gR
$ juxBy 0.1 id
$ "k ~ ~ k . ~" # "[reverbkick,tech:6]"
# legato 1.25
# lpf 1000
# gain 0.7
d2 $ g $ gR
$ mask "<f!8 t!24>"
$ "[~ cp]*2"
# note "-4"
# "snare"
# n "[1,2,12]"
# gain 0.65
d3 $ g $ gR
$ mask "<f!3 t f!4 t!7 [t f]>"
$ fix (|* gain 0.5) "snare"
$ "t*[[16!3 [<8!3 16!5> 32]]!3 32]"
# "[tech,snare:12]"
# gain 0.7
d4 $ gB -- Bassline
$ jux ((# crush (slow 16 (range 10 5 saw))) . (|* gain 0.93)) -- ELECTRIC TWIN
$ mask "<f!32 t!32>"
$ whenmod 16 8 (superimpose ( -- Overdrone
chop ("[<4!4 8!4>!3 1]!2")
. (|* gain 0.8)
))
$ note (scale "aeolian" (
-- "[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!7 <~ 8>]" -- Simplified main theme
"[7, [~!3 9]] . [4, [~!3 <[8 9] <[11 9] [10 9]>>]]" -- Simplified laggy theme
))
# "bassWarsaw"
# octave "<2!16 3!16>"
# lpf 1200
# room 0.13
# gain (slow 32 $ range 0.9 0.65 saw)
# pan 0.2
d5 $ g -- Rhodes base
$ mask "<f!6 t f t!24>"
$ someCyclesBy "<0!12 1!20>" ( superimpose ( -- aigus
(|+| note (scale "aeolian" (
"[0 <7!16 7(<2 2 3 3>,4)!16>]*4"
+ 7)))
. (# "[FMRhodes1,FMRhodes2]")
. (|* gain (slow 8 $ range 0.85 0.96 saw))
. (|+ pan 0.1)
. (whenmod 16 6 (# crushbus 5 (slow 64 (range 10 6.5 saw))))
))
$ note (scale "aeolian" ( -- Organically grown main theme
"[7, ~!7 <~!3 3 ~ 3 ~ 3>] . [4, ~!3 <~ <[~ 8] [8 9] [~ . 8 9] [~ . 9 8]>>]"
))
# "FMRhodes1"
# pan 0.6
# gain (slow 32 $ range 0.68 0.85 saw)
# octave 2
# modIndex 0
# room 0.3
d8 $ g -- Runny Maracas
$ mask "<f!6 t f t!8 f!4 t!4 t!8>"
$ jux (|* gain 0.5)
$ whenmod 16 8 (always $ fast "2 . [2|4]")
$ someCyclesBy "<1!16 0!16>" (often $ slow "2!3 1")
$ fix ((|* gain 0.9) . (# release 0.8)) (n 9)
$ "hh27*[8 . 16 8]"
# n "2 <2 <[2|9] [9 <9 ~> <~ 9> 2]>>"
# pan 0.8
# gain (slow 32 $ range 0.5 0.7 (saw + perlin / 10))
d11 -- FX gratos
$ "fx_commodore/2"
# n "<0 .. 24>"
# gain 0.35
# pan "<0.2 0.8>"
# hpf (slow 32 $ range 6000 0 saw)
# room (range 0.1 0.53 perlin)
# sz (range 0.2 0.8 perlin)
# cut 11
d9 -- Nappe de fond
$ mask "<t!24 f!8>"
$ mask "<t!6 f f>"
$ "90s_megafx:194"
# gain (slow 32 $ range 0.5 0.3 saw)
# room 0.8
-- # delay 0.9
# delayfb 0.85
# delayt 0.25
# sz 0.8
# cut 9
d10
$ mask "<f!8 t!24 f!16 t!16>"
$ n "<18!2 [18@3 19] [19 18 19]>"
# "jungle_vocals"
# gain (slow 64 $ range 0.3 0.5 saw)
# pan 0.2
# room 0.2
# cut 10
-- once $ "fx_commodore:1"
-- # gain 0.6
-- # cut 11