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
do
setcps (120/60/4)
let g = midiDJF "^49" 200 9800 0 6000
let modIndex = pF "modIndex"
d1 $ g
$ midiOn "^41" (<| "k*4")
$ midiOff "^41" (<| "k ~ k <~!3 [~ k]>")
$ "[cpu2,jazz]"
# midiG' "^78" 0 1.5
# room 0.1 # sz 0.2 # dry 1
# release (0.24 + (slow 4 perlin)/4)
d2 $ g
$ fast 4
"~ hh*<1 1 <2 [2 1] [1 2] 1> 1>"
# midiG "^79"
d3 $ g
$ note (
"<df4 a3>(<3!8 4!8>,8,<0!6 2 2>) <b3!3 e4>*<1 1 1 2 2 2 4 [4 8]>"
- 12
)
# "bassWarsaw"
# pan 0.3
# crush (range 10 1.5 "^53")
# midiG' "^81" 0 1.5
d4
$ g
$ midiOn "^44" (slow 2)
$ midiOn "^76" (slice 8 (run 8) . (loopAt 1 . (>| "breaks165")))
$ midiOn "^41" (<| "k*4")
$ loopAt 1
$ slice 8 ("0 1 2 3 4 5 6 7"
|+| "0 . 0 0*<1!6 2 4>" -- Surplus /8
- "0 . <0!3 4>" -- Lag /4
)
$ "breaks125"
# midiG "^80"
d5
$ g
$ midiOff "^41" (mask "t(<2 4 8 <8 16>>,16)")
$ midiOn "^58" ( -- Arps
superimpose (
struct "t(<8!4 12!4 16!4 16!2 <16 32>!2>,8)" .
arp "up . <up up down speedupdown>"
. (|+ note "12 0")
))
$ note (
"<df4 a3> <b3!3 e4>" + "12*[4 8]"
+ "<c'maj!2 c'min c'maj'>" -- Accords!
+ "<0!3 12> <12!3 0>(3,8)"
+ "[0,12]"
- 24
)
# "FMRhodes1"
# modIndex 5
# midiG "^82"
# room 0.5 # sz 0.8
# hpq (range 0 0.5 "^34")
# crush (range 10 4.5 "^54")
d8 -- Hold on?
$ g
$ fix (# pan 0.62) (cut 81)
$ whenmod 16 12 (midiOn "^59" $ scramble 4)
$ whenmod 64 16 (chop 16)
$ mask "<t f!3 t f!3 t f!3 t!4>"
$ "daft"
# cut "[8|8|8|8|81]"
# room 0.7
# midiG "^83"
# pan 0.8
# crush (range 10 4.5 "^55")
# hpq 0.5
# sz 0.7
once $ "daft" # gain 0.5