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
-- JOLENE v2
do
setcps (100/60/4)
let g = (# djfbus 1 ("^49"))
let m1 = whenmod 4 3 (mask "t!3 <f [f t]>")
-- let m2 = whenmod 16 12 (mask "t")
let m3 = midiOn "^73" (mask "f*16")
let m = m1 . m3
d1 $ g $ m
$ chop 16 $ loopAt 4
$ "algorythm"
# midiG' "^78" 0 1
# pan 0.3
# cut 1
d2 $ g
$ midiOn "^75" (ply 2)
$ sometimesBy "<0!3 0.5> <0.125!3 0.5> 0.25 <0.125!7 0.5>" (ply 2)
$ "d(8,8)" # "[drum:2]"
# pan 0.8
# midiG' "^79" 0 1
d3 $ g
$ whenmod 8 7 (# n "0!3 5")
$ "~ . [<h!3 ~> <~!3 h>] <~ h>"
# "h2ogmhh"
# n "0 1"
# pan 0.3
# midiG' "^80" 0 1
-- Jolene v1: Nice but how about we sample proper drums?
do
setcps (105/60/4)
d1 $ "ifdrums:0*4" # gain 0.65
d2 $ "~ snare" # gain 0.7
d3
$ loopAt 2
$ "break:7"
# gain 0.65