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
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]>>"
--
-- # Ebmaj9,Abmaj13 - ???(3:34) - Very uplfting
-- "<[f,gs,c,ef,g6,bf6] [ef,g,bf,d6,f6,as6]>"
- 24)
-- TODO: Gmaj7+ (4:16?)
-- TODO: Gmin9+ (5:13?)
-- # "superpiano" # velocity 0.6
# "FMRhodes1"
-- # "FMRhodes2"
# att 0.1 # rel 2
# modIndex 0
# room 0.8
# dry 1
# sz 0.2
-- # midiG' "^79" 0 1.2
# gain 0.9
-- LOFI CHORDS FROM RANDOM WEB
d4 $ gF2
-- $ note "[c3,ef3,g3,as3,d4,f4]"
$ note "<[c3,f4] <[c3,as4] [b2,ef3]>>"
# "bassWarsaw"
# midiG' "^81" 0 1.2
d6 $ gF3
$ (superimpose (struct "t*8" . arp "down"))
$ note "<[c3,ef3,g3,as3,d4,f4] <[c3,f3,gs3,c4,ef4,g4,as4] [b2,ef3,f3,g3,b4,ef4]>>"
# "FMRhodes1"
# modIndex (range 0 16 "^54")
# midiG' "^82" 0 1.2