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
d2
$ someCyclesBy "<0!32 1!8 0!24>" (slow 2) -- Pont
$ fix (
(ply "<2 [4 <2!3 <4 8>>]>")
. (|* gain 1.2)
. (# "[drum:2,dr]")
) ("d")
$ stack [
"k . k([3 <1 3>],8)" # "jazz",
"d d d d",
(fast 2 $ "~ snare:20"),
""
]
# lpf 2000
# gain 0.75
# midiG' "^78" 0 0.7
do
let modIndex = pF "modIndex"
d1
-- $ slow 4 -- Helper: slow down
$ note (
-- midiOn "^43" (arp "up") -- Helper: arpegiate every other chord
-- [8 LoFi Chord Progs](https://blog.landr.com/lofi-chord-progressions/)
--
-- # Dmin11, Efmin11 - Two Sad train tracks
-- "<[d,f,a,c6,e6,g6] [ef, gf, bf, df6,f6,af6]>"
--
-- # Amin11, D7, Fmaj7, Cmaj7 - Pure bliss
"<[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]>"
--
-- # Cmin11,Fmin9,Cmin11,G7#5 - Enthusiasm
-- "<[c,ef,g,bf,d6,f6] <[c,f,af,c6,ef6,g6,bf6] [g,b,ds6,f6,g6,b6,ds7]>>"
- 12)
-- TODO: Ebmaj9,Abmaj13 (3:34)
-- TODO: Gmaj7+ (4:16?)
-- TODO: Gmin9+ (5:13?)
-- # "superpiano" # velocity 0.6
# "FMRhodes1"
-- # "FMRhodes2"
# att 1 # rel 2
# modIndex 0
# room 0.8
# dry 1
# sz 0.2
-- # midiG' "^79" 0 1.2
# gain 0.7