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
-- Broken down from LoFi's Pure Bliss Chord:
-- Amin11, D7, Fmaj7, Cmaj7
"<[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]>"
resetCycles
do
setcps (90/60/4)
let gDJF1 = (whenmod 32 24 (# djfbus 1 (slow 8 $ range 0.5 0.15 saw)))
let gDJF2 = (whenmod 64 32 (# djfbus 1 (slow 32 $ range 0.25 0.75 saw)))
let g = gDJF1 . gDJF2
d1 $ g $ "k ~ ~ <~ <k [~ k]>> . ~ <~ k> ~ ~" # "jazz" # gain 0.8
d2 $ g $ "~ sn:30" # gain 0.7
d3 $ g
$ fast 4
$ ply "<1!3 <2 [2|4]>>"
$ "drum:2"
# gain 0.5
d4 $ g
$ whenmod 16 12 (ply "<2 2 4 4>")
$ iter "1 8"
$ mask (slow 4 "<t(1,4) t(2,4) t(3,4) t>")
$ loopAt 2
$ "break:3"
# cut 4 # gain (slow 64 $ range 0.6 0.9 (saw + slow 4 perlin))
d5 $ g -- Low angels
$ note (
"<a fs f c>"
|+| "<0!8 [0 12]!8>"
- 12
)
# "moogBass"
# gain 0.4
# pan 0.2
# room 0.3
d6 $ g -- High angels
$ whenmod 32 58 (superimpose ( -- Higher arps!
(|+ note 12) . arp "<up!3 <down downup>>")
)
$ note (
"<[c6,e6, g6,b6] [a, c6, d6,fs6] [a, c6, e6,f6] [e, g, b,e6]>"
- 12
)
# "moogBass"
# gain 0.4
# pan 0.7
# room 0.3