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
resetCycles
-- Soleil de Sete - LoFi avec accompagnement
once $ "dr" # gain 1
-- TODO:
do
setcps (90/60/4)
let modIndex = pF "modIndex"
let chords = "<[a,c,e,g6,b6,d6] [d,fs,a6,c6] [f,a,c6,e6] [c,e,g6,b6]>"
let chordsMin = "<<a c e> <d!3 fs> [f] [c]>" -- TODO confirm/finish/validate
-- let gFilter = whenmod 32 24 (# djfbus 2 (slow 8 (range 0.5 0.05 saw)))
-- let gFilter2 = whenmod 32 24 (# djfbus 3 (slow 8 (range 0.45 0.75 saw)))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^29"))
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let g = gDJF1 -- . gFilter
let g2 = gDJF2 -- . gFilter2
d1 $ g
-- $ mask "<t!16 f!4 t!12>" -- First break
-- $ mask "<t!32 f!8 t!24>" -- Post-filter break
-- $ mask "<f!6 t f t!24>" -- Intro mask
$ midiOn "^42" (<| "k k k [k ~ <k ~> <~!3 k>]")
$ midiOff "^42" (<| "k*<1!8 2!24> . k*[<<3 1> 3!6 4> <8 3 8 <8 [8 4]>>]")
$ "[bd:2,kick:5]"
# midiG' "^78" 0 1.45
# legato 2
# att 0.1
# rel 0.8
d2 $ g -- Aerian snare
$ midiOn ("^44" - "^76") (ply 2)
$ midiOn "^76" (striate 4)
-- $ mask "<t!16 f!3 t t!12>" -- First break
-- $ mask "<f!12 t!4 f!5 t!13>" -- Snare mask
$ n "~ <~!3 [~!3 <10 10?>]>. 9"
# "sn"
# midiG' "^79" 0 1.6
# pan 0.6
# lpf 1500
d3 $ g2
$ mask "<f!16 t!12 f!4 t!16 f!4 t!12>"
$ "d*[<<4!4 [8 <4 8>]!4> 16!4> <16!3 8 16 16 8 8 16 16 8 16 16 8 16 16>]"
# "drum:2"
# pan 0.35
# dry 1.1 # room 0.5 # sz 0.8
# midiG' "^80" 0 (slow 8 $ range 0.9 1.3 saw)
d5 $ g -- BREAKBEAT BUDDY
-- $ mask "<t!32 f!7 [f t] t!24>" -- Post-filter break
-- $ mask "<f!8 t!14 f f t!16>"
$ midiOn "^91" (mask "t(8,16)" . fast 2)
$ whenmod 16 8 (
sometimesBy "0 0.2 . 0.75!3 0"
(ply "2 . [2|4]"))
$ chop 16
$ loopAt 2
$ "fbreak100"
# pan 0.65
# midiG' "^83" 0 1.6
d4 $ g -- Bassline
$ midiOn "^89" (chop 8)
$ midiOff "^57" (mask "<f!8 t!8 f!4 t!12>")
-- $ whenmod 64 48 (# crush (8 - (slow 16 $ range "-1.5" 2.5 perlin)))
$ note ("[0,<~!8 0(<1 <3 5>>,8)!8>] [0,12]"
|+ chordsMin
- 36
)
# "bassWarsaw"
# pan 0.3
# hpf (range 0 500 perlin)
# crushbus 41 (range 10 3.6 "^53")
# midiG' "^81" 0 (slow 16 $ range 1.1 1.2 sine)
# room 0.4
d6 $ g2-- Rhodes chords
$ whenmod 4 3 (rarely (off "h" (arp "up" . mask "f f t? t")))
$ superimpose ((|* gain "0 0.79") . (|+ note 12)) -- Depth
$ whenmod 16 12 (someCyclesBy "0 1" rev)
$ note (chords
- 24
)
# "FMRhodes1"
# modIndex (range 0 2 "^54")
# midiG' "^82" 0 (slow 32 $ range 1.2 1.6 saw)
# sz 0.9
# att 0.93
# pan 0.75
# room 0.4