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
do
let lofiBliss = "<[a,c6,e6,g6,b6,d7] [fs,a,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,a6,c7] [c,e,g,b,e6,g6,b6]>"
let lofiBlissEq = "<[a,c6,e6,g6,b6,d7] [fs,c6,d6,fs6,a6,c7] [f,a,c6,e6,f6,c7] [c,e,g,e6,g6,b6]>"
let lofiBlissMin = "<[a,c6,e6,g6] [fs,c6,d6,fs6] [f,a,c6,e6] [c,e,g6,b6]>"
setcps (86/60/4)
-- resetCycles
once $ (0.5 ~>) $ note (lofiBlissMin - 24) # "moogBass" # gain 0.4 # legato 1
let mask86 = (whenmod 8 6 (mask "f"))
let mask86' = (whenmod 8 6 (mask "f . <f t>"))
let low86 = (whenmod 8 6 (|* gain 0.8))
let modIndex = pF "modIndex"
let g1 = whenmod 16 12 (# djfbus 1 (slow 4 $ range 0.5 0.25 saw))
let g2 = (# djfbus 2 (range 0.05 0.95 "^49"))
let g = g1 . g2
d1 $ g $ mask86'
$ mask "<f!6 t f t!56>" -- Intro nokick
$ fix (# cut 11) "jazz"
$ fix (# cut 12) "808bd:4"
$ fix (# cut 13) "808bd:22"
$ struct "<t!3 ~> . ~ [<~ t*<1 2 1 <1 2>>> <~!3 t>]"
$ "[jazz,808bd:4,808bd:22]"
# gain 1.4
# room 1.2
# sz 0.5
# dry 1
# legato 2
d2 $ g $ mask86
$ mask "<f!8 t!24>" -- Intro snare
-- $ whenmod 32 16 (fast 2) -- Faster snare?
$ "~ db:12"
# hpf 500
# gain 0.7
d3 $ g
$ sometimesBy (slow 8 $ range 0 0.2 saw) ( -- Begaye
off "[e|s]" (|* gain 0.9)
)
$ mask86 -- Jumpy hats
$ mask "<f!8 t!24>"
$ someCyclesBy "<1!16 0!16>" (slow 2)
$ "~ h ~ h ~ h*<1!3 2 1 2!3> ~ h*<1!6 2 2>"
# "db:7"
# gain 0.65
# pan 0.6
d4 $ g -- Wobble bassline
$ mask "<f!12 t!52>" -- Intro nobass
$ mask "<t!3 [<t f> . f t]>" $ low86 -- Dégradation
-- $ whenmod 8 7 (>| note "c f fs a") -- Complément descente
$ whenmod 32 16 ( -- Complément LofiBlissBass
superimpose ((|+ note 12) . (|* gain 0.65) . (|+ pan 0.08))
)
$ note (
(struct "t([<5!3 3 5!3 3 5 5 [5 3] 3 3 3 [3 5] 5 8 5 8 5 8 8 5 5 5 8 5 8 5 5 8 5> <5!15 8>],8)" $ arp "up" lofiBlissEq - 12)
-- "a fs . <[f <c!3 c6>*<1 2>] [~ f c <~ <c [c f fs]>>]>" -- Descente
)
# "wobble"
# gain (slow 32 $ range 0.75 1 saw)
# room 0.74
# pan 0.23
# sz 0.8
# legato 2
d5 $ g -- Blissed keys
$ someCyclesBy "<t!8 f!58>" (|* gain (slow 8 $ range 0.5 1 saw)) -- Intro keys
$ whenmod 32 24 (superimpose ( -- STELLAR RAIN
("<0.15 <0.25!3 0.45>>" ~>)
. (|+ note 12)
. (|+ pan 0.12)
. (# hpf 2500)
. (|* gain 0.68)
. (# room 0.9)
. (# legato 2.9)
))
$ note (lofiBliss
+ "<0!8 [<0*2!3 0>]!8> . <~!4 12!11 <12 ~>>" -- Echo [0 12] travaillé
- 12
)
# "FMRhodes1"
# pan 0.65
# modIndex "[0.5]"
# gain 0.7
# room 0.84
# dry 0.8
# sz 0.25
d6 $ g2 -- Nappes gratos
$ (0.5 ~>)
$ note (lofiBlissMin
+ "<0!7 [0 12 . ~]>"
- 24
)
# "moogBass"
# gain 0.46
d7 $ g2 $ mask86 -- Break inéluctable
$ mask "<f!16 t!48>" -- Intro
$ mask "<f!8 t!16 <t!8 f!8>>" -- masque /32
$ ply 1 -- TODO HAVE FUN ;)
$ slice 8 ("0 1*<1 2> 2 3*<1!3 4>" + "<0 4>")
$ loopAt 2
$ "break:1"
# cut 8
# pan (slow 32 $ range 0.95 0.58 saw)
# gain (slow 32 $ range 0.5 0.75 saw)