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
do
let scale = getScale (scaleTable ++ [("latin", [1,3,4,6,8,10])])
setcps (65/60/4)
let mFast = midiOn "^41" (fast 2)
d1 $ mFast
$ midiOn "^42" ((<| "k k k <k [~ k]>"))
$ midiOff "^42" (<| "k . k(<3!3 [<3 8> 5]>,8)" )
$ "jazz"
# midiG' "^78" 0 1.8
d2
$ often (ply "1 . [2 <2!3 [2|4]>]")
$ fast 8
$ "~ jungle:8"
# midiG' "^79" 0 1.8
d10 $ whenmod 32 16 (fast 2)
$ whenmod 4 3 (mask "<t!15 f>" . off "e" (# pan 0.1))
$ "~ h2ogmcp"
# midiG' "^79" 0 1.8
d3 -- Broken break
$ slice 4 "0*<<1 2> 1 1 2> <1 ~> <2 ~ ~ 2> 3*<1 1 2 <1 4>>"
$ loopAt 1 $ "fbreak80:2"
# midiG' "^80" 0 1.8
d4
$ slice 16 ("0 0 0 <0 0 1 2>" + "<0!4 1!8 2!3 3>")
$ loopAt 16
$ "latin"
# rel 1
# cut 4
# midiG' "^82" 0 2
# room 0.42 # sz 0.8 # dry 1
d5 $ note (scale "latin" ("-2@3 <-2 -3 -4 -5> . -2 <0 0 1 <2 4>>") - 12)
# "bassWarsaw"
# crushbus 51 (range 16 2.5 "^53")
# midiG' "^81" 0 2
d6
$ note (scale "latin" (arp "up" "1*<1 1 2 1 2 1!3> ~ . <[1 3 2 3 <5 6 6 7>] [1 3 <5 6>]>")
- 1) -- Adjuste jvbass-1
# "jvbass:3"
# midiG' "^82" 0 2
d7
$ slow 4 $ "fmono:12"
# cut 7 # gain 0.8