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
do
setcps (90/60/4)
let scale = getScale (scaleTable ++ [("blues",[0, 3, 5, 6, 7, 10])])
let modIndex = pF "modIndex"
let gDJF1 = (# djfbus 1 (range 0.05 0.95 "^49"))
let gDJF2 = (# djfbus 2 (range 0.05 0.95 "^50"))
let gLPQ = (# lpqbus 3 (range 0 0.95 "^13"))
let gHPQ = (# hpqbus 4 (range 0 0.95 "^14"))
let g1 = (gDJF1 . gLPQ . gHPQ)
let g2 = (gDJF2 . gLPQ . gHPQ)
d1 $ g1
$ midiOn "^42" (<| "k k*<1!3 2> k <k k*2>")
$ midiOff "^42" (<| "k . k(3,8)")
$ fix (# lpf 2500) "808bd"
$ fix ((# lpf 4000) . (|* gain 0.8)) "909"
$ "[jazz,909,808bd:4]"
# midiG' "^78" 0 1.6
d2
$ g1
$ superimpose (
(# "clap:1")
. (|* gain (slow 16 $ range 0.5 0.8 saw))
)
$ midiOn "^43" (fast 2)
$ "~ cp"
# lpf 1500
# room 0.5
# dry 1.1
# midiG' "^79" 0 1.8
d3 $ g1
$ midiOn "^44" (fast "1 2")
$ sometimesBy "^52" (ply "1 2 1 2")
$ fix ((|* gain 0.86) . (# n "[4|5]")) "gretsch"
$ "~ h ~ h ~ h ~ h*<1 2>" # "[hh,gretsch]"
# midiG' "^80" 0 1.75
d9 $ g2 -- G0dz1ll4
$ midiOn "^60" (off 1 (
(|+ pan 0.3)
. (# cut 91)
. (|+| note "[0|12]*8")
. (|* gain 0.9)
. (# squizbus 92 (range 0 10 perlin))
))
$ "90s_matrix:1/4"
# cut 9
# gain 0.55
# crushbus 9 (slow 16 $ 16 * (1 - "^56") + (range 2.6 2 (perlin)))
# roombus 91 (slow 16 $ range 0 0.82 perlin)
# dry 2
# sz 0.9
# pan 0.7
# midiG' "^84" 0 0.9
d4 $ g1 -- BASSLINE
$ midiOn "^57" ((|+ note 12) . (# legato 4))
$ note ("<bf g bf g bf g bf c c!4 g bf c6@2>" - 24)
-- $ note ("c6")
# "90s_matrix:3"
# cut 4
# pan 0.3
# midiG' "^81" 0 1.3
# lesliebus 41 (range "-1" 1 "^17")
# lrate (slow 4 $ "<[0.7 1.2!3] 2.4 4.8 6.7>")
# lpf 5000
# lsizebus 42 (range 1.9 6.7 "^33")
# crushbus 43 (range 16 2 ("^53" - 0.1 * (fast 4 perlin)))
# room 0.2
d5 $ g2 -- BLUES RUN
$ degradeBy (range 0.95 0.05 ("^18!15 1"))
$ slice 16 (run 16)
$ midiOn "^58" (striate 2)
$ superimpose (# modIndex (range 0 96 "^34"))
$ ply "1 4"
$ note (scale "blues" (
-- arp
-- up, down, updown, downup, converge, diverge, disconverge, pinkyup,
arp "<up pinkyup downup thumbupdown>" "[0,1,2,<3 4>,<4 <5 6>>]")
+ "0!3 <0!3 <1 3>>"
- 12
)
# "FMRhodes1"
# crushbus 5 (range 16 4.2 "^54")
# midiG' "^82" 0 1.85
-- # pan (slow 8 $ range 0.5 1 (saw - (slow 2 perlin)))
# pan 0.8
let scale = getScale (scaleTable ++ [("blues",["c", "ef", "f", "fs", "g", "bf"])])
-- REGION SANDBOX
once
$ note (fastcat )
# "FMRhodes1"
scaleList
once $ "90s_weird" # cut 4
once $ "90s_matrix:3" # cut 1