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
-- Inspiration rythms https://www.youtube.com/watch?v=kPlSyYtE63M
-- Inspiration key https://www.youtube.com/watch?v=osSXQMaieHU
-- Intro: Kick, click 3, puis keys, puis snare
-- Outro: ALWAYS GO DOWN SHE SAID
do
setcps (125/60/4)
let gF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
-- let gMask = whenmod 8 6 (mask "<t <[t f] f>> . f f f t")
d1 $ gF1
$ fix (# hpf 2000) "909"
$ fix (# lpf 120) "[808bd,bd]"
$ midiOn "^42" ((|* gain "1 1 0.95") . struct "t ~ [~ t]")
$ midiOff "^42" (struct "t")
-- $ "[808bd,cpu]"
$ "[808bd:3,bd:1,909]"
# room 0.2 # dry 1 # sz 0.8
# note (-1)
# release 10
# midiG' "^78" 0 1.4
d2 $ gF1
$ midiOn "^43" (mask "t!7 f")
$ "~ ~ ~ s ~ <~!3 s>"
# "snare:8"
# hpf 2000 # gain "1.1"
# midiG' "^79" 0 1.5
d3 $ gF2
$ fix (|* gain (slow 2 $ range 0.5 0.81 sine)) "drum"
$ fix ((# n "0!3 <0 1>") . (|* gain (range 0.7 0.5 sine))) "808oh"
$ midiOn "^76" (fast 2)
$ midiOn "^44" (fast 2)
$ (|* gain "1 0.9 0.85")
$ "d d d"
# "[drum:2,808oh]"
# midiG' "^80" 0 1.6
d5 $ gF2 -- filler
-- FIXME On different chorus
-- f fs gs as c cs ds
$ midiOn "^89" ((# note "fs5'maj'3")) -- Pre-verse
$ midiOn "^90" (# note ("gs4'maj'3")) -- Chorus
$ midiOn "^91" (# note ("ds5'maj'3")) -- Chorus
$ "bassWarsaw"
# velocity 1
# note ("<cs5'maj'3>") -- Verse
# att 1
# rel 2
# midiG' "^81" 0 1
-- TODO FIND A MORE ANALOGIC KICK :)
once
$ "[808bd:3,bd:1,909]"
once $ "[808bd,cpu]"
once $ "kick:11" # gain 0.8
-- GRAVEYARD/WORKSHOP: FIND ME THE PROPER CHORDS
do
d1 $ "jazz/4"
d2
$ whenmod 4 3 (off "0.25" (|* gain 0.9))
$ "~ snare:54"
d3 $ "hh*6" # gain 0.8
d6
$ note "<cs4 f4 <fs4 as4 fs> <gs4!3 ef4>>"
# "superpiano" # gain 1 # velocity 0.7